diff options
75 files changed, 98798 insertions, 85574 deletions
@@ -1,11 +1,12 @@ RISCV Sail Model -This Sail RISC-V architecture model here, comprising all files and +This Sail RISC-V architecture model, comprising all files and directories, is subject to the BSD two-clause licence below. -Copyright (c) 2017-2019 +Copyright (c) 2017-2020 Prashanth Mundkur + Rishiyur Nikhil Jon French Brian Campbell Robert Norton-Wright @@ -17,16 +18,21 @@ Copyright (c) 2017-2019 All rights reserved. +This software was developed by the above within the Rigorous +Engineering of Mainstream Systems (REMS) project, partly funded by +EPSRC grant EP/K008528/1, at the Universities of Cambridge and +Edinburgh. + This software was developed by SRI International and the University of Cambridge Computer Laboratory (Department of Computer Science and Technology) under DARPA/AFRL contract FA8650-18-C-7809 ("CIFV"), and under DARPA contract HR0011-18-C-0016 ("ECATS") as part of the DARPA SSITH research programme. -This software was developed by the above within the Rigorous -Engineering of Mainstream Systems (REMS) project, partly funded by -EPSRC grant EP/K008528/1, at the Universities of Cambridge and -Edinburgh. +This project has received funding from the European Research Council +(ERC) under the European Union’s Horizon 2020 research and innovation +programme (grant agreement No 789108). + Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions @@ -33,7 +33,7 @@ $(RV_CONFIG2SAIL): # Instruction sources, depending on target SAIL_CHECK_SRCS = riscv_addr_checks_common.sail riscv_addr_checks.sail riscv_misa_ext.sail -SAIL_DEFAULT_INST = riscv_insts_base.sail riscv_insts_aext.sail riscv_insts_cext.sail riscv_insts_mext.sail riscv_insts_zicsr.sail riscv_insts_next.sail +SAIL_DEFAULT_INST = riscv_insts_base.sail riscv_insts_aext.sail riscv_insts_cext.sail riscv_insts_mext.sail riscv_insts_zicsr.sail riscv_insts_next.sail riscv_insts_hints.sail SAIL_DEFAULT_INST += riscv_insts_fext.sail riscv_insts_cfext.sail ifeq ($(ARCH),RV64) SAIL_DEFAULT_INST += riscv_insts_dext.sail riscv_insts_cdext.sail @@ -358,7 +358,7 @@ ifndef EXPLICIT_COQ_SAIL EXPLICIT_COQ_SAIL = $(shell if opam config var coq-sail:share >/dev/null 2>/dev/null; then echo no; else echo yes; fi) endif -COQ_LIBS = -R generated_definitions/coq/$(ARCH) '' -R handwritten_support '' +COQ_LIBS = -R generated_definitions/coq/$(ARCH) '' -R generated_definitions/coq '' -R handwritten_support '' ifeq ($(EXPLICIT_COQ_BBV),yes) COQ_LIBS += -Q $(BBV_DIR)/src/bbv bbv endif @@ -373,9 +373,9 @@ riscv_coq_build: generated_definitions/coq/$(ARCH)/riscv.vo $(addprefix generated_definitions/coq/$(ARCH)/,riscv.v riscv_types.v): $(SAIL_COQ_SRCS) Makefile mkdir -p generated_definitions/coq/$(ARCH) $(SAIL) $(SAIL_FLAGS) -dcoq_undef_axioms -coq -coq_output_dir generated_definitions/coq/$(ARCH) -o riscv -coq_lib riscv_extras -coq_lib mem_metadata $(SAIL_COQ_SRCS) -$(addprefix generated_definitions/coq/$(ARCH)/,riscv_duopod.v riscv_duopod_types.v): $(PRELUDE_SRCS) model/riscv_duopod.sail model/riscv_termination_duo.sail - mkdir -p generated_definitions/coq/$(ARCH) - $(SAIL) $(SAIL_FLAGS) -dcoq_undef_axioms -coq -coq_output_dir generated_definitions/coq/$(ARCH) -o riscv_duopod -coq_lib riscv_extras -coq_lib mem_metadata $^ +$(addprefix generated_definitions/coq/,riscv_duopod.v riscv_duopod_types.v): $(PRELUDE_SRCS) model/riscv_duopod.sail model/riscv_termination_duo.sail + mkdir -p generated_definitions/coq/ + $(SAIL) $(SAIL_FLAGS) -dcoq_undef_axioms -coq -coq_output_dir generated_definitions/coq -o riscv_duopod -coq_lib riscv_extras -coq_lib mem_metadata model/riscv_duopod.sail model/riscv_termination_duo.sail %.vo: %.v ifeq ($(EXPLICIT_COQ_BBV),yes) @@ -391,7 +391,7 @@ endif coqc $(COQ_LIBS) $< generated_definitions/coq/$(ARCH)/riscv.vo: generated_definitions/coq/$(ARCH)/riscv_types.vo handwritten_support/riscv_extras.vo handwritten_support/mem_metadata.vo -generated_definitions/coq/$(ARCH)/riscv_duopod.vo: generated_definitions/coq/$(ARCH)/riscv_duopod_types.vo handwritten_support/riscv_extras.vo handwritten_support/mem_metadata.vo +generated_definitions/coq/riscv_duopod.vo: generated_definitions/coq/riscv_duopod_types.vo handwritten_support/riscv_extras.vo handwritten_support/mem_metadata.vo echo_rmem_srcs: echo $(SAIL_RMEM_SRCS) @@ -1,12 +1,10 @@ RISCV Sail Model ================ -This repository contains a model of the RISCV architecture written in -[Sail](https://www.cl.cam.ac.uk/~pes20/sail/). It used to be contained -in the [Sail repository](https://github.com/rems-project/sail). +This repository contains a formal specification of the RISC-V architecture, written in +[Sail](https://www.cl.cam.ac.uk/~pes20/sail/) ([repo](https://github.com/rems-project/sail)). It has been adopted by the RISC-V Foundation. -It currently defines enough of RV32IMAC and RV64IMAC to boot a -conventional OS with a terminal output device. The model specifies +The model specifies assembly language formats of the instructions, the corresponding encoders and decoders, and the instruction semantics. The current status of its @@ -23,11 +21,233 @@ for inclusion in reference documentation. Drafts of the RISC-V and [privileged](https://github.com/rems-project/riscv-isa-manual/blob/sail/release/riscv-privileged-sail-draft.pdf) specifications that include the Sail formal definitions are available in the sail branch of this [risc-v-isa-manual repository](https://github.com/rems-project/riscv-isa-manual/tree/sail). +The process to perform this inclusion is explained [here](https://github.com/rems-project/riscv-isa-manual/blob/sail/README.SAIL). -This is one of [several formal models](https://github.com/riscv/ISA_Formal_Spec_Public_Review/blob/master/comparison_table.md) compared within the +This is one of [several formal models](https://github.com/riscv/ISA_Formal_Spec_Public_Review/blob/master/comparison_table.md) that were compared within the [RISC-V ISA Formal Spec Public Review](https://github.com/riscv/ISA_Formal_Spec_Public_Review). +What is Sail? +------------- + +[Sail](https://www.cl.cam.ac.uk/~pes20/sail/) ([repo](https://github.com/rems-project/sail)) is a language for describing the instruction-set architecture +(ISA) semantics of processors. Sail aims to provide a +engineer-friendly, vendor-pseudocode-like language for describing +instruction semantics. It is essentially a first-order imperative +language, but with lightweight dependent typing for numeric types and +bitvector lengths, which are automatically checked using Z3. +<p> + +Given a Sail definition, the tool will type-check it and generate +LaTeX snippets to use in documentation, executable emulators (in C and OCaml), theorem-prover definitions for +Isabelle, HOL4, and Coq, and definitions to integrate with our +<a href="http://www.cl.cam.ac.uk/users/pes20/rmem">RMEM</a> +and +<a href="isla-axiomatic.cl.cam.ac.uk/">isla-axiomatic</a> tools for +concurrency semantics. +<p> + + <img width="800" src="https://www.cl.cam.ac.uk/~pes20/sail/overview-sail.png?"> +<p> + +Sail is being used for multiple ISA descriptions, including +essentially complete versions of the sequential behaviour of ARMv8-A +(automatically derived from the authoritative ARM-internal +specification, and released under a BSD Clear licence with ARM's +permission), RISC-V, MIPS, CHERI-RISC-V, and CHERI-MIPS; all these are complete +enough to boot various operating systems. There are also Sail models +for smaller fragments of IBM POWER and x86. + + + +Example instruction specifications +---------------------------------- + +These are verbatim excerpts from the model file containing the base instructions, [riscv_insts_base.sail](https://github.com/rems-project/sail-riscv/blob/master/model/riscv_insts_base.sail), with a few comments added. + +### ITYPE (or ADDI) +~~~~~ +/* the assembly abstract syntax tree (AST) clause for the ITYPE instructions */ + +union clause ast = ITYPE : (bits(12), regbits, regbits, iop) + +/* the encode/decode mapping between AST elements and 32-bit words */ + +mapping encdec_iop : iop <-> bits(3) = { + RISCV_ADDI <-> 0b000, + RISCV_SLTI <-> 0b010, + RISCV_SLTIU <-> 0b011, + RISCV_ANDI <-> 0b111, + RISCV_ORI <-> 0b110, + RISCV_XORI <-> 0b100 +} + +mapping clause encdec = ITYPE(imm, rs1, rd, op) <-> imm @ rs1 @ encdec_iop(op) @ rd @ 0b0010011 + +/* the execution semantics for the ITYPE instructions */ + +function clause execute (ITYPE (imm, rs1, rd, op)) = { + let rs1_val = X(rs1); + let immext : xlenbits = EXTS(imm); + let result : xlenbits = match op { + RISCV_ADDI => rs1_val + immext, + RISCV_SLTI => EXTZ(rs1_val <_s immext), + RISCV_SLTIU => EXTZ(rs1_val <_u immext), + RISCV_ANDI => rs1_val & immext, + RISCV_ORI => rs1_val | immext, + RISCV_XORI => rs1_val ^ immext + }; + X(rd) = result; + true +} + +/* the assembly/disassembly mapping between AST elements and strings */ + +mapping itype_mnemonic : iop <-> string = { + RISCV_ADDI <-> "addi", + RISCV_SLTI <-> "slti", + RISCV_SLTIU <-> "sltiu", + RISCV_XORI <-> "xori", + RISCV_ORI <-> "ori", + RISCV_ANDI <-> "andi" +} + +mapping clause assembly = ITYPE(imm, rs1, rd, op) + <-> itype_mnemonic(op) ^ spc() ^ reg_name(rd) ^ sep() ^ reg_name(rs1) ^ sep() ^ hex_bits_12(imm) +~~~~~~ + +### SRET + +~~~~~ +union clause ast = SRET : unit + +mapping clause encdec = SRET() <-> 0b0001000 @ 0b00010 @ 0b00000 @ 0b000 @ 0b00000 @ 0b1110011 + +function clause execute SRET() = { + match cur_privilege { + User => handle_illegal(), + Supervisor => if mstatus.TSR() == true + then handle_illegal() + else nextPC = handle_exception(cur_privilege, CTL_SRET(), PC), + Machine => nextPC = handle_exception(cur_privilege, CTL_SRET(), PC) + }; + false +} + +mapping clause assembly = SRET() <-> "sret" +~~~~~ + + +Sequential execution +---------- + +The model builds OCaml and C emulators that can execute RISC-V ELF +files, and both emulators provide platform support sufficient to boot +Linux, FreeBSD and seL4. The OCaml emulator can generate its own +platform device-tree description, while the C emulator currently +requires a consistent description to be manually provided. The C +emulator can be linked against the Spike emulator for execution with +per-instruction tandem-verification. + +The C emulator, for the Linux boot, currently runs at approximately +300 KIPS on an Intel i7-7700 (when detailed per-instruction tracing +is disabled), and there are many opportunities for future optimisation +(our Sail MIPS model runs at approximately 1 MIPS). This enables us to +boot Linux in about 4 minutes, and FreeBSD in about 2 minutes. Memory +usage for the C emulator when booting Linux is approximately 140MB. + +The files in the OCaml and C emulator directories implement ELF loading and the +platform devices, define the physical memory map, and use command-line +options to select implementation-specific ISA choices. + + +### Use for specification coverage measurement in testing + +The Sail-generated C emulator can measure specification branch +coverage of any executed tests, displaying the results as per-file +tables and as html-annotated versions of the model source. + + +### Use as test oracle in tandem verification + +For tandem verification of random instruction streams we support the +protocols used in [TestRIG](https://github.com/CTSRD-CHERI/TestRIG) to +directly inject instructions into the C emulator and produce trace +information in RVFI format. This has been used for cross testing +against spike and the [RVBS](https://github.com/CTSRD-CHERI/RVBS) +specification written in Bluespec SystemVerilog. + +The C emulator can also be directly linked to Spike, which provides +tandem-verification on ELF binaries (including OS boots). This is +often useful in debugging OS boot issues in the model when the boot is +known working on Spike. It is also useful to detect platform-specific +implementation choices in Spike that are not mandated by the ISA +specification. + + +Concurrent execution +-------------------- + +The ISA model is integrated with the operational model of the RISC-V +relaxed memory model, RVWMO (as described in an appendix of the [RISC-V +user-level specification](https://github.com/riscv/riscv-isa-manual/releases/tag/draft-20181227-c6741cb)), which is one of the reference models used +in the development of the RISC-V concurrency architecture; this is +part of our [RMEM](http://www.cl.cam.ac.uk/users/pes20/rmem) tool. +It is also integrated with the RISC-V axiomatic concurrency model + as part of our [isla-axiomatic](https://isla-axiomatic.cl.cam.ac.uk/) tool. + +### Concurrent testing + + +As part of our concurrency architecture work, we have produced and +released a library of approximately 7000 [litmus +tests](https://github.com/litmus-tests/litmus-tests-riscv). The +operational and axiomatic RISC-V concurrency models are in sync for +these tests, and they moreover agree with the corresponding ARM +architected behaviour for the tests in common. + +We have also run these tests on RISC-V hardware, on a SiFive RISC-V +FU540 multicore proto board (Freedom Unleashed), kindly on loan from +Imperas. To date, we see only sequentially consistent behaviour there. + + + +Use in test generation +---------------------- + +Our OCaml backend can produce QuickCheck-style random generators for +types in Sail specifications, which we have used to produce random +instructions sequences for testing. The generation of individual +types can be overridden by the developer to, for example, remove +implementation-specific instructions or introduce register biasing. + + + +Generating theorem-prover definitions +-------------------------------------- + +With Sail we aim to support the generation of idiomatic theorem prover +definitions across multiple tools. At present we support Isabelle, +HOL4 and Coq, and provide snapshots of the generated theorem prover +definitions. + +Our theorem-prover translation can target multiple monads for +different purposes. The first is a state monad with nondeterminism and +exceptions, suitable for reasoning in a sequential setting, assuming +that effectful expressions are executed without interruptions and with +exclusive access to the state. + +For reasoning about concurrency, where instructions execute +out-of-order, speculatively, and non-atomically, we provide a free +monad over an effect datatype of memory actions. This monad is also +used as part of our aforementioned concurrency support via the RMEM +tool. + + +The files under `handwritten_support` provide library definitions for +Coq, Isabelle and HOL4. + + Directory Structure ------------------- @@ -52,26 +272,14 @@ sail-riscv - os-boot // information and sample files for booting OS images ``` -Simulators ----------- - -The files in the OCaml and C emulator directories implement ELF loading and the -platform devices, define the physical memory map, and use command-line -options to select implementation-specific ISA choices. - -Provers -------- - -The files under `handwritten_support` provide library definitions for -Coq, Isabelle and HOL4. +Getting started +--------------- -Building the model ------------------- +### Building the model -Install Sail [via -Opam](https://github.com/rems-project/sail/wiki/OPAMInstall), or build Sail -from source and have `SAIL_DIR` in your environment pointing to its -top-level directory. +Install [Sail](https://github.com/rems-project/sail/), either via opam +or by building Sail from source and setting `SAIL_DIR` in your +environment pointing to its top-level directory. Then: ``` $ make @@ -105,8 +313,7 @@ corresponding prover libraries in the Sail directory (`$SAIL_DIR/lib/$prover`) are up-to-date and built, e.g. by running `make` in those directories. -Executing test binaries ------------------------ +### Executing test binaries The C and OCaml simulators can be used to execute small test binaries. The OCaml simulator depends on the Device Tree Compiler package, which can be @@ -129,8 +336,7 @@ A suite of RV32 and RV64 test programs derived from the included under [test/riscv-tests/](test/riscv-tests/). The test-suite can be run using `test/run_tests.sh`. -Configuring platform options ----------------------------- +### Configuring platform options Some information on additional configuration options for each simulator is available from `./ocaml_emulator/riscv_ocaml_sim_<arch> @@ -141,22 +347,51 @@ Some useful options are: configuring whether misaligned accesses trap whether page-table walks update PTE bits (`--enable-dirty-update` for C and `-enable-dirty-update` for OCaml). -Booting OS images ------------------ +### Experimental integration with riscv-config + +There is also (as yet unmerged) support for [integration with riscv-config](https://github.com/rems-project/sail-riscv/pull/43) to allow configuring the compiled model according to a riscv-config yaml specification. + +### Booting OS images For booting operating system images, see the information under the [os-boot/](os-boot/) subdirectory. +Licence +------- + +The model is made available under the BSD two-clause licence in LICENCE. + + +Authors +------- + + Prashanth Mundkur, SRI International; + Rishiyur Nikhil (Bluespec Inc.); + Jon French, University of Cambridge; + Brian Campbell, University of Edinburgh; + Robert Norton, University of Cambridge; + Alasdair Armstrong, University of Cambridge; + Thomas Bauereiss, University of Cambridge; + Shaked Flur, University of Cambridge; + Christopher Pulte, University of Cambridge + Peter Sewell, University of Cambridge + + Funding ------- +This software was developed by the above within the Rigorous +Engineering of Mainstream Systems (REMS) project, partly funded by +EPSRC grant EP/K008528/1, at the Universities of Cambridge and +Edinburgh. + This software was developed by SRI International and the University of Cambridge Computer Laboratory (Department of Computer Science and Technology) under DARPA/AFRL contract FA8650-18-C-7809 ("CIFV"), and under DARPA contract HR0011-18-C-0016 ("ECATS") as part of the DARPA SSITH research programme. -This software was developed within the Rigorous -Engineering of Mainstream Systems (REMS) project, partly funded by -EPSRC grant EP/K008528/1, at the Universities of Cambridge and -Edinburgh. + +This project has received funding from the European Research Council +(ERC) under the European Union’s Horizon 2020 research and innovation +programme (grant agreement No 789108). diff --git a/build_simulators.sh b/build_simulators.sh index bf32e15..ae10fc9 100755 --- a/build_simulators.sh +++ b/build_simulators.sh @@ -1,8 +1,18 @@ #!/bin/bash -make ARCH=RV32 ocaml_emulator/riscv_ocaml_sim_RV32 -make ARCH=RV64 ocaml_emulator/riscv_ocaml_sim_RV64 +function test_build () { + declare -i rc=0 + eval $* + rc=$? + if [ $rc -ne 0 ]; then + echo "Failure to execute: $*" + exit $rc + fi +} -make ARCH=RV32 c_emulator/riscv_sim_RV32 -make ARCH=RV64 c_emulator/riscv_sim_RV64 +test_build make ARCH=RV32 ocaml_emulator/riscv_ocaml_sim_RV32 +test_build make ARCH=RV64 ocaml_emulator/riscv_ocaml_sim_RV64 + +test_build make ARCH=RV32 c_emulator/riscv_sim_RV32 +test_build make ARCH=RV64 c_emulator/riscv_sim_RV64 diff --git a/c_emulator/riscv_platform.c b/c_emulator/riscv_platform.c index d2bb6f7..6529355 100644 --- a/c_emulator/riscv_platform.c +++ b/c_emulator/riscv_platform.c @@ -12,6 +12,9 @@ static bool reservation_valid = false; bool sys_enable_rvc(unit u) { return rv_enable_rvc; } +bool sys_enable_next(unit u) +{ return rv_enable_next; } + bool sys_enable_fdext(unit u) { return rv_enable_fdext; } diff --git a/c_emulator/riscv_platform.h b/c_emulator/riscv_platform.h index 8cdfdb1..464f6d0 100644 --- a/c_emulator/riscv_platform.h +++ b/c_emulator/riscv_platform.h @@ -2,6 +2,7 @@ #include "sail.h" bool sys_enable_rvc(unit); +bool sys_enable_next(unit); bool sys_enable_fdext(unit); bool sys_enable_writable_misa(unit); diff --git a/c_emulator/riscv_platform_impl.c b/c_emulator/riscv_platform_impl.c index 9788649..e43ba27 100644 --- a/c_emulator/riscv_platform_impl.c +++ b/c_emulator/riscv_platform_impl.c @@ -5,6 +5,7 @@ /* Settings of the platform implementation, with common defaults. */ bool rv_enable_pmp = false; bool rv_enable_rvc = true; +bool rv_enable_next = false; bool rv_enable_writable_misa = true; bool rv_enable_fdext = true; diff --git a/c_emulator/riscv_platform_impl.h b/c_emulator/riscv_platform_impl.h index 1a65035..0e1dadd 100644 --- a/c_emulator/riscv_platform_impl.h +++ b/c_emulator/riscv_platform_impl.h @@ -9,6 +9,7 @@ extern bool rv_enable_pmp; extern bool rv_enable_rvc; +extern bool rv_enable_next; extern bool rv_enable_fdext; extern bool rv_enable_writable_misa; extern bool rv_enable_dirty_update; diff --git a/c_emulator/riscv_sim.c b/c_emulator/riscv_sim.c index 4d6a4c0..5669dcf 100644 --- a/c_emulator/riscv_sim.c +++ b/c_emulator/riscv_sim.c @@ -14,7 +14,9 @@ #include "elf.h" #include "sail.h" #include "rts.h" +#ifdef SAILCOV #include "sail_coverage.h" +#endif #include "riscv_platform.h" #include "riscv_platform_impl.h" #include "riscv_sail.h" @@ -98,6 +100,7 @@ static struct option options[] = { {"enable-dirty-update", no_argument, 0, 'd'}, {"enable-misaligned", no_argument, 0, 'm'}, {"enable-pmp", no_argument, 0, 'P'}, + {"enable-next", no_argument, 0, 'N'}, {"ram-size", required_argument, 0, 'z'}, {"disable-compressed", no_argument, 0, 'C'}, {"disable-writable-misa", no_argument, 0, 'I'}, @@ -202,21 +205,23 @@ char *process_args(int argc, char **argv) "a" "d" "m" + "P" "C" + "N" "I" + "F" "i" "s" "p" "z:" "b:" "t:" + "T:" "h" "r:" - "T:" "V::" "v::" "l:" - "F:" , options, NULL); if (c == -1) break; switch (c) { @@ -239,6 +244,10 @@ char *process_args(int argc, char **argv) fprintf(stderr, "disabling RVC compressed instructions.\n"); rv_enable_rvc = false; break; + case 'N': + fprintf(stderr, "enabling N extension.\n"); + rv_enable_next = true; + break; case 'I': fprintf(stderr, "disabling writable misa CSR.\n"); rv_enable_writable_misa = false; diff --git a/doc/ExtendingGuide.md b/doc/ExtendingGuide.md index 83f31c9..b32b9a9 100644 --- a/doc/ExtendingGuide.md +++ b/doc/ExtendingGuide.md @@ -102,7 +102,11 @@ utilized for research experimentation. These bits can be accessed and modified using the `ext_pte` argument in functions implementing the page-table walk. The information computed by and used during the page-table can also be varied using the `ext_ptw` argument, which can -be defined and used by extensions as needed. +be defined and used by extensions as needed. Extensions can override +the definitions of `checkPTEPermission` and `ext_get_ptw_error` to +generate and process this custom information, and +`ext_translate_exception` to convert any custom errors into +extension-specific exceptions. Checking and transforming memory addresses ------------------------------------------ diff --git a/doc/ReadingGuide.md b/doc/ReadingGuide.md index 1e77a33..5c8d0f6 100644 --- a/doc/ReadingGuide.md +++ b/doc/ReadingGuide.md @@ -102,6 +102,8 @@ such as the platform memory map. are represented as a clause of the `execute` function. `mapping` clauses specify the encoding and decoding of each instruction to and from their binary representations and assembly language formats. + Hint instructions that are not implicitly handled elsewhere are + explicitly handled in `riscv_insts_hints.sail`. - `riscv_fetch.sail` contains the instruction fetch function. It supports checking and transformation of the fetch address as diff --git a/doc/Status.md b/doc/Status.md index 57a044c..539020a 100644 --- a/doc/Status.md +++ b/doc/Status.md @@ -42,10 +42,6 @@ specification. - The RV128 primary base ISA. -- An explicit and complete definition of the HINT instructions. As - currently implemented, some of them are implicitly implemented as - NOPs. - - Specification and implementation of Endianness Control. - Support for changing XLEN or base ISA control using the {M,S,U}XL diff --git a/handwritten_support/0.11/riscv_extras.lem b/handwritten_support/0.11/riscv_extras.lem index cc48761..db93001 100644 --- a/handwritten_support/0.11/riscv_extras.lem +++ b/handwritten_support/0.11/riscv_extras.lem @@ -79,6 +79,10 @@ val sys_enable_rvc : unit -> bool let sys_enable_rvc () = true declare ocaml target_rep function sys_enable_rvc = `Platform.enable_rvc` +val sys_enable_next : unit -> bool +let sys_enable_next () = true +declare ocaml target_rep function sys_enable_next = `Platform.enable_next` + val sys_enable_fdext : unit -> bool let sys_enable_fdext () = true declare ocaml target_rep function sys_enable_fdext = `Platform.enable_fdext` diff --git a/handwritten_support/0.11/riscv_extras_sequential.lem b/handwritten_support/0.11/riscv_extras_sequential.lem index ac70ee5..827f601 100644 --- a/handwritten_support/0.11/riscv_extras_sequential.lem +++ b/handwritten_support/0.11/riscv_extras_sequential.lem @@ -75,6 +75,10 @@ val sys_enable_rvc : unit -> bool let sys_enable_rvc () = true declare ocaml target_rep function sys_enable_rvc = `Platform.enable_rvc` +val sys_enable_next : unit -> bool +let sys_enable_next () = true +declare ocaml target_rep function sys_enable_next = `Platform.enable_next` + val plat_ram_base : forall 'a. Size 'a => unit -> bitvector 'a let plat_ram_base () = wordFromInteger 0 declare ocaml target_rep function plat_ram_base = `Platform.dram_base` diff --git a/handwritten_support/riscv_extras.lem b/handwritten_support/riscv_extras.lem index d8dec88..15ac8c7 100644 --- a/handwritten_support/riscv_extras.lem +++ b/handwritten_support/riscv_extras.lem @@ -79,6 +79,10 @@ val sys_enable_rvc : unit -> bool let sys_enable_rvc () = true declare ocaml target_rep function sys_enable_rvc = `Platform.enable_rvc` +val sys_enable_next : unit -> bool +let sys_enable_next () = true +declare ocaml target_rep function sys_enable_next = `Platform.enable_next` + val sys_enable_fdext : unit -> bool let sys_enable_fdext () = true declare ocaml target_rep function sys_enable_fdext = `Platform.enable_fdext` diff --git a/handwritten_support/riscv_extras.v b/handwritten_support/riscv_extras.v index 02d5609..4b069ec 100644 --- a/handwritten_support/riscv_extras.v +++ b/handwritten_support/riscv_extras.v @@ -141,6 +141,7 @@ Definition string_of_int z := DecimalString.NilZero.string_of_int (Z.to_int z). Axiom sys_enable_writable_misa : unit -> bool. Axiom sys_enable_rvc : unit -> bool. Axiom sys_enable_fdext : unit -> bool. +Axiom sys_enable_next : unit -> bool. (* The constraint solver can do this itself, but a Coq bug puts anonymous_subproof into the term instead of an actual subproof. *) diff --git a/handwritten_support/riscv_extras_sequential.lem b/handwritten_support/riscv_extras_sequential.lem index 7715614..c1c99ed 100644 --- a/handwritten_support/riscv_extras_sequential.lem +++ b/handwritten_support/riscv_extras_sequential.lem @@ -75,6 +75,10 @@ val sys_enable_rvc : unit -> bool let sys_enable_rvc () = true declare ocaml target_rep function sys_enable_rvc = `Platform.enable_rvc` +val sys_enable_next : unit -> bool +let sys_enable_next () = true +declare ocaml target_rep function sys_enable_next = `Platform.enable_next` + val plat_ram_base : forall 'a. Size 'a => unit -> bitvector 'a let plat_ram_base () = wordFromInteger 0 declare ocaml target_rep function plat_ram_base = `Platform.dram_base` diff --git a/model/riscv_csr_map.sail b/model/riscv_csr_map.sail index c10c086..7fe989a 100644 --- a/model/riscv_csr_map.sail +++ b/model/riscv_csr_map.sail @@ -54,6 +54,7 @@ mapping clause csr_name_map = 0x303 <-> "mideleg" mapping clause csr_name_map = 0x304 <-> "mie" mapping clause csr_name_map = 0x305 <-> "mtvec" mapping clause csr_name_map = 0x306 <-> "mcounteren" +mapping clause csr_name_map = 0x320 <-> "mcountinhibit" /* machine trap handling */ mapping clause csr_name_map = 0x340 <-> "mscratch" mapping clause csr_name_map = 0x341 <-> "mepc" diff --git a/model/riscv_fdext_regs.sail b/model/riscv_fdext_regs.sail index 2ef310b..e379c1e 100644 --- a/model/riscv_fdext_regs.sail +++ b/model/riscv_fdext_regs.sail @@ -8,8 +8,6 @@ /* **************************************************************** */ /* Floating point register file */ -register fs : vector(32, dec, fregtype) - register f0 : fregtype register f1 : fregtype register f2 : fregtype diff --git a/model/riscv_fetch_rvfi.sail b/model/riscv_fetch_rvfi.sail index 0f2ed4b..955dd4b 100644 --- a/model/riscv_fetch_rvfi.sail +++ b/model/riscv_fetch_rvfi.sail @@ -9,22 +9,29 @@ function fetch() -> FetchResult = { /* then check PC alignment */ if (use_pc[0] != bitzero | (use_pc[1] != bitzero & (~ (haveRVC())))) then F_Error(E_Fetch_Addr_Align(), PC) - else { - let i = rvfi_instruction.rvfi_insn(); - rvfi_exec->rvfi_insn() = EXTZ(i); - /* TODO: should we write these even if they're not really registers? */ - rvfi_exec->rvfi_rs1_data() = EXTZ(X(i[19 .. 15])); - rvfi_exec->rvfi_rs2_data() = EXTZ(X(i[24 .. 20])); - rvfi_exec->rvfi_rs1_addr() = sail_zero_extend(i[19 .. 15],8); - rvfi_exec->rvfi_rs2_addr() = sail_zero_extend(i[24 .. 20],8); - if (i[1 .. 0] != 0b11) - then F_RVC(i[15 .. 0]) - else { - /* fetch PC check for the next instruction granule */ - PC_hi : xlenbits = PC + 2; - match ext_fetch_check_pc(PC, PC_hi) { - Ext_FetchAddr_Error(e) => F_Ext_Error(e), - Ext_FetchAddr_OK(use_pc_hi) => F_Base(i) + else match translateAddr(use_pc, Execute()) { + TR_Failure(e, _) => F_Error(e, PC), + TR_Address(_, _) => { + let i = rvfi_instruction.rvfi_insn(); + rvfi_exec->rvfi_insn() = EXTZ(i); + /* TODO: should we write these even if they're not really registers? */ + rvfi_exec->rvfi_rs1_data() = EXTZ(X(i[19 .. 15])); + rvfi_exec->rvfi_rs2_data() = EXTZ(X(i[24 .. 20])); + rvfi_exec->rvfi_rs1_addr() = sail_zero_extend(i[19 .. 15],8); + rvfi_exec->rvfi_rs2_addr() = sail_zero_extend(i[24 .. 20],8); + if (i[1 .. 0] != 0b11) + then F_RVC(i[15 .. 0]) + else { + /* fetch PC check for the next instruction granule */ + PC_hi : xlenbits = PC + 2; + match ext_fetch_check_pc(PC, PC_hi) { + Ext_FetchAddr_Error(e) => F_Ext_Error(e), + Ext_FetchAddr_OK(use_pc_hi) => + match translateAddr(use_pc_hi, Execute()) { + TR_Failure(e, _) => F_Error(e, PC), + TR_Address(_, _) => F_Base(i) + } + } } } } diff --git a/model/riscv_insts_aext.sail b/model/riscv_insts_aext.sail index e760b90..55727b8 100644 --- a/model/riscv_insts_aext.sail +++ b/model/riscv_insts_aext.sail @@ -189,10 +189,10 @@ function clause execute (AMO(op, aq, rl, rs2, rs1, width, rd)) = { /* Get the address, X(rs1) (no offset). * Some extensions perform additional checks on address validity. */ - match ext_data_get_addr(rs1, zeros(), ReadWrite(Data), width) { + match ext_data_get_addr(rs1, zeros(), ReadWrite(Data, Data), width) { Ext_DataAddr_Error(e) => { ext_handle_data_check_error(e); RETIRE_FAIL }, Ext_DataAddr_OK(vaddr) => { - match translateAddr(vaddr, ReadWrite(Data)) { + match translateAddr(vaddr, ReadWrite(Data, Data)) { TR_Failure(e, _) => { handle_mem_exception(vaddr, e); RETIRE_FAIL }, TR_Address(addr, _) => { let eares : MemoryOpResult(unit) = match (width, sizeof(xlen)) { @@ -214,8 +214,8 @@ function clause execute (AMO(op, aq, rl, rs2, rs1, width, rd)) = { MemException(e) => { handle_mem_exception(addr, e); RETIRE_FAIL }, MemValue(_) => { let mval : MemoryOpResult(xlenbits) = match (width, sizeof(xlen)) { - (WORD, _) => extend_value(is_unsigned, mem_read(ReadWrite(Data), addr, 4, aq, aq & rl, true)), - (DOUBLE, 64) => extend_value(is_unsigned, mem_read(ReadWrite(Data), addr, 8, aq, aq & rl, true)), + (WORD, _) => extend_value(is_unsigned, mem_read(ReadWrite(Data, Data), addr, 4, aq, aq & rl, true)), + (DOUBLE, 64) => extend_value(is_unsigned, mem_read(ReadWrite(Data, Data), addr, 8, aq, aq & rl, true)), _ => internal_error("AMO expected WORD or DOUBLE") }; match (mval) { diff --git a/model/riscv_insts_base.sail b/model/riscv_insts_base.sail index d6b4d85..729ae70 100644 --- a/model/riscv_insts_base.sail +++ b/model/riscv_insts_base.sail @@ -579,7 +579,8 @@ function clause execute (FENCE(pred, succ)) = { (_ : bits(2) @ 0b10, _ : bits(2) @ 0b01) => __barrier(Barrier_RISCV_r_w()), (_ : bits(2) @ 0b01, _ : bits(2) @ 0b10) => __barrier(Barrier_RISCV_w_r()), - (_ : bits(2) @ 0b00, _ : bits(2) @ 0b00) => (), + (_ : bits(4) , _ : bits(2) @ 0b00) => (), + (_ : bits(2) @ 0b00, _ : bits(4) ) => (), _ => { print("FIXME: unsupported fence"); () } @@ -601,7 +602,8 @@ function clause execute (FENCE(pred, succ)) = { (_ : bits(2) @ 0b10, _ : bits(2) @ 0b01) => __barrier(Barrier_RISCV_r_w), (_ : bits(2) @ 0b01, _ : bits(2) @ 0b10) => __barrier(Barrier_RISCV_w_r), - (_ : bits(2) @ 0b00, _ : bits(2) @ 0b00) => (), + (_ : bits(4) , _ : bits(2) @ 0b00) => (), + (_ : bits(2) @ 0b00, _ : bits(4) ) => (), _ => { print("FIXME: unsupported fence"); () } @@ -715,11 +717,13 @@ mapping clause encdec = MRET() function clause execute MRET() = { if cur_privilege != Machine - then handle_illegal() + then { handle_illegal(); RETIRE_FAIL } else if ~(ext_check_xret_priv (Machine)) - then ext_fail_xret_priv () - else set_next_pc(exception_handler(cur_privilege, CTL_MRET(), PC)); - RETIRE_FAIL + then { ext_fail_xret_priv(); RETIRE_FAIL } + else { + set_next_pc(exception_handler(cur_privilege, CTL_MRET(), PC)); + RETIRE_SUCCESS + } } mapping clause assembly = MRET() <-> "mret" @@ -737,11 +741,13 @@ function clause execute SRET() = { Machine => ~ (haveSupMode ()) }; if sret_illegal - then handle_illegal() + then { handle_illegal(); RETIRE_FAIL } else if ~(ext_check_xret_priv (Supervisor)) - then ext_fail_xret_priv () - else set_next_pc(exception_handler(cur_privilege, CTL_SRET(), PC)); - RETIRE_FAIL + then { ext_fail_xret_priv(); RETIRE_FAIL } + else { + set_next_pc(exception_handler(cur_privilege, CTL_SRET(), PC)); + RETIRE_SUCCESS + } } mapping clause assembly = SRET() <-> "sret" @@ -753,7 +759,7 @@ mapping clause encdec = EBREAK() <-> 0b000000000001 @ 0b00000 @ 0b000 @ 0b00000 @ 0b1110011 function clause execute EBREAK() = { - handle_exception(E_Breakpoint()); + handle_mem_exception(PC, E_Breakpoint()); RETIRE_FAIL } diff --git a/model/riscv_insts_hints.sail b/model/riscv_insts_hints.sail new file mode 100644 index 0000000..04eca1c --- /dev/null +++ b/model/riscv_insts_hints.sail @@ -0,0 +1,158 @@ +/* ****************************************************************** */ +/* This file enables handling (ignoring) various hint instructions */ +/* that are not already implicitly handled. */ + +/* ****************************************************************** */ +union clause ast = C_NOP_HINT : (bits(6)) + +mapping clause encdec_compressed = C_NOP_HINT(im5 @ im40) + if im5 @ im40 != 0b000000 + <-> 0b000 @ im5 : bits(1) @ 0b00000 @ im40 : bits(5) @ 0b01 + if im5 @ im40 != 0b000000 + +function clause execute C_NOP_HINT(imm) = RETIRE_SUCCESS + +mapping clause assembly = C_NOP_HINT(imm) <-> "c.nop.hint." ^ hex_bits_6(imm) + +/* ****************************************************************** */ +union clause ast = C_ADDI_HINT : (regidx) + +mapping clause encdec_compressed = C_ADDI_HINT(rsd) + if rsd != zreg + <-> 0b000 @ 0b0 @ rsd : regidx @ 0b00000 @ 0b01 + if rsd != zreg + +function clause execute (C_ADDI_HINT(rsd)) = RETIRE_SUCCESS + +mapping clause assembly = C_ADDI_HINT(rsd) + if rsd != zreg + <-> "c.addi.hint." ^ reg_name(rsd) + if rsd != zreg + +/* ****************************************************************** */ +union clause ast = C_LI_HINT : (bits(6)) + +mapping clause encdec_compressed = C_LI_HINT(imm5 @ imm40) + <-> 0b010 @ imm5 : bits(1) @ 0b00000 @ imm40 : bits(5) @ 0b01 + +function clause execute (C_LI_HINT(imm)) = RETIRE_SUCCESS + +mapping clause assembly = C_LI_HINT(imm) + <-> "c.li.hint." ^ hex_bits_6(imm) + +/* ****************************************************************** */ +union clause ast = C_LUI_HINT : (bits(6)) + +mapping clause encdec_compressed = C_LUI_HINT(imm17 @ imm1612) + if imm17 @ imm1612 != 0b000000 + <-> 0b011 @ imm17 : bits(1) @ 0b00000 @ imm1612 : bits(5) @ 0b01 + if imm17 @ imm1612 != 0b000000 + +function clause execute (C_LUI_HINT(imm)) = RETIRE_SUCCESS + +mapping clause assembly = C_LUI_HINT(imm) + if imm != 0b000000 + <-> "c.lui.hint." ^ hex_bits_6(imm) + if imm != 0b000000 + +/* ****************************************************************** */ +union clause ast = C_MV_HINT : (regidx) + +mapping clause encdec_compressed = C_MV_HINT(rs2) + if rs2 != zreg + <-> 0b100 @ 0b0 @ 0b00000 @ rs2 : regidx @ 0b10 + if rs2 != zreg + +function clause execute (C_MV_HINT(rs2)) = RETIRE_SUCCESS + +mapping clause assembly = C_MV_HINT(rs2) + if rs2 != zreg + <-> "c.mv.hint." ^ reg_name(rs2) + if rs2 != zreg + +/* ****************************************************************** */ +union clause ast = C_ADD_HINT : (regidx) + +mapping clause encdec_compressed = C_ADD_HINT(rs2) + if rs2 != zreg + <-> 0b100 @ 0b1 @ 0b00000 @ rs2 : regidx @ 0b10 + if rs2 != zreg + +function clause execute (C_ADD_HINT(rs2)) = RETIRE_SUCCESS + +mapping clause assembly = C_ADD_HINT(rs2) + if rs2 != zreg + <-> "c.add.hint." ^ reg_name(rs2) + if rs2 != zreg + +/* ****************************************************************** */ +union clause ast = C_SLLI_HINT : (bits(6), regidx) + +mapping clause encdec_compressed = C_SLLI_HINT(nzui5 @ nzui40, rsd) + if (nzui5 @ nzui40 == 0b000000 | rsd == zreg) & (sizeof(xlen) == 64 | nzui5 == 0b0) + <-> 0b000 @ nzui5 : bits(1) @ rsd : regidx @ nzui40 : bits(5) @ 0b10 + if (nzui5 @ nzui40 == 0b000000 | rsd == zreg) & (sizeof(xlen) == 64 | nzui5 == 0b0) + +function clause execute (C_SLLI_HINT(shamt, rsd)) = RETIRE_SUCCESS + +mapping clause assembly = C_SLLI_HINT(shamt, rsd) + if shamt == 0b000000 | rsd == zreg + <-> "c.slli.hint." ^ reg_name(rsd) ^ "." ^ hex_bits_6(shamt) + if shamt == 0b000000 | rsd == zreg + +/* ****************************************************************** */ +union clause ast = C_SRLI_HINT : (cregidx) + +mapping clause encdec_compressed = C_SRLI_HINT(rsd) + <-> 0b100 @ 0b0 @ 0b00 @ rsd : cregidx @ 0b00000 @ 0b01 + +function clause execute (C_SRLI_HINT(rsd)) = RETIRE_SUCCESS + +mapping clause assembly = C_SRLI_HINT(rsd) + <-> "c.srli.hint." ^ creg_name(rsd) + +/* ****************************************************************** */ +union clause ast = C_SRAI_HINT : (cregidx) + +mapping clause encdec_compressed = C_SRAI_HINT(rsd) + <-> 0b100 @ 0b0 @ 0b01 @ rsd : cregidx @ 0b00000 @ 0b01 + +function clause execute (C_SRAI_HINT(rsd)) = RETIRE_SUCCESS + +mapping clause assembly = C_SRAI_HINT(rsd) + <-> "c.srai.hint." ^ creg_name(rsd) + +/* ****************************************************************** */ +/* The reserved fences are not really hints, but for now they + * are in this file to be also treated as nops to avoid trapping. + */ + +union clause ast = FENCE_RESERVED : (bits(4), bits(4), bits(4), regidx, regidx) + +mapping clause encdec = FENCE_RESERVED(fm, pred, succ, rs, rd) + if (fm != 0b0000 & fm != 0b1000) | rs != 0b00000 | rd != 0b00000 + <-> fm : bits(4) @ pred : bits(4) @ succ : bits(4) @ rs : regidx @ 0b000 @ rd : regidx @ 0b0001111 + if (fm != 0b0000 & fm != 0b1000) | rs != 0b00000 | rd != 0b00000 + +function clause execute (FENCE_RESERVED(fm, pred, succ, rs, rd)) = RETIRE_SUCCESS + +mapping clause assembly = FENCE_RESERVED(fm, pred, succ, rs, rd) + if (fm != 0b0000 & fm != 0b1000) | rs != 0b00000 | rd != 0b00000 + <-> "fence.reserved." ^ fence_bits(pred) ^ "." ^ fence_bits(succ) ^ "." + ^ reg_name(rs) ^ "." ^ reg_name(rd) ^ "." ^ hex_bits_4(fm) + if (fm != 0b0000 & fm != 0b1000) | rs != 0b00000 | rd != 0b00000 + +/* ****************************************************************** */ +union clause ast = FENCEI_RESERVED : (bits(12), regidx, regidx) + +mapping clause encdec = FENCEI_RESERVED(imm, rs, rd) + if imm != 0b000000000000 | rs != zreg | rd != zreg + <-> imm : bits(12) @ rs : regidx @ 0b001 @ rd : regidx @ 0b0001111 + if imm != 0b000000000000 | rs != zreg | rd != zreg + +function clause execute FENCEI_RESERVED(imm, rs, rd) = RETIRE_SUCCESS + +mapping clause assembly = FENCEI_RESERVED(imm, rs, rd) + if imm != 0b000000000000 | rs != zreg | rd != zreg + <-> "fence.i.reserved." ^ reg_name(rd) ^ "." ^ reg_name(rs) ^ "." ^ hex_bits_12(imm) + if imm != 0b000000000000 | rs != zreg | rd != zreg diff --git a/model/riscv_insts_next.sail b/model/riscv_insts_next.sail index 0d23452..e77fbcb 100644 --- a/model/riscv_insts_next.sail +++ b/model/riscv_insts_next.sail @@ -7,7 +7,7 @@ mapping clause encdec = URET() <-> 0b0000000 @ 0b00010 @ 0b00000 @ 0b000 @ 0b00000 @ 0b1110011 function clause execute URET() = { - if (~ (haveUsrMode())) + if (~ (haveUsrMode()) | ~(sys_enable_next())) then handle_illegal() else if ~ (ext_check_xret_priv (User)) then ext_fail_xret_priv () diff --git a/model/riscv_insts_zicsr.sail b/model/riscv_insts_zicsr.sail index c778b8f..c3acc11 100644 --- a/model/riscv_insts_zicsr.sail +++ b/model/riscv_insts_zicsr.sail @@ -28,6 +28,7 @@ function readCSR csr : csreg -> xlenbits = { (0x304, _) => mie.bits(), (0x305, _) => get_mtvec(), (0x306, _) => EXTZ(mcounteren.bits()), + (0x310, 32) => mstatush.bits(), (0x320, _) => EXTZ(mcountinhibit.bits()), (0x340, _) => mscratch, @@ -112,6 +113,7 @@ function writeCSR (csr : csreg, value : xlenbits) -> unit = { (0x304, _) => { mie = legalize_mie(mie, value); Some(mie.bits()) }, (0x305, _) => { Some(set_mtvec(value)) }, (0x306, _) => { mcounteren = legalize_mcounteren(mcounteren, value); Some(EXTZ(mcounteren.bits())) }, + (0x310, 32) => { Some(mstatush.bits()) }, // ignore writes for now (0x320, _) => { mcountinhibit = legalize_mcountinhibit(mcountinhibit, value); Some(EXTZ(mcountinhibit.bits())) }, (0x340, _) => { mscratch = value; Some(mscratch) }, (0x341, _) => { Some(set_xret_target(Machine, value)) }, diff --git a/model/riscv_iris.sail b/model/riscv_iris.sail index 80f3515..2b3bb46 100644 --- a/model/riscv_iris.sail +++ b/model/riscv_iris.sail @@ -303,7 +303,7 @@ enum Retired = {RETIRE_SUCCESS, RETIRE_FAIL} union AccessType ('a : Type) = { Read : 'a, Write : 'a, - ReadWrite : 'a, + ReadWrite : ('a, 'a), Execute : unit } @@ -365,10 +365,10 @@ let default_write_acc : ext_access_type = Data val accessType_to_str : AccessType(ext_access_type) -> string function accessType_to_str (a) = match (a) { - Read(Data) => "R", - Write(Data) => "W", - ReadWrite(Data) => "RW", - Execute() => "X" + Read(Data) => "R", + Write(Data) => "W", + ReadWrite(Data, Data) => "RW", + Execute() => "X" } overload to_str = {accessType_to_str} diff --git a/model/riscv_platform.sail b/model/riscv_platform.sail index 01f7b4f..b68081a 100644 --- a/model/riscv_platform.sail +++ b/model/riscv_platform.sail @@ -274,6 +274,23 @@ register htif_tohost : bits(64) register htif_done : bool register htif_exit_code : bits(64) +/* Applications sometimes write the lower 32-bit payload bytes without + writing the control bytes; this is seen in the riscv-tests suite. + However, processing the payload bytes too early could miss a + subsequent write to the control bytes. As a workaround, if the + payload is written a few times with the same value, without an + intervening write to the control bytes, we process the whole htif + command anyway. */ + +register htif_cmd_write : bit +register htif_payload_writes : bits(4) + +/* Once a htif command has been processed, the port is reset. */ +function reset_htif () -> unit = { + htif_cmd_write = bitzero; + htif_payload_writes = 0x0; + htif_tohost = EXTZ(0b0); +} /* Since the htif tohost port is only available at a single address, * we'll assume here that physical memory model has correctly @@ -305,36 +322,54 @@ function htif_store(paddr, width, data) = { then print_platform("htif[" ^ BitStr(paddr) ^ "] <- " ^ BitStr(data)); /* Store the written value so that we can ack it later. */ if width == 8 - then { htif_tohost = EXTZ(data) } + then { htif_cmd_write = bitone; + htif_payload_writes = htif_payload_writes + 1; + htif_tohost = EXTZ(data) } else if width == 4 & paddr == plat_htif_tohost() - then { htif_tohost = vector_update_subrange(htif_tohost, 31, 0, data) } + then { if data == htif_tohost[31 .. 0] + then htif_payload_writes = htif_payload_writes + 1 + else htif_payload_writes = 0x1; + htif_tohost = vector_update_subrange(htif_tohost, 31, 0, data) } else if width == 4 & paddr == plat_htif_tohost() + 4 - then { htif_tohost = vector_update_subrange(htif_tohost, 63, 32, data) } + then { if data[15 .. 0] == htif_tohost[47 .. 32] + then htif_payload_writes = htif_payload_writes + 1 + else htif_payload_writes = 0x1; + htif_cmd_write = bitone; + htif_tohost = vector_update_subrange(htif_tohost, 63, 32, data) } + /* unaligned command writes are not supported and will not be detected */ else { htif_tohost = EXTZ(data) }; - /* Process the cmd immediately; this is needed for terminal output. */ - let cmd = Mk_htif_cmd(htif_tohost); - match cmd.device() { - 0x00 => { /* syscall-proxy */ - if get_config_print_platform() - then print_platform("htif-syscall-proxy cmd: " ^ BitStr(cmd.payload())); - if cmd.payload()[0] == bitone - then { - htif_done = true; - htif_exit_code = (sail_zero_extend(cmd.payload(), 64) >> 1) - } - else () - }, - 0x01 => { /* terminal */ - if get_config_print_platform() - then print_platform("htif-term cmd: " ^ BitStr(cmd.payload())); - match cmd.cmd() { - 0x00 => /* TODO: terminal input handling */ (), - 0x01 => plat_term_write(cmd.payload()[7..0]), - c => print("Unknown term cmd: " ^ BitStr(c)) - } - }, - d => print("htif-???? cmd: " ^ BitStr(data)) + /* Execute if there were repeated writes of the same payload without + * a cmd (e.g. in riscv-tests), or we have a complete htif command. + */ + if (((htif_cmd_write == bitone) & (unsigned(htif_payload_writes) > 0)) + | (unsigned(htif_payload_writes) > 2)) + then { + let cmd = Mk_htif_cmd(htif_tohost); + match cmd.device() { + 0x00 => { /* syscall-proxy */ + if get_config_print_platform() + then print_platform("htif-syscall-proxy cmd: " ^ BitStr(cmd.payload())); + if cmd.payload()[0] == bitone + then { + htif_done = true; + htif_exit_code = (sail_zero_extend(cmd.payload(), 64) >> 1) + } + else () + }, + 0x01 => { /* terminal */ + if get_config_print_platform() + then print_platform("htif-term cmd: " ^ BitStr(cmd.payload())); + match cmd.cmd() { + 0x00 => /* TODO: terminal input handling */ (), + 0x01 => plat_term_write(cmd.payload()[7..0]), + c => print("Unknown term cmd: " ^ BitStr(c)) + }; + /* reset to ack */ + reset_htif() + }, + d => print("htif-???? cmd: " ^ BitStr(data)) + } }; MemValue(true) } @@ -343,7 +378,7 @@ val htif_tick : unit -> unit effect {rreg, wreg} function htif_tick() = { if get_config_print_platform() then print_platform("htif::tick " ^ BitStr(htif_tohost)); - htif_tohost = EXTZ(0b0) /* htif ack */ + htif_tohost = htif_tohost /* prevent this function being optimized out */ } /* Top-level MMIO dispatch */ @@ -384,7 +419,9 @@ function mmio_write forall 'n, 0 <'n <= max_mem_access . (paddr : xlenbits, widt function init_platform() -> unit = { htif_tohost = EXTZ(0b0); htif_done = false; - htif_exit_code = EXTZ(0b0) + htif_exit_code = EXTZ(0b0); + htif_cmd_write = bitzero; + htif_payload_writes = EXTZ(0b0); } function tick_platform() -> unit = { diff --git a/model/riscv_pte.sail b/model/riscv_pte.sail index d07018f..501bc5c 100644 --- a/model/riscv_pte.sail +++ b/model/riscv_pte.sail @@ -7,6 +7,17 @@ type pteAttribs = bits(8) */ type extPte = bits(10) +/* + * On SV32, there are no reserved bits available to extensions. Therefore, by + * default, we initialize the PTE extension field with all zeros. However, + * extensions may wish, on SV39/48/56, to put flags in the reserved region of + * those PTEs. To avoid the need for "inhibit" bits in extensions (i.e., so + * that extensions can use the more common and more RISC-V flavored "enable" + * disposition), we allow extensions to use any constant value by overriding + * this default_sv32_ext_pte value. + */ +let default_sv32_ext_pte : extPte = zeros() + bitfield PTE_Bits : pteAttribs = { D : 7, A : 6, @@ -30,11 +41,11 @@ function isInvalidPTE(p : pteAttribs, ext : extPte) -> bool = { union PTE_Check = { PTE_Check_Success : ext_ptw, - PTE_Check_Failure : ext_ptw + PTE_Check_Failure : (ext_ptw, ext_ptw_fail) } function to_pte_check(b : bool) -> PTE_Check = - if b then PTE_Check_Success(()) else PTE_Check_Failure(()) + if b then PTE_Check_Success(()) else PTE_Check_Failure((), ()) /* For extensions: this function gets the extension-available bits of the PTE in extPte, * and the accumulated information of the page-table-walk in ext_ptw. It should return @@ -42,14 +53,14 @@ function to_pte_check(b : bool) -> PTE_Check = */ function checkPTEPermission(ac : AccessType(ext_access_type), priv : Privilege, mxr : bool, do_sum : bool, p : PTE_Bits, ext : extPte, ext_ptw : ext_ptw) -> PTE_Check = { match (ac, priv) { - (Read(Data), User) => to_pte_check(p.U() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), - (Write(Data), User) => to_pte_check(p.U() == 0b1 & p.W() == 0b1), - (ReadWrite(Data), User) => to_pte_check(p.U() == 0b1 & p.W() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), + (Read(_), User) => to_pte_check(p.U() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), + (Write(_), User) => to_pte_check(p.U() == 0b1 & p.W() == 0b1), + (ReadWrite(_, _), User) => to_pte_check(p.U() == 0b1 & p.W() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), (Execute(), User) => to_pte_check(p.U() == 0b1 & p.X() == 0b1), - (Read(Data), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), - (Write(Data), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & p.W() == 0b1), - (ReadWrite(Data), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & p.W() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), + (Read(_), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), + (Write(_), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & p.W() == 0b1), + (ReadWrite(_, _), Supervisor) => to_pte_check((p.U() == 0b0 | do_sum) & p.W() == 0b1 & (p.R() == 0b1 | (p.X() == 0b1 & mxr))), (Execute(), Supervisor) => to_pte_check(p.U() == 0b0 & p.X() == 0b1), (_, Machine) => internal_error("m-mode mem perm check") @@ -57,8 +68,14 @@ function checkPTEPermission(ac : AccessType(ext_access_type), priv : Privilege, } function update_PTE_Bits(p : PTE_Bits, a : AccessType(ext_access_type), ext : extPte) -> option((PTE_Bits, extPte)) = { - let update_d = (a == Write(Data) | a == ReadWrite(Data)) & p.D() == 0b0; // dirty-bit - let update_a = p.A() == 0b0; // accessed-bit + let update_d = p.D() == 0b0 & (match a { // dirty-bit + Execute() => false, + Read() => false, + Write(_) => true, + ReadWrite(_,_) => true + }); + + let update_a = p.A() == 0b0; // accessed-bit if update_d | update_a then { let np = update_A(p, 0b1); let np = if update_d then update_D(np, 0b1) else np; diff --git a/model/riscv_ptw.sail b/model/riscv_ptw.sail index 42ca92e..77364f5 100644 --- a/model/riscv_ptw.sail +++ b/model/riscv_ptw.sail @@ -24,19 +24,26 @@ function ptw_error_to_str(e) = overload to_str = {ptw_error_to_str} +/* hook for extensions to customize errors reported by page-table + * walks during address translation; it typically works in conjunction + * with any customization to checkPTEPermission(). + */ +function ext_get_ptw_error(eptwf : ext_ptw_fail) -> PTW_Error = + PTW_No_Permission() + /* conversion of these translation/PTW failures into architectural exceptions */ function translationException(a : AccessType(ext_access_type), f : PTW_Error) -> ExceptionType = { let e : ExceptionType = match (a, f) { - (_, PTW_Ext_Error(e)) => E_Extension(ext_translate_exception(e)), - (ReadWrite(Data), PTW_Access()) => E_SAMO_Access_Fault(), - (ReadWrite(Data), _) => E_SAMO_Page_Fault(), - (Read(Data), PTW_Access()) => E_Load_Access_Fault(), - (Read(Data), _) => E_Load_Page_Fault(), - (Write(Data), PTW_Access()) => E_SAMO_Access_Fault(), - (Write(Data), _) => E_SAMO_Page_Fault(), - (Execute(), PTW_Access()) => E_Fetch_Access_Fault(), - (Execute(), _) => E_Fetch_Page_Fault() + (_, PTW_Ext_Error(e)) => E_Extension(ext_translate_exception(e)), + (ReadWrite(_), PTW_Access()) => E_SAMO_Access_Fault(), + (ReadWrite(_), _) => E_SAMO_Page_Fault(), + (Read(_), PTW_Access()) => E_Load_Access_Fault(), + (Read(_), _) => E_Load_Page_Fault(), + (Write(_), PTW_Access()) => E_SAMO_Access_Fault(), + (Write(_), _) => E_SAMO_Page_Fault(), + (Execute(), PTW_Access()) => E_Fetch_Access_Fault(), + (Execute(), _) => E_Fetch_Page_Fault() } in { /* print_mem("translationException(" ^ a ^ ", " ^ f ^ ") -> " ^ e); */ e diff --git a/model/riscv_regs.sail b/model/riscv_regs.sail index 4b4a1ea..56ebf20 100644 --- a/model/riscv_regs.sail +++ b/model/riscv_regs.sail @@ -8,8 +8,6 @@ register instbits : xlenbits /* register file and accessors */ -register Xs : vector(32, dec, regtype) - register x1 : regtype register x2 : regtype register x3 : regtype diff --git a/model/riscv_sys_control.sail b/model/riscv_sys_control.sail index 843ca98..b9ca8f6 100644 --- a/model/riscv_sys_control.sail +++ b/model/riscv_sys_control.sail @@ -16,11 +16,13 @@ function is_CSR_defined (csr : csreg, p : Privilege) -> bool = /* machine mode: trap setup */ 0x300 => p == Machine, // mstatus 0x301 => p == Machine, // misa - 0x302 => p == Machine, // medeleg - 0x303 => p == Machine, // mideleg + 0x302 => p == Machine & (haveSupMode() | haveNExt()), // medeleg + 0x303 => p == Machine & (haveSupMode() | haveNExt()), // mideleg 0x304 => p == Machine, // mie 0x305 => p == Machine, // mtvec - 0x306 => p == Machine, // mcounteren + 0x306 => p == Machine & haveUsrMode(), // mcounteren + 0x310 => p == Machine & (sizeof(xlen) == 32), // mstatush + 0x320 => p == Machine, // mcountinhibit /* machine mode: trap handling */ 0x340 => p == Machine, // mscratch 0x341 => p == Machine, // mepc @@ -62,8 +64,8 @@ function is_CSR_defined (csr : csreg, p : Privilege) -> bool = /* supervisor mode: trap setup */ 0x100 => haveSupMode() & (p == Machine | p == Supervisor), // sstatus - 0x102 => haveSupMode() & (p == Machine | p == Supervisor), // sedeleg - 0x103 => haveSupMode() & (p == Machine | p == Supervisor), // sideleg + 0x102 => haveSupMode() & haveNExt() & (p == Machine | p == Supervisor), // sedeleg + 0x103 => haveSupMode() & haveNExt() & (p == Machine | p == Supervisor), // sideleg 0x104 => haveSupMode() & (p == Machine | p == Supervisor), // sie 0x105 => haveSupMode() & (p == Machine | p == Supervisor), // stvec 0x106 => haveSupMode() & (p == Machine | p == Supervisor), // scounteren @@ -79,13 +81,13 @@ function is_CSR_defined (csr : csreg, p : Privilege) -> bool = 0x180 => haveSupMode() & (p == Machine | p == Supervisor), // satp /* user mode: counters */ - 0xC00 => p == User, // cycle - 0xC01 => p == User, // time - 0xC02 => p == User, // instret + 0xC00 => haveUsrMode(), // cycle + 0xC01 => haveUsrMode(), // time + 0xC02 => haveUsrMode(), // instret - 0xC80 => p == User & (sizeof(xlen) == 32), // cycleh - 0xC81 => p == User & (sizeof(xlen) == 32), // timeh - 0xC82 => p == User & (sizeof(xlen) == 32), // instreth + 0xC80 => haveUsrMode() & (sizeof(xlen) == 32), // cycleh + 0xC81 => haveUsrMode() & (sizeof(xlen) == 32), // timeh + 0xC82 => haveUsrMode() & (sizeof(xlen) == 32), // instreth /* check extensions */ _ => ext_is_CSR_defined(csr, p) @@ -479,7 +481,13 @@ function init_sys() -> unit = { mstatus = set_mstatus_SXL(mstatus, misa.MXL()); mstatus = set_mstatus_UXL(mstatus, misa.MXL()); - mstatus->SD() = 0b0; + mstatus->SD() = 0b0; + + /* set to little-endian mode */ + if sizeof(xlen) == 64 then { + mstatus = Mk_Mstatus([mstatus.bits() with 37 .. 36 = 0b00]) + }; + mstatush->bits() = EXTZ(0b0); mip->bits() = to_xbits(isa_config.mip.default_val); mie->bits() = to_xbits(isa_config.mie.default_val); @@ -494,7 +502,7 @@ function init_sys() -> unit = { /* XXX utvec not included in riscv-config, use mtvec config for now */ utvec->Base() = to_bits(sizeof(xlen) - 2, WARL_range_min(isa_config.mtvec.base.rangelist)); utvec->Mode() = to_bits(2, WARL_range_min(isa_config.mtvec.mode.rangelist)); - + mepc = EXTZ(0b0); mtval = EXTZ(0b0); mscratch = EXTZ(0b0); diff --git a/model/riscv_sys_regs.sail b/model/riscv_sys_regs.sail index c98f50c..684a129 100644 --- a/model/riscv_sys_regs.sail +++ b/model/riscv_sys_regs.sail @@ -164,6 +164,8 @@ val sys_enable_writable_misa = {c: "sys_enable_writable_misa", ocaml: "Platform. val sys_enable_rvc = {c: "sys_enable_rvc", ocaml: "Platform.enable_rvc", _: "sys_enable_rvc"} : unit -> bool /* whether misa.{f,d} were enabled at boot */ val sys_enable_fdext = {c: "sys_enable_fdext", ocaml: "Platform.enable_fdext", _: "sys_enable_fdext"} : unit -> bool +/* whether the N extension was enabled at boot */ +val sys_enable_next = {c: "sys_enable_next", ocaml: "Platform.enable_next", _: "sys_enable_next"} : unit -> bool /* This function allows an extension to veto a write to Misa if it would violate an alignment restriction on @@ -197,9 +199,21 @@ function haveUsrMode() -> bool = misa.U() == 0b1 function haveNExt() -> bool = misa.N() == 0b1 /* see below for F and D extension tests */ +bitfield Mstatush : bits(32) = { + MBE : 5, + SBE : 4 +} +register mstatush : Mstatush + bitfield Mstatus : xlenbits = { SD : xlen - 1, + // The MBE and SBE fields are in mstatus in RV64 and absent in RV32. + // On RV32, they are in mstatush, which doesn't exist in RV64. For now, + // they are handled in an ad-hoc way. + // MBE : 37 + // SBE : 36 + // The SXL and UXL fields don't exist on RV32, so they are modelled // via explicit getters and setters; see below. // SXL : 35 .. 34, @@ -264,7 +278,12 @@ function set_mstatus_UXL(m : Mstatus, a : arch_xlen) -> Mstatus = { } function legalize_mstatus(o : Mstatus, v : xlenbits) -> Mstatus = { - let m : Mstatus = Mk_Mstatus(v); + /* + * Populate all defined fields using the bits of v, stripping anything + * that does not have a matching bitfield entry. All bits above 32 are handled + * explicitly later. + */ + let m : Mstatus = Mk_Mstatus(EXTZ(v[22 .. 11] @ 0b00 @ v[8 .. 7] @ 0b0 @ v[5 .. 3] @ 0b0 @ v[1 .. 0])); /* We don't have any extension context yet. */ let m = update_XS(m, extStatus_to_bits(Off)); @@ -280,6 +299,11 @@ function legalize_mstatus(o : Mstatus, v : xlenbits) -> Mstatus = { let m = set_mstatus_SXL(m, get_mstatus_SXL(o)); let m = set_mstatus_UXL(m, get_mstatus_UXL(o)); + /* We don't currently support changing MBE and SBE. */ + let m = if sizeof(xlen) == 64 then { + Mk_Mstatus([m.bits() with 37 .. 36 = 0b00]) + } else m; + /* Hardwired to zero in the absence of 'U' or 'N'. */ let m = if (~ (haveNExt())) then { let m = update_UPIE(m, 0b0); @@ -527,7 +551,8 @@ register minstret_written : bool function retire_instruction() -> unit = { if minstret_written == true then minstret_written = false - else minstret = minstret + 1 + else if mcountinhibit.IR() == 0b0 + then minstret = minstret + 1 } /* informational registers */ @@ -603,7 +628,7 @@ function lift_sstatus(m : Mstatus, s : Sstatus) -> Mstatus = { } function legalize_sstatus(m : Mstatus, v : xlenbits) -> Mstatus = { - lift_sstatus(m, Mk_Sstatus(v)) + legalize_mstatus(m, lift_sstatus(m, Mk_Sstatus(v)).bits()) } bitfield Sedeleg : xlenbits = { @@ -662,7 +687,7 @@ function lower_mie(m : Minterrupts, d : Minterrupts) -> Sinterrupts = { /* Returns the new value of mip from the previous mip (o) and the written sip (s) as delegated by mideleg (d). */ function lift_sip(o : Minterrupts, d : Minterrupts, s : Sinterrupts) -> Minterrupts = { let m : Minterrupts = o; - let m = update_SSI(m, s.SSI() & d.SSI()); + let m = if d.SSI() == 0b1 then update_SSI(m, s.SSI()) else m; if haveNExt() then { let m = if d.UEI() == 0b1 then update_UEI(m, s.UEI()) else m; let m = if d.USI() == 0b1 then update_USI(m, s.USI()) else m; diff --git a/model/riscv_types.sail b/model/riscv_types.sail index 06905a2..a254db8 100644 --- a/model/riscv_types.sail +++ b/model/riscv_types.sail @@ -102,7 +102,7 @@ enum Retired = {RETIRE_SUCCESS, RETIRE_FAIL} union AccessType ('a : Type) = { Read : 'a, Write : 'a, - ReadWrite : 'a, + ReadWrite : ('a, 'a), Execute : unit } diff --git a/model/riscv_types_ext.sail b/model/riscv_types_ext.sail index 6562981..48b8c41 100644 --- a/model/riscv_types_ext.sail +++ b/model/riscv_types_ext.sail @@ -1,12 +1,39 @@ -/* accumulator for information collected during PTW */ - -/* This type is an accumulator; it is carried through the page-table - * walk, and folds in information along the walk, currently from the - * PTE checks from each PTE that is processed along the way. +/* + * Types used in supporting extensions for page-table walks. + * + * There are three types involved: + * + * . An accumulator, passed down from the root to the leaves (ext_ptw) + * . Metadata returned with failed permissions checks (ext_ptw_fail) + * . Errors embedded within the PTW_Error union + * + * Information flow begins with init_ext_ptw (: ext_ptw) being routed, + * via the translateNN functions and/or walkNN functions, to the + * checkPTEPermission function, which is the intended point of + * interaction with extensions. + * + * checkPTEPermission will be called repeatedly at each PTE, each call + * seeing the accumulator state generated by a successful result of + * the previous call. On failure, this function is expected to + * generate, instead, an ext_ptw_fail value as well as a new + * accumulator value, both of which will be returned to the code + * calling into translation. + * + * If translation ultimately succeeds, the final accumulator state is + * captured and will be returned to the code calling into translation. + * + * If translation ultimately fails, the accumulator at the time of + * failure and the ext_ptw_fail value are returned to the caller. The + * ext_ptw_fail value is used to generate a PTW_Error value by calling + * ext_get_ptw_error; this allows the extension to generate both novel + * (e.g., PTW_Ext_Error) and existing (e.g., PTW_Invalid_PTE) PTW_Error + * values. */ -type ext_ptw = unit /* No extensions for page-table-walks */ -let init_ext_ptw : ext_ptw = () /* initial value of the accumulator */ +type ext_ptw = unit +let init_ext_ptw : ext_ptw = () + +type ext_ptw_fail = unit /* This type can be used for custom errors for page-table-walks, * and values in this type are typically generated from the final @@ -19,7 +46,7 @@ type ext_exc_type = unit /* No exception extensions */ /* Default translation of PTW errors into exception annotations */ function ext_translate_exception(e : ext_ptw_error) -> ext_exc_type = - e + e /* type pun because both are unit; extensions may need to override this */ /* Default conversion of extension exceptions to bits */ val ext_exc_type_to_bits : ext_exc_type -> exc_code diff --git a/model/riscv_vmem_sv32.sail b/model/riscv_vmem_sv32.sail index 1a27072..1b19679 100644 --- a/model/riscv_vmem_sv32.sail +++ b/model/riscv_vmem_sv32.sail @@ -24,7 +24,7 @@ function walk32(vaddr, ac, priv, mxr, do_sum, ptb, level, global, ext_ptw) = { MemValue(v) => { let pte = Mk_SV32_PTE(v); let pbits = pte.BITS(); - let ext_pte : extPte = zeros(); // no reserved bits for extensions + let ext_pte : extPte = default_sv32_ext_pte; let pattr = Mk_PTE_Bits(pbits); let is_global = global | (pattr.G() == 0b1); /* print("walk32(vaddr=" ^ BitStr(vaddr) ^ " level=" ^ string_of_int(level) @@ -47,9 +47,9 @@ function walk32(vaddr, ac, priv, mxr, do_sum, ptb, level, global, ext_ptw) = { } } else { /* leaf PTE */ match checkPTEPermission(ac, priv, mxr, do_sum, pattr, ext_pte, ext_ptw) { - PTE_Check_Failure(ext_ptw) => { + PTE_Check_Failure(ext_ptw, ext_ptw_fail) => { /* print("walk32: pte permission check failure"); */ - PTW_Failure(PTW_No_Permission(), ext_ptw) + PTW_Failure(ext_get_ptw_error(ext_ptw_fail), ext_ptw) }, PTE_Check_Success(ext_ptw) => { if level > 0 then { /* superpage */ @@ -124,7 +124,7 @@ function translate32(asid, ptb, vAddr, ac, priv, mxr, do_sum, level, ext_ptw) = let ext_pte : extPte = zeros(); // no reserved bits for extensions let pteBits = Mk_PTE_Bits(pte.BITS()); match checkPTEPermission(ac, priv, mxr, do_sum, pteBits, ext_pte, ext_ptw) { - PTE_Check_Failure(ext_ptw) => { TR_Failure(PTW_No_Permission(), ext_ptw) }, + PTE_Check_Failure(ext_ptw, ext_ptw_fail) => { TR_Failure(ext_get_ptw_error(ext_ptw_fail), ext_ptw) }, PTE_Check_Success(ext_ptw) => { match update_PTE_Bits(pteBits, ac, ext_pte) { None() => TR_Address(ent.pAddr | EXTZ(vAddr & ent.vAddrMask), ext_ptw), diff --git a/model/riscv_vmem_sv39.sail b/model/riscv_vmem_sv39.sail index 37c98a2..81ef79f 100644 --- a/model/riscv_vmem_sv39.sail +++ b/model/riscv_vmem_sv39.sail @@ -41,9 +41,9 @@ function walk39(vaddr, ac, priv, mxr, do_sum, ptb, level, global, ext_ptw) = { } } else { /* leaf PTE */ match checkPTEPermission(ac, priv, mxr, do_sum, pattr, ext_pte, ext_ptw) { - PTE_Check_Failure(ext_ptw) => { + PTE_Check_Failure(ext_ptw, ext_ptw_fail) => { /* print("walk39: pte permission check failure"); */ - PTW_Failure(PTW_No_Permission(), ext_ptw) + PTW_Failure(ext_get_ptw_error(ext_ptw_fail), ext_ptw) }, PTE_Check_Success(ext_ptw) => { if level > 0 then { /* superpage */ @@ -118,7 +118,7 @@ function translate39(asid, ptb, vAddr, ac, priv, mxr, do_sum, level, ext_ptw) = let ext_pte = pte.Ext(); let pteBits = Mk_PTE_Bits(pte.BITS()); match checkPTEPermission(ac, priv, mxr, do_sum, pteBits, ext_pte, ext_ptw) { - PTE_Check_Failure(ext_ptw) => { TR_Failure(PTW_No_Permission(), ext_ptw) }, + PTE_Check_Failure(ext_ptw, ext_ptw_fail) => { TR_Failure(ext_get_ptw_error(ext_ptw_fail), ext_ptw) }, PTE_Check_Success(ext_ptw) => { match update_PTE_Bits(pteBits, ac, ext_pte) { None() => TR_Address(ent.pAddr | EXTZ(vAddr & ent.vAddrMask), ext_ptw), diff --git a/model/riscv_vmem_sv48.sail b/model/riscv_vmem_sv48.sail index 36304cf..4f2dac5 100644 --- a/model/riscv_vmem_sv48.sail +++ b/model/riscv_vmem_sv48.sail @@ -41,9 +41,9 @@ function walk48(vaddr, ac, priv, mxr, do_sum, ptb, level, global, ext_ptw) = { } } else { /* leaf PTE */ match checkPTEPermission(ac, priv, mxr, do_sum, pattr, ext_pte, ext_ptw) { - PTE_Check_Failure(ext_ptw) => { + PTE_Check_Failure(ext_ptw, ext_ptw_fail) => { /* print("walk48: pte permission check failure"); */ - PTW_Failure(PTW_No_Permission(), ext_ptw) + PTW_Failure(ext_get_ptw_error(ext_ptw_fail), ext_ptw) }, PTE_Check_Success(ext_ptw) => { if level > 0 then { /* superpage */ diff --git a/model/riscv_vmem_types.sail b/model/riscv_vmem_types.sail index bf5551d..e01ad0f 100644 --- a/model/riscv_vmem_types.sail +++ b/model/riscv_vmem_types.sail @@ -9,10 +9,10 @@ let default_write_acc : ext_access_type = Data val accessType_to_str : AccessType(ext_access_type) -> string function accessType_to_str (a) = match (a) { - Read(Data) => "R", - Write(Data) => "W", - ReadWrite(Data) => "RW", - Execute() => "X" + Read(_) => "R", + Write(_) => "W", + ReadWrite(_, _) => "RW", + Execute() => "X" } overload to_str = {accessType_to_str} diff --git a/ocaml_emulator/platform.ml b/ocaml_emulator/platform.ml index 9996268..4664f73 100644 --- a/ocaml_emulator/platform.ml +++ b/ocaml_emulator/platform.ml @@ -5,6 +5,7 @@ module Elf = Elf_loader;; (* Platform configuration *) let config_enable_rvc = ref true +let config_enable_next = ref false let config_enable_writable_misa = ref true let config_enable_dirty_update = ref false let config_enable_misaligned_access = ref false @@ -75,6 +76,7 @@ let make_rom arch start_pc = let enable_writable_misa () = !config_enable_writable_misa let enable_rvc () = !config_enable_rvc +let enable_next () = !config_enable_next let enable_fdext () = false let enable_dirty_update () = !config_enable_dirty_update let enable_misaligned_access () = !config_enable_misaligned_access diff --git a/ocaml_emulator/riscv_ocaml_sim.ml b/ocaml_emulator/riscv_ocaml_sim.ml index f827ad5..fb06c40 100644 --- a/ocaml_emulator/riscv_ocaml_sim.ml +++ b/ocaml_emulator/riscv_ocaml_sim.ml @@ -40,6 +40,9 @@ let options = Arg.align ([("-dump-dts", ("-enable-pmp", Arg.Set P.config_enable_pmp, " enable PMP support"); + ("-enable-next", + Arg.Set P.config_enable_next, + " enable N extension"); ("-mtval-has-illegal-inst-bits", Arg.Set P.config_mtval_has_illegal_inst_bits, " mtval stores instruction bits on an illegal instruction exception"); diff --git a/prover_snapshots/coq/README.md b/prover_snapshots/coq/README.md index a709cfc..3dd50cd 100644 --- a/prover_snapshots/coq/README.md +++ b/prover_snapshots/coq/README.md @@ -1,7 +1,9 @@ -Check out a copy of <https://github.com/mit-plv/bbv> in the parent directory and -build it. Then run `./build`. +Install a copy of <https://github.com/mit-plv/bbv> (e.g., by installing the +`coq-bbv` coq opam package). If it's built but not installed, set the +`BBV_DIR` environment variable to the directory containing the built files. +Then run `./build`. The models were built with -* `sail` commit `ba6d82bd` -* `sail-riscv` commit `503cb6e` -and checked against bbv commit `143c47b` and coq 8.9.0. +* `sail` commit `f0f778ef` +* `sail-riscv` commit `0b8bf69` +and checked against bbv version 1.1 and coq 8.9.1. diff --git a/prover_snapshots/coq/RV32/mem_metadata.v b/prover_snapshots/coq/RV32/mem_metadata.v new file mode 100644 index 0000000..bbfc856 --- /dev/null +++ b/prover_snapshots/coq/RV32/mem_metadata.v @@ -0,0 +1,8 @@ +Require Import Sail.Base. +Open Scope Z. + +Definition write_ram {rv e a} wk (addr : mword a) size (v : mword (8 * size)) (meta : unit) : monad rv bool e := write_mem wk a addr size v. + +Definition read_ram {rv e a} rk (addr : mword a) size (read_tag : bool) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size) * unit) e := + read_mem rk a addr size >>= fun data => + returnm (data, tt). diff --git a/prover_snapshots/coq/RV32/riscv.v b/prover_snapshots/coq/RV32/riscv.v index 5aa28ac..4e52368 100644 --- a/prover_snapshots/coq/RV32/riscv.v +++ b/prover_snapshots/coq/RV32/riscv.v @@ -1,387 +1,347 @@ (*Generated by Sail from riscv.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Require Import riscv_types. +Require Import mem_metadata. Require Import riscv_extras. Import ListNotations. Open Scope string. Open Scope bool. -Section Content. +Open Scope Z. -Definition is_none {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => false | None => true end. -Definition is_some {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => true | None => false end. +Definition is_none {a : Type} (opt : option a) : bool := + match opt with | Some _ => false | None => true end. + +Definition is_some {a : Type} (opt : option a) : bool := + match opt with | Some _ => true | None => false end. + +Definition eq_unit (_ : unit) (_ : unit) : {_bool : bool & ArithFact (_bool)} := build_ex (true). -Definition eq_unit (_ : unit) (_ : unit) -: {_bool : bool & ArithFact (_bool = true)} := - - build_ex(true). +Definition neq_int (x : Z) (y : Z) : {_bool : bool & ArithFact (Bool.eqb (negb (x =? y)) _bool)} := + build_ex (negb (Z.eqb x y)). -Definition neq_int (x : Z) (y : Z) -: {_bool : bool & ArithFact (iff (_bool = true) (x <> y))} := - - build_ex(negb (Z.eqb x y)). +Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). -Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). +Definition __id (x : Z) : {_retval : Z & ArithFact (_retval =? x)} := build_ex (x). -Definition __id (x : Z) : {_retval : Z & ArithFact (_retval = x)} := build_ex(x). +Definition fdiv_int (n : Z) (m : Z) : Z := + if sumbool_of_bool (andb (Z.ltb n 0) (Z.gtb m 0)) then Z.sub (Z.quot (Z.add n 1) m) 1 + else if sumbool_of_bool (andb (Z.gtb n 0) (Z.ltb m 0)) then Z.sub (Z.quot (Z.sub n 1) m) 1 + else Z.quot n m. -Definition concat_str_bits {n : Z} (str : string) (x : mword n) -: string := - +Definition fmod_int (n : Z) (m : Z) : Z := Z.sub n (Z.mul m (fdiv_int n m)). + +Definition concat_str_bits {n : Z} (str : string) (x : mword n) : string := String.append str (string_of_bits x). -Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). +Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). -Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact (len >= 0 /\ v0 >= 0)} +Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact ((len >=? 0) && (v0 >=? 0))} : mword len := - - if sumbool_of_bool ((Z.leb len (length_mword v))) then vector_truncate v len - else zero_extend v len. + if sumbool_of_bool (Z.leb len (length_mword v)) then vector_truncate v len else zero_extend v len. -Definition sail_ones (n : Z) `{ArithFact (n >= 0)} : mword n := not_vec (zeros n). +Definition sail_ones (n : Z) `{ArithFact (n >=? 0)} : mword n := not_vec (zeros n). -Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >= 0)} -: mword n := - - if sumbool_of_bool ((Z.geb l n)) then shiftl (sail_ones n) i +Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >=? 0)} : mword n := + if sumbool_of_bool (Z.geb l n) then shiftl (sail_ones n) i else - let one : bits n := sail_mask n ((vec_of_bits [B1] : mword 1) : bits 1) in + let one : bits n := sail_mask n ('b"1" : bits 1) in shiftl (sub_vec (shiftl one l) one) i. -Definition read_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 11)} -: read_kind := - - let l__203 := arg_ in - if sumbool_of_bool ((Z.eqb l__203 0)) then Read_plain - else if sumbool_of_bool ((Z.eqb l__203 1)) then Read_reserve - else if sumbool_of_bool ((Z.eqb l__203 2)) then Read_acquire - else if sumbool_of_bool ((Z.eqb l__203 3)) then Read_exclusive - else if sumbool_of_bool ((Z.eqb l__203 4)) then Read_exclusive_acquire - else if sumbool_of_bool ((Z.eqb l__203 5)) then Read_stream - else if sumbool_of_bool ((Z.eqb l__203 6)) then Read_RISCV_acquire - else if sumbool_of_bool ((Z.eqb l__203 7)) then Read_RISCV_strong_acquire - else if sumbool_of_bool ((Z.eqb l__203 8)) then Read_RISCV_reserved - else if sumbool_of_bool ((Z.eqb l__203 9)) then Read_RISCV_reserved_acquire - else if sumbool_of_bool ((Z.eqb l__203 10)) then Read_RISCV_reserved_strong_acquire +Definition read_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 11))} : read_kind := + let l__297 := arg_ in + if sumbool_of_bool (Z.eqb l__297 0) then Read_plain + else if sumbool_of_bool (Z.eqb l__297 1) then Read_reserve + else if sumbool_of_bool (Z.eqb l__297 2) then Read_acquire + else if sumbool_of_bool (Z.eqb l__297 3) then Read_exclusive + else if sumbool_of_bool (Z.eqb l__297 4) then Read_exclusive_acquire + else if sumbool_of_bool (Z.eqb l__297 5) then Read_stream + else if sumbool_of_bool (Z.eqb l__297 6) then Read_RISCV_acquire + else if sumbool_of_bool (Z.eqb l__297 7) then Read_RISCV_strong_acquire + else if sumbool_of_bool (Z.eqb l__297 8) then Read_RISCV_reserved + else if sumbool_of_bool (Z.eqb l__297 9) then Read_RISCV_reserved_acquire + else if sumbool_of_bool (Z.eqb l__297 10) then Read_RISCV_reserved_strong_acquire else Read_X86_locked. -Definition num_of_read_kind (arg_ : read_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 11)} := - - build_ex(match arg_ with - | Read_plain => 0 - | Read_reserve => 1 - | Read_acquire => 2 - | Read_exclusive => 3 - | Read_exclusive_acquire => 4 - | Read_stream => 5 - | Read_RISCV_acquire => 6 - | Read_RISCV_strong_acquire => 7 - | Read_RISCV_reserved => 8 - | Read_RISCV_reserved_acquire => 9 - | Read_RISCV_reserved_strong_acquire => 10 - | Read_X86_locked => 11 - end). - -Definition write_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} -: write_kind := - - let l__193 := arg_ in - if sumbool_of_bool ((Z.eqb l__193 0)) then Write_plain - else if sumbool_of_bool ((Z.eqb l__193 1)) then Write_conditional - else if sumbool_of_bool ((Z.eqb l__193 2)) then Write_release - else if sumbool_of_bool ((Z.eqb l__193 3)) then Write_exclusive - else if sumbool_of_bool ((Z.eqb l__193 4)) then Write_exclusive_release - else if sumbool_of_bool ((Z.eqb l__193 5)) then Write_RISCV_release - else if sumbool_of_bool ((Z.eqb l__193 6)) then Write_RISCV_strong_release - else if sumbool_of_bool ((Z.eqb l__193 7)) then Write_RISCV_conditional - else if sumbool_of_bool ((Z.eqb l__193 8)) then Write_RISCV_conditional_release - else if sumbool_of_bool ((Z.eqb l__193 9)) then Write_RISCV_conditional_strong_release +Definition num_of_read_kind (arg_ : read_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 11))} := + build_ex ( + match arg_ with + | Read_plain => 0 + | Read_reserve => 1 + | Read_acquire => 2 + | Read_exclusive => 3 + | Read_exclusive_acquire => 4 + | Read_stream => 5 + | Read_RISCV_acquire => 6 + | Read_RISCV_strong_acquire => 7 + | Read_RISCV_reserved => 8 + | Read_RISCV_reserved_acquire => 9 + | Read_RISCV_reserved_strong_acquire => 10 + | Read_X86_locked => 11 + end + ). + +Definition write_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : write_kind := + let l__287 := arg_ in + if sumbool_of_bool (Z.eqb l__287 0) then Write_plain + else if sumbool_of_bool (Z.eqb l__287 1) then Write_conditional + else if sumbool_of_bool (Z.eqb l__287 2) then Write_release + else if sumbool_of_bool (Z.eqb l__287 3) then Write_exclusive + else if sumbool_of_bool (Z.eqb l__287 4) then Write_exclusive_release + else if sumbool_of_bool (Z.eqb l__287 5) then Write_RISCV_release + else if sumbool_of_bool (Z.eqb l__287 6) then Write_RISCV_strong_release + else if sumbool_of_bool (Z.eqb l__287 7) then Write_RISCV_conditional + else if sumbool_of_bool (Z.eqb l__287 8) then Write_RISCV_conditional_release + else if sumbool_of_bool (Z.eqb l__287 9) then Write_RISCV_conditional_strong_release else Write_X86_locked. -Definition num_of_write_kind (arg_ : write_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Write_plain => 0 - | Write_conditional => 1 - | Write_release => 2 - | Write_exclusive => 3 - | Write_exclusive_release => 4 - | Write_RISCV_release => 5 - | Write_RISCV_strong_release => 6 - | Write_RISCV_conditional => 7 - | Write_RISCV_conditional_release => 8 - | Write_RISCV_conditional_strong_release => 9 - | Write_X86_locked => 10 - end). - -Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} +Definition num_of_write_kind (arg_ : write_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Write_plain => 0 + | Write_conditional => 1 + | Write_release => 2 + | Write_exclusive => 3 + | Write_exclusive_release => 4 + | Write_RISCV_release => 5 + | Write_RISCV_strong_release => 6 + | Write_RISCV_conditional => 7 + | Write_RISCV_conditional_release => 8 + | Write_RISCV_conditional_strong_release => 9 + | Write_X86_locked => 10 + end + ). + +Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : a64_barrier_domain := - - let l__190 := arg_ in - if sumbool_of_bool ((Z.eqb l__190 0)) then A64_FullShare - else if sumbool_of_bool ((Z.eqb l__190 1)) then A64_InnerShare - else if sumbool_of_bool ((Z.eqb l__190 2)) then A64_OuterShare + let l__284 := arg_ in + if sumbool_of_bool (Z.eqb l__284 0) then A64_FullShare + else if sumbool_of_bool (Z.eqb l__284 1) then A64_InnerShare + else if sumbool_of_bool (Z.eqb l__284 2) then A64_OuterShare else A64_NonShare. -Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with - | A64_FullShare => 0 - | A64_InnerShare => 1 - | A64_OuterShare => 2 - | A64_NonShare => 3 - end). - -Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} +Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex ( + match arg_ with + | A64_FullShare => 0 + | A64_InnerShare => 1 + | A64_OuterShare => 2 + | A64_NonShare => 3 + end + ). + +Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : a64_barrier_type := - - let l__188 := arg_ in - if sumbool_of_bool ((Z.eqb l__188 0)) then A64_barrier_all - else if sumbool_of_bool ((Z.eqb l__188 1)) then A64_barrier_LD + let l__282 := arg_ in + if sumbool_of_bool (Z.eqb l__282 0) then A64_barrier_all + else if sumbool_of_bool (Z.eqb l__282 1) then A64_barrier_LD else A64_barrier_ST. -Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). +Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). -Definition trans_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: trans_kind := - - let l__186 := arg_ in - if sumbool_of_bool ((Z.eqb l__186 0)) then Transaction_start - else if sumbool_of_bool ((Z.eqb l__186 1)) then Transaction_commit +Definition trans_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : trans_kind := + let l__280 := arg_ in + if sumbool_of_bool (Z.eqb l__280 0) then Transaction_start + else if sumbool_of_bool (Z.eqb l__280 1) then Transaction_commit else Transaction_abort. -Definition num_of_trans_kind (arg_ : trans_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with - | Transaction_start => 0 - | Transaction_commit => 1 - | Transaction_abort => 2 - end). +Definition num_of_trans_kind (arg_ : trans_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex ( + match arg_ with + | Transaction_start => 0 + | Transaction_commit => 1 + | Transaction_abort => 2 + end + ). -Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} +Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : cache_op_kind := - - let l__176 := arg_ in - if sumbool_of_bool ((Z.eqb l__176 0)) then Cache_op_D_IVAC - else if sumbool_of_bool ((Z.eqb l__176 1)) then Cache_op_D_ISW - else if sumbool_of_bool ((Z.eqb l__176 2)) then Cache_op_D_CSW - else if sumbool_of_bool ((Z.eqb l__176 3)) then Cache_op_D_CISW - else if sumbool_of_bool ((Z.eqb l__176 4)) then Cache_op_D_ZVA - else if sumbool_of_bool ((Z.eqb l__176 5)) then Cache_op_D_CVAC - else if sumbool_of_bool ((Z.eqb l__176 6)) then Cache_op_D_CVAU - else if sumbool_of_bool ((Z.eqb l__176 7)) then Cache_op_D_CIVAC - else if sumbool_of_bool ((Z.eqb l__176 8)) then Cache_op_I_IALLUIS - else if sumbool_of_bool ((Z.eqb l__176 9)) then Cache_op_I_IALLU + let l__270 := arg_ in + if sumbool_of_bool (Z.eqb l__270 0) then Cache_op_D_IVAC + else if sumbool_of_bool (Z.eqb l__270 1) then Cache_op_D_ISW + else if sumbool_of_bool (Z.eqb l__270 2) then Cache_op_D_CSW + else if sumbool_of_bool (Z.eqb l__270 3) then Cache_op_D_CISW + else if sumbool_of_bool (Z.eqb l__270 4) then Cache_op_D_ZVA + else if sumbool_of_bool (Z.eqb l__270 5) then Cache_op_D_CVAC + else if sumbool_of_bool (Z.eqb l__270 6) then Cache_op_D_CVAU + else if sumbool_of_bool (Z.eqb l__270 7) then Cache_op_D_CIVAC + else if sumbool_of_bool (Z.eqb l__270 8) then Cache_op_I_IALLUIS + else if sumbool_of_bool (Z.eqb l__270 9) then Cache_op_I_IALLU else Cache_op_I_IVAU. -Definition num_of_cache_op_kind (arg_ : cache_op_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Cache_op_D_IVAC => 0 - | Cache_op_D_ISW => 1 - | Cache_op_D_CSW => 2 - | Cache_op_D_CISW => 3 - | Cache_op_D_ZVA => 4 - | Cache_op_D_CVAC => 5 - | Cache_op_D_CVAU => 6 - | Cache_op_D_CIVAC => 7 - | Cache_op_I_IALLUIS => 8 - | Cache_op_I_IALLU => 9 - | Cache_op_I_IVAU => 10 - end). +Definition num_of_cache_op_kind (arg_ : cache_op_kind) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Cache_op_D_IVAC => 0 + | Cache_op_D_ISW => 1 + | Cache_op_D_CSW => 2 + | Cache_op_D_CISW => 3 + | Cache_op_D_ZVA => 4 + | Cache_op_D_CVAC => 5 + | Cache_op_D_CVAU => 6 + | Cache_op_D_CIVAC => 7 + | Cache_op_I_IALLUIS => 8 + | Cache_op_I_IALLU => 9 + | Cache_op_I_IVAU => 10 + end + ). -Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). +Definition not_bit (b : bitU) : bitU := if eq_bit b B1 then B0 else B1. +Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). -Definition cast_unit_vec (b : bitU) -: M (mword 1) := - - (match b with - | B0 => returnm ((vec_of_bits [B0] : mword 1) : mword 1) - | B1 => returnm ((vec_of_bits [B1] : mword 1) : mword 1) - | _ => exit tt : M (mword 1) - end) - : M (mword 1). -Definition get_config_print_instr '(tt : unit) : bool := false. +Definition string_of_bit (b : bitU) : M (string) := + (match b with | B0 => returnm "0b0" | B1 => returnm "0b1" | _ => exit tt : M (string) end) + : M (string). -Definition get_config_print_reg '(tt : unit) : bool := false. +Definition get_config_print_instr '(tt : unit) : bool := false. -Definition get_config_print_mem '(tt : unit) : bool := false. +Definition get_config_print_reg '(tt : unit) : bool := false. -Definition get_config_print_platform '(tt : unit) : bool := false. +Definition get_config_print_mem '(tt : unit) : bool := false. -Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := sign_extend v m. +Definition get_config_print_platform '(tt : unit) : bool := false. -Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := zero_extend v m. +Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := sign_extend v m. -Definition zeros_implicit (n : Z) `{ArithFact (n >= 0)} : mword n := zeros n. +Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := zero_extend v m. -Definition ones (n : Z) `{ArithFact (n >= 0)} : mword n := sail_ones n. +Definition zeros_implicit (n : Z) `{ArithFact (n >=? 0)} : mword n := zeros n. -Definition bool_to_bits (x : bool) -: mword 1 := - - if sumbool_of_bool (x) then (vec_of_bits [B1] : mword 1) - else (vec_of_bits [B0] : mword 1). +Definition ones (n : Z) `{ArithFact (n >=? 0)} : mword n := sail_ones n. -Definition bit_to_bool (b : bitU) -: M (bool) := - - (match b with - | B1 => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | B0 => returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) - | _ => exit tt : M (bool) - end) +Definition bool_to_bits (x : bool) : mword 1 := + if sumbool_of_bool x then 'b"1" : mword 1 else 'b"0" : mword 1. + +Definition bit_to_bool (b : bitU) : M (bool) := + (match b with | B1 => returnm true | B0 => returnm false | _ => exit tt : M (bool) end) : M (bool). -Definition to_bits (l : Z) (n : Z) `{ArithFact (l >= 0)} : mword l := get_slice_int l n 0. +Definition to_bits (l : Z) (n : Z) `{ArithFact (l >=? 0)} : mword l := get_slice_int l n 0. -Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.ltb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.geb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) : bool := Z.ltb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.geb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.leb (projT1 (uint x)) (projT1 (uint y)). -Definition shift_right_arith64 (v : mword 64) (shift : mword 6) -: mword 64 := - +Definition shift_right_arith64 (v : mword 64) (shift : mword 6) : mword 64 := let v128 : bits 128 := EXTS 128 v in subrange_vec_dec (shift_bits_right v128 shift) 63 0. -Definition shift_right_arith32 (v : mword 32) (shift : mword 5) -: mword 32 := - +Definition shift_right_arith32 (v : mword 32) (shift : mword 5) : mword 32 := let v64 : bits 64 := EXTS 64 v in subrange_vec_dec (shift_bits_right v64 shift) 31 0. -Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M ({n : Z & ArithFact (n >= 0)}) := - +Axiom spc_forwards_matches : forall (_ : unit) , bool. + +Axiom spc_backwards_matches : forall (_ : string) , bool. + +Axiom opt_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom opt_spc_backwards_matches : forall (_ : string) , bool. + +Axiom def_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom def_spc_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_forwards : forall {n : Z} (_ : (Z * mword n)) , string. + +Axiom hex_bits_backwards : forall {n : Z} (_ : string) , (Z * mword n). + +Axiom hex_bits_forwards_matches : forall {n : Z} (_ : (Z * mword n)) , bool. + +Axiom hex_bits_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_matches_prefix : forall +{n : Z} +(_ : string) +, +option (((Z * mword n) * {n : Z & ArithFact (n >=? 0)})). + +Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M ({n : Z & ArithFact (n >=? 0)}). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let p0_ := s in - (if ((generic_eq p0_ "")) then returnm (build_ex (0 : Z)) + (if generic_eq p0_ "" then returnm (build_ex 0) else let p0_ := string_take s 1 in - (if ((generic_eq p0_ " ")) then - (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= + (if generic_eq p0_ " " then + (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => - returnm (build_ex - (projT1 - (build_ex - (Z.add 1 w__0) - : {_atom : Z & ArithFact (exists ex97093_ , _atom = (1 + ex97093_) /\ 0 <= ex97093_)}))) - else returnm (build_ex (0 : Z))) - : M ({n : Z & ArithFact (n >= 0)})) - : M ({n : Z & ArithFact (n >= 0)}). - -Definition n_leading_spaces (s : string) -: M ({n : Z & ArithFact (n >= 0)}) := - + returnm (build_ex (Z.add 1 w__0)) + else returnm (build_ex 0)) + : M ({n : Z & ArithFact (n >=? 0)})) + : M ({n : Z & ArithFact (n >=? 0)}) +). +Defined. + + +Definition n_leading_spaces (s : string) : M ({n : Z & ArithFact (n >=? 0)}) := (_rec_n_leading_spaces s ((projT1 (string_length s)) : Z) (Zwf_guarded _)) - : M ({n : Z & ArithFact (n >= 0)}). + : M ({n : Z & ArithFact (n >=? 0)}). -Definition spc_forwards '(tt : unit) : string := " ". +Definition spc_forwards '(tt : unit) : string := " ". -Definition spc_backwards (s : string) : unit := tt. +Definition spc_backwards (s : string) : unit := tt. -Definition spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - +Definition spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := (n_leading_spaces s) >>= fun '(existT _ n _) => - let l__175 := n in - returnm ((if sumbool_of_bool ((Z.eqb l__175 0)) then None - else Some ((tt, build_ex n))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). + let l__269 := n in + returnm (if sumbool_of_bool (Z.eqb l__269 0) then None else Some (tt, build_ex n)). -Definition opt_spc_forwards '(tt : unit) : string := "". +Definition opt_spc_forwards '(tt : unit) : string := "". -Definition opt_spc_backwards (s : string) : unit := tt. +Definition opt_spc_backwards (s : string) : unit := tt. -Definition opt_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= 0)}) => - returnm ((Some - ((tt, build_ex - w__0))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). +Definition opt_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => + returnm (Some (tt, build_ex w__0)). -Definition def_spc_forwards '(tt : unit) : string := " ". +Definition def_spc_forwards '(tt : unit) : string := " ". -Definition def_spc_backwards (s : string) : unit := tt. +Definition def_spc_backwards (s : string) : unit := tt. -Definition def_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (opt_spc_matches_prefix s) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))). +Definition def_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (opt_spc_matches_prefix s) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))). -Definition hex_bits_1_forwards_matches (bv : mword 1) : bool := true. +Definition hex_bits_1_forwards_matches (bv : mword 1) : bool := true. -Definition hex_bits_1_backwards_matches (s : string) -: bool := - +Definition hex_bits_1_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_1_matches_prefix s) with - | Some ((g__253, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_1_matches_prefix s) with + | Some (g__348, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_1_backwards (s : string) -: M (mword 1) := - +Definition hex_bits_1_backwards (s : string) : M (mword 1) := (match (hex_bits_1_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 1) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 49:2 - 51:3" >>= fun _ => exit tt) @@ -392,28 +352,24 @@ Definition hex_bits_1_backwards (s : string) end) : M (mword 1). -Definition hex_bits_2_forwards_matches (bv : mword 2) : bool := true. +Definition hex_bits_2_forwards_matches (bv : mword 2) : bool := true. -Definition hex_bits_2_backwards_matches (s : string) -: bool := - +Definition hex_bits_2_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_2_matches_prefix s) with - | Some ((g__252, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_2_matches_prefix s) with + | Some (g__347, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_2_backwards (s : string) -: M (mword 2) := - +Definition hex_bits_2_backwards (s : string) : M (mword 2) := (match (hex_bits_2_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 2) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 68:2 - 70:3" >>= fun _ => exit tt) @@ -424,28 +380,24 @@ Definition hex_bits_2_backwards (s : string) end) : M (mword 2). -Definition hex_bits_3_forwards_matches (bv : mword 3) : bool := true. +Definition hex_bits_3_forwards_matches (bv : mword 3) : bool := true. -Definition hex_bits_3_backwards_matches (s : string) -: bool := - +Definition hex_bits_3_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_3_matches_prefix s) with - | Some ((g__251, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_3_matches_prefix s) with + | Some (g__346, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_3_backwards (s : string) -: M (mword 3) := - +Definition hex_bits_3_backwards (s : string) : M (mword 3) := (match (hex_bits_3_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 3) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 87:2 - 89:3" >>= fun _ => exit tt) @@ -456,28 +408,24 @@ Definition hex_bits_3_backwards (s : string) end) : M (mword 3). -Definition hex_bits_4_forwards_matches (bv : mword 4) : bool := true. +Definition hex_bits_4_forwards_matches (bv : mword 4) : bool := true. -Definition hex_bits_4_backwards_matches (s : string) -: bool := - +Definition hex_bits_4_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_4_matches_prefix s) with - | Some ((g__250, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_4_matches_prefix s) with + | Some (g__345, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_4_backwards (s : string) -: M (mword 4) := - +Definition hex_bits_4_backwards (s : string) : M (mword 4) := (match (hex_bits_4_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 4) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 106:2 - 108:3" >>= fun _ => exit tt) @@ -488,28 +436,24 @@ Definition hex_bits_4_backwards (s : string) end) : M (mword 4). -Definition hex_bits_5_forwards_matches (bv : mword 5) : bool := true. +Definition hex_bits_5_forwards_matches (bv : mword 5) : bool := true. -Definition hex_bits_5_backwards_matches (s : string) -: bool := - +Definition hex_bits_5_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_5_matches_prefix s) with - | Some ((g__249, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_5_matches_prefix s) with + | Some (g__344, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_5_backwards (s : string) -: M (mword 5) := - +Definition hex_bits_5_backwards (s : string) : M (mword 5) := (match (hex_bits_5_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 5) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 125:2 - 127:3" >>= fun _ => exit tt) @@ -520,28 +464,24 @@ Definition hex_bits_5_backwards (s : string) end) : M (mword 5). -Definition hex_bits_6_forwards_matches (bv : mword 6) : bool := true. +Definition hex_bits_6_forwards_matches (bv : mword 6) : bool := true. -Definition hex_bits_6_backwards_matches (s : string) -: bool := - +Definition hex_bits_6_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_6_matches_prefix s) with - | Some ((g__248, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_6_matches_prefix s) with + | Some (g__343, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_6_backwards (s : string) -: M (mword 6) := - +Definition hex_bits_6_backwards (s : string) : M (mword 6) := (match (hex_bits_6_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 6) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 144:2 - 146:3" >>= fun _ => exit tt) @@ -552,28 +492,24 @@ Definition hex_bits_6_backwards (s : string) end) : M (mword 6). -Definition hex_bits_7_forwards_matches (bv : mword 7) : bool := true. +Definition hex_bits_7_forwards_matches (bv : mword 7) : bool := true. -Definition hex_bits_7_backwards_matches (s : string) -: bool := - +Definition hex_bits_7_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_7_matches_prefix s) with - | Some ((g__247, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_7_matches_prefix s) with + | Some (g__342, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_7_backwards (s : string) -: M (mword 7) := - +Definition hex_bits_7_backwards (s : string) : M (mword 7) := (match (hex_bits_7_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 7) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 163:2 - 165:3" >>= fun _ => exit tt) @@ -584,28 +520,24 @@ Definition hex_bits_7_backwards (s : string) end) : M (mword 7). -Definition hex_bits_8_forwards_matches (bv : mword 8) : bool := true. +Definition hex_bits_8_forwards_matches (bv : mword 8) : bool := true. -Definition hex_bits_8_backwards_matches (s : string) -: bool := - +Definition hex_bits_8_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_8_matches_prefix s) with - | Some ((g__246, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_8_matches_prefix s) with + | Some (g__341, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_8_backwards (s : string) -: M (mword 8) := - +Definition hex_bits_8_backwards (s : string) : M (mword 8) := (match (hex_bits_8_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 8) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 182:2 - 184:3" >>= fun _ => exit tt) @@ -616,28 +548,24 @@ Definition hex_bits_8_backwards (s : string) end) : M (mword 8). -Definition hex_bits_9_forwards_matches (bv : mword 9) : bool := true. +Definition hex_bits_9_forwards_matches (bv : mword 9) : bool := true. -Definition hex_bits_9_backwards_matches (s : string) -: bool := - +Definition hex_bits_9_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_9_matches_prefix s) with - | Some ((g__245, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_9_matches_prefix s) with + | Some (g__340, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_9_backwards (s : string) -: M (mword 9) := - +Definition hex_bits_9_backwards (s : string) : M (mword 9) := (match (hex_bits_9_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 9) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 201:2 - 203:3" >>= fun _ => exit tt) @@ -648,28 +576,24 @@ Definition hex_bits_9_backwards (s : string) end) : M (mword 9). -Definition hex_bits_10_forwards_matches (bv : mword 10) : bool := true. +Definition hex_bits_10_forwards_matches (bv : mword 10) : bool := true. -Definition hex_bits_10_backwards_matches (s : string) -: bool := - +Definition hex_bits_10_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_10_matches_prefix s) with - | Some ((g__244, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_10_matches_prefix s) with + | Some (g__339, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_10_backwards (s : string) -: M (mword 10) := - +Definition hex_bits_10_backwards (s : string) : M (mword 10) := (match (hex_bits_10_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 10) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 220:2 - 222:3" >>= fun _ => exit tt) @@ -680,28 +604,24 @@ Definition hex_bits_10_backwards (s : string) end) : M (mword 10). -Definition hex_bits_11_forwards_matches (bv : mword 11) : bool := true. +Definition hex_bits_11_forwards_matches (bv : mword 11) : bool := true. -Definition hex_bits_11_backwards_matches (s : string) -: bool := - +Definition hex_bits_11_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_11_matches_prefix s) with - | Some ((g__243, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_11_matches_prefix s) with + | Some (g__338, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_11_backwards (s : string) -: M (mword 11) := - +Definition hex_bits_11_backwards (s : string) : M (mword 11) := (match (hex_bits_11_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 11) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 239:2 - 241:3" >>= fun _ => exit tt) @@ -712,813 +632,712 @@ Definition hex_bits_11_backwards (s : string) end) : M (mword 11). -Definition hex_bits_12_forwards_matches (bv : mword 12) : bool := true. +Definition hex_bits_12_forwards_matches (bv : mword 12) : bool := true. -Definition hex_bits_12_backwards_matches (s : string) -: bool := - +Definition hex_bits_12_matches_prefix (s : string) +: option ((mword 12 * {n : Z & ArithFact (n >=? 0)})) := + None. + +Definition hex_bits_12_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_12_matches_prefix s) with - | Some ((g__242, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_12_matches_prefix s) with + | Some (g__337, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_12_backwards (s : string) -: M (mword 12) := - +Definition hex_bits_12_backwards (s : string) : M (mword 12) := (match (hex_bits_12_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 12) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 262:2 - 264:3" >>= fun _ => exit tt) : M (mword 12) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 262:2 - 264:3" >>= fun _ => exit tt end) : M (mword 12). -Definition hex_bits_13_forwards_matches (bv : mword 13) : bool := true. +Definition hex_bits_13_forwards_matches (bv : mword 13) : bool := true. -Definition hex_bits_13_backwards_matches (s : string) -: bool := - +Definition hex_bits_13_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_13_matches_prefix s) with - | Some ((g__241, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_13_matches_prefix s) with + | Some (g__336, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_13_backwards (s : string) -: M (mword 13) := - +Definition hex_bits_13_backwards (s : string) : M (mword 13) := (match (hex_bits_13_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 13) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 281:2 - 283:3" >>= fun _ => exit tt) : M (mword 13) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 281:2 - 283:3" >>= fun _ => exit tt end) : M (mword 13). -Definition hex_bits_14_forwards_matches (bv : mword 14) : bool := true. +Definition hex_bits_14_forwards_matches (bv : mword 14) : bool := true. -Definition hex_bits_14_backwards_matches (s : string) -: bool := - +Definition hex_bits_14_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_14_matches_prefix s) with - | Some ((g__240, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_14_matches_prefix s) with + | Some (g__335, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_14_backwards (s : string) -: M (mword 14) := - +Definition hex_bits_14_backwards (s : string) : M (mword 14) := (match (hex_bits_14_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 14) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 300:2 - 302:3" >>= fun _ => exit tt) : M (mword 14) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 300:2 - 302:3" >>= fun _ => exit tt end) : M (mword 14). -Definition hex_bits_15_forwards_matches (bv : mword 15) : bool := true. +Definition hex_bits_15_forwards_matches (bv : mword 15) : bool := true. -Definition hex_bits_15_backwards_matches (s : string) -: bool := - +Definition hex_bits_15_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_15_matches_prefix s) with - | Some ((g__239, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_15_matches_prefix s) with + | Some (g__334, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_15_backwards (s : string) -: M (mword 15) := - +Definition hex_bits_15_backwards (s : string) : M (mword 15) := (match (hex_bits_15_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 15) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 319:2 - 321:3" >>= fun _ => exit tt) : M (mword 15) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 319:2 - 321:3" >>= fun _ => exit tt end) : M (mword 15). -Definition hex_bits_16_forwards_matches (bv : mword 16) : bool := true. +Definition hex_bits_16_forwards_matches (bv : mword 16) : bool := true. -Definition hex_bits_16_backwards_matches (s : string) -: bool := - +Definition hex_bits_16_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_16_matches_prefix s) with - | Some ((g__238, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_16_matches_prefix s) with + | Some (g__333, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_16_backwards (s : string) -: M (mword 16) := - +Definition hex_bits_16_backwards (s : string) : M (mword 16) := (match (hex_bits_16_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 16) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 338:2 - 340:3" >>= fun _ => exit tt) : M (mword 16) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 338:2 - 340:3" >>= fun _ => exit tt end) : M (mword 16). -Definition hex_bits_17_forwards_matches (bv : mword 17) : bool := true. +Definition hex_bits_17_forwards_matches (bv : mword 17) : bool := true. -Definition hex_bits_17_backwards_matches (s : string) -: bool := - +Definition hex_bits_17_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_17_matches_prefix s) with - | Some ((g__237, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_17_matches_prefix s) with + | Some (g__332, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_17_backwards (s : string) -: M (mword 17) := - +Definition hex_bits_17_backwards (s : string) : M (mword 17) := (match (hex_bits_17_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 17) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 357:2 - 359:3" >>= fun _ => exit tt) : M (mword 17) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 357:2 - 359:3" >>= fun _ => exit tt end) : M (mword 17). -Definition hex_bits_18_forwards_matches (bv : mword 18) : bool := true. +Definition hex_bits_18_forwards_matches (bv : mword 18) : bool := true. -Definition hex_bits_18_backwards_matches (s : string) -: bool := - +Definition hex_bits_18_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_18_matches_prefix s) with - | Some ((g__236, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_18_matches_prefix s) with + | Some (g__331, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_18_backwards (s : string) -: M (mword 18) := - +Definition hex_bits_18_backwards (s : string) : M (mword 18) := (match (hex_bits_18_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 18) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 376:2 - 378:3" >>= fun _ => exit tt) : M (mword 18) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 376:2 - 378:3" >>= fun _ => exit tt end) : M (mword 18). -Definition hex_bits_19_forwards_matches (bv : mword 19) : bool := true. +Definition hex_bits_19_forwards_matches (bv : mword 19) : bool := true. -Definition hex_bits_19_backwards_matches (s : string) -: bool := - +Definition hex_bits_19_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_19_matches_prefix s) with - | Some ((g__235, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_19_matches_prefix s) with + | Some (g__330, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_19_backwards (s : string) -: M (mword 19) := - +Definition hex_bits_19_backwards (s : string) : M (mword 19) := (match (hex_bits_19_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 19) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 395:2 - 397:3" >>= fun _ => exit tt) : M (mword 19) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 395:2 - 397:3" >>= fun _ => exit tt end) : M (mword 19). -Definition hex_bits_20_forwards_matches (bv : mword 20) : bool := true. +Definition hex_bits_20_forwards_matches (bv : mword 20) : bool := true. -Definition hex_bits_20_backwards_matches (s : string) -: bool := - +Definition hex_bits_20_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_20_matches_prefix s) with - | Some ((g__234, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_20_matches_prefix s) with + | Some (g__329, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_20_backwards (s : string) -: M (mword 20) := - +Definition hex_bits_20_backwards (s : string) : M (mword 20) := (match (hex_bits_20_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 20) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 414:2 - 416:3" >>= fun _ => exit tt) : M (mword 20) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 414:2 - 416:3" >>= fun _ => exit tt end) : M (mword 20). -Definition hex_bits_21_forwards_matches (bv : mword 21) : bool := true. +Definition hex_bits_21_forwards_matches (bv : mword 21) : bool := true. -Definition hex_bits_21_backwards_matches (s : string) -: bool := - +Definition hex_bits_21_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_21_matches_prefix s) with - | Some ((g__233, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_21_matches_prefix s) with + | Some (g__328, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_21_backwards (s : string) -: M (mword 21) := - +Definition hex_bits_21_backwards (s : string) : M (mword 21) := (match (hex_bits_21_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 21) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 433:2 - 435:3" >>= fun _ => exit tt) : M (mword 21) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 433:2 - 435:3" >>= fun _ => exit tt end) : M (mword 21). -Definition hex_bits_22_forwards_matches (bv : mword 22) : bool := true. +Definition hex_bits_22_forwards_matches (bv : mword 22) : bool := true. -Definition hex_bits_22_backwards_matches (s : string) -: bool := - +Definition hex_bits_22_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_22_matches_prefix s) with - | Some ((g__232, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_22_matches_prefix s) with + | Some (g__327, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_22_backwards (s : string) -: M (mword 22) := - +Definition hex_bits_22_backwards (s : string) : M (mword 22) := (match (hex_bits_22_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 22) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 452:2 - 454:3" >>= fun _ => exit tt) : M (mword 22) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 452:2 - 454:3" >>= fun _ => exit tt end) : M (mword 22). -Definition hex_bits_23_forwards_matches (bv : mword 23) : bool := true. +Definition hex_bits_23_forwards_matches (bv : mword 23) : bool := true. -Definition hex_bits_23_backwards_matches (s : string) -: bool := - +Definition hex_bits_23_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_23_matches_prefix s) with - | Some ((g__231, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_23_matches_prefix s) with + | Some (g__326, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_23_backwards (s : string) -: M (mword 23) := - +Definition hex_bits_23_backwards (s : string) : M (mword 23) := (match (hex_bits_23_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 23) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 471:2 - 473:3" >>= fun _ => exit tt) : M (mword 23) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 471:2 - 473:3" >>= fun _ => exit tt end) : M (mword 23). -Definition hex_bits_24_forwards_matches (bv : mword 24) : bool := true. +Definition hex_bits_24_forwards_matches (bv : mword 24) : bool := true. -Definition hex_bits_24_backwards_matches (s : string) -: bool := - +Definition hex_bits_24_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_24_matches_prefix s) with - | Some ((g__230, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_24_matches_prefix s) with + | Some (g__325, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_24_backwards (s : string) -: M (mword 24) := - +Definition hex_bits_24_backwards (s : string) : M (mword 24) := (match (hex_bits_24_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 24) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 490:2 - 492:3" >>= fun _ => exit tt) : M (mword 24) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 490:2 - 492:3" >>= fun _ => exit tt end) : M (mword 24). -Definition hex_bits_25_forwards_matches (bv : mword 25) : bool := true. +Definition hex_bits_25_forwards_matches (bv : mword 25) : bool := true. -Definition hex_bits_25_backwards_matches (s : string) -: bool := - +Definition hex_bits_25_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_25_matches_prefix s) with - | Some ((g__229, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_25_matches_prefix s) with + | Some (g__324, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_25_backwards (s : string) -: M (mword 25) := - +Definition hex_bits_25_backwards (s : string) : M (mword 25) := (match (hex_bits_25_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 25) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 509:2 - 511:3" >>= fun _ => exit tt) : M (mword 25) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 509:2 - 511:3" >>= fun _ => exit tt end) : M (mword 25). -Definition hex_bits_26_forwards_matches (bv : mword 26) : bool := true. +Definition hex_bits_26_forwards_matches (bv : mword 26) : bool := true. -Definition hex_bits_26_backwards_matches (s : string) -: bool := - +Definition hex_bits_26_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_26_matches_prefix s) with - | Some ((g__228, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_26_matches_prefix s) with + | Some (g__323, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_26_backwards (s : string) -: M (mword 26) := - +Definition hex_bits_26_backwards (s : string) : M (mword 26) := (match (hex_bits_26_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 26) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 528:2 - 530:3" >>= fun _ => exit tt) : M (mword 26) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 528:2 - 530:3" >>= fun _ => exit tt end) : M (mword 26). -Definition hex_bits_27_forwards_matches (bv : mword 27) : bool := true. +Definition hex_bits_27_forwards_matches (bv : mword 27) : bool := true. -Definition hex_bits_27_backwards_matches (s : string) -: bool := - +Definition hex_bits_27_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_27_matches_prefix s) with - | Some ((g__227, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_27_matches_prefix s) with + | Some (g__322, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_27_backwards (s : string) -: M (mword 27) := - +Definition hex_bits_27_backwards (s : string) : M (mword 27) := (match (hex_bits_27_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 27) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 547:2 - 549:3" >>= fun _ => exit tt) : M (mword 27) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 547:2 - 549:3" >>= fun _ => exit tt end) : M (mword 27). -Definition hex_bits_28_forwards_matches (bv : mword 28) : bool := true. +Definition hex_bits_28_forwards_matches (bv : mword 28) : bool := true. -Definition hex_bits_28_backwards_matches (s : string) -: bool := - +Definition hex_bits_28_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_28_matches_prefix s) with - | Some ((g__226, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_28_matches_prefix s) with + | Some (g__321, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_28_backwards (s : string) -: M (mword 28) := - +Definition hex_bits_28_backwards (s : string) : M (mword 28) := (match (hex_bits_28_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 28) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 566:2 - 568:3" >>= fun _ => exit tt) : M (mword 28) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 566:2 - 568:3" >>= fun _ => exit tt end) : M (mword 28). -Definition hex_bits_29_forwards_matches (bv : mword 29) : bool := true. +Definition hex_bits_29_forwards_matches (bv : mword 29) : bool := true. -Definition hex_bits_29_backwards_matches (s : string) -: bool := - +Definition hex_bits_29_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_29_matches_prefix s) with - | Some ((g__225, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_29_matches_prefix s) with + | Some (g__320, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_29_backwards (s : string) -: M (mword 29) := - +Definition hex_bits_29_backwards (s : string) : M (mword 29) := (match (hex_bits_29_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 29) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 585:2 - 587:3" >>= fun _ => exit tt) : M (mword 29) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 585:2 - 587:3" >>= fun _ => exit tt end) : M (mword 29). -Definition hex_bits_30_forwards_matches (bv : mword 30) : bool := true. +Definition hex_bits_30_forwards_matches (bv : mword 30) : bool := true. -Definition hex_bits_30_backwards_matches (s : string) -: bool := - +Definition hex_bits_30_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_30_matches_prefix s) with - | Some ((g__224, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_30_matches_prefix s) with + | Some (g__319, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_30_backwards (s : string) -: M (mword 30) := - +Definition hex_bits_30_backwards (s : string) : M (mword 30) := (match (hex_bits_30_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 30) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 604:2 - 606:3" >>= fun _ => exit tt) : M (mword 30) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 604:2 - 606:3" >>= fun _ => exit tt end) : M (mword 30). -Definition hex_bits_31_forwards_matches (bv : mword 31) : bool := true. +Definition hex_bits_31_forwards_matches (bv : mword 31) : bool := true. -Definition hex_bits_31_backwards_matches (s : string) -: bool := - +Definition hex_bits_31_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_31_matches_prefix s) with - | Some ((g__223, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_31_matches_prefix s) with + | Some (g__318, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_31_backwards (s : string) -: M (mword 31) := - +Definition hex_bits_31_backwards (s : string) : M (mword 31) := (match (hex_bits_31_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 31) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 623:2 - 625:3" >>= fun _ => exit tt) : M (mword 31) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 623:2 - 625:3" >>= fun _ => exit tt end) : M (mword 31). -Definition hex_bits_32_forwards_matches (bv : mword 32) : bool := true. +Definition hex_bits_32_forwards_matches (bv : mword 32) : bool := true. -Definition hex_bits_32_backwards_matches (s : string) -: bool := - +Definition hex_bits_32_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_32_matches_prefix s) with - | Some ((g__222, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_32_matches_prefix s) with + | Some (g__317, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_32_backwards (s : string) -: M (mword 32) := - +Definition hex_bits_32_backwards (s : string) : M (mword 32) := (match (hex_bits_32_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 32) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 642:2 - 644:3" >>= fun _ => exit tt) : M (mword 32) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 642:2 - 644:3" >>= fun _ => exit tt end) : M (mword 32). -Definition hex_bits_33_forwards_matches (bv : mword 33) : bool := true. +Definition hex_bits_33_forwards_matches (bv : mword 33) : bool := true. -Definition hex_bits_33_backwards_matches (s : string) -: bool := - +Definition hex_bits_33_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_33_matches_prefix s) with - | Some ((g__221, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_33_matches_prefix s) with + | Some (g__316, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_33_backwards (s : string) -: M (mword 33) := - +Definition hex_bits_33_backwards (s : string) : M (mword 33) := (match (hex_bits_33_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 33) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 661:2 - 663:3" >>= fun _ => exit tt) : M (mword 33) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 661:2 - 663:3" >>= fun _ => exit tt end) : M (mword 33). -Definition hex_bits_48_forwards_matches (bv : mword 48) : bool := true. +Definition hex_bits_48_forwards_matches (bv : mword 48) : bool := true. -Definition hex_bits_48_backwards_matches (s : string) -: bool := - +Definition hex_bits_48_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_48_matches_prefix s) with - | Some ((g__220, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_48_matches_prefix s) with + | Some (g__315, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_48_backwards (s : string) -: M (mword 48) := - +Definition hex_bits_48_backwards (s : string) : M (mword 48) := (match (hex_bits_48_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 48) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 680:2 - 682:3" >>= fun _ => exit tt) : M (mword 48) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 680:2 - 682:3" >>= fun _ => exit tt end) : M (mword 48). -Definition hex_bits_64_forwards_matches (bv : mword 64) : bool := true. +Definition hex_bits_64_forwards_matches (bv : mword 64) : bool := true. -Definition hex_bits_64_backwards_matches (s : string) -: bool := - +Definition hex_bits_64_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_64_matches_prefix s) with - | Some ((g__219, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_64_matches_prefix s) with + | Some (g__314, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_64_backwards (s : string) -: M (mword 64) := - +Definition hex_bits_64_backwards (s : string) : M (mword 64) := (match (hex_bits_64_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 64) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 699:2 - 701:3" >>= fun _ => exit tt) : M (mword 64) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 699:2 - 701:3" >>= fun _ => exit tt end) : M (mword 64). Definition default_meta : mem_meta := tt. Hint Unfold default_meta : sail. -Definition __WriteRAM_Meta (addr : mword 32) (width : Z) (meta : unit) -: M (unit) := - - returnm (tt - : unit). - -Definition __ReadRAM_Meta (addr : mword 32) (width : Z) : M (unit) := returnm (tt : unit). - -Definition write_ram -(wk : write_kind) (addr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} -: M (bool) := - - (write_mem wk 32 addr width data) >>= fun ret : bool => - (if sumbool_of_bool (ret) then (__WriteRAM_Meta addr width meta) : M (unit) - else returnm (tt : unit)) >> - returnm (ret - : bool). +Definition __WriteRAM_Meta (addr : mword 32) (width : Z) (meta : unit) : M (unit) := returnm tt. + +Definition __ReadRAM_Meta (addr : mword 32) (width : Z) : M (unit) := returnm tt. + + Definition write_ram_ea (wk : write_kind) (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : M (unit) := - - (write_mem_ea wk 32 addr width) - : M (unit). + (write_mem_ea wk 32 addr width) : M (unit). + -Definition read_ram (rk : read_kind) (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} -: M (mword (8 * width)) := - - (read_mem rk 32 addr width) - : M (mword (8 * width)). Axiom __TraceMemoryWrite : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. Axiom __TraceMemoryRead : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. +Definition init_ext_ptw : ext_ptw := tt. +Hint Unfold init_ext_ptw : sail. +Definition ext_translate_exception (e : unit) : unit := e. + +Definition ext_exc_type_to_bits (e : unit) : mword 8 := Ox"18" : mword 8. + +Definition num_of_ext_exc_type (e : unit) : {n : Z & ArithFact ((0 <=? n) && (n <? xlen))} := + build_ex (24). + +Definition ext_exc_type_to_str (e : unit) : string := "extension-exception". + Definition xlen_val := 32. Hint Unfold xlen_val : sail. Definition xlen_max_unsigned := Z.sub (projT1 (pow2 32)) 1. @@ -1527,2188 +1346,2023 @@ Definition xlen_max_signed := Z.sub (projT1 (pow2 (Z.sub 32 1))) 1. Hint Unfold xlen_max_signed : sail. Definition xlen_min_signed := Z.sub 0 (projT1 (pow2 (Z.sub 32 1))). Hint Unfold xlen_min_signed : sail. -Definition regidx_to_regno (b : mword 5) -: {n : Z & ArithFact (0 <= n /\ n < 32)} := - - build_ex(let 'r := projT1 (uint b) in - r). - -Definition creg2reg_idx (creg : mword 3) -: mword 5 := - - concat_vec (vec_of_bits [B0;B1] : mword 2) creg. - -Definition zreg : regidx := (vec_of_bits [B0;B0;B0;B0;B0] : mword 5). +Definition regidx_to_regno (b : mword 5) : {n : Z & ArithFact ((0 <=? n) && (n <? 32))} := + build_ex ( + let r := projT1 (uint b) in + r + ). + +Definition creg2reg_idx (creg : mword 3) : mword 5 := concat_vec ('b"01" : mword 2) creg. + +Definition zreg : regidx := 'b"00000" : mword 5. Hint Unfold zreg : sail. -Definition ra : regidx := (vec_of_bits [B0;B0;B0;B0;B1] : mword 5). +Definition ra : regidx := 'b"00001" : mword 5. Hint Unfold ra : sail. -Definition sp : regidx := (vec_of_bits [B0;B0;B0;B1;B0] : mword 5). +Definition sp : regidx := 'b"00010" : mword 5. Hint Unfold sp : sail. -Definition Architecture_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: Architecture := - - let l__173 := arg_ in - if sumbool_of_bool ((Z.eqb l__173 0)) then RV32 - else if sumbool_of_bool ((Z.eqb l__173 1)) then RV64 +Definition Architecture_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : Architecture := + let l__267 := arg_ in + if sumbool_of_bool (Z.eqb l__267 0) then RV32 + else if sumbool_of_bool (Z.eqb l__267 1) then RV64 else RV128. -Definition num_of_Architecture (arg_ : Architecture) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RV32 => 0 | RV64 => 1 | RV128 => 2 end). +Definition num_of_Architecture (arg_ : Architecture) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RV32 => 0 | RV64 => 1 | RV128 => 2 end). -Definition architecture (a : mword 2) -: option Architecture := - +Definition architecture (a : mword 2) : option Architecture := let b__0 := a in - if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then Some (RV32) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then Some (RV64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then Some (RV128) + if eq_vec b__0 ('b"01" : mword 2) then Some RV32 + else if eq_vec b__0 ('b"10" : mword 2) then Some RV64 + else if eq_vec b__0 ('b"11" : mword 2) then Some RV128 else None. -Definition arch_to_bits (a : Architecture) -: mword 2 := - +Definition arch_to_bits (a : Architecture) : mword 2 := match a with - | RV32 => (vec_of_bits [B0;B1] : mword 2) - | RV64 => (vec_of_bits [B1;B0] : mword 2) - | RV128 => (vec_of_bits [B1;B1] : mword 2) + | RV32 => 'b"01" : mword 2 + | RV64 => 'b"10" : mword 2 + | RV128 => 'b"11" : mword 2 end. -Definition Privilege_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: Privilege := - - let l__171 := arg_ in - if sumbool_of_bool ((Z.eqb l__171 0)) then User - else if sumbool_of_bool ((Z.eqb l__171 1)) then Supervisor +Definition Privilege_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : Privilege := + let l__265 := arg_ in + if sumbool_of_bool (Z.eqb l__265 0) then User + else if sumbool_of_bool (Z.eqb l__265 1) then Supervisor else Machine. -Definition num_of_Privilege (arg_ : Privilege) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | User => 0 | Supervisor => 1 | Machine => 2 end). +Definition num_of_Privilege (arg_ : Privilege) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | User => 0 | Supervisor => 1 | Machine => 2 end). -Definition privLevel_to_bits (p : Privilege) -: mword 2 := - +Definition privLevel_to_bits (p : Privilege) : mword 2 := match p with - | User => (vec_of_bits [B0;B0] : mword 2) - | Supervisor => (vec_of_bits [B0;B1] : mword 2) - | Machine => (vec_of_bits [B1;B1] : mword 2) + | User => 'b"00" : mword 2 + | Supervisor => 'b"01" : mword 2 + | Machine => 'b"11" : mword 2 end. -Definition privLevel_of_bits (p : mword 2) -: M (Privilege) := - +Definition privLevel_of_bits (p : mword 2) : M (Privilege) := let b__0 := p in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (User : Privilege) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (Supervisor : Privilege) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (Machine : Privilege) + (if eq_vec b__0 ('b"00" : mword 2) then returnm User + else if eq_vec b__0 ('b"01" : mword 2) then returnm Supervisor + else if eq_vec b__0 ('b"11" : mword 2) then returnm Machine else assert_exp' false "Pattern match failure at model/riscv_types.sail 78:2 - 82:3" >>= fun _ => exit tt) : M (Privilege). -Definition privLevel_to_str (p : Privilege) -: string := - +Definition privLevel_to_str (p : Privilege) : string := match p with | User => "U" | Supervisor => "S" | Machine => "M" end. -Definition Retired_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 1)} -: Retired := - - let l__170 := arg_ in - if sumbool_of_bool ((Z.eqb l__170 0)) then RETIRE_SUCCESS +Definition Retired_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 1))} : Retired := + let l__264 := arg_ in + if sumbool_of_bool (Z.eqb l__264 0) then RETIRE_SUCCESS else RETIRE_FAIL. -Definition num_of_Retired (arg_ : Retired) -: {e : Z & ArithFact (0 <= e /\ e <= 1)} := - - build_ex(match arg_ with | RETIRE_SUCCESS => 0 | RETIRE_FAIL => 1 end). - -Definition AccessType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: AccessType := - - let l__167 := arg_ in - if sumbool_of_bool ((Z.eqb l__167 0)) then Read - else if sumbool_of_bool ((Z.eqb l__167 1)) then Write - else if sumbool_of_bool ((Z.eqb l__167 2)) then ReadWrite - else Execute. - -Definition num_of_AccessType (arg_ : AccessType) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Read => 0 | Write => 1 | ReadWrite => 2 | Execute => 3 end). - -Definition accessType_to_str (a : AccessType) -: string := - - match a with | Read => "R" | Write => "W" | ReadWrite => "RW" | Execute => "X" end. - -Definition word_width_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: word_width := - - let l__164 := arg_ in - if sumbool_of_bool ((Z.eqb l__164 0)) then BYTE - else if sumbool_of_bool ((Z.eqb l__164 1)) then HALF - else if sumbool_of_bool ((Z.eqb l__164 2)) then WORD +Definition num_of_Retired (arg_ : Retired) : {e : Z & ArithFact ((0 <=? e) && (e <=? 1))} := + build_ex (match arg_ with | RETIRE_SUCCESS => 0 | RETIRE_FAIL => 1 end). + +Definition word_width_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : word_width := + let l__261 := arg_ in + if sumbool_of_bool (Z.eqb l__261 0) then BYTE + else if sumbool_of_bool (Z.eqb l__261 1) then HALF + else if sumbool_of_bool (Z.eqb l__261 2) then WORD else DOUBLE. -Definition num_of_word_width (arg_ : word_width) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | BYTE => 0 | HALF => 1 | WORD => 2 | DOUBLE => 3 end). +Definition num_of_word_width (arg_ : word_width) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | BYTE => 0 | HALF => 1 | WORD => 2 | DOUBLE => 3 end). -Definition InterruptType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 8)} +Definition InterruptType_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : InterruptType := - - let l__156 := arg_ in - if sumbool_of_bool ((Z.eqb l__156 0)) then I_U_Software - else if sumbool_of_bool ((Z.eqb l__156 1)) then I_S_Software - else if sumbool_of_bool ((Z.eqb l__156 2)) then I_M_Software - else if sumbool_of_bool ((Z.eqb l__156 3)) then I_U_Timer - else if sumbool_of_bool ((Z.eqb l__156 4)) then I_S_Timer - else if sumbool_of_bool ((Z.eqb l__156 5)) then I_M_Timer - else if sumbool_of_bool ((Z.eqb l__156 6)) then I_U_External - else if sumbool_of_bool ((Z.eqb l__156 7)) then I_S_External + let l__253 := arg_ in + if sumbool_of_bool (Z.eqb l__253 0) then I_U_Software + else if sumbool_of_bool (Z.eqb l__253 1) then I_S_Software + else if sumbool_of_bool (Z.eqb l__253 2) then I_M_Software + else if sumbool_of_bool (Z.eqb l__253 3) then I_U_Timer + else if sumbool_of_bool (Z.eqb l__253 4) then I_S_Timer + else if sumbool_of_bool (Z.eqb l__253 5) then I_M_Timer + else if sumbool_of_bool (Z.eqb l__253 6) then I_U_External + else if sumbool_of_bool (Z.eqb l__253 7) then I_S_External else I_M_External. -Definition num_of_InterruptType (arg_ : InterruptType) -: {e : Z & ArithFact (0 <= e /\ e <= 8)} := - - build_ex(match arg_ with - | I_U_Software => 0 - | I_S_Software => 1 - | I_M_Software => 2 - | I_U_Timer => 3 - | I_S_Timer => 4 - | I_M_Timer => 5 - | I_U_External => 6 - | I_S_External => 7 - | I_M_External => 8 - end). - -Definition interruptType_to_bits (i : InterruptType) -: mword 8 := - +Definition num_of_InterruptType (arg_ : InterruptType) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | I_U_Software => 0 + | I_S_Software => 1 + | I_M_Software => 2 + | I_U_Timer => 3 + | I_S_Timer => 4 + | I_M_Timer => 5 + | I_U_External => 6 + | I_S_External => 7 + | I_M_External => 8 + end + ). + +Definition interruptType_to_bits (i : InterruptType) : mword 8 := match i with - | I_U_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8) - | I_S_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8) - | I_M_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B1] : mword 8) - | I_U_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0] : mword 8) - | I_S_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B1] : mword 8) - | I_M_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B1] : mword 8) - | I_U_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B0] : mword 8) - | I_S_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B1] : mword 8) - | I_M_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1] : mword 8) + | I_U_Software => Ox"00" : mword 8 + | I_S_Software => Ox"01" : mword 8 + | I_M_Software => Ox"03" : mword 8 + | I_U_Timer => Ox"04" : mword 8 + | I_S_Timer => Ox"05" : mword 8 + | I_M_Timer => Ox"07" : mword 8 + | I_U_External => Ox"08" : mword 8 + | I_S_External => Ox"09" : mword 8 + | I_M_External => Ox"0B" : mword 8 end. -Definition ExceptionType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 16)} -: ExceptionType := - - let l__140 := arg_ in - if sumbool_of_bool ((Z.eqb l__140 0)) then E_Fetch_Addr_Align - else if sumbool_of_bool ((Z.eqb l__140 1)) then E_Fetch_Access_Fault - else if sumbool_of_bool ((Z.eqb l__140 2)) then E_Illegal_Instr - else if sumbool_of_bool ((Z.eqb l__140 3)) then E_Breakpoint - else if sumbool_of_bool ((Z.eqb l__140 4)) then E_Load_Addr_Align - else if sumbool_of_bool ((Z.eqb l__140 5)) then E_Load_Access_Fault - else if sumbool_of_bool ((Z.eqb l__140 6)) then E_SAMO_Addr_Align - else if sumbool_of_bool ((Z.eqb l__140 7)) then E_SAMO_Access_Fault - else if sumbool_of_bool ((Z.eqb l__140 8)) then E_U_EnvCall - else if sumbool_of_bool ((Z.eqb l__140 9)) then E_S_EnvCall - else if sumbool_of_bool ((Z.eqb l__140 10)) then E_Reserved_10 - else if sumbool_of_bool ((Z.eqb l__140 11)) then E_M_EnvCall - else if sumbool_of_bool ((Z.eqb l__140 12)) then E_Fetch_Page_Fault - else if sumbool_of_bool ((Z.eqb l__140 13)) then E_Load_Page_Fault - else if sumbool_of_bool ((Z.eqb l__140 14)) then E_Reserved_14 - else if sumbool_of_bool ((Z.eqb l__140 15)) then E_SAMO_Page_Fault - else E_CHERI. - -Definition num_of_ExceptionType (arg_ : ExceptionType) -: {e : Z & ArithFact (0 <= e /\ e <= 16)} := - - build_ex(match arg_ with - | E_Fetch_Addr_Align => 0 - | E_Fetch_Access_Fault => 1 - | E_Illegal_Instr => 2 - | E_Breakpoint => 3 - | E_Load_Addr_Align => 4 - | E_Load_Access_Fault => 5 - | E_SAMO_Addr_Align => 6 - | E_SAMO_Access_Fault => 7 - | E_U_EnvCall => 8 - | E_S_EnvCall => 9 - | E_Reserved_10 => 10 - | E_M_EnvCall => 11 - | E_Fetch_Page_Fault => 12 - | E_Load_Page_Fault => 13 - | E_Reserved_14 => 14 - | E_SAMO_Page_Fault => 15 - | E_CHERI => 16 - end). - -Definition exceptionType_to_bits (e : ExceptionType) -: mword 8 := - +Definition exceptionType_to_bits (e : ExceptionType) : mword 8 := match e with - | E_Fetch_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8) - | E_Fetch_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8) - | E_Illegal_Instr => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B0] : mword 8) - | E_Breakpoint => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B1] : mword 8) - | E_Load_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0] : mword 8) - | E_Load_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B1] : mword 8) - | E_SAMO_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B0] : mword 8) - | E_SAMO_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B1] : mword 8) - | E_U_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B0] : mword 8) - | E_S_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B1] : mword 8) - | E_Reserved_10 => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B0] : mword 8) - | E_M_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1] : mword 8) - | E_Fetch_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B0;B0] : mword 8) - | E_Load_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B0;B1] : mword 8) - | E_Reserved_14 => (vec_of_bits [B0;B0;B0;B0;B1;B1;B1;B0] : mword 8) - | E_SAMO_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B1;B1] : mword 8) - | E_CHERI => (vec_of_bits [B0;B0;B1;B0;B0;B0;B0;B0] : mword 8) + | E_Fetch_Addr_Align tt => Ox"00" : mword 8 + | E_Fetch_Access_Fault tt => Ox"01" : mword 8 + | E_Illegal_Instr tt => Ox"02" : mword 8 + | E_Breakpoint tt => Ox"03" : mword 8 + | E_Load_Addr_Align tt => Ox"04" : mword 8 + | E_Load_Access_Fault tt => Ox"05" : mword 8 + | E_SAMO_Addr_Align tt => Ox"06" : mword 8 + | E_SAMO_Access_Fault tt => Ox"07" : mword 8 + | E_U_EnvCall tt => Ox"08" : mword 8 + | E_S_EnvCall tt => Ox"09" : mword 8 + | E_Reserved_10 tt => Ox"0A" : mword 8 + | E_M_EnvCall tt => Ox"0B" : mword 8 + | E_Fetch_Page_Fault tt => Ox"0C" : mword 8 + | E_Load_Page_Fault tt => Ox"0D" : mword 8 + | E_Reserved_14 tt => Ox"0E" : mword 8 + | E_SAMO_Page_Fault tt => Ox"0F" : mword 8 + | E_Extension e => ext_exc_type_to_bits e end. -Definition exceptionType_to_str (e : ExceptionType) -: string := - +Definition num_of_ExceptionType (e : ExceptionType) : {n : Z & ArithFact ((0 <=? n) && (n <? xlen))} := + build_ex ( + match e with + | E_Fetch_Addr_Align tt => 0 + | E_Fetch_Access_Fault tt => 1 + | E_Illegal_Instr tt => 2 + | E_Breakpoint tt => 3 + | E_Load_Addr_Align tt => 4 + | E_Load_Access_Fault tt => 5 + | E_SAMO_Addr_Align tt => 6 + | E_SAMO_Access_Fault tt => 7 + | E_U_EnvCall tt => 8 + | E_S_EnvCall tt => 9 + | E_Reserved_10 tt => 10 + | E_M_EnvCall tt => 11 + | E_Fetch_Page_Fault tt => 12 + | E_Load_Page_Fault tt => 13 + | E_Reserved_14 tt => 14 + | E_SAMO_Page_Fault tt => 15 + | E_Extension e => projT1 (num_of_ext_exc_type e) + end + ). + +Definition exceptionType_to_str (e : ExceptionType) : string := match e with - | E_Fetch_Addr_Align => "misaligned-fetch" - | E_Fetch_Access_Fault => "fetch-access-fault" - | E_Illegal_Instr => "illegal-instruction" - | E_Breakpoint => "breakpoint" - | E_Load_Addr_Align => "misaligned-load" - | E_Load_Access_Fault => "load-access-fault" - | E_SAMO_Addr_Align => "misaliged-store/amo" - | E_SAMO_Access_Fault => "store/amo-access-fault" - | E_U_EnvCall => "u-call" - | E_S_EnvCall => "s-call" - | E_Reserved_10 => "reserved-0" - | E_M_EnvCall => "m-call" - | E_Fetch_Page_Fault => "fetch-page-fault" - | E_Load_Page_Fault => "load-page-fault" - | E_Reserved_14 => "reserved-1" - | E_SAMO_Page_Fault => "store/amo-page-fault" - | E_CHERI => "CHERI" + | E_Fetch_Addr_Align tt => "misaligned-fetch" + | E_Fetch_Access_Fault tt => "fetch-access-fault" + | E_Illegal_Instr tt => "illegal-instruction" + | E_Breakpoint tt => "breakpoint" + | E_Load_Addr_Align tt => "misaligned-load" + | E_Load_Access_Fault tt => "load-access-fault" + | E_SAMO_Addr_Align tt => "misaliged-store/amo" + | E_SAMO_Access_Fault tt => "store/amo-access-fault" + | E_U_EnvCall tt => "u-call" + | E_S_EnvCall tt => "s-call" + | E_Reserved_10 tt => "reserved-0" + | E_M_EnvCall tt => "m-call" + | E_Fetch_Page_Fault tt => "fetch-page-fault" + | E_Load_Page_Fault tt => "load-page-fault" + | E_Reserved_14 tt => "reserved-1" + | E_SAMO_Page_Fault tt => "store/amo-page-fault" + | E_Extension e => ext_exc_type_to_str e end. -Definition not_implemented {a : Type} (message : string) -: M (a) := - - throw (Error_not_implemented - (message)). +Definition not_implemented {a : Type} (message : string) : M (a) := + throw (Error_not_implemented message). -Definition internal_error {a : Type} (s : string) -: M (a) := - +Definition internal_error {a : Type} (s : string) : M (a) := assert_exp' false s >>= fun _ => exit tt. -Definition TrapVectorMode_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} +Definition TrapVectorMode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : TrapVectorMode := - - let l__138 := arg_ in - if sumbool_of_bool ((Z.eqb l__138 0)) then TV_Direct - else if sumbool_of_bool ((Z.eqb l__138 1)) then TV_Vector + let l__251 := arg_ in + if sumbool_of_bool (Z.eqb l__251 0) then TV_Direct + else if sumbool_of_bool (Z.eqb l__251 1) then TV_Vector else TV_Reserved. -Definition num_of_TrapVectorMode (arg_ : TrapVectorMode) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | TV_Direct => 0 | TV_Vector => 1 | TV_Reserved => 2 end). +Definition num_of_TrapVectorMode (arg_ : TrapVectorMode) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | TV_Direct => 0 | TV_Vector => 1 | TV_Reserved => 2 end). -Definition trapVectorMode_of_bits (m : mword 2) -: TrapVectorMode := - +Definition trapVectorMode_of_bits (m : mword 2) : TrapVectorMode := let b__0 := m in - if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then TV_Direct - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then TV_Vector + if eq_vec b__0 ('b"00" : mword 2) then TV_Direct + else if eq_vec b__0 ('b"01" : mword 2) then TV_Vector else TV_Reserved. -Definition ExtStatus_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: ExtStatus := - - let l__135 := arg_ in - if sumbool_of_bool ((Z.eqb l__135 0)) then Off - else if sumbool_of_bool ((Z.eqb l__135 1)) then Initial - else if sumbool_of_bool ((Z.eqb l__135 2)) then Clean +Definition ExtStatus_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : ExtStatus := + let l__248 := arg_ in + if sumbool_of_bool (Z.eqb l__248 0) then Off + else if sumbool_of_bool (Z.eqb l__248 1) then Initial + else if sumbool_of_bool (Z.eqb l__248 2) then Clean else Dirty. -Definition num_of_ExtStatus (arg_ : ExtStatus) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Off => 0 | Initial => 1 | Clean => 2 | Dirty => 3 end). +Definition num_of_ExtStatus (arg_ : ExtStatus) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | Off => 0 | Initial => 1 | Clean => 2 | Dirty => 3 end). -Definition extStatus_to_bits (e : ExtStatus) -: mword 2 := - +Definition extStatus_to_bits (e : ExtStatus) : mword 2 := match e with - | Off => (vec_of_bits [B0;B0] : mword 2) - | Initial => (vec_of_bits [B0;B1] : mword 2) - | Clean => (vec_of_bits [B1;B0] : mword 2) - | Dirty => (vec_of_bits [B1;B1] : mword 2) + | Off => 'b"00" : mword 2 + | Initial => 'b"01" : mword 2 + | Clean => 'b"10" : mword 2 + | Dirty => 'b"11" : mword 2 end. -Definition extStatus_of_bits (e : mword 2) -: M (ExtStatus) := - +Definition extStatus_of_bits (e : mword 2) : M (ExtStatus) := let b__0 := e in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (Off : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (Initial : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (Clean : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (Dirty : ExtStatus) + (if eq_vec b__0 ('b"00" : mword 2) then returnm Off + else if eq_vec b__0 ('b"01" : mword 2) then returnm Initial + else if eq_vec b__0 ('b"10" : mword 2) then returnm Clean + else if eq_vec b__0 ('b"11" : mword 2) then returnm Dirty else - assert_exp' false "Pattern match failure at model/riscv_types.sail 264:2 - 269:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_types.sail 281:2 - 286:3" >>= fun _ => exit tt) : M (ExtStatus). -Definition SATPMode_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: SATPMode := - - let l__132 := arg_ in - if sumbool_of_bool ((Z.eqb l__132 0)) then Sbare - else if sumbool_of_bool ((Z.eqb l__132 1)) then Sv32 - else if sumbool_of_bool ((Z.eqb l__132 2)) then Sv39 +Definition SATPMode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : SATPMode := + let l__245 := arg_ in + if sumbool_of_bool (Z.eqb l__245 0) then Sbare + else if sumbool_of_bool (Z.eqb l__245 1) then Sv32 + else if sumbool_of_bool (Z.eqb l__245 2) then Sv39 else Sv48. -Definition num_of_SATPMode (arg_ : SATPMode) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Sbare => 0 | Sv32 => 1 | Sv39 => 2 | Sv48 => 3 end). +Definition num_of_SATPMode (arg_ : SATPMode) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | Sbare => 0 | Sv32 => 1 | Sv39 => 2 | Sv48 => 3 end). -Definition satp64Mode_of_bits (a : Architecture) (m : mword 4) -: option SATPMode := - +Definition satp64Mode_of_bits (a : Architecture) (m : mword 4) : option SATPMode := match (a, m) with - | (g__218, b__0) => - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0] : mword 4))) then Some (Sbare) + | (g__313, b__0) => + if eq_vec b__0 (Ox"0" : mword 4) then Some Sbare else - match (g__218, b__0) with + match (g__313, b__0) with | (RV32, b__0) => - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1] : mword 4))) then Some (Sv32) + if eq_vec b__0 (Ox"1" : mword 4) then Some Sv32 else match (RV32, b__0) with | (_, _) => None end | (RV64, b__0) => - if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0] : mword 4))) then Some (Sv39) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1] : mword 4))) then Some (Sv48) + if eq_vec b__0 (Ox"8" : mword 4) then Some Sv39 + else if eq_vec b__0 (Ox"9" : mword 4) then Some Sv48 else match (RV64, b__0) with | (_, _) => None end | (_, _) => None end end. -Definition uop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 1)} -: uop := - - let l__131 := arg_ in - if sumbool_of_bool ((Z.eqb l__131 0)) then RISCV_LUI +Definition uop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 1))} : uop := + let l__244 := arg_ in + if sumbool_of_bool (Z.eqb l__244 0) then RISCV_LUI else RISCV_AUIPC. -Definition num_of_uop (arg_ : uop) -: {e : Z & ArithFact (0 <= e /\ e <= 1)} := - - build_ex(match arg_ with | RISCV_LUI => 0 | RISCV_AUIPC => 1 end). - -Definition bop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 5)} -: bop := - - let l__126 := arg_ in - if sumbool_of_bool ((Z.eqb l__126 0)) then RISCV_BEQ - else if sumbool_of_bool ((Z.eqb l__126 1)) then RISCV_BNE - else if sumbool_of_bool ((Z.eqb l__126 2)) then RISCV_BLT - else if sumbool_of_bool ((Z.eqb l__126 3)) then RISCV_BGE - else if sumbool_of_bool ((Z.eqb l__126 4)) then RISCV_BLTU - else RISCV_BGEU. +Definition num_of_uop (arg_ : uop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 1))} := + build_ex (match arg_ with | RISCV_LUI => 0 | RISCV_AUIPC => 1 end). -Definition num_of_bop (arg_ : bop) -: {e : Z & ArithFact (0 <= e /\ e <= 5)} := - - build_ex(match arg_ with - | RISCV_BEQ => 0 - | RISCV_BNE => 1 - | RISCV_BLT => 2 - | RISCV_BGE => 3 - | RISCV_BLTU => 4 - | RISCV_BGEU => 5 - end). +Definition bop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} : bop := + let l__239 := arg_ in + if sumbool_of_bool (Z.eqb l__239 0) then RISCV_BEQ + else if sumbool_of_bool (Z.eqb l__239 1) then RISCV_BNE + else if sumbool_of_bool (Z.eqb l__239 2) then RISCV_BLT + else if sumbool_of_bool (Z.eqb l__239 3) then RISCV_BGE + else if sumbool_of_bool (Z.eqb l__239 4) then RISCV_BLTU + else RISCV_BGEU. -Definition iop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 5)} -: iop := - - let l__121 := arg_ in - if sumbool_of_bool ((Z.eqb l__121 0)) then RISCV_ADDI - else if sumbool_of_bool ((Z.eqb l__121 1)) then RISCV_SLTI - else if sumbool_of_bool ((Z.eqb l__121 2)) then RISCV_SLTIU - else if sumbool_of_bool ((Z.eqb l__121 3)) then RISCV_XORI - else if sumbool_of_bool ((Z.eqb l__121 4)) then RISCV_ORI +Definition num_of_bop (arg_ : bop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RISCV_BEQ => 0 + | RISCV_BNE => 1 + | RISCV_BLT => 2 + | RISCV_BGE => 3 + | RISCV_BLTU => 4 + | RISCV_BGEU => 5 + end + ). + +Definition iop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} : iop := + let l__234 := arg_ in + if sumbool_of_bool (Z.eqb l__234 0) then RISCV_ADDI + else if sumbool_of_bool (Z.eqb l__234 1) then RISCV_SLTI + else if sumbool_of_bool (Z.eqb l__234 2) then RISCV_SLTIU + else if sumbool_of_bool (Z.eqb l__234 3) then RISCV_XORI + else if sumbool_of_bool (Z.eqb l__234 4) then RISCV_ORI else RISCV_ANDI. -Definition num_of_iop (arg_ : iop) -: {e : Z & ArithFact (0 <= e /\ e <= 5)} := - - build_ex(match arg_ with - | RISCV_ADDI => 0 - | RISCV_SLTI => 1 - | RISCV_SLTIU => 2 - | RISCV_XORI => 3 - | RISCV_ORI => 4 - | RISCV_ANDI => 5 - end). - -Definition sop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: sop := - - let l__119 := arg_ in - if sumbool_of_bool ((Z.eqb l__119 0)) then RISCV_SLLI - else if sumbool_of_bool ((Z.eqb l__119 1)) then RISCV_SRLI +Definition num_of_iop (arg_ : iop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RISCV_ADDI => 0 + | RISCV_SLTI => 1 + | RISCV_SLTIU => 2 + | RISCV_XORI => 3 + | RISCV_ORI => 4 + | RISCV_ANDI => 5 + end + ). + +Definition sop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : sop := + let l__232 := arg_ in + if sumbool_of_bool (Z.eqb l__232 0) then RISCV_SLLI + else if sumbool_of_bool (Z.eqb l__232 1) then RISCV_SRLI else RISCV_SRAI. -Definition num_of_sop (arg_ : sop) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RISCV_SLLI => 0 | RISCV_SRLI => 1 | RISCV_SRAI => 2 end). - -Definition rop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 9)} -: rop := - - let l__110 := arg_ in - if sumbool_of_bool ((Z.eqb l__110 0)) then RISCV_ADD - else if sumbool_of_bool ((Z.eqb l__110 1)) then RISCV_SUB - else if sumbool_of_bool ((Z.eqb l__110 2)) then RISCV_SLL - else if sumbool_of_bool ((Z.eqb l__110 3)) then RISCV_SLT - else if sumbool_of_bool ((Z.eqb l__110 4)) then RISCV_SLTU - else if sumbool_of_bool ((Z.eqb l__110 5)) then RISCV_XOR - else if sumbool_of_bool ((Z.eqb l__110 6)) then RISCV_SRL - else if sumbool_of_bool ((Z.eqb l__110 7)) then RISCV_SRA - else if sumbool_of_bool ((Z.eqb l__110 8)) then RISCV_OR +Definition num_of_sop (arg_ : sop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RISCV_SLLI => 0 | RISCV_SRLI => 1 | RISCV_SRAI => 2 end). + +Definition rop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 9))} : rop := + let l__223 := arg_ in + if sumbool_of_bool (Z.eqb l__223 0) then RISCV_ADD + else if sumbool_of_bool (Z.eqb l__223 1) then RISCV_SUB + else if sumbool_of_bool (Z.eqb l__223 2) then RISCV_SLL + else if sumbool_of_bool (Z.eqb l__223 3) then RISCV_SLT + else if sumbool_of_bool (Z.eqb l__223 4) then RISCV_SLTU + else if sumbool_of_bool (Z.eqb l__223 5) then RISCV_XOR + else if sumbool_of_bool (Z.eqb l__223 6) then RISCV_SRL + else if sumbool_of_bool (Z.eqb l__223 7) then RISCV_SRA + else if sumbool_of_bool (Z.eqb l__223 8) then RISCV_OR else RISCV_AND. -Definition num_of_rop (arg_ : rop) -: {e : Z & ArithFact (0 <= e /\ e <= 9)} := - - build_ex(match arg_ with - | RISCV_ADD => 0 - | RISCV_SUB => 1 - | RISCV_SLL => 2 - | RISCV_SLT => 3 - | RISCV_SLTU => 4 - | RISCV_XOR => 5 - | RISCV_SRL => 6 - | RISCV_SRA => 7 - | RISCV_OR => 8 - | RISCV_AND => 9 - end). - -Definition ropw_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 4)} -: ropw := - - let l__106 := arg_ in - if sumbool_of_bool ((Z.eqb l__106 0)) then RISCV_ADDW - else if sumbool_of_bool ((Z.eqb l__106 1)) then RISCV_SUBW - else if sumbool_of_bool ((Z.eqb l__106 2)) then RISCV_SLLW - else if sumbool_of_bool ((Z.eqb l__106 3)) then RISCV_SRLW +Definition num_of_rop (arg_ : rop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 9))} := + build_ex ( + match arg_ with + | RISCV_ADD => 0 + | RISCV_SUB => 1 + | RISCV_SLL => 2 + | RISCV_SLT => 3 + | RISCV_SLTU => 4 + | RISCV_XOR => 5 + | RISCV_SRL => 6 + | RISCV_SRA => 7 + | RISCV_OR => 8 + | RISCV_AND => 9 + end + ). + +Definition ropw_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 4))} : ropw := + let l__219 := arg_ in + if sumbool_of_bool (Z.eqb l__219 0) then RISCV_ADDW + else if sumbool_of_bool (Z.eqb l__219 1) then RISCV_SUBW + else if sumbool_of_bool (Z.eqb l__219 2) then RISCV_SLLW + else if sumbool_of_bool (Z.eqb l__219 3) then RISCV_SRLW else RISCV_SRAW. -Definition num_of_ropw (arg_ : ropw) -: {e : Z & ArithFact (0 <= e /\ e <= 4)} := - - build_ex(match arg_ with - | RISCV_ADDW => 0 - | RISCV_SUBW => 1 - | RISCV_SLLW => 2 - | RISCV_SRLW => 3 - | RISCV_SRAW => 4 - end). - -Definition sopw_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: sopw := - - let l__104 := arg_ in - if sumbool_of_bool ((Z.eqb l__104 0)) then RISCV_SLLIW - else if sumbool_of_bool ((Z.eqb l__104 1)) then RISCV_SRLIW +Definition num_of_ropw (arg_ : ropw) : {e : Z & ArithFact ((0 <=? e) && (e <=? 4))} := + build_ex ( + match arg_ with + | RISCV_ADDW => 0 + | RISCV_SUBW => 1 + | RISCV_SLLW => 2 + | RISCV_SRLW => 3 + | RISCV_SRAW => 4 + end + ). + +Definition sopw_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : sopw := + let l__217 := arg_ in + if sumbool_of_bool (Z.eqb l__217 0) then RISCV_SLLIW + else if sumbool_of_bool (Z.eqb l__217 1) then RISCV_SRLIW else RISCV_SRAIW. -Definition num_of_sopw (arg_ : sopw) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RISCV_SLLIW => 0 | RISCV_SRLIW => 1 | RISCV_SRAIW => 2 end). - -Definition amoop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 8)} -: amoop := - - let l__96 := arg_ in - if sumbool_of_bool ((Z.eqb l__96 0)) then AMOSWAP - else if sumbool_of_bool ((Z.eqb l__96 1)) then AMOADD - else if sumbool_of_bool ((Z.eqb l__96 2)) then AMOXOR - else if sumbool_of_bool ((Z.eqb l__96 3)) then AMOAND - else if sumbool_of_bool ((Z.eqb l__96 4)) then AMOOR - else if sumbool_of_bool ((Z.eqb l__96 5)) then AMOMIN - else if sumbool_of_bool ((Z.eqb l__96 6)) then AMOMAX - else if sumbool_of_bool ((Z.eqb l__96 7)) then AMOMINU +Definition num_of_sopw (arg_ : sopw) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RISCV_SLLIW => 0 | RISCV_SRLIW => 1 | RISCV_SRAIW => 2 end). + +Definition amoop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : amoop := + let l__209 := arg_ in + if sumbool_of_bool (Z.eqb l__209 0) then AMOSWAP + else if sumbool_of_bool (Z.eqb l__209 1) then AMOADD + else if sumbool_of_bool (Z.eqb l__209 2) then AMOXOR + else if sumbool_of_bool (Z.eqb l__209 3) then AMOAND + else if sumbool_of_bool (Z.eqb l__209 4) then AMOOR + else if sumbool_of_bool (Z.eqb l__209 5) then AMOMIN + else if sumbool_of_bool (Z.eqb l__209 6) then AMOMAX + else if sumbool_of_bool (Z.eqb l__209 7) then AMOMINU else AMOMAXU. -Definition num_of_amoop (arg_ : amoop) -: {e : Z & ArithFact (0 <= e /\ e <= 8)} := - - build_ex(match arg_ with - | AMOSWAP => 0 - | AMOADD => 1 - | AMOXOR => 2 - | AMOAND => 3 - | AMOOR => 4 - | AMOMIN => 5 - | AMOMAX => 6 - | AMOMINU => 7 - | AMOMAXU => 8 - end). - -Definition csrop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: csrop := - - let l__94 := arg_ in - if sumbool_of_bool ((Z.eqb l__94 0)) then CSRRW - else if sumbool_of_bool ((Z.eqb l__94 1)) then CSRRS +Definition num_of_amoop (arg_ : amoop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | AMOSWAP => 0 + | AMOADD => 1 + | AMOXOR => 2 + | AMOAND => 3 + | AMOOR => 4 + | AMOMIN => 5 + | AMOMAX => 6 + | AMOMINU => 7 + | AMOMAXU => 8 + end + ). + +Definition csrop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : csrop := + let l__207 := arg_ in + if sumbool_of_bool (Z.eqb l__207 0) then CSRRW + else if sumbool_of_bool (Z.eqb l__207 1) then CSRRS else CSRRC. -Definition num_of_csrop (arg_ : csrop) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | CSRRW => 0 | CSRRS => 1 | CSRRC => 2 end). +Definition num_of_csrop (arg_ : csrop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | CSRRW => 0 | CSRRS => 1 | CSRRC => 2 end). -Definition sep_forwards (arg_ : unit) -: string := - +Definition sep_forwards (arg_ : unit) : string := match arg_ with | tt => string_append (opt_spc_forwards tt) (string_append "," (string_append (def_spc_forwards tt) "")) end. -Definition _s0_ (_s1_ : string) -: M (option unit) := - +Definition _s0_ (_s1_ : string) : M (option unit) := (match _s1_ with | _s2_ => - (opt_spc_matches_prefix _s2_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s2_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3_ _)) => + | Some (tt, existT _ _s3_ _) => let _s4_ := string_drop _s2_ _s3_ in - (if ((string_startswith _s4_ ",")) then + (if string_startswith _s4_ "," then (match (string_drop _s4_ (projT1 (string_length ","))) with | _s5_ => - (def_spc_matches_prefix _s5_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s5_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s6_ _)) => - let p0_ := string_drop _s5_ _s6_ in - if ((generic_eq p0_ "")) then Some (tt) - else None - | _ => None - end) - : option unit) + returnm (match w__1 with + | Some (tt, existT _ _s6_ _) => + let p0_ := string_drop _s5_ _s6_ in + if generic_eq p0_ "" then Some tt + else None + | _ => None + end) end) : M (option unit) - else returnm (None : option unit)) + else returnm None) : M (option unit) - | _ => returnm (None : option unit) + | _ => returnm None end) : M (option unit) end) : M (option unit). -Definition sep_backwards (arg_ : string) -: M (unit) := - +Definition sep_backwards (arg_ : string) : M (unit) := let _s7_ := arg_ in (_s0_ _s7_) >>= fun w__0 : option unit => - (if ((match w__0 with | Some (tt) => true | _ => false end)) then + (if match w__0 with | Some tt => true | _ => false end then (_s0_ _s7_) >>= fun w__1 : option unit => - (match w__1 with | Some (tt) => returnm (tt : unit) | _ => exit tt : M (unit) end) + (match w__1 with | Some tt => returnm tt | _ => exit tt : M (unit) end) : M (unit) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (unit). -Definition sep_forwards_matches (arg_ : unit) : bool := match arg_ with | tt => true end. +Definition sep_forwards_matches (arg_ : unit) : bool := match arg_ with | tt => true end. -Definition _s8_ (_s9_ : string) -: M (option unit) := - +Definition _s8_ (_s9_ : string) : M (option unit) := (match _s9_ with | _s10_ => - (opt_spc_matches_prefix _s10_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s10_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s11_ _)) => + | Some (tt, existT _ _s11_ _) => let _s12_ := string_drop _s10_ _s11_ in - (if ((string_startswith _s12_ ",")) then + (if string_startswith _s12_ "," then (match (string_drop _s12_ (projT1 (string_length ","))) with | _s13_ => - (def_spc_matches_prefix _s13_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s13_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s14_ _)) => - let p0_ := string_drop _s13_ _s14_ in - if ((generic_eq p0_ "")) then Some (tt) - else None - | _ => None - end) - : option unit) + returnm (match w__1 with + | Some (tt, existT _ _s14_ _) => + let p0_ := string_drop _s13_ _s14_ in + if generic_eq p0_ "" then Some tt + else None + | _ => None + end) end) : M (option unit) - else returnm (None : option unit)) + else returnm None) : M (option unit) - | _ => returnm (None : option unit) + | _ => returnm None end) : M (option unit) end) : M (option unit). -Definition sep_backwards_matches (arg_ : string) -: M (bool) := - +Definition sep_backwards_matches (arg_ : string) : M (bool) := let _s15_ := arg_ in (_s8_ _s15_) >>= fun w__0 : option unit => - (if ((match w__0 with | Some (tt) => true | _ => false end)) then + (if match w__0 with | Some tt => true | _ => false end then (_s8_ _s15_) >>= fun w__1 : option unit => - (match w__1 with - | Some (tt) => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (match w__1 with | Some tt => returnm true | _ => exit tt : M (bool) end) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else returnm false) : M (bool). -Definition _s16_ (_s17_ : string) -: M (option string) := - +Definition _s16_ (_s17_ : string) : M (option string) := (match _s17_ with | _s18_ => - (opt_spc_matches_prefix _s18_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s18_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s19_ _)) => + | Some (tt, existT _ _s19_ _) => let _s20_ := string_drop _s18_ _s19_ in - (if ((string_startswith _s20_ ",")) then + (if string_startswith _s20_ "," then (match (string_drop _s20_ (projT1 (string_length ","))) with | _s21_ => - (def_spc_matches_prefix _s21_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s21_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s22_ _)) => - match (string_drop _s21_ _s22_) with | s_ => Some (s_) end - | _ => None - end) - : option string) + returnm (match w__1 with + | Some (tt, existT _ _s22_ _) => + match (string_drop _s21_ _s22_) with | s_ => Some s_ end + | _ => None + end) end) : M (option string) - else returnm (None : option string)) + else returnm None) : M (option string) - | _ => returnm (None : option string) + | _ => returnm None end) : M (option string) end) : M (option string). -Definition sep_matches_prefix (arg_ : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - +Definition sep_matches_prefix (arg_ : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := let _s23_ := arg_ in (_s16_ _s23_) >>= fun w__0 : option string => - (if ((match w__0 with | Some (s_) => true | _ => false end)) then + (if match w__0 with | Some s_ => true | _ => false end then (_s16_ _s23_) >>= fun w__1 : option string => (match w__1 with - | Some (s_) => - returnm ((Some - ((tt, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((unit * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (tt, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((unit * {n : Z & ArithFact (n >= 0)})))) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))). + : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))). -Definition bool_bits_forwards (arg_ : bool) -: mword 1 := - - match arg_ with - | true => (vec_of_bits [B1] : mword 1) - | false => (vec_of_bits [B0] : mword 1) - end. +Definition bool_bits_forwards (arg_ : bool) : mword 1 := + match arg_ with | true => 'b"1" : mword 1 | false => 'b"0" : mword 1 end. -Definition bool_bits_backwards (arg_ : mword 1) -: M (bool) := - +Definition bool_bits_backwards (arg_ : mword 1) : M (bool) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if eq_vec b__0 ('b"1" : mword 1) then returnm true + else if eq_vec b__0 ('b"0" : mword 1) then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition bool_bits_forwards_matches (arg_ : bool) -: bool := - +Definition bool_bits_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition bool_bits_backwards_matches (arg_ : mword 1) -: bool := - +Definition bool_bits_backwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bool_not_bits_forwards (arg_ : bool) -: mword 1 := - - match arg_ with - | true => (vec_of_bits [B0] : mword 1) - | false => (vec_of_bits [B1] : mword 1) - end. +Definition bool_not_bits_forwards (arg_ : bool) : mword 1 := + match arg_ with | true => 'b"0" : mword 1 | false => 'b"1" : mword 1 end. -Definition bool_not_bits_backwards (arg_ : mword 1) -: M (bool) := - +Definition bool_not_bits_backwards (arg_ : mword 1) : M (bool) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if eq_vec b__0 ('b"0" : mword 1) then returnm true + else if eq_vec b__0 ('b"1" : mword 1) then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition bool_not_bits_forwards_matches (arg_ : bool) -: bool := - +Definition bool_not_bits_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition bool_not_bits_backwards_matches (arg_ : mword 1) -: bool := - +Definition bool_not_bits_backwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true + if eq_vec b__0 ('b"0" : mword 1) then true + else if eq_vec b__0 ('b"1" : mword 1) then true else false. -Definition size_bits_forwards (arg_ : word_width) -: mword 2 := - +Definition size_bits_forwards (arg_ : word_width) : mword 2 := match arg_ with - | BYTE => (vec_of_bits [B0;B0] : mword 2) - | HALF => (vec_of_bits [B0;B1] : mword 2) - | WORD => (vec_of_bits [B1;B0] : mword 2) - | DOUBLE => (vec_of_bits [B1;B1] : mword 2) + | BYTE => 'b"00" : mword 2 + | HALF => 'b"01" : mword 2 + | WORD => 'b"10" : mword 2 + | DOUBLE => 'b"11" : mword 2 end. -Definition size_bits_backwards (arg_ : mword 2) -: M (word_width) := - +Definition size_bits_backwards (arg_ : mword 2) : M (word_width) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (BYTE : word_width) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (HALF : word_width) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (WORD : word_width) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (DOUBLE : word_width) + (if eq_vec b__0 ('b"00" : mword 2) then returnm BYTE + else if eq_vec b__0 ('b"01" : mword 2) then returnm HALF + else if eq_vec b__0 ('b"10" : mword 2) then returnm WORD + else if eq_vec b__0 ('b"11" : mword 2) then returnm DOUBLE else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (word_width). -Definition size_bits_forwards_matches (arg_ : word_width) -: bool := - +Definition size_bits_forwards_matches (arg_ : word_width) : bool := match arg_ with | BYTE => true | HALF => true | WORD => true | DOUBLE => true end. -Definition size_bits_backwards_matches (arg_ : mword 2) -: bool := - +Definition size_bits_backwards_matches (arg_ : mword 2) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then true + if eq_vec b__0 ('b"00" : mword 2) then true + else if eq_vec b__0 ('b"01" : mword 2) then true + else if eq_vec b__0 ('b"10" : mword 2) then true + else if eq_vec b__0 ('b"11" : mword 2) then true else false. -Definition size_mnemonic_forwards (arg_ : word_width) -: string := - +Definition size_mnemonic_forwards (arg_ : word_width) : string := match arg_ with | BYTE => "b" | HALF => "h" | WORD => "w" | DOUBLE => "d" end. -Definition size_mnemonic_backwards (arg_ : string) -: M (word_width) := - +Definition size_mnemonic_backwards (arg_ : string) : M (word_width) := let p0_ := arg_ in - (if ((generic_eq p0_ "b")) then returnm (BYTE : word_width) - else if ((generic_eq p0_ "h")) then returnm (HALF : word_width) - else if ((generic_eq p0_ "w")) then returnm (WORD : word_width) - else if ((generic_eq p0_ "d")) then returnm (DOUBLE : word_width) + (if generic_eq p0_ "b" then returnm BYTE + else if generic_eq p0_ "h" then returnm HALF + else if generic_eq p0_ "w" then returnm WORD + else if generic_eq p0_ "d" then returnm DOUBLE else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (word_width). -Definition size_mnemonic_forwards_matches (arg_ : word_width) -: bool := - +Definition size_mnemonic_forwards_matches (arg_ : word_width) : bool := match arg_ with | BYTE => true | HALF => true | WORD => true | DOUBLE => true end. -Definition size_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition size_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "b")) then true - else if ((generic_eq p0_ "h")) then true - else if ((generic_eq p0_ "w")) then true - else if ((generic_eq p0_ "d")) then true + if generic_eq p0_ "b" then true + else if generic_eq p0_ "h" then true + else if generic_eq p0_ "w" then true + else if generic_eq p0_ "d" then true else false. -Definition _s36_ (_s37_ : string) -: option string := - +Definition _s36_ (_s37_ : string) : option string := let _s38_ := _s37_ in - if ((string_startswith _s38_ "d")) then - match (string_drop _s38_ (projT1 (string_length "d"))) with | s_ => Some (s_) end + if string_startswith _s38_ "d" then + match (string_drop _s38_ (projT1 (string_length "d"))) with | s_ => Some s_ end else None. -Definition _s32_ (_s33_ : string) -: option string := - +Definition _s32_ (_s33_ : string) : option string := let _s34_ := _s33_ in - if ((string_startswith _s34_ "w")) then - match (string_drop _s34_ (projT1 (string_length "w"))) with | s_ => Some (s_) end + if string_startswith _s34_ "w" then + match (string_drop _s34_ (projT1 (string_length "w"))) with | s_ => Some s_ end else None. -Definition _s28_ (_s29_ : string) -: option string := - +Definition _s28_ (_s29_ : string) : option string := let _s30_ := _s29_ in - if ((string_startswith _s30_ "h")) then - match (string_drop _s30_ (projT1 (string_length "h"))) with | s_ => Some (s_) end + if string_startswith _s30_ "h" then + match (string_drop _s30_ (projT1 (string_length "h"))) with | s_ => Some s_ end else None. -Definition _s24_ (_s25_ : string) -: option string := - +Definition _s24_ (_s25_ : string) : option string := let _s26_ := _s25_ in - if ((string_startswith _s26_ "b")) then - match (string_drop _s26_ (projT1 (string_length "b"))) with | s_ => Some (s_) end + if string_startswith _s26_ "b" then + match (string_drop _s26_ (projT1 (string_length "b"))) with | s_ => Some s_ end else None. -Definition size_mnemonic_matches_prefix (arg_ : string) -: M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) := - +Definition size_mnemonic_matches_prefix (arg_ : string) +: M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) := let _s27_ := arg_ in - (if ((match (_s24_ _s27_) with | Some (s_) => true | _ => false end)) then + (if match (_s24_ _s27_) with | Some s_ => true | _ => false end then (match (_s24_ _s27_) with - | Some (s_) => - returnm ((Some - ((BYTE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (BYTE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s28_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s28_ _s27_) with | Some s_ => true | _ => false end then (match (_s28_ _s27_) with - | Some (s_) => - returnm ((Some - ((HALF, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (HALF, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s32_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s32_ _s27_) with | Some s_ => true | _ => false end then (match (_s32_ _s27_) with - | Some (s_) => - returnm ((Some - ((WORD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (WORD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s36_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s36_ _s27_) with | Some s_ => true | _ => false end then (match (_s36_ _s27_) with - | Some (s_) => - returnm ((Some - ((DOUBLE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((word_width * {n : Z & ArithFact (n >= 0)})))) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))). - -Definition word_width_bytes (width : word_width) -: {s : Z & ArithFact (s = 1 \/ s = 2 \/ s = 4 \/ s = 8)} := - - build_ex(match width with | BYTE => 1 | HALF => 2 | WORD => 4 | DOUBLE => 8 end). + | Some s_ => + returnm (Some + (DOUBLE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))). + +Definition word_width_bytes (width : word_width) +: {s : Z & ArithFact ((s =? 1) || ((s =? 2) || ((s =? 4) || (s =? 8))))} := + build_ex (match width with | BYTE => 1 | HALF => 2 | WORD => 4 | DOUBLE => 8 end). + +Definition Data : ext_access_type := tt. +Hint Unfold Data : sail. +Definition default_write_acc : ext_access_type := Data. +Hint Unfold default_write_acc : sail. +Definition accessType_to_str (a : AccessType unit) : string := + match a with + | Read Data => "R" + | Write Data => "W" + | ReadWrite Data => "RW" + | Execute tt => "X" + end. -Definition zero_reg : regtype := EXTZ 32 (vec_of_bits [B0;B0;B0;B0] : mword 4). +Definition zero_reg : regtype := EXTZ 32 (Ox"0" : mword 4). Hint Unfold zero_reg : sail. -Definition RegStr (r : mword 32) : string := string_of_bits r. - -Definition regval_from_reg (r : mword 32) : mword 32 := r. +Definition RegStr (r : mword 32) : string := string_of_bits r. + +Definition regval_from_reg (r : mword 32) : mword 32 := r. + +Definition regval_into_reg (v : mword 32) : mword 32 := v. + +Definition zero_freg : fregtype := EXTZ 32 (Ox"0" : mword 4). +Hint Unfold zero_freg : sail. +Definition FRegStr (r : mword 32) : string := string_of_bits r. + +Definition fregval_from_freg (r : mword 32) : mword 32 := r. + +Definition fregval_into_freg (v : mword 32) : mword 32 := v. + +Definition rounding_mode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} +: rounding_mode := + let l__202 := arg_ in + if sumbool_of_bool (Z.eqb l__202 0) then RM_RNE + else if sumbool_of_bool (Z.eqb l__202 1) then RM_RTZ + else if sumbool_of_bool (Z.eqb l__202 2) then RM_RDN + else if sumbool_of_bool (Z.eqb l__202 3) then RM_RUP + else if sumbool_of_bool (Z.eqb l__202 4) then RM_RMM + else RM_DYN. + +Definition num_of_rounding_mode (arg_ : rounding_mode) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RM_RNE => 0 + | RM_RTZ => 1 + | RM_RDN => 2 + | RM_RUP => 3 + | RM_RMM => 4 + | RM_DYN => 5 + end + ). + +Definition f_madd_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : f_madd_op_S := + let l__199 := arg_ in + if sumbool_of_bool (Z.eqb l__199 0) then FMADD_S + else if sumbool_of_bool (Z.eqb l__199 1) then FMSUB_S + else if sumbool_of_bool (Z.eqb l__199 2) then FNMSUB_S + else FNMADD_S. + +Definition num_of_f_madd_op_S (arg_ : f_madd_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FMADD_S => 0 | FMSUB_S => 1 | FNMSUB_S => 2 | FNMADD_S => 3 end). + +Definition f_bin_rm_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} +: f_bin_rm_op_S := + let l__196 := arg_ in + if sumbool_of_bool (Z.eqb l__196 0) then FADD_S + else if sumbool_of_bool (Z.eqb l__196 1) then FSUB_S + else if sumbool_of_bool (Z.eqb l__196 2) then FMUL_S + else FDIV_S. + +Definition num_of_f_bin_rm_op_S (arg_ : f_bin_rm_op_S) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FADD_S => 0 | FSUB_S => 1 | FMUL_S => 2 | FDIV_S => 3 end). + +Definition f_un_rm_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : f_un_rm_op_S := + let l__188 := arg_ in + if sumbool_of_bool (Z.eqb l__188 0) then FSQRT_S + else if sumbool_of_bool (Z.eqb l__188 1) then FCVT_W_S + else if sumbool_of_bool (Z.eqb l__188 2) then FCVT_WU_S + else if sumbool_of_bool (Z.eqb l__188 3) then FCVT_S_W + else if sumbool_of_bool (Z.eqb l__188 4) then FCVT_S_WU + else if sumbool_of_bool (Z.eqb l__188 5) then FCVT_L_S + else if sumbool_of_bool (Z.eqb l__188 6) then FCVT_LU_S + else if sumbool_of_bool (Z.eqb l__188 7) then FCVT_S_L + else FCVT_S_LU. + +Definition num_of_f_un_rm_op_S (arg_ : f_un_rm_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | FSQRT_S => 0 + | FCVT_W_S => 1 + | FCVT_WU_S => 2 + | FCVT_S_W => 3 + | FCVT_S_WU => 4 + | FCVT_L_S => 5 + | FCVT_LU_S => 6 + | FCVT_S_L => 7 + | FCVT_S_LU => 8 + end + ). + +Definition f_un_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : f_un_op_S := + let l__186 := arg_ in + if sumbool_of_bool (Z.eqb l__186 0) then FCLASS_S + else if sumbool_of_bool (Z.eqb l__186 1) then FMV_X_W + else FMV_W_X. + +Definition num_of_f_un_op_S (arg_ : f_un_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | FCLASS_S => 0 | FMV_X_W => 1 | FMV_W_X => 2 end). + +Definition f_bin_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 7))} : f_bin_op_S := + let l__179 := arg_ in + if sumbool_of_bool (Z.eqb l__179 0) then FSGNJ_S + else if sumbool_of_bool (Z.eqb l__179 1) then FSGNJN_S + else if sumbool_of_bool (Z.eqb l__179 2) then FSGNJX_S + else if sumbool_of_bool (Z.eqb l__179 3) then FMIN_S + else if sumbool_of_bool (Z.eqb l__179 4) then FMAX_S + else if sumbool_of_bool (Z.eqb l__179 5) then FEQ_S + else if sumbool_of_bool (Z.eqb l__179 6) then FLT_S + else FLE_S. + +Definition num_of_f_bin_op_S (arg_ : f_bin_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 7))} := + build_ex ( + match arg_ with + | FSGNJ_S => 0 + | FSGNJN_S => 1 + | FSGNJX_S => 2 + | FMIN_S => 3 + | FMAX_S => 4 + | FEQ_S => 5 + | FLT_S => 6 + | FLE_S => 7 + end + ). + +Definition f_madd_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : f_madd_op_D := + let l__176 := arg_ in + if sumbool_of_bool (Z.eqb l__176 0) then FMADD_D + else if sumbool_of_bool (Z.eqb l__176 1) then FMSUB_D + else if sumbool_of_bool (Z.eqb l__176 2) then FNMSUB_D + else FNMADD_D. -Definition regval_into_reg (v : mword 32) : mword 32 := v. +Definition num_of_f_madd_op_D (arg_ : f_madd_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FMADD_D => 0 | FMSUB_D => 1 | FNMSUB_D => 2 | FNMADD_D => 3 end). -Definition rX (r : Z) `{ArithFact (0 <= r /\ r < 32)} -: M (mword 32) := - - let l__62 := r in - (if sumbool_of_bool ((Z.eqb l__62 0)) then returnm (zero_reg : mword 32) - else if sumbool_of_bool ((Z.eqb l__62 1)) then +Definition f_bin_rm_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} +: f_bin_rm_op_D := + let l__173 := arg_ in + if sumbool_of_bool (Z.eqb l__173 0) then FADD_D + else if sumbool_of_bool (Z.eqb l__173 1) then FSUB_D + else if sumbool_of_bool (Z.eqb l__173 2) then FMUL_D + else FDIV_D. + +Definition num_of_f_bin_rm_op_D (arg_ : f_bin_rm_op_D) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FADD_D => 0 | FSUB_D => 1 | FMUL_D => 2 | FDIV_D => 3 end). + +Definition f_un_rm_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} +: f_un_rm_op_D := + let l__163 := arg_ in + if sumbool_of_bool (Z.eqb l__163 0) then FSQRT_D + else if sumbool_of_bool (Z.eqb l__163 1) then FCVT_W_D + else if sumbool_of_bool (Z.eqb l__163 2) then FCVT_WU_D + else if sumbool_of_bool (Z.eqb l__163 3) then FCVT_D_W + else if sumbool_of_bool (Z.eqb l__163 4) then FCVT_D_WU + else if sumbool_of_bool (Z.eqb l__163 5) then FCVT_S_D + else if sumbool_of_bool (Z.eqb l__163 6) then FCVT_D_S + else if sumbool_of_bool (Z.eqb l__163 7) then FCVT_L_D + else if sumbool_of_bool (Z.eqb l__163 8) then FCVT_LU_D + else if sumbool_of_bool (Z.eqb l__163 9) then FCVT_D_L + else FCVT_D_LU. + +Definition num_of_f_un_rm_op_D (arg_ : f_un_rm_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | FSQRT_D => 0 + | FCVT_W_D => 1 + | FCVT_WU_D => 2 + | FCVT_D_W => 3 + | FCVT_D_WU => 4 + | FCVT_S_D => 5 + | FCVT_D_S => 6 + | FCVT_L_D => 7 + | FCVT_LU_D => 8 + | FCVT_D_L => 9 + | FCVT_D_LU => 10 + end + ). + +Definition f_bin_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 7))} : f_bin_op_D := + let l__156 := arg_ in + if sumbool_of_bool (Z.eqb l__156 0) then FSGNJ_D + else if sumbool_of_bool (Z.eqb l__156 1) then FSGNJN_D + else if sumbool_of_bool (Z.eqb l__156 2) then FSGNJX_D + else if sumbool_of_bool (Z.eqb l__156 3) then FMIN_D + else if sumbool_of_bool (Z.eqb l__156 4) then FMAX_D + else if sumbool_of_bool (Z.eqb l__156 5) then FEQ_D + else if sumbool_of_bool (Z.eqb l__156 6) then FLT_D + else FLE_D. + +Definition num_of_f_bin_op_D (arg_ : f_bin_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 7))} := + build_ex ( + match arg_ with + | FSGNJ_D => 0 + | FSGNJN_D => 1 + | FSGNJX_D => 2 + | FMIN_D => 3 + | FMAX_D => 4 + | FEQ_D => 5 + | FLT_D => 6 + | FLE_D => 7 + end + ). + +Definition f_un_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : f_un_op_D := + let l__154 := arg_ in + if sumbool_of_bool (Z.eqb l__154 0) then FCLASS_D + else if sumbool_of_bool (Z.eqb l__154 1) then FMV_X_D + else FMV_D_X. + +Definition num_of_f_un_op_D (arg_ : f_un_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | FCLASS_D => 0 | FMV_X_D => 1 | FMV_D_X => 2 end). + +Definition rX (r : Z) `{ArithFact ((0 <=? r) && (r <? 32))} : M (mword 32) := + let l__122 := r in + (if sumbool_of_bool (Z.eqb l__122 0) then returnm zero_reg + else if sumbool_of_bool (Z.eqb l__122 1) then ((read_reg x1_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 2)) then + else if sumbool_of_bool (Z.eqb l__122 2) then ((read_reg x2_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 3)) then + else if sumbool_of_bool (Z.eqb l__122 3) then ((read_reg x3_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 4)) then + else if sumbool_of_bool (Z.eqb l__122 4) then ((read_reg x4_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 5)) then + else if sumbool_of_bool (Z.eqb l__122 5) then ((read_reg x5_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 6)) then + else if sumbool_of_bool (Z.eqb l__122 6) then ((read_reg x6_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 7)) then + else if sumbool_of_bool (Z.eqb l__122 7) then ((read_reg x7_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 8)) then + else if sumbool_of_bool (Z.eqb l__122 8) then ((read_reg x8_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 9)) then + else if sumbool_of_bool (Z.eqb l__122 9) then ((read_reg x9_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 10)) then + else if sumbool_of_bool (Z.eqb l__122 10) then ((read_reg x10_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 11)) then + else if sumbool_of_bool (Z.eqb l__122 11) then ((read_reg x11_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 12)) then + else if sumbool_of_bool (Z.eqb l__122 12) then ((read_reg x12_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 13)) then + else if sumbool_of_bool (Z.eqb l__122 13) then ((read_reg x13_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 14)) then + else if sumbool_of_bool (Z.eqb l__122 14) then ((read_reg x14_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 15)) then + else if sumbool_of_bool (Z.eqb l__122 15) then ((read_reg x15_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 16)) then + else if sumbool_of_bool (Z.eqb l__122 16) then ((read_reg x16_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 17)) then + else if sumbool_of_bool (Z.eqb l__122 17) then ((read_reg x17_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 18)) then + else if sumbool_of_bool (Z.eqb l__122 18) then ((read_reg x18_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 19)) then + else if sumbool_of_bool (Z.eqb l__122 19) then ((read_reg x19_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 20)) then + else if sumbool_of_bool (Z.eqb l__122 20) then ((read_reg x20_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 21)) then + else if sumbool_of_bool (Z.eqb l__122 21) then ((read_reg x21_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 22)) then + else if sumbool_of_bool (Z.eqb l__122 22) then ((read_reg x22_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 23)) then + else if sumbool_of_bool (Z.eqb l__122 23) then ((read_reg x23_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 24)) then + else if sumbool_of_bool (Z.eqb l__122 24) then ((read_reg x24_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 25)) then + else if sumbool_of_bool (Z.eqb l__122 25) then ((read_reg x25_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 26)) then + else if sumbool_of_bool (Z.eqb l__122 26) then ((read_reg x26_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 27)) then + else if sumbool_of_bool (Z.eqb l__122 27) then ((read_reg x27_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 28)) then + else if sumbool_of_bool (Z.eqb l__122 28) then ((read_reg x28_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 29)) then + else if sumbool_of_bool (Z.eqb l__122 29) then ((read_reg x29_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 30)) then + else if sumbool_of_bool (Z.eqb l__122 30) then ((read_reg x30_ref) : M (mword 32)) : M (mword 32) - else if sumbool_of_bool ((Z.eqb l__62 31)) then + else if sumbool_of_bool (Z.eqb l__122 31) then ((read_reg x31_ref) : M (mword 32)) : M (mword 32) else assert_exp' false "invalid register number" >>= fun _ => exit tt) >>= fun v : regtype => - returnm ((regval_from_reg v) - : mword 32). + returnm (regval_from_reg v). -Definition rvfi_wX (r : Z) (v : mword 32) `{ArithFact (0 <= r /\ r < 32)} : unit := tt. +Definition rvfi_wX (r : Z) (v : mword 32) `{ArithFact ((0 <=? r) && (r <? 32))} : unit := tt. -Definition wX (r : Z) (in_v : mword 32) `{ArithFact (0 <= r /\ r < 32)} -: M (unit) := - +Definition wX (r : Z) (in_v : mword 32) `{ArithFact ((0 <=? r) && (r <? 32))} : M (unit) := let v := regval_into_reg in_v in - let l__30 := r in - (if sumbool_of_bool ((Z.eqb l__30 0)) then returnm (tt : unit) - else if sumbool_of_bool ((Z.eqb l__30 1)) then write_reg x1_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 2)) then write_reg x2_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 3)) then write_reg x3_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 4)) then write_reg x4_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 5)) then write_reg x5_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 6)) then write_reg x6_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 7)) then write_reg x7_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 8)) then write_reg x8_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 9)) then write_reg x9_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 10)) then write_reg x10_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 11)) then write_reg x11_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 12)) then write_reg x12_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 13)) then write_reg x13_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 14)) then write_reg x14_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 15)) then write_reg x15_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 16)) then write_reg x16_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 17)) then write_reg x17_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 18)) then write_reg x18_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 19)) then write_reg x19_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 20)) then write_reg x20_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 21)) then write_reg x21_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 22)) then write_reg x22_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 23)) then write_reg x23_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 24)) then write_reg x24_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 25)) then write_reg x25_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 26)) then write_reg x26_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 27)) then write_reg x27_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 28)) then write_reg x28_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 29)) then write_reg x29_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 30)) then write_reg x30_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__30 31)) then write_reg x31_ref v : M (unit) + let l__90 := r in + (if sumbool_of_bool (Z.eqb l__90 0) then returnm tt + else if sumbool_of_bool (Z.eqb l__90 1) then write_reg x1_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 2) then write_reg x2_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 3) then write_reg x3_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 4) then write_reg x4_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 5) then write_reg x5_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 6) then write_reg x6_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 7) then write_reg x7_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 8) then write_reg x8_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 9) then write_reg x9_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 10) then write_reg x10_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 11) then write_reg x11_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 12) then write_reg x12_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 13) then write_reg x13_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 14) then write_reg x14_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 15) then write_reg x15_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 16) then write_reg x16_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 17) then write_reg x17_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 18) then write_reg x18_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 19) then write_reg x19_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 20) then write_reg x20_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 21) then write_reg x21_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 22) then write_reg x22_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 23) then write_reg x23_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 24) then write_reg x24_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 25) then write_reg x25_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 26) then write_reg x26_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 27) then write_reg x27_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 28) then write_reg x28_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 29) then write_reg x29_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 30) then write_reg x30_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__90 31) then write_reg x31_ref v : M (unit) else assert_exp' false "invalid register number" >>= fun _ => exit tt) >> - returnm ((if sumbool_of_bool ((projT1 (neq_int r 0))) then - let '_ := (rvfi_wX r in_v) : unit in - if ((get_config_print_reg tt)) then - print_endline - (String.append "x" - (String.append (string_of_int r) (String.append " <- " (RegStr v)))) - else tt - else tt) - : unit). + returnm (if sumbool_of_bool (projT1 (neq_int r 0)) then + let '_ := (rvfi_wX r in_v) : unit in + if get_config_print_reg tt then + print_endline + (String.append "x" + (String.append (string_of_int r) (String.append " <- " (RegStr v)))) + else tt + else tt). + +Definition rX_bits (i : mword 5) : M (mword 32) := (rX (projT1 (uint i))) : M (mword 32). -Definition reg_name_abi (r : mword 5) -: M (string) := - +Definition wX_bits (i : mword 5) (data : mword 32) : M (unit) := + (wX (projT1 (uint i)) data) : M (unit). + +Definition reg_name_abi (r : mword 5) : M (string) := let b__0 := r in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm ("zero" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm ("ra" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then returnm ("sp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then returnm ("gp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm ("tp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then returnm ("t0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then returnm ("t1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then returnm ("t2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm ("fp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then returnm ("a5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm ("a6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then returnm ("a7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then returnm ("s2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then returnm ("s3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm ("s4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then returnm ("s5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then returnm ("s6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then returnm ("s7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then returnm ("s8" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then returnm ("s9" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then returnm ("s10" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then returnm ("s11" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then returnm ("t3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then returnm ("t4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then returnm ("t5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then returnm ("t6" : string) + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "zero" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ra" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "sp" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "gp" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "tp" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "t0" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "t1" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "t2" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fp" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "s1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "a0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "a1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "a2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "a3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "a4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "a5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "a6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "a7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "s2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "s3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "s4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "s5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "s6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "s7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "s8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "s9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "s10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "s11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "t3" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "t4" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "t5" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "t6" else - assert_exp' false "Pattern match failure at model/riscv_regs.sail 149:2 - 182:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_regs.sail 155:2 - 188:3" >>= fun _ => exit tt) : M (string). -Definition reg_name_forwards (arg_ : mword 5) -: M (string) := - +Definition reg_name_forwards (arg_ : mword 5) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm ("zero" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm ("ra" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then returnm ("sp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then returnm ("gp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm ("tp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then returnm ("t0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then returnm ("t1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then returnm ("t2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm ("fp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then returnm ("a5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm ("a6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then returnm ("a7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then returnm ("s2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then returnm ("s3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm ("s4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then returnm ("s5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then returnm ("s6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then returnm ("s7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then returnm ("s8" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then returnm ("s9" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then returnm ("s10" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then returnm ("s11" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then returnm ("t3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then returnm ("t4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then returnm ("t5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then returnm ("t6" : string) + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "zero" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ra" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "sp" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "gp" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "tp" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "t0" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "t1" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "t2" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fp" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "s1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "a0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "a1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "a2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "a3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "a4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "a5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "a6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "a7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "s2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "s3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "s4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "s5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "s6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "s7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "s8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "s9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "s10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "s11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "t3" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "t4" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "t5" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "t6" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition reg_name_backwards (arg_ : string) -: M (mword 5) := - +Definition reg_name_backwards (arg_ : string) : M (mword 5) := let p0_ := arg_ in - (if ((generic_eq p0_ "zero")) then returnm ((vec_of_bits [B0;B0;B0;B0;B0] : mword 5) : mword 5) - else if ((generic_eq p0_ "ra")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "sp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "gp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "tp")) then - returnm ((vec_of_bits [B0;B0;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t0")) then - returnm ((vec_of_bits [B0;B0;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "fp")) then - returnm ((vec_of_bits [B0;B1;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s1")) then - returnm ((vec_of_bits [B0;B1;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a0")) then - returnm ((vec_of_bits [B0;B1;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a1")) then - returnm ((vec_of_bits [B0;B1;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a2")) then - returnm ((vec_of_bits [B0;B1;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a3")) then - returnm ((vec_of_bits [B0;B1;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a4")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a5")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a6")) then - returnm ((vec_of_bits [B1;B0;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a7")) then - returnm ((vec_of_bits [B1;B0;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s2")) then - returnm ((vec_of_bits [B1;B0;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s3")) then - returnm ((vec_of_bits [B1;B0;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s4")) then - returnm ((vec_of_bits [B1;B0;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s5")) then - returnm ((vec_of_bits [B1;B0;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s6")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s7")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s8")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s9")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s10")) then - returnm ((vec_of_bits [B1;B1;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s11")) then - returnm ((vec_of_bits [B1;B1;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t3")) then - returnm ((vec_of_bits [B1;B1;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t4")) then - returnm ((vec_of_bits [B1;B1;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t5")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t6")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B1] : mword 5) - : mword 5) + (if generic_eq p0_ "zero" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ra" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "sp" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "gp" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "tp" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "t0" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "t1" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "t2" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fp" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "s1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "a0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "a1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "a2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "a3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "a4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "a5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "a6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "a7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "s2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "s3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "s4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "s5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "s6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "s7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "s8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "s9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "s10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "s11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "t3" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "t4" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "t5" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "t6" then returnm ('b"11111" : mword 5) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 5). -Definition reg_name_forwards_matches (arg_ : mword 5) -: bool := - +Definition reg_name_forwards_matches (arg_ : mword 5) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then true + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true else false. -Definition reg_name_backwards_matches (arg_ : string) -: bool := - +Definition reg_name_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "zero")) then true - else if ((generic_eq p0_ "ra")) then true - else if ((generic_eq p0_ "sp")) then true - else if ((generic_eq p0_ "gp")) then true - else if ((generic_eq p0_ "tp")) then true - else if ((generic_eq p0_ "t0")) then true - else if ((generic_eq p0_ "t1")) then true - else if ((generic_eq p0_ "t2")) then true - else if ((generic_eq p0_ "fp")) then true - else if ((generic_eq p0_ "s1")) then true - else if ((generic_eq p0_ "a0")) then true - else if ((generic_eq p0_ "a1")) then true - else if ((generic_eq p0_ "a2")) then true - else if ((generic_eq p0_ "a3")) then true - else if ((generic_eq p0_ "a4")) then true - else if ((generic_eq p0_ "a5")) then true - else if ((generic_eq p0_ "a6")) then true - else if ((generic_eq p0_ "a7")) then true - else if ((generic_eq p0_ "s2")) then true - else if ((generic_eq p0_ "s3")) then true - else if ((generic_eq p0_ "s4")) then true - else if ((generic_eq p0_ "s5")) then true - else if ((generic_eq p0_ "s6")) then true - else if ((generic_eq p0_ "s7")) then true - else if ((generic_eq p0_ "s8")) then true - else if ((generic_eq p0_ "s9")) then true - else if ((generic_eq p0_ "s10")) then true - else if ((generic_eq p0_ "s11")) then true - else if ((generic_eq p0_ "t3")) then true - else if ((generic_eq p0_ "t4")) then true - else if ((generic_eq p0_ "t5")) then true - else if ((generic_eq p0_ "t6")) then true + if generic_eq p0_ "zero" then true + else if generic_eq p0_ "ra" then true + else if generic_eq p0_ "sp" then true + else if generic_eq p0_ "gp" then true + else if generic_eq p0_ "tp" then true + else if generic_eq p0_ "t0" then true + else if generic_eq p0_ "t1" then true + else if generic_eq p0_ "t2" then true + else if generic_eq p0_ "fp" then true + else if generic_eq p0_ "s1" then true + else if generic_eq p0_ "a0" then true + else if generic_eq p0_ "a1" then true + else if generic_eq p0_ "a2" then true + else if generic_eq p0_ "a3" then true + else if generic_eq p0_ "a4" then true + else if generic_eq p0_ "a5" then true + else if generic_eq p0_ "a6" then true + else if generic_eq p0_ "a7" then true + else if generic_eq p0_ "s2" then true + else if generic_eq p0_ "s3" then true + else if generic_eq p0_ "s4" then true + else if generic_eq p0_ "s5" then true + else if generic_eq p0_ "s6" then true + else if generic_eq p0_ "s7" then true + else if generic_eq p0_ "s8" then true + else if generic_eq p0_ "s9" then true + else if generic_eq p0_ "s10" then true + else if generic_eq p0_ "s11" then true + else if generic_eq p0_ "t3" then true + else if generic_eq p0_ "t4" then true + else if generic_eq p0_ "t5" then true + else if generic_eq p0_ "t6" then true else false. -Definition _s164_ (_s165_ : string) -: option string := - +Definition _s164_ (_s165_ : string) : option string := let _s166_ := _s165_ in - if ((string_startswith _s166_ "t6")) then - match (string_drop _s166_ (projT1 (string_length "t6"))) with | s_ => Some (s_) end + if string_startswith _s166_ "t6" then + match (string_drop _s166_ (projT1 (string_length "t6"))) with | s_ => Some s_ end else None. -Definition _s160_ (_s161_ : string) -: option string := - +Definition _s160_ (_s161_ : string) : option string := let _s162_ := _s161_ in - if ((string_startswith _s162_ "t5")) then - match (string_drop _s162_ (projT1 (string_length "t5"))) with | s_ => Some (s_) end + if string_startswith _s162_ "t5" then + match (string_drop _s162_ (projT1 (string_length "t5"))) with | s_ => Some s_ end else None. -Definition _s156_ (_s157_ : string) -: option string := - +Definition _s156_ (_s157_ : string) : option string := let _s158_ := _s157_ in - if ((string_startswith _s158_ "t4")) then - match (string_drop _s158_ (projT1 (string_length "t4"))) with | s_ => Some (s_) end + if string_startswith _s158_ "t4" then + match (string_drop _s158_ (projT1 (string_length "t4"))) with | s_ => Some s_ end else None. -Definition _s152_ (_s153_ : string) -: option string := - +Definition _s152_ (_s153_ : string) : option string := let _s154_ := _s153_ in - if ((string_startswith _s154_ "t3")) then - match (string_drop _s154_ (projT1 (string_length "t3"))) with | s_ => Some (s_) end + if string_startswith _s154_ "t3" then + match (string_drop _s154_ (projT1 (string_length "t3"))) with | s_ => Some s_ end else None. -Definition _s148_ (_s149_ : string) -: option string := - +Definition _s148_ (_s149_ : string) : option string := let _s150_ := _s149_ in - if ((string_startswith _s150_ "s11")) then - match (string_drop _s150_ (projT1 (string_length "s11"))) with | s_ => Some (s_) end + if string_startswith _s150_ "s11" then + match (string_drop _s150_ (projT1 (string_length "s11"))) with | s_ => Some s_ end else None. -Definition _s144_ (_s145_ : string) -: option string := - +Definition _s144_ (_s145_ : string) : option string := let _s146_ := _s145_ in - if ((string_startswith _s146_ "s10")) then - match (string_drop _s146_ (projT1 (string_length "s10"))) with | s_ => Some (s_) end + if string_startswith _s146_ "s10" then + match (string_drop _s146_ (projT1 (string_length "s10"))) with | s_ => Some s_ end else None. -Definition _s140_ (_s141_ : string) -: option string := - +Definition _s140_ (_s141_ : string) : option string := let _s142_ := _s141_ in - if ((string_startswith _s142_ "s9")) then - match (string_drop _s142_ (projT1 (string_length "s9"))) with | s_ => Some (s_) end + if string_startswith _s142_ "s9" then + match (string_drop _s142_ (projT1 (string_length "s9"))) with | s_ => Some s_ end else None. -Definition _s136_ (_s137_ : string) -: option string := - +Definition _s136_ (_s137_ : string) : option string := let _s138_ := _s137_ in - if ((string_startswith _s138_ "s8")) then - match (string_drop _s138_ (projT1 (string_length "s8"))) with | s_ => Some (s_) end + if string_startswith _s138_ "s8" then + match (string_drop _s138_ (projT1 (string_length "s8"))) with | s_ => Some s_ end else None. -Definition _s132_ (_s133_ : string) -: option string := - +Definition _s132_ (_s133_ : string) : option string := let _s134_ := _s133_ in - if ((string_startswith _s134_ "s7")) then - match (string_drop _s134_ (projT1 (string_length "s7"))) with | s_ => Some (s_) end + if string_startswith _s134_ "s7" then + match (string_drop _s134_ (projT1 (string_length "s7"))) with | s_ => Some s_ end else None. -Definition _s128_ (_s129_ : string) -: option string := - +Definition _s128_ (_s129_ : string) : option string := let _s130_ := _s129_ in - if ((string_startswith _s130_ "s6")) then - match (string_drop _s130_ (projT1 (string_length "s6"))) with | s_ => Some (s_) end + if string_startswith _s130_ "s6" then + match (string_drop _s130_ (projT1 (string_length "s6"))) with | s_ => Some s_ end else None. -Definition _s124_ (_s125_ : string) -: option string := - +Definition _s124_ (_s125_ : string) : option string := let _s126_ := _s125_ in - if ((string_startswith _s126_ "s5")) then - match (string_drop _s126_ (projT1 (string_length "s5"))) with | s_ => Some (s_) end + if string_startswith _s126_ "s5" then + match (string_drop _s126_ (projT1 (string_length "s5"))) with | s_ => Some s_ end else None. -Definition _s120_ (_s121_ : string) -: option string := - +Definition _s120_ (_s121_ : string) : option string := let _s122_ := _s121_ in - if ((string_startswith _s122_ "s4")) then - match (string_drop _s122_ (projT1 (string_length "s4"))) with | s_ => Some (s_) end + if string_startswith _s122_ "s4" then + match (string_drop _s122_ (projT1 (string_length "s4"))) with | s_ => Some s_ end else None. -Definition _s116_ (_s117_ : string) -: option string := - +Definition _s116_ (_s117_ : string) : option string := let _s118_ := _s117_ in - if ((string_startswith _s118_ "s3")) then - match (string_drop _s118_ (projT1 (string_length "s3"))) with | s_ => Some (s_) end + if string_startswith _s118_ "s3" then + match (string_drop _s118_ (projT1 (string_length "s3"))) with | s_ => Some s_ end else None. -Definition _s112_ (_s113_ : string) -: option string := - +Definition _s112_ (_s113_ : string) : option string := let _s114_ := _s113_ in - if ((string_startswith _s114_ "s2")) then - match (string_drop _s114_ (projT1 (string_length "s2"))) with | s_ => Some (s_) end + if string_startswith _s114_ "s2" then + match (string_drop _s114_ (projT1 (string_length "s2"))) with | s_ => Some s_ end else None. -Definition _s108_ (_s109_ : string) -: option string := - +Definition _s108_ (_s109_ : string) : option string := let _s110_ := _s109_ in - if ((string_startswith _s110_ "a7")) then - match (string_drop _s110_ (projT1 (string_length "a7"))) with | s_ => Some (s_) end + if string_startswith _s110_ "a7" then + match (string_drop _s110_ (projT1 (string_length "a7"))) with | s_ => Some s_ end else None. -Definition _s104_ (_s105_ : string) -: option string := - +Definition _s104_ (_s105_ : string) : option string := let _s106_ := _s105_ in - if ((string_startswith _s106_ "a6")) then - match (string_drop _s106_ (projT1 (string_length "a6"))) with | s_ => Some (s_) end + if string_startswith _s106_ "a6" then + match (string_drop _s106_ (projT1 (string_length "a6"))) with | s_ => Some s_ end else None. -Definition _s100_ (_s101_ : string) -: option string := - +Definition _s100_ (_s101_ : string) : option string := let _s102_ := _s101_ in - if ((string_startswith _s102_ "a5")) then - match (string_drop _s102_ (projT1 (string_length "a5"))) with | s_ => Some (s_) end + if string_startswith _s102_ "a5" then + match (string_drop _s102_ (projT1 (string_length "a5"))) with | s_ => Some s_ end else None. -Definition _s96_ (_s97_ : string) -: option string := - +Definition _s96_ (_s97_ : string) : option string := let _s98_ := _s97_ in - if ((string_startswith _s98_ "a4")) then - match (string_drop _s98_ (projT1 (string_length "a4"))) with | s_ => Some (s_) end + if string_startswith _s98_ "a4" then + match (string_drop _s98_ (projT1 (string_length "a4"))) with | s_ => Some s_ end else None. -Definition _s92_ (_s93_ : string) -: option string := - +Definition _s92_ (_s93_ : string) : option string := let _s94_ := _s93_ in - if ((string_startswith _s94_ "a3")) then - match (string_drop _s94_ (projT1 (string_length "a3"))) with | s_ => Some (s_) end + if string_startswith _s94_ "a3" then + match (string_drop _s94_ (projT1 (string_length "a3"))) with | s_ => Some s_ end else None. -Definition _s88_ (_s89_ : string) -: option string := - +Definition _s88_ (_s89_ : string) : option string := let _s90_ := _s89_ in - if ((string_startswith _s90_ "a2")) then - match (string_drop _s90_ (projT1 (string_length "a2"))) with | s_ => Some (s_) end + if string_startswith _s90_ "a2" then + match (string_drop _s90_ (projT1 (string_length "a2"))) with | s_ => Some s_ end else None. -Definition _s84_ (_s85_ : string) -: option string := - +Definition _s84_ (_s85_ : string) : option string := let _s86_ := _s85_ in - if ((string_startswith _s86_ "a1")) then - match (string_drop _s86_ (projT1 (string_length "a1"))) with | s_ => Some (s_) end + if string_startswith _s86_ "a1" then + match (string_drop _s86_ (projT1 (string_length "a1"))) with | s_ => Some s_ end else None. -Definition _s80_ (_s81_ : string) -: option string := - +Definition _s80_ (_s81_ : string) : option string := let _s82_ := _s81_ in - if ((string_startswith _s82_ "a0")) then - match (string_drop _s82_ (projT1 (string_length "a0"))) with | s_ => Some (s_) end + if string_startswith _s82_ "a0" then + match (string_drop _s82_ (projT1 (string_length "a0"))) with | s_ => Some s_ end else None. -Definition _s76_ (_s77_ : string) -: option string := - +Definition _s76_ (_s77_ : string) : option string := let _s78_ := _s77_ in - if ((string_startswith _s78_ "s1")) then - match (string_drop _s78_ (projT1 (string_length "s1"))) with | s_ => Some (s_) end + if string_startswith _s78_ "s1" then + match (string_drop _s78_ (projT1 (string_length "s1"))) with | s_ => Some s_ end else None. -Definition _s72_ (_s73_ : string) -: option string := - +Definition _s72_ (_s73_ : string) : option string := let _s74_ := _s73_ in - if ((string_startswith _s74_ "fp")) then - match (string_drop _s74_ (projT1 (string_length "fp"))) with | s_ => Some (s_) end + if string_startswith _s74_ "fp" then + match (string_drop _s74_ (projT1 (string_length "fp"))) with | s_ => Some s_ end else None. -Definition _s68_ (_s69_ : string) -: option string := - +Definition _s68_ (_s69_ : string) : option string := let _s70_ := _s69_ in - if ((string_startswith _s70_ "t2")) then - match (string_drop _s70_ (projT1 (string_length "t2"))) with | s_ => Some (s_) end + if string_startswith _s70_ "t2" then + match (string_drop _s70_ (projT1 (string_length "t2"))) with | s_ => Some s_ end else None. -Definition _s64_ (_s65_ : string) -: option string := - +Definition _s64_ (_s65_ : string) : option string := let _s66_ := _s65_ in - if ((string_startswith _s66_ "t1")) then - match (string_drop _s66_ (projT1 (string_length "t1"))) with | s_ => Some (s_) end + if string_startswith _s66_ "t1" then + match (string_drop _s66_ (projT1 (string_length "t1"))) with | s_ => Some s_ end else None. -Definition _s60_ (_s61_ : string) -: option string := - +Definition _s60_ (_s61_ : string) : option string := let _s62_ := _s61_ in - if ((string_startswith _s62_ "t0")) then - match (string_drop _s62_ (projT1 (string_length "t0"))) with | s_ => Some (s_) end + if string_startswith _s62_ "t0" then + match (string_drop _s62_ (projT1 (string_length "t0"))) with | s_ => Some s_ end else None. -Definition _s56_ (_s57_ : string) -: option string := - +Definition _s56_ (_s57_ : string) : option string := let _s58_ := _s57_ in - if ((string_startswith _s58_ "tp")) then - match (string_drop _s58_ (projT1 (string_length "tp"))) with | s_ => Some (s_) end + if string_startswith _s58_ "tp" then + match (string_drop _s58_ (projT1 (string_length "tp"))) with | s_ => Some s_ end else None. -Definition _s52_ (_s53_ : string) -: option string := - +Definition _s52_ (_s53_ : string) : option string := let _s54_ := _s53_ in - if ((string_startswith _s54_ "gp")) then - match (string_drop _s54_ (projT1 (string_length "gp"))) with | s_ => Some (s_) end + if string_startswith _s54_ "gp" then + match (string_drop _s54_ (projT1 (string_length "gp"))) with | s_ => Some s_ end else None. -Definition _s48_ (_s49_ : string) -: option string := - +Definition _s48_ (_s49_ : string) : option string := let _s50_ := _s49_ in - if ((string_startswith _s50_ "sp")) then - match (string_drop _s50_ (projT1 (string_length "sp"))) with | s_ => Some (s_) end + if string_startswith _s50_ "sp" then + match (string_drop _s50_ (projT1 (string_length "sp"))) with | s_ => Some s_ end else None. -Definition _s44_ (_s45_ : string) -: option string := - +Definition _s44_ (_s45_ : string) : option string := let _s46_ := _s45_ in - if ((string_startswith _s46_ "ra")) then - match (string_drop _s46_ (projT1 (string_length "ra"))) with | s_ => Some (s_) end + if string_startswith _s46_ "ra" then + match (string_drop _s46_ (projT1 (string_length "ra"))) with | s_ => Some s_ end else None. -Definition _s40_ (_s41_ : string) -: option string := - +Definition _s40_ (_s41_ : string) : option string := let _s42_ := _s41_ in - if ((string_startswith _s42_ "zero")) then - match (string_drop _s42_ (projT1 (string_length "zero"))) with | s_ => Some (s_) end + if string_startswith _s42_ "zero" then + match (string_drop _s42_ (projT1 (string_length "zero"))) with | s_ => Some s_ end else None. -Definition reg_name_matches_prefix (arg_ : string) -: M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) := - +Definition reg_name_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := let _s43_ := arg_ in - (if ((match (_s40_ _s43_) with | Some (s_) => true | _ => false end)) then + (if match (_s40_ _s43_) with | Some s_ => true | _ => false end then (match (_s40_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s44_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s44_ _s43_) with | Some s_ => true | _ => false end then (match (_s44_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s48_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s48_ _s43_) with | Some s_ => true | _ => false end then (match (_s48_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s52_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s52_ _s43_) with | Some s_ => true | _ => false end then (match (_s52_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s56_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s56_ _s43_) with | Some s_ => true | _ => false end then (match (_s56_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s60_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s60_ _s43_) with | Some s_ => true | _ => false end then (match (_s60_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s64_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s64_ _s43_) with | Some s_ => true | _ => false end then (match (_s64_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s68_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s68_ _s43_) with | Some s_ => true | _ => false end then (match (_s68_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s72_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s72_ _s43_) with | Some s_ => true | _ => false end then (match (_s72_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s76_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s76_ _s43_) with | Some s_ => true | _ => false end then (match (_s76_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s80_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s80_ _s43_) with | Some s_ => true | _ => false end then (match (_s80_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s84_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s84_ _s43_) with | Some s_ => true | _ => false end then (match (_s84_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s88_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s88_ _s43_) with | Some s_ => true | _ => false end then (match (_s88_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s92_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s92_ _s43_) with | Some s_ => true | _ => false end then (match (_s92_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s96_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s96_ _s43_) with | Some s_ => true | _ => false end then (match (_s96_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s100_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s100_ _s43_) with | Some s_ => true | _ => false end then (match (_s100_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s104_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s104_ _s43_) with | Some s_ => true | _ => false end then (match (_s104_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s108_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s108_ _s43_) with | Some s_ => true | _ => false end then (match (_s108_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s112_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s112_ _s43_) with | Some s_ => true | _ => false end then (match (_s112_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s116_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s116_ _s43_) with | Some s_ => true | _ => false end then (match (_s116_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s120_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s120_ _s43_) with | Some s_ => true | _ => false end then (match (_s120_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s124_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s124_ _s43_) with | Some s_ => true | _ => false end then (match (_s124_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s128_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s128_ _s43_) with | Some s_ => true | _ => false end then (match (_s128_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s132_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s132_ _s43_) with | Some s_ => true | _ => false end then (match (_s132_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s136_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s136_ _s43_) with | Some s_ => true | _ => false end then (match (_s136_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s140_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s140_ _s43_) with | Some s_ => true | _ => false end then (match (_s140_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s144_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s144_ _s43_) with | Some s_ => true | _ => false end then (match (_s144_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s148_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s148_ _s43_) with | Some s_ => true | _ => false end then (match (_s148_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s152_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s152_ _s43_) with | Some s_ => true | _ => false end then (match (_s152_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s156_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s156_ _s43_) with | Some s_ => true | _ => false end then (match (_s156_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s160_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s160_ _s43_) with | Some s_ => true | _ => false end then (match (_s160_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s164_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s164_ _s43_) with | Some s_ => true | _ => false end then (match (_s164_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 5 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). -Definition creg_name_forwards (arg_ : mword 3) -: M (string) := - +Definition creg_name_forwards (arg_ : mword 3) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm ("s0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm ("a5" : string) + (if eq_vec b__0 ('b"000" : mword 3) then returnm "s0" + else if eq_vec b__0 ('b"001" : mword 3) then returnm "s1" + else if eq_vec b__0 ('b"010" : mword 3) then returnm "a0" + else if eq_vec b__0 ('b"011" : mword 3) then returnm "a1" + else if eq_vec b__0 ('b"100" : mword 3) then returnm "a2" + else if eq_vec b__0 ('b"101" : mword 3) then returnm "a3" + else if eq_vec b__0 ('b"110" : mword 3) then returnm "a4" + else if eq_vec b__0 ('b"111" : mword 3) then returnm "a5" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition creg_name_backwards (arg_ : string) -: M (mword 3) := - +Definition creg_name_backwards (arg_ : string) : M (mword 3) := let p0_ := arg_ in - (if ((generic_eq p0_ "s0")) then returnm ((vec_of_bits [B0;B0;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "s1")) then returnm ((vec_of_bits [B0;B0;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a0")) then returnm ((vec_of_bits [B0;B1;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a1")) then returnm ((vec_of_bits [B0;B1;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a2")) then returnm ((vec_of_bits [B1;B0;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a3")) then returnm ((vec_of_bits [B1;B0;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a4")) then returnm ((vec_of_bits [B1;B1;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a5")) then returnm ((vec_of_bits [B1;B1;B1] : mword 3) : mword 3) + (if generic_eq p0_ "s0" then returnm ('b"000" : mword 3) + else if generic_eq p0_ "s1" then returnm ('b"001" : mword 3) + else if generic_eq p0_ "a0" then returnm ('b"010" : mword 3) + else if generic_eq p0_ "a1" then returnm ('b"011" : mword 3) + else if generic_eq p0_ "a2" then returnm ('b"100" : mword 3) + else if generic_eq p0_ "a3" then returnm ('b"101" : mword 3) + else if generic_eq p0_ "a4" then returnm ('b"110" : mword 3) + else if generic_eq p0_ "a5" then returnm ('b"111" : mword 3) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 3). -Definition creg_name_forwards_matches (arg_ : mword 3) -: bool := - +Definition creg_name_forwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true else false. -Definition creg_name_backwards_matches (arg_ : string) -: bool := - +Definition creg_name_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "s0")) then true - else if ((generic_eq p0_ "s1")) then true - else if ((generic_eq p0_ "a0")) then true - else if ((generic_eq p0_ "a1")) then true - else if ((generic_eq p0_ "a2")) then true - else if ((generic_eq p0_ "a3")) then true - else if ((generic_eq p0_ "a4")) then true - else if ((generic_eq p0_ "a5")) then true + if generic_eq p0_ "s0" then true + else if generic_eq p0_ "s1" then true + else if generic_eq p0_ "a0" then true + else if generic_eq p0_ "a1" then true + else if generic_eq p0_ "a2" then true + else if generic_eq p0_ "a3" then true + else if generic_eq p0_ "a4" then true + else if generic_eq p0_ "a5" then true else false. -Definition _s196_ (_s197_ : string) -: option string := - +Definition _s196_ (_s197_ : string) : option string := let _s198_ := _s197_ in - if ((string_startswith _s198_ "a5")) then - match (string_drop _s198_ (projT1 (string_length "a5"))) with | s_ => Some (s_) end + if string_startswith _s198_ "a5" then + match (string_drop _s198_ (projT1 (string_length "a5"))) with | s_ => Some s_ end else None. -Definition _s192_ (_s193_ : string) -: option string := - +Definition _s192_ (_s193_ : string) : option string := let _s194_ := _s193_ in - if ((string_startswith _s194_ "a4")) then - match (string_drop _s194_ (projT1 (string_length "a4"))) with | s_ => Some (s_) end + if string_startswith _s194_ "a4" then + match (string_drop _s194_ (projT1 (string_length "a4"))) with | s_ => Some s_ end else None. -Definition _s188_ (_s189_ : string) -: option string := - +Definition _s188_ (_s189_ : string) : option string := let _s190_ := _s189_ in - if ((string_startswith _s190_ "a3")) then - match (string_drop _s190_ (projT1 (string_length "a3"))) with | s_ => Some (s_) end + if string_startswith _s190_ "a3" then + match (string_drop _s190_ (projT1 (string_length "a3"))) with | s_ => Some s_ end else None. -Definition _s184_ (_s185_ : string) -: option string := - +Definition _s184_ (_s185_ : string) : option string := let _s186_ := _s185_ in - if ((string_startswith _s186_ "a2")) then - match (string_drop _s186_ (projT1 (string_length "a2"))) with | s_ => Some (s_) end + if string_startswith _s186_ "a2" then + match (string_drop _s186_ (projT1 (string_length "a2"))) with | s_ => Some s_ end else None. -Definition _s180_ (_s181_ : string) -: option string := - +Definition _s180_ (_s181_ : string) : option string := let _s182_ := _s181_ in - if ((string_startswith _s182_ "a1")) then - match (string_drop _s182_ (projT1 (string_length "a1"))) with | s_ => Some (s_) end + if string_startswith _s182_ "a1" then + match (string_drop _s182_ (projT1 (string_length "a1"))) with | s_ => Some s_ end else None. -Definition _s176_ (_s177_ : string) -: option string := - +Definition _s176_ (_s177_ : string) : option string := let _s178_ := _s177_ in - if ((string_startswith _s178_ "a0")) then - match (string_drop _s178_ (projT1 (string_length "a0"))) with | s_ => Some (s_) end + if string_startswith _s178_ "a0" then + match (string_drop _s178_ (projT1 (string_length "a0"))) with | s_ => Some s_ end else None. -Definition _s172_ (_s173_ : string) -: option string := - +Definition _s172_ (_s173_ : string) : option string := let _s174_ := _s173_ in - if ((string_startswith _s174_ "s1")) then - match (string_drop _s174_ (projT1 (string_length "s1"))) with | s_ => Some (s_) end + if string_startswith _s174_ "s1" then + match (string_drop _s174_ (projT1 (string_length "s1"))) with | s_ => Some s_ end else None. -Definition _s168_ (_s169_ : string) -: option string := - +Definition _s168_ (_s169_ : string) : option string := let _s170_ := _s169_ in - if ((string_startswith _s170_ "s0")) then - match (string_drop _s170_ (projT1 (string_length "s0"))) with | s_ => Some (s_) end + if string_startswith _s170_ "s0" then + match (string_drop _s170_ (projT1 (string_length "s0"))) with | s_ => Some s_ end else None. -Definition creg_name_matches_prefix (arg_ : string) -: M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) := - +Definition creg_name_matches_prefix (arg_ : string) +: M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) := let _s171_ := arg_ in - (if ((match (_s168_ _s171_) with | Some (s_) => true | _ => false end)) then + (if match (_s168_ _s171_) with | Some s_ => true | _ => false end then (match (_s168_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"000" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s172_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s172_ _s171_) with | Some s_ => true | _ => false end then (match (_s172_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"001" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s176_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s176_ _s171_) with | Some s_ => true | _ => false end then (match (_s176_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"010" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s180_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s180_ _s171_) with | Some s_ => true | _ => false end then (match (_s180_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"011" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s184_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s184_ _s171_) with | Some s_ => true | _ => false end then (match (_s184_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"100" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s188_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s188_ _s171_) with | Some s_ => true | _ => false end then (match (_s188_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"101" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s192_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s192_ _s171_) with | Some s_ => true | _ => false end then (match (_s192_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"110" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s196_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s196_ _s171_) with | Some s_ => true | _ => false end then (match (_s196_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"111" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 3 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))). -Definition init_base_regs '(tt : unit) -: M (unit) := - +Definition init_base_regs '(tt : unit) : M (unit) := write_reg x1_ref zero_reg >> write_reg x2_ref zero_reg >> write_reg x3_ref zero_reg >> @@ -3740,34 +3394,25 @@ Definition init_base_regs '(tt : unit) write_reg x29_ref zero_reg >> write_reg x30_ref zero_reg >> write_reg x31_ref zero_reg : M (unit). -Definition get_arch_pc '(tt : unit) -: M (mword 32) := - - ((read_reg PC_ref) : M (mword 32)) - : M (mword 32). +Definition get_arch_pc '(tt : unit) : M (mword 32) := + ((read_reg PC_ref) : M (mword 32)) : M (mword 32). -Definition get_next_pc '(tt : unit) -: M (mword 32) := - - ((read_reg nextPC_ref) : M (mword 32)) - : M (mword 32). +Definition get_next_pc '(tt : unit) : M (mword 32) := + ((read_reg nextPC_ref) : M (mword 32)) : M (mword 32). -Definition set_next_pc (pc : mword 32) : M (unit) := write_reg nextPC_ref pc : M (unit). +Definition set_next_pc (pc : mword 32) : M (unit) := write_reg nextPC_ref pc : M (unit). -Definition tick_pc '(tt : unit) -: M (unit) := - +Definition tick_pc '(tt : unit) : M (unit) := ((read_reg nextPC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => write_reg PC_ref w__0 : M (unit). -Definition Mk_Misa (v : mword 32) : Misa := {| Misa_Misa_chunk_0 := (subrange_vec_dec v 31 0) |}. +Definition Mk_Misa (v : mword 32) : Misa := {| Misa_Misa_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Misa_bits (v : Misa) : mword 32 := subrange_vec_dec v.(Misa_Misa_chunk_0) 31 0. +Definition _get_Misa_bits (v : Misa) : mword 32 := subrange_vec_dec v.(Misa_Misa_chunk_0) 31 0. -Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v : mword 32) +Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3777,18 +3422,15 @@ Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v write_reg r_ref r : M (unit). -Definition _update_Misa_bits (v : Misa) (x : mword 32) -: Misa := - +Definition _update_Misa_bits (v : Misa) (x : mword 32) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Misa_MXL (v : Misa) : mword 2 := subrange_vec_dec v.(Misa_Misa_chunk_0) 31 30. +Definition _get_Misa_MXL (v : Misa) : mword 2 := subrange_vec_dec v.(Misa_Misa_chunk_0) 31 30. -Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v : mword 2) +Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3798,18 +3440,14 @@ Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v write_reg r_ref r : M (unit). -Definition _update_Misa_MXL (v : Misa) (x : mword 2) -: Misa := - +Definition _update_Misa_MXL (v : Misa) (x : mword 2) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 31 30 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Misa_Z (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25. +Definition _get_Misa_Z (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25. -Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3819,18 +3457,14 @@ Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Z (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Z (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_Y (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24. +Definition _get_Misa_Y (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24. -Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3840,18 +3474,14 @@ Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Y (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Y (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_X (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23. +Definition _get_Misa_X (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23. -Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3861,18 +3491,14 @@ Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_X (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_X (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_W (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22. +Definition _get_Misa_W (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22. -Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3882,18 +3508,14 @@ Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_W (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_W (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_V (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21. +Definition _get_Misa_V (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21. -Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3903,18 +3525,14 @@ Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_V (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_V (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_U (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20. +Definition _get_Misa_U (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20. -Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3924,18 +3542,14 @@ Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_U (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_U (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_T (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19. +Definition _get_Misa_T (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19. -Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3945,18 +3559,14 @@ Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_T (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_T (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_S (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18. +Definition _get_Misa_S (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18. -Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3966,18 +3576,14 @@ Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_S (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_S (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_R (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17. +Definition _get_Misa_R (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17. -Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3987,18 +3593,14 @@ Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_R (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_R (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_Q (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16. +Definition _get_Misa_Q (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16. -Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4008,18 +3610,14 @@ Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Q (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Q (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_P (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15. +Definition _get_Misa_P (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15. -Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4029,18 +3627,14 @@ Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_P (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_P (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_O (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14. +Definition _get_Misa_O (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14. -Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4050,18 +3644,14 @@ Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_O (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_O (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_N (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13. +Definition _get_Misa_N (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13. -Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4071,18 +3661,14 @@ Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_N (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_N (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_M (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12. +Definition _get_Misa_M (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12. -Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4092,18 +3678,14 @@ Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_M (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_M (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_L (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11. +Definition _get_Misa_L (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11. -Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4113,18 +3695,14 @@ Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_L (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_L (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_K (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10. +Definition _get_Misa_K (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10. -Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4134,18 +3712,14 @@ Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_K (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_K (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_J (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9. +Definition _get_Misa_J (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9. -Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4155,18 +3729,14 @@ Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_J (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_J (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_I (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8. +Definition _get_Misa_I (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8. -Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4176,18 +3746,14 @@ Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_I (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_I (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_H (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7. +Definition _get_Misa_H (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7. -Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4197,18 +3763,14 @@ Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_H (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_H (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_G (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6. +Definition _get_Misa_G (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6. -Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4218,18 +3780,14 @@ Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_G (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_G (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_F (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5. +Definition _get_Misa_F (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5. -Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4239,18 +3797,14 @@ Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_F (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_F (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_E (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4. +Definition _get_Misa_E (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4. -Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4260,18 +3814,14 @@ Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_E (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_E (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_D (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3. +Definition _get_Misa_D (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3. -Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4281,18 +3831,14 @@ Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_D (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_D (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_C (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2. +Definition _get_Misa_C (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2. -Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4302,18 +3848,14 @@ Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_C (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_C (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_B (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1. +Definition _get_Misa_B (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1. -Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4323,18 +3865,14 @@ Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_B (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_B (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_A (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0. +Definition _get_Misa_A (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0. -Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4344,84 +3882,60 @@ Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_A (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_A (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_misa (m : Misa) (v : mword 32) -: M (Misa) := - - (if ((sys_enable_writable_misa tt)) then +Definition ext_veto_disable_C '(tt : unit) : M (bool) := returnm false. + +Definition legalize_misa (m : Misa) (v : mword 32) : M (Misa) := + (if sys_enable_writable_misa tt then let v := Mk_Misa v in - (and_boolM (returnm ((eq_vec (_get_Misa_C v) ((bool_to_bits false) : mword 1)) : bool)) - (((read_reg nextPC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - (bit_to_bool (access_vec_dec w__0 1)) >>= fun w__1 : bool => - returnm ((Bool.eqb w__1 true) - : bool))) >>= fun w__2 : bool => - returnm ((if sumbool_of_bool (w__2) then m - else _update_Misa_C m (_get_Misa_C v)) - : Misa) - else returnm (m : Misa)) + (or_boolM + ((and_boolM (returnm ((eq_vec (_get_Misa_C v) ('b"0" : mword 1)) : bool)) + ((or_boolM + (((read_reg nextPC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => + returnm ((eq_bit (access_vec_dec w__0 1) B1) : bool)) + ((ext_veto_disable_C tt) + : M (bool))) + : M (bool))) + : M (bool)) (returnm ((negb (sys_enable_rvc tt)) : bool))) >>= fun w__4 : bool => + let m := if sumbool_of_bool w__4 then m else _update_Misa_C m (_get_Misa_C v) in + returnm (if orb (negb (sys_enable_fdext tt)) + (andb (eq_vec (_get_Misa_D v) ('b"1" : mword 1)) + (eq_vec (_get_Misa_F v) ('b"0" : mword 1))) then + m + else _update_Misa_D (_update_Misa_F m (_get_Misa_F v)) (_get_Misa_D v)) + else returnm m) : M (Misa). -Definition haveAtomics '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_A w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveAtomics '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_A w__0) ('b"1" : mword 1)). -Definition haveRVC '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveRVC '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_C w__0) ('b"1" : mword 1)). -Definition haveMulDiv '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_M w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveMulDiv '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_M w__0) ('b"1" : mword 1)). -Definition haveSupMode '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_S w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveSupMode '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_S w__0) ('b"1" : mword 1)). -Definition haveUsrMode '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_U w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveUsrMode '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_U w__0) ('b"1" : mword 1)). -Definition haveNExt '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_N w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveNExt '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_N w__0) ('b"1" : mword 1)). -Definition Mk_Mstatus (v : mword 32) -: Mstatus := - +Definition Mk_Mstatus (v : mword 32) : Mstatus := {| Mstatus_Mstatus_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Mstatus_bits (v : Mstatus) -: mword 32 := - +Definition _get_Mstatus_bits (v : Mstatus) : mword 32 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 31 0. -Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstatus) (v : mword 32) +Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstatus) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4431,21 +3945,16 @@ Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_bits (v : Mstatus) (x : mword 32) -: Mstatus := - +Definition _update_Mstatus_bits (v : Mstatus) (x : mword 32) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Mstatus_SD (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SD (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 31 31. -Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4455,21 +3964,16 @@ Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_SD (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SD (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 31 31 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TSR (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TSR (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 22 22. -Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4479,21 +3983,16 @@ Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_TSR (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TSR (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 22 22 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TW (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TW (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 21 21. -Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4503,21 +4002,16 @@ Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_TW (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TW (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 21 21 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TVM (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TVM (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 20 20. -Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4527,21 +4021,16 @@ Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_TVM (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TVM (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 20 20 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MXR (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MXR (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 19 19. -Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4551,21 +4040,16 @@ Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MXR (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MXR (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SUM (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SUM (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 18 18. -Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4575,21 +4059,16 @@ Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SUM (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SUM (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MPRV (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MPRV (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 17 17. -Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4599,21 +4078,16 @@ Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPRV (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MPRV (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 17 17 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_XS (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_XS (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 16 15. -Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4623,21 +4097,16 @@ Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_XS (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_XS (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 16 15 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_FS (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_FS (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 14 13. -Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4647,21 +4116,16 @@ Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_FS (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_FS (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 14 13 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_MPP (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_MPP (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 12 11. -Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4671,21 +4135,16 @@ Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPP (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_MPP (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 12 11 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_SPP (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SPP (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 8 8. -Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4695,21 +4154,16 @@ Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SPP (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SPP (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 7 7. -Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4719,21 +4173,16 @@ Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 5 5. -Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4743,21 +4192,16 @@ Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_SPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_UPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_UPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 4 4. -Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4767,21 +4211,16 @@ Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_UPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_UPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 3 3. -Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4791,21 +4230,16 @@ Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 1 1. -Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4815,21 +4249,16 @@ Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_UIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_UIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 0 0. -Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4839,87 +4268,88 @@ Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_UIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_UIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition effectivePrivilege (m : Mstatus) (priv : Privilege) -: M (Privilege) := - - (if ((eq_vec (_get_Mstatus_MPRV m) ((bool_to_bits true) : mword 1))) then +Definition effectivePrivilege (t : AccessType unit) (m : Mstatus) (priv : Privilege) : M (Privilege) := + (if andb (generic_neq t (Execute tt)) (eq_vec (_get_Mstatus_MPRV m) ('b"1" : mword 1)) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (privLevel_of_bits (_get_Mstatus_MPP w__0)) : M (Privilege) else read_reg cur_privilege_ref : M (Privilege)) : M (Privilege). -Definition get_mstatus_SXL (m : Mstatus) : mword 2 := arch_to_bits RV32. +Definition get_mstatus_SXL (m : Mstatus) : mword 2 := arch_to_bits RV32. -Definition set_mstatus_SXL (m : Mstatus) (a : mword 2) : Mstatus := m. +Definition set_mstatus_SXL (m : Mstatus) (a : mword 2) : Mstatus := m. -Definition get_mstatus_UXL (m : Mstatus) : mword 2 := arch_to_bits RV32. +Definition get_mstatus_UXL (m : Mstatus) : mword 2 := arch_to_bits RV32. -Definition set_mstatus_UXL (m : Mstatus) (a : mword 2) : Mstatus := m. +Definition set_mstatus_UXL (m : Mstatus) (a : mword 2) : Mstatus := m. -Definition legalize_mstatus (o : Mstatus) (v : mword 32) -: M (Mstatus) := - +Definition legalize_mstatus (o : Mstatus) (v : mword 32) : M (Mstatus) := let m : Mstatus := Mk_Mstatus v in let m := _update_Mstatus_XS m (extStatus_to_bits Off) in (or_boolM ((extStatus_of_bits (_get_Mstatus_FS m)) >>= fun w__0 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__0) ((extStatus_to_bits Dirty) : mword 2)) - : bool)) + returnm ((generic_eq w__0 Dirty) : bool)) ((extStatus_of_bits (_get_Mstatus_XS m)) >>= fun w__1 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__1) ((extStatus_to_bits Dirty) : mword 2)) - : bool))) >>= fun w__2 : bool => - let m := _update_Mstatus_SD m ((bool_to_bits w__2) : mword 1) in + returnm ((generic_eq w__1 Dirty) : bool))) >>= fun dirty => + let m := _update_Mstatus_SD m (bool_to_bits dirty) in let m := set_mstatus_SXL m (get_mstatus_SXL o) in let m := set_mstatus_UXL m (get_mstatus_UXL o) in - let m := _update_Mstatus_UPIE m ((bool_to_bits false) : mword 1) in - let m := _update_Mstatus_UIE m ((bool_to_bits false) : mword 1) in - returnm (m - : Mstatus). - -Definition cur_Architecture '(tt : unit) -: M (Architecture) := - + (haveNExt tt) >>= fun w__2 : bool => + let m := + if sumbool_of_bool (negb w__2) then + let m := _update_Mstatus_UPIE m ('b"0" : mword 1) in + _update_Mstatus_UIE m ('b"0" : mword 1) + else m in + (haveUsrMode tt) >>= fun w__3 : bool => + returnm (if sumbool_of_bool (negb w__3) then _update_Mstatus_MPRV m ('b"0" : mword 1) else m). + +Definition cur_Architecture '(tt : unit) : M (Architecture) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | Machine => read_reg misa_ref >>= fun w__1 : Misa => returnm ((_get_Misa_MXL w__1) : mword 2) - | Supervisor => - read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm ((get_mstatus_SXL w__2) : mword 2) - | User => - read_reg mstatus_ref >>= fun w__3 : Mstatus => returnm ((get_mstatus_UXL w__3) : mword 2) + | Machine => read_reg misa_ref >>= fun w__1 : Misa => returnm (_get_Misa_MXL w__1) + | Supervisor => read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (get_mstatus_SXL w__2) + | User => read_reg mstatus_ref >>= fun w__3 : Mstatus => returnm (get_mstatus_UXL w__3) end) >>= fun a : arch_xlen => (match (architecture a) with - | Some (a) => returnm (a : Architecture) + | Some a => returnm a | None => (internal_error "Invalid current architecture") : M (Architecture) end) : M (Architecture). -Definition in32BitMode '(tt : unit) -: M (bool) := - - (cur_Architecture tt) >>= fun w__0 : Architecture => returnm ((generic_eq w__0 RV32) : bool). +Definition in32BitMode '(tt : unit) : M (bool) := + (cur_Architecture tt) >>= fun w__0 : Architecture => returnm (generic_eq w__0 RV32). -Definition Mk_Minterrupts (v : mword 32) -: Minterrupts := - +Definition haveFExt '(tt : unit) : M (bool) := + (and_boolM + (read_reg misa_ref >>= fun w__0 : Misa => + returnm ((eq_vec (_get_Misa_F w__0) ('b"1" : mword 1)) : bool)) + (read_reg mstatus_ref >>= fun w__1 : Mstatus => + returnm ((neq_vec (_get_Mstatus_FS w__1) ('b"00" : mword 2)) : bool))) + : M (bool). + +Definition haveDExt '(tt : unit) : M (bool) := + (and_boolM + (read_reg misa_ref >>= fun w__0 : Misa => + returnm ((eq_vec (_get_Misa_D w__0) ('b"1" : mword 1)) : bool)) + (read_reg mstatus_ref >>= fun w__1 : Mstatus => + returnm ((neq_vec (_get_Mstatus_FS w__1) ('b"00" : mword 2)) : bool))) + : M (bool). + +Definition Mk_Minterrupts (v : mword 32) : Minterrupts := {| Minterrupts_Minterrupts_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Minterrupts_bits (v : Minterrupts) -: mword 32 := - +Definition _get_Minterrupts_bits (v : Minterrupts) : mword 32 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 31 0. Definition _set_Minterrupts_bits -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 32) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4929,22 +4359,17 @@ Definition _set_Minterrupts_bits write_reg r_ref r : M (unit). -Definition _update_Minterrupts_bits (v : Minterrupts) (x : mword 32) -: Minterrupts := - +Definition _update_Minterrupts_bits (v : Minterrupts) (x : mword 32) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Minterrupts_MEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 11 11. Definition _set_Minterrupts_MEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4954,22 +4379,17 @@ Definition _set_Minterrupts_MEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 11 11 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_SEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_SEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 9 9. Definition _set_Minterrupts_SEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4979,22 +4399,17 @@ Definition _set_Minterrupts_SEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_SEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_SEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_UEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_UEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 8 8. Definition _set_Minterrupts_UEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5004,22 +4419,17 @@ Definition _set_Minterrupts_UEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_UEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_UEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_MTI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MTI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 7 7. Definition _set_Minterrupts_MTI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5029,22 +4439,17 @@ Definition _set_Minterrupts_MTI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MTI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MTI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_STI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_STI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 5 5. Definition _set_Minterrupts_STI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5054,22 +4459,17 @@ Definition _set_Minterrupts_STI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_STI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_STI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_UTI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_UTI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 4 4. Definition _set_Minterrupts_UTI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5079,22 +4479,17 @@ Definition _set_Minterrupts_UTI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_UTI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_UTI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_MSI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MSI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 3 3. Definition _set_Minterrupts_MSI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5104,22 +4499,17 @@ Definition _set_Minterrupts_MSI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MSI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MSI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_SSI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_SSI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 1 1. Definition _set_Minterrupts_SSI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5129,22 +4519,17 @@ Definition _set_Minterrupts_SSI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_SSI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_SSI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_USI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_USI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 0 0. Definition _set_Minterrupts_USI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5154,31 +4539,24 @@ Definition _set_Minterrupts_USI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_USI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_USI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_mip (o : Minterrupts) (v : mword 32) -: M (Minterrupts) := - +Definition legalize_mip (o : Minterrupts) (v : mword 32) : M (Minterrupts) := let v := Mk_Minterrupts v in let m := _update_Minterrupts_SEI o (_get_Minterrupts_SEI v) in let m := _update_Minterrupts_STI m (_get_Minterrupts_STI v) in let m := _update_Minterrupts_SSI m (_get_Minterrupts_SSI v) in - (haveUsrMode tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in - let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in - _update_Minterrupts_USI m (_get_Minterrupts_USI v) - else m) - : Minterrupts). - -Definition legalize_mie (o : Minterrupts) (v : mword 32) -: M (Minterrupts) := - + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then + let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in + let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in + _update_Minterrupts_USI m (_get_Minterrupts_USI v) + else m). + +Definition legalize_mie (o : Minterrupts) (v : mword 32) : M (Minterrupts) := let v := Mk_Minterrupts v in let m := _update_Minterrupts_MEI o (_get_Minterrupts_MEI v) in let m := _update_Minterrupts_MTI m (_get_Minterrupts_MTI v) in @@ -5186,35 +4564,27 @@ Definition legalize_mie (o : Minterrupts) (v : mword 32) let m := _update_Minterrupts_SEI m (_get_Minterrupts_SEI v) in let m := _update_Minterrupts_STI m (_get_Minterrupts_STI v) in let m := _update_Minterrupts_SSI m (_get_Minterrupts_SSI v) in - (haveUsrMode tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in - let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in - _update_Minterrupts_USI m (_get_Minterrupts_USI v) - else m) - : Minterrupts). - -Definition legalize_mideleg (o : Minterrupts) (v : mword 32) -: Minterrupts := - + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then + let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in + let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in + _update_Minterrupts_USI m (_get_Minterrupts_USI v) + else m). + +Definition legalize_mideleg (o : Minterrupts) (v : mword 32) : Minterrupts := let m := Mk_Minterrupts v in - let m := _update_Minterrupts_MEI m ((bool_to_bits false) : mword 1) in - let m := _update_Minterrupts_MTI m ((bool_to_bits false) : mword 1) in - _update_Minterrupts_MSI m ((bool_to_bits false) : mword 1). + let m := _update_Minterrupts_MEI m ('b"0" : mword 1) in + let m := _update_Minterrupts_MTI m ('b"0" : mword 1) in + _update_Minterrupts_MSI m ('b"0" : mword 1). -Definition Mk_Medeleg (v : mword 32) -: Medeleg := - +Definition Mk_Medeleg (v : mword 32) : Medeleg := {| Medeleg_Medeleg_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Medeleg_bits (v : Medeleg) -: mword 32 := - +Definition _get_Medeleg_bits (v : Medeleg) : mword 32 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 31 0. -Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medeleg) (v : mword 32) +Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medeleg) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5224,22 +4594,17 @@ Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medel write_reg r_ref r : M (unit). -Definition _update_Medeleg_bits (v : Medeleg) (x : mword 32) -: Medeleg := - +Definition _update_Medeleg_bits (v : Medeleg) (x : mword 32) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Medeleg_SAMO_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 15 15. Definition _set_Medeleg_SAMO_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5249,22 +4614,17 @@ Definition _set_Medeleg_SAMO_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 15 15 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 13 13. Definition _set_Medeleg_Load_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5274,22 +4634,17 @@ Definition _set_Medeleg_Load_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 13 13 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 12 12. Definition _set_Medeleg_Fetch_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5299,22 +4654,17 @@ Definition _set_Medeleg_Fetch_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 12 12 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_MEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_MEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 10 10. Definition _set_Medeleg_MEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5324,22 +4674,17 @@ Definition _set_Medeleg_MEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_MEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_MEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 10 10 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 9 9. Definition _set_Medeleg_SEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5349,22 +4694,17 @@ Definition _set_Medeleg_SEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_SEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_UEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_UEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 8 8. Definition _set_Medeleg_UEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5374,22 +4714,17 @@ Definition _set_Medeleg_UEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_UEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_UEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SAMO_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 7 7. Definition _set_Medeleg_SAMO_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5399,22 +4734,17 @@ Definition _set_Medeleg_SAMO_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SAMO_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 6 6. Definition _set_Medeleg_SAMO_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5424,22 +4754,17 @@ Definition _set_Medeleg_SAMO_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 5 5. Definition _set_Medeleg_Load_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5449,22 +4774,17 @@ Definition _set_Medeleg_Load_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 4 4. Definition _set_Medeleg_Load_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5474,22 +4794,17 @@ Definition _set_Medeleg_Load_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Breakpoint (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Breakpoint (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 3 3. Definition _set_Medeleg_Breakpoint -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5499,22 +4814,17 @@ Definition _set_Medeleg_Breakpoint write_reg r_ref r : M (unit). -Definition _update_Medeleg_Breakpoint (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Breakpoint (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Illegal_Instr (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Illegal_Instr (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 2 2. Definition _set_Medeleg_Illegal_Instr -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5524,22 +4834,17 @@ Definition _set_Medeleg_Illegal_Instr write_reg r_ref r : M (unit). -Definition _update_Medeleg_Illegal_Instr (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Illegal_Instr (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 1 1. Definition _set_Medeleg_Fetch_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5549,22 +4854,17 @@ Definition _set_Medeleg_Fetch_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 0 0. Definition _set_Medeleg_Fetch_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5574,32 +4874,22 @@ Definition _set_Medeleg_Fetch_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_medeleg (o : Medeleg) (v : mword 32) -: Medeleg := - +Definition legalize_medeleg (o : Medeleg) (v : mword 32) : Medeleg := let m := Mk_Medeleg v in - _update_Medeleg_MEnvCall m ((bool_to_bits false) : mword 1). + _update_Medeleg_MEnvCall m ('b"0" : mword 1). -Definition Mk_Mtvec (v : mword 32) -: Mtvec := - +Definition Mk_Mtvec (v : mword 32) : Mtvec := {| Mtvec_Mtvec_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Mtvec_bits (v : Mtvec) -: mword 32 := - - subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 0. +Definition _get_Mtvec_bits (v : Mtvec) : mword 32 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 0. -Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) (v : mword 32) +Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5609,21 +4899,15 @@ Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_bits (v : Mtvec) (x : mword 32) -: Mtvec := - +Definition _update_Mtvec_bits (v : Mtvec) (x : mword 32) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Mtvec_Base (v : Mtvec) -: mword 30 := - - subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 2. +Definition _get_Mtvec_Base (v : Mtvec) : mword 30 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 2. -Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) (v : mword 30) +Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) (v : mword 30) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5633,18 +4917,15 @@ Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_Base (v : Mtvec) (x : mword 30) -: Mtvec := - +Definition _update_Mtvec_Base (v : Mtvec) (x : mword 30) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 31 2 (subrange_vec_dec x 29 0)) ]}. -Definition _get_Mtvec_Mode (v : Mtvec) : mword 2 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0. +Definition _get_Mtvec_Mode (v : Mtvec) : mword 2 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0. -Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) (v : mword 2) +Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5654,16 +4935,12 @@ Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_Mode (v : Mtvec) (x : mword 2) -: Mtvec := - +Definition _update_Mtvec_Mode (v : Mtvec) (x : mword 2) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0 (subrange_vec_dec x 1 0)) ]}. -Definition legalize_tvec (o : Mtvec) (v : mword 32) -: Mtvec := - +Definition legalize_tvec (o : Mtvec) (v : mword 32) : Mtvec := let v := Mk_Mtvec v in match (trapVectorMode_of_bits (_get_Mtvec_Mode v)) with | TV_Direct => v @@ -5671,19 +4948,14 @@ Definition legalize_tvec (o : Mtvec) (v : mword 32) | _ => _update_Mtvec_Mode v (_get_Mtvec_Mode o) end. -Definition Mk_Mcause (v : mword 32) -: Mcause := - +Definition Mk_Mcause (v : mword 32) : Mcause := {| Mcause_Mcause_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Mcause_bits (v : Mcause) -: mword 32 := - +Definition _get_Mcause_bits (v : Mcause) : mword 32 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 31 0. -Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause) (v : mword 32) +Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5693,22 +4965,17 @@ Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause write_reg r_ref r : M (unit). -Definition _update_Mcause_bits (v : Mcause) (x : mword 32) -: Mcause := - +Definition _update_Mcause_bits (v : Mcause) (x : mword 32) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Mcause_IsInterrupt (v : Mcause) -: mword 1 := - +Definition _get_Mcause_IsInterrupt (v : Mcause) : mword 1 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 31 31. Definition _set_Mcause_IsInterrupt -(r_ref : register_ref regstate register_value Mcause) (v : mword 1) +(r_ref : register_ref regstate register_value Mcause) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5718,21 +4985,16 @@ Definition _set_Mcause_IsInterrupt write_reg r_ref r : M (unit). -Definition _update_Mcause_IsInterrupt (v : Mcause) (x : mword 1) -: Mcause := - +Definition _update_Mcause_IsInterrupt (v : Mcause) (x : mword 1) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 31 31 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mcause_Cause (v : Mcause) -: mword 31 := - +Definition _get_Mcause_Cause (v : Mcause) : mword 31 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 30 0. -Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcause) (v : mword 31) +Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcause) (v : mword 31) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5742,63 +5004,45 @@ Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcaus write_reg r_ref r : M (unit). -Definition _update_Mcause_Cause (v : Mcause) (x : mword 31) -: Mcause := - +Definition _update_Mcause_Cause (v : Mcause) (x : mword 31) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 30 0 (subrange_vec_dec x 30 0)) ]}. -Definition tvec_addr (m : Mtvec) (c : Mcause) -: option (mword 32) := - - let base : xlenbits := concat_vec (_get_Mtvec_Base m) (vec_of_bits [B0;B0] : mword 2) in +Definition tvec_addr (m : Mtvec) (c : Mcause) : option (mword 32) := + let base : xlenbits := concat_vec (_get_Mtvec_Base m) ('b"00" : mword 2) in match (trapVectorMode_of_bits (_get_Mtvec_Mode m)) with - | TV_Direct => Some (base) + | TV_Direct => Some base | TV_Vector => - if ((eq_vec (_get_Mcause_IsInterrupt c) ((bool_to_bits true) : mword 1))) then - Some - (add_vec base (shiftl (EXTZ 32 (_get_Mcause_Cause c)) 2)) - else Some (base) + if eq_vec (_get_Mcause_IsInterrupt c) ('b"1" : mword 1) then + Some (add_vec base (shiftl (EXTZ 32 (_get_Mcause_Cause c)) 2)) + else Some base | TV_Reserved => None end. -Definition legalize_xepc (v : mword 32) -: M (mword 32) := - - (or_boolM (returnm ((sys_enable_writable_misa tt) : bool)) +Definition legalize_xepc (v : mword 32) : M (mword 32) := + (or_boolM (returnm ((andb (sys_enable_writable_misa tt) (sys_enable_rvc tt)) : bool)) (read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1)) - : bool))) >>= fun w__1 : bool => - returnm ((if sumbool_of_bool (w__1) then update_vec_dec v 0 B0 - else and_vec v (EXTS 32 (vec_of_bits [B1;B0;B0] : mword 3))) - : mword 32). + returnm ((eq_vec (_get_Misa_C w__0) ('b"1" : mword 1)) : bool))) >>= fun w__1 : bool => + returnm (if sumbool_of_bool w__1 then update_vec_dec v 0 B0 + else and_vec v (EXTS 32 ('b"100" : mword 3))). -Definition pc_alignment_mask '(tt : unit) -: M (mword 32) := - +Definition pc_alignment_mask '(tt : unit) : M (mword 32) := read_reg misa_ref >>= fun w__0 : Misa => - returnm ((not_vec - (EXTZ 32 - (if ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1))) then - (vec_of_bits [B0;B0] : mword 2) - else (vec_of_bits [B1;B0] : mword 2)))) - : mword 32). - -Definition Mk_Counteren (v : mword 32) -: Counteren := - + returnm (not_vec + (EXTZ 32 + (if eq_vec (_get_Misa_C w__0) ('b"1" : mword 1) then 'b"00" : mword 2 + else 'b"10" : mword 2))). + +Definition Mk_Counteren (v : mword 32) : Counteren := {| Counteren_Counteren_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Counteren_bits (v : Counteren) -: mword 32 := - +Definition _get_Counteren_bits (v : Counteren) : mword 32 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 0. Definition _set_Counteren_bits -(r_ref : register_ref regstate register_value Counteren) (v : mword 32) +(r_ref : register_ref regstate register_value Counteren) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5808,22 +5052,17 @@ Definition _set_Counteren_bits write_reg r_ref r : M (unit). -Definition _update_Counteren_bits (v : Counteren) (x : mword 32) -: Counteren := - +Definition _update_Counteren_bits (v : Counteren) (x : mword 32) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Counteren_HPM (v : Counteren) -: mword 29 := - +Definition _get_Counteren_HPM (v : Counteren) : mword 29 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 3. Definition _set_Counteren_HPM -(r_ref : register_ref regstate register_value Counteren) (v : mword 29) +(r_ref : register_ref regstate register_value Counteren) (v : mword 29) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5833,21 +5072,16 @@ Definition _set_Counteren_HPM write_reg r_ref r : M (unit). -Definition _update_Counteren_HPM (v : Counteren) (x : mword 29) -: Counteren := - +Definition _update_Counteren_HPM (v : Counteren) (x : mword 29) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 3 (subrange_vec_dec x 28 0)) ]}. -Definition _get_Counteren_IR (v : Counteren) -: mword 1 := - +Definition _get_Counteren_IR (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 2 2. -Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5857,21 +5091,16 @@ Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_IR (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_IR (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Counteren_TM (v : Counteren) -: mword 1 := - +Definition _get_Counteren_TM (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 1 1. -Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5881,21 +5110,16 @@ Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_TM (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_TM (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Counteren_CY (v : Counteren) -: mword 1 := - +Definition _get_Counteren_CY (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 0 0. -Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5905,61 +5129,103 @@ Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_CY (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_CY (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_mcounteren (c : Counteren) (v : mword 32) -: M (Counteren) := - - (cast_unit_vec (access_vec_dec v 2)) >>= fun w__0 : mword 1 => - let c := _update_Counteren_IR c (w__0 : mword 1) in - (cast_unit_vec (access_vec_dec v 1)) >>= fun w__1 : mword 1 => - let c := _update_Counteren_TM c (w__1 : mword 1) in - (cast_unit_vec (access_vec_dec v 0)) >>= fun w__2 : mword 1 => - let c := _update_Counteren_CY c (w__2 : mword 1) in - returnm (c - : Counteren). - -Definition legalize_scounteren (c : Counteren) (v : mword 32) -: M (Counteren) := - - (cast_unit_vec (access_vec_dec v 2)) >>= fun w__0 : mword 1 => - let c := _update_Counteren_IR c (w__0 : mword 1) in - (cast_unit_vec (access_vec_dec v 1)) >>= fun w__1 : mword 1 => - let c := _update_Counteren_TM c (w__1 : mword 1) in - (cast_unit_vec (access_vec_dec v 0)) >>= fun w__2 : mword 1 => - let c := _update_Counteren_CY c (w__2 : mword 1) in - returnm (c - : Counteren). - -Definition retire_instruction '(tt : unit) +Definition legalize_mcounteren (c : Counteren) (v : mword 32) : Counteren := + let c := _update_Counteren_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + let c := _update_Counteren_TM c (vec_of_bits [access_vec_dec v 1] : mword 1) in + _update_Counteren_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition legalize_scounteren (c : Counteren) (v : mword 32) : Counteren := + let c := _update_Counteren_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + let c := _update_Counteren_TM c (vec_of_bits [access_vec_dec v 1] : mword 1) in + _update_Counteren_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition Mk_Counterin (v : mword 32) : Counterin := + {| Counterin_Counterin_chunk_0 := (subrange_vec_dec v 31 0) |}. + +Definition _get_Counterin_bits (v : Counterin) : mword 32 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 31 0. + +Definition _set_Counterin_bits +(r_ref : register_ref regstate register_value Counterin) (v : mword 32) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_bits (v : Counterin) (x : mword 32) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. + +Definition _get_Counterin_IR (v : Counterin) : mword 1 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 2 2. + +Definition _set_Counterin_IR (r_ref : register_ref regstate register_value Counterin) (v : mword 1) : M (unit) := - + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 2 2 (subrange_vec_dec v 0 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_IR (v : Counterin) (x : mword 1) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. + +Definition _get_Counterin_CY (v : Counterin) : mword 1 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 0 0. + +Definition _set_Counterin_CY (r_ref : register_ref regstate register_value Counterin) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_CY (v : Counterin) (x : mword 1) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. + +Definition legalize_mcountinhibit (c : Counterin) (v : mword 32) : Counterin := + let c := _update_Counterin_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + _update_Counterin_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition retire_instruction '(tt : unit) : M (unit) := read_reg minstret_written_ref >>= fun w__0 : bool => - (if ((Bool.eqb w__0 true)) then write_reg minstret_written_ref false : M (unit) + (if Bool.eqb w__0 true then write_reg minstret_written_ref false : M (unit) else ((read_reg minstret_ref) : M (mword 64)) >>= fun w__1 : mword 64 => write_reg minstret_ref (add_vec_int w__1 1) : M (unit)) : M (unit). -Definition Mk_Sstatus (v : mword 32) -: Sstatus := - +Definition Mk_Sstatus (v : mword 32) : Sstatus := {| Sstatus_Sstatus_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Sstatus_bits (v : Sstatus) -: mword 32 := - +Definition _get_Sstatus_bits (v : Sstatus) : mword 32 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 31 0. -Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstatus) (v : mword 32) +Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstatus) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5969,21 +5235,16 @@ Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_bits (v : Sstatus) (x : mword 32) -: Sstatus := - +Definition _update_Sstatus_bits (v : Sstatus) (x : mword 32) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Sstatus_SD (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SD (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 31 31. -Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5993,21 +5254,16 @@ Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_SD (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SD (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 31 31 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_MXR (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_MXR (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 19 19. -Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6017,21 +5273,16 @@ Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_MXR (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_MXR (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SUM (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SUM (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 18 18. -Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6041,21 +5292,16 @@ Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SUM (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SUM (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_XS (v : Sstatus) -: mword 2 := - +Definition _get_Sstatus_XS (v : Sstatus) : mword 2 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 16 15. -Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) +Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6065,21 +5311,16 @@ Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_XS (v : Sstatus) (x : mword 2) -: Sstatus := - +Definition _update_Sstatus_XS (v : Sstatus) (x : mword 2) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 16 15 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Sstatus_FS (v : Sstatus) -: mword 2 := - +Definition _get_Sstatus_FS (v : Sstatus) : mword 2 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 14 13. -Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) +Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6089,21 +5330,16 @@ Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_FS (v : Sstatus) (x : mword 2) -: Sstatus := - +Definition _update_Sstatus_FS (v : Sstatus) (x : mword 2) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 14 13 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Sstatus_SPP (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SPP (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 8 8. -Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6113,21 +5349,16 @@ Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SPP (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SPP (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SPIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SPIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 5 5. -Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6137,21 +5368,16 @@ Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_SPIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SPIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_UPIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_UPIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 4 4. -Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6161,21 +5387,16 @@ Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_UPIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_UPIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 1 1. -Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6185,21 +5406,16 @@ Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_UIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_UIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 0 0. -Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6209,30 +5425,22 @@ Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_UIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_UIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition get_sstatus_UXL (s : Sstatus) -: mword 2 := - +Definition get_sstatus_UXL (s : Sstatus) : mword 2 := let m := Mk_Mstatus (_get_Sstatus_bits s) in get_mstatus_UXL m. -Definition set_sstatus_UXL (s : Sstatus) (a : mword 2) -: Sstatus := - +Definition set_sstatus_UXL (s : Sstatus) (a : mword 2) : Sstatus := let m := Mk_Mstatus (_get_Sstatus_bits s) in let m := set_mstatus_UXL m a in Mk_Sstatus (_get_Mstatus_bits m). -Definition lower_mstatus (m : Mstatus) -: Sstatus := - - let s := Mk_Sstatus (EXTZ 32 (vec_of_bits [B0] : mword 1)) in +Definition lower_mstatus (m : Mstatus) : Sstatus := + let s := Mk_Sstatus (EXTZ 32 ('b"0" : mword 1)) in let s := _update_Sstatus_SD s (_get_Mstatus_SD m) in let s := set_sstatus_UXL s (get_mstatus_UXL m) in let s := _update_Sstatus_MXR s (_get_Mstatus_MXR m) in @@ -6245,48 +5453,35 @@ Definition lower_mstatus (m : Mstatus) let s := _update_Sstatus_SIE s (_get_Mstatus_SIE m) in _update_Sstatus_UIE s (_get_Mstatus_UIE m). -Definition lift_sstatus (m : Mstatus) (s : Sstatus) -: M (Mstatus) := - +Definition lift_sstatus (m : Mstatus) (s : Sstatus) : M (Mstatus) := let m := _update_Mstatus_MXR m (_get_Sstatus_MXR s) in let m := _update_Mstatus_SUM m (_get_Sstatus_SUM s) in let m := _update_Mstatus_XS m (_get_Sstatus_XS s) in let m := _update_Mstatus_FS m (_get_Sstatus_FS s) in (or_boolM ((extStatus_of_bits (_get_Mstatus_FS m)) >>= fun w__0 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__0) ((extStatus_to_bits Dirty) : mword 2)) - : bool)) + returnm ((generic_eq w__0 Dirty) : bool)) ((extStatus_of_bits (_get_Mstatus_XS m)) >>= fun w__1 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__1) ((extStatus_to_bits Dirty) : mword 2)) - : bool))) >>= fun w__2 : bool => - let m := _update_Mstatus_SD m ((bool_to_bits w__2) : mword 1) in + returnm ((generic_eq w__1 Dirty) : bool))) >>= fun dirty => + let m := _update_Mstatus_SD m (bool_to_bits dirty) in let m := _update_Mstatus_SPP m (_get_Sstatus_SPP s) in let m := _update_Mstatus_SPIE m (_get_Sstatus_SPIE s) in let m := _update_Mstatus_UPIE m (_get_Sstatus_UPIE s) in let m := _update_Mstatus_SIE m (_get_Sstatus_SIE s) in let m := _update_Mstatus_UIE m (_get_Sstatus_UIE s) in - returnm (m - : Mstatus). - -Definition legalize_sstatus (m : Mstatus) (v : mword 32) -: M (Mstatus) := - - (lift_sstatus m (Mk_Sstatus v)) - : M (Mstatus). - -Definition Mk_Sedeleg (v : mword 32) -: Sedeleg := - + returnm m. + +Definition legalize_sstatus (m : Mstatus) (v : mword 32) : M (Mstatus) := + (lift_sstatus m (Mk_Sstatus v)) : M (Mstatus). + +Definition Mk_Sedeleg (v : mword 32) : Sedeleg := {| Sedeleg_Sedeleg_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Sedeleg_bits (v : Sedeleg) -: mword 32 := - +Definition _get_Sedeleg_bits (v : Sedeleg) : mword 32 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 31 0. -Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedeleg) (v : mword 32) +Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedeleg) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6296,22 +5491,17 @@ Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedel write_reg r_ref r : M (unit). -Definition _update_Sedeleg_bits (v : Sedeleg) (x : mword 32) -: Sedeleg := - +Definition _update_Sedeleg_bits (v : Sedeleg) (x : mword 32) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Sedeleg_UEnvCall (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_UEnvCall (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 8 8. Definition _set_Sedeleg_UEnvCall -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6321,22 +5511,17 @@ Definition _set_Sedeleg_UEnvCall write_reg r_ref r : M (unit). -Definition _update_Sedeleg_UEnvCall (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_UEnvCall (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_SAMO_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_SAMO_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 7 7. Definition _set_Sedeleg_SAMO_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6346,22 +5531,17 @@ Definition _set_Sedeleg_SAMO_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_SAMO_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_SAMO_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_SAMO_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_SAMO_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 6 6. Definition _set_Sedeleg_SAMO_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6371,22 +5551,17 @@ Definition _set_Sedeleg_SAMO_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_SAMO_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_SAMO_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Load_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Load_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 5 5. Definition _set_Sedeleg_Load_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6396,22 +5571,17 @@ Definition _set_Sedeleg_Load_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Load_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Load_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Load_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Load_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 4 4. Definition _set_Sedeleg_Load_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6421,22 +5591,17 @@ Definition _set_Sedeleg_Load_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Load_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Load_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Breakpoint (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Breakpoint (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 3 3. Definition _set_Sedeleg_Breakpoint -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6446,22 +5611,17 @@ Definition _set_Sedeleg_Breakpoint write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Breakpoint (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Breakpoint (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Illegal_Instr (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Illegal_Instr (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 2 2. Definition _set_Sedeleg_Illegal_Instr -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6471,22 +5631,17 @@ Definition _set_Sedeleg_Illegal_Instr write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Illegal_Instr (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Illegal_Instr (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Fetch_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Fetch_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 1 1. Definition _set_Sedeleg_Fetch_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6496,22 +5651,17 @@ Definition _set_Sedeleg_Fetch_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Fetch_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Fetch_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Fetch_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Fetch_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 0 0. Definition _set_Sedeleg_Fetch_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6521,32 +5671,23 @@ Definition _set_Sedeleg_Fetch_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Fetch_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Fetch_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_sedeleg (s : Sedeleg) (v : mword 32) -: Sedeleg := - +Definition legalize_sedeleg (s : Sedeleg) (v : mword 32) : Sedeleg := Mk_Sedeleg (EXTZ 32 (subrange_vec_dec v 8 0)). -Definition Mk_Sinterrupts (v : mword 32) -: Sinterrupts := - +Definition Mk_Sinterrupts (v : mword 32) : Sinterrupts := {| Sinterrupts_Sinterrupts_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Sinterrupts_bits (v : Sinterrupts) -: mword 32 := - +Definition _get_Sinterrupts_bits (v : Sinterrupts) : mword 32 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 31 0. Definition _set_Sinterrupts_bits -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 32) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6556,22 +5697,17 @@ Definition _set_Sinterrupts_bits write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_bits (v : Sinterrupts) (x : mword 32) -: Sinterrupts := - +Definition _update_Sinterrupts_bits (v : Sinterrupts) (x : mword 32) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Sinterrupts_SEI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_SEI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 9 9. Definition _set_Sinterrupts_SEI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6581,22 +5717,17 @@ Definition _set_Sinterrupts_SEI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_SEI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_SEI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_UEI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_UEI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 8 8. Definition _set_Sinterrupts_UEI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6606,22 +5737,17 @@ Definition _set_Sinterrupts_UEI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_UEI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_UEI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_STI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_STI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 5 5. Definition _set_Sinterrupts_STI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6631,22 +5757,17 @@ Definition _set_Sinterrupts_STI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_STI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_STI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_UTI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_UTI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 4 4. Definition _set_Sinterrupts_UTI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6656,22 +5777,17 @@ Definition _set_Sinterrupts_UTI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_UTI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_UTI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_SSI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_SSI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 1 1. Definition _set_Sinterrupts_SSI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6681,22 +5797,17 @@ Definition _set_Sinterrupts_SSI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_SSI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_SSI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_USI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_USI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 0 0. Definition _set_Sinterrupts_USI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6706,17 +5817,13 @@ Definition _set_Sinterrupts_USI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_USI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_USI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition lower_mip (m : Minterrupts) (d : Minterrupts) -: Sinterrupts := - - let s : Sinterrupts := Mk_Sinterrupts (EXTZ 32 (vec_of_bits [B0] : mword 1)) in +Definition lower_mip (m : Minterrupts) (d : Minterrupts) : Sinterrupts := + let s : Sinterrupts := Mk_Sinterrupts (EXTZ 32 ('b"0" : mword 1)) in let s := _update_Sinterrupts_SEI s (and_vec (_get_Minterrupts_SEI m) (_get_Minterrupts_SEI d)) in let s := _update_Sinterrupts_STI s (and_vec (_get_Minterrupts_STI m) (_get_Minterrupts_STI d)) in let s := _update_Sinterrupts_SSI s (and_vec (_get_Minterrupts_SSI m) (_get_Minterrupts_SSI d)) in @@ -6724,10 +5831,8 @@ Definition lower_mip (m : Minterrupts) (d : Minterrupts) let s := _update_Sinterrupts_UTI s (and_vec (_get_Minterrupts_UTI m) (_get_Minterrupts_UTI d)) in _update_Sinterrupts_USI s (and_vec (_get_Minterrupts_USI m) (_get_Minterrupts_USI d)). -Definition lower_mie (m : Minterrupts) (d : Minterrupts) -: Sinterrupts := - - let s : Sinterrupts := Mk_Sinterrupts (EXTZ 32 (vec_of_bits [B0] : mword 1)) in +Definition lower_mie (m : Minterrupts) (d : Minterrupts) : Sinterrupts := + let s : Sinterrupts := Mk_Sinterrupts (EXTZ 32 ('b"0" : mword 1)) in let s := _update_Sinterrupts_SEI s (and_vec (_get_Minterrupts_SEI m) (_get_Minterrupts_SEI d)) in let s := _update_Sinterrupts_STI s (and_vec (_get_Minterrupts_STI m) (_get_Minterrupts_STI d)) in let s := _update_Sinterrupts_SSI s (and_vec (_get_Minterrupts_SSI m) (_get_Minterrupts_SSI d)) in @@ -6735,80 +5840,63 @@ Definition lower_mie (m : Minterrupts) (d : Minterrupts) let s := _update_Sinterrupts_UTI s (and_vec (_get_Minterrupts_UTI m) (_get_Minterrupts_UTI d)) in _update_Sinterrupts_USI s (and_vec (_get_Minterrupts_USI m) (_get_Minterrupts_USI d)). -Definition lift_sip (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) -: M (Minterrupts) := - +Definition lift_sip (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) : M (Minterrupts) := let m : Minterrupts := o in let m := _update_Minterrupts_SSI m (and_vec (_get_Sinterrupts_SSI s) (_get_Minterrupts_SSI d)) in (haveNExt tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := - if ((eq_vec (_get_Minterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) - else m in - if ((eq_vec (_get_Minterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_USI m (_get_Sinterrupts_USI s) - else m - else m) - : Minterrupts). - -Definition legalize_sip (m : Minterrupts) (d : Minterrupts) (v : mword 32) -: M (Minterrupts) := - - (lift_sip m d (Mk_Sinterrupts v)) - : M (Minterrupts). - -Definition lift_sie (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) -: M (Minterrupts) := - + returnm (if sumbool_of_bool w__0 then + let m := + if eq_vec (_get_Minterrupts_UEI d) ('b"1" : mword 1) then + _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) + else m in + if eq_vec (_get_Minterrupts_USI d) ('b"1" : mword 1) then + _update_Minterrupts_USI m (_get_Sinterrupts_USI s) + else m + else m). + +Definition legalize_sip (m : Minterrupts) (d : Minterrupts) (v : mword 32) : M (Minterrupts) := + (lift_sip m d (Mk_Sinterrupts v)) : M (Minterrupts). + +Definition lift_sie (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) : M (Minterrupts) := let m : Minterrupts := o in let m := - if ((eq_vec (_get_Minterrupts_SEI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_SEI d) ('b"1" : mword 1) then _update_Minterrupts_SEI m (_get_Sinterrupts_SEI s) else m in let m := - if ((eq_vec (_get_Minterrupts_STI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_STI d) ('b"1" : mword 1) then _update_Minterrupts_STI m (_get_Sinterrupts_STI s) else m in let m := - if ((eq_vec (_get_Minterrupts_SSI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_SSI d) ('b"1" : mword 1) then _update_Minterrupts_SSI m (_get_Sinterrupts_SSI s) else m in (haveNExt tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := - if ((eq_vec (_get_Minterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) - else m in - let m := - if ((eq_vec (_get_Minterrupts_UTI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UTI m (_get_Sinterrupts_UTI s) - else m in - if ((eq_vec (_get_Minterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_USI m (_get_Sinterrupts_USI s) - else m - else m) - : Minterrupts). - -Definition legalize_sie (m : Minterrupts) (d : Minterrupts) (v : mword 32) -: M (Minterrupts) := - - (lift_sie m d (Mk_Sinterrupts v)) - : M (Minterrupts). - -Definition Mk_Satp64 (v : mword 64) -: Satp64 := - + returnm (if sumbool_of_bool w__0 then + let m := + if eq_vec (_get_Minterrupts_UEI d) ('b"1" : mword 1) then + _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) + else m in + let m := + if eq_vec (_get_Minterrupts_UTI d) ('b"1" : mword 1) then + _update_Minterrupts_UTI m (_get_Sinterrupts_UTI s) + else m in + if eq_vec (_get_Minterrupts_USI d) ('b"1" : mword 1) then + _update_Minterrupts_USI m (_get_Sinterrupts_USI s) + else m + else m). + +Definition legalize_sie (m : Minterrupts) (d : Minterrupts) (v : mword 32) : M (Minterrupts) := + (lift_sie m d (Mk_Sinterrupts v)) : M (Minterrupts). + +Definition Mk_Satp64 (v : mword 64) : Satp64 := {| Satp64_Satp64_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Satp64_bits (v : Satp64) -: mword 64 := - +Definition _get_Satp64_bits (v : Satp64) : mword 64 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 0. -Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64) (v : mword 64) +Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6818,21 +5906,16 @@ Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_bits (v : Satp64) (x : mword 64) -: Satp64 := - +Definition _update_Satp64_bits (v : Satp64) (x : mword 64) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Satp64_Mode (v : Satp64) -: mword 4 := - +Definition _get_Satp64_Mode (v : Satp64) : mword 4 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 60. -Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64) (v : mword 4) +Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64) (v : mword 4) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6842,21 +5925,16 @@ Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_Mode (v : Satp64) (x : mword 4) -: Satp64 := - +Definition _update_Satp64_Mode (v : Satp64) (x : mword 4) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 60 (subrange_vec_dec x 3 0)) ]}. -Definition _get_Satp64_Asid (v : Satp64) -: mword 16 := - +Definition _get_Satp64_Asid (v : Satp64) : mword 16 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 59 44. -Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64) (v : mword 16) +Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64) (v : mword 16) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6866,21 +5944,16 @@ Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_Asid (v : Satp64) (x : mword 16) -: Satp64 := - +Definition _update_Satp64_Asid (v : Satp64) (x : mword 16) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 59 44 (subrange_vec_dec x 15 0)) ]}. -Definition _get_Satp64_PPN (v : Satp64) -: mword 44 := - +Definition _get_Satp64_PPN (v : Satp64) : mword 44 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 43 0. -Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) (v : mword 44) +Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6890,36 +5963,27 @@ Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) write_reg r_ref r : M (unit). -Definition _update_Satp64_PPN (v : Satp64) (x : mword 44) -: Satp64 := - +Definition _update_Satp64_PPN (v : Satp64) (x : mword 44) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 43 0 (subrange_vec_dec x 43 0)) ]}. -Definition legalize_satp64 (a : Architecture) (o : mword 64) (v : mword 64) -: mword 64 := - +Definition legalize_satp64 (a : Architecture) (o : mword 64) (v : mword 64) : mword 64 := let s := Mk_Satp64 v in match (satp64Mode_of_bits a (_get_Satp64_Mode s)) with | None => o - | Some (Sv32) => o - | Some (_) => _get_Satp64_bits s + | Some Sv32 => o + | Some _ => _get_Satp64_bits s end. -Definition Mk_Satp32 (v : mword 32) -: Satp32 := - +Definition Mk_Satp32 (v : mword 32) : Satp32 := {| Satp32_Satp32_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Satp32_bits (v : Satp32) -: mword 32 := - +Definition _get_Satp32_bits (v : Satp32) : mword 32 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 0. -Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32) (v : mword 32) +Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6929,21 +5993,16 @@ Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_bits (v : Satp32) (x : mword 32) -: Satp32 := - +Definition _update_Satp32_bits (v : Satp32) (x : mword 32) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Satp32_Mode (v : Satp32) -: mword 1 := - +Definition _get_Satp32_Mode (v : Satp32) : mword 1 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 31. -Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32) (v : mword 1) +Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6953,21 +6012,16 @@ Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_Mode (v : Satp32) (x : mword 1) -: Satp32 := - +Definition _update_Satp32_Mode (v : Satp32) (x : mword 1) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 31 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Satp32_Asid (v : Satp32) -: mword 9 := - +Definition _get_Satp32_Asid (v : Satp32) : mword 9 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 30 22. -Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32) (v : mword 9) +Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32) (v : mword 9) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6977,21 +6031,16 @@ Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_Asid (v : Satp32) (x : mword 9) -: Satp32 := - +Definition _update_Satp32_Asid (v : Satp32) (x : mword 9) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 30 22 (subrange_vec_dec x 8 0)) ]}. -Definition _get_Satp32_PPN (v : Satp32) -: mword 22 := - +Definition _get_Satp32_PPN (v : Satp32) : mword 22 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 21 0. -Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) (v : mword 22) +Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) (v : mword 22) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7001,68 +6050,53 @@ Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) write_reg r_ref r : M (unit). -Definition _update_Satp32_PPN (v : Satp32) (x : mword 22) -: Satp32 := - +Definition _update_Satp32_PPN (v : Satp32) (x : mword 22) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 21 0 (subrange_vec_dec x 21 0)) ]}. -Definition legalize_satp32 (a : Architecture) (o : mword 32) (v : mword 32) : mword 32 := v. +Definition legalize_satp32 (a : Architecture) (o : mword 32) (v : mword 32) : mword 32 := v. -Definition PmpAddrMatchType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} +Definition PmpAddrMatchType_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : PmpAddrMatchType := - - let l__27 := arg_ in - if sumbool_of_bool ((Z.eqb l__27 0)) then OFF - else if sumbool_of_bool ((Z.eqb l__27 1)) then TOR - else if sumbool_of_bool ((Z.eqb l__27 2)) then NA4 + let l__87 := arg_ in + if sumbool_of_bool (Z.eqb l__87 0) then OFF + else if sumbool_of_bool (Z.eqb l__87 1) then TOR + else if sumbool_of_bool (Z.eqb l__87 2) then NA4 else NAPOT. -Definition num_of_PmpAddrMatchType (arg_ : PmpAddrMatchType) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | OFF => 0 | TOR => 1 | NA4 => 2 | NAPOT => 3 end). +Definition num_of_PmpAddrMatchType (arg_ : PmpAddrMatchType) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | OFF => 0 | TOR => 1 | NA4 => 2 | NAPOT => 3 end). -Definition pmpAddrMatchType_of_bits (bs : mword 2) -: M (PmpAddrMatchType) := - +Definition pmpAddrMatchType_of_bits (bs : mword 2) : M (PmpAddrMatchType) := let b__0 := bs in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (OFF : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (TOR : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (NA4 : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then - returnm (NAPOT - : PmpAddrMatchType) + (if eq_vec b__0 ('b"00" : mword 2) then returnm OFF + else if eq_vec b__0 ('b"01" : mword 2) then returnm TOR + else if eq_vec b__0 ('b"10" : mword 2) then returnm NA4 + else if eq_vec b__0 ('b"11" : mword 2) then returnm NAPOT else assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 7:2 - 12:3" >>= fun _ => exit tt) : M (PmpAddrMatchType). -Definition pmpAddrMatchType_to_bits (bs : PmpAddrMatchType) -: mword 2 := - +Definition pmpAddrMatchType_to_bits (bs : PmpAddrMatchType) : mword 2 := match bs with - | OFF => (vec_of_bits [B0;B0] : mword 2) - | TOR => (vec_of_bits [B0;B1] : mword 2) - | NA4 => (vec_of_bits [B1;B0] : mword 2) - | NAPOT => (vec_of_bits [B1;B1] : mword 2) + | OFF => 'b"00" : mword 2 + | TOR => 'b"01" : mword 2 + | NA4 => 'b"10" : mword 2 + | NAPOT => 'b"11" : mword 2 end. -Definition Mk_Pmpcfg_ent (v : mword 8) -: Pmpcfg_ent := - +Definition Mk_Pmpcfg_ent (v : mword 8) : Pmpcfg_ent := {| Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (subrange_vec_dec v 7 0) |}. -Definition _get_Pmpcfg_ent_bits (v : Pmpcfg_ent) -: mword 8 := - +Definition _get_Pmpcfg_ent_bits (v : Pmpcfg_ent) : mword 8 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 0. Definition _set_Pmpcfg_ent_bits -(r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 8) +(r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7072,22 +6106,16 @@ Definition _set_Pmpcfg_ent_bits write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_bits (v : Pmpcfg_ent) (x : mword 8) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_bits (v : Pmpcfg_ent) (x : mword 8) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition _get_Pmpcfg_ent_L (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_L (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 7. Definition _set_Pmpcfg_ent_L (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7097,22 +6125,16 @@ Definition _set_Pmpcfg_ent_L (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_L (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_L (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_A (v : Pmpcfg_ent) -: mword 2 := - +Definition _get_Pmpcfg_ent_A (v : Pmpcfg_ent) : mword 2 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 4 3. Definition _set_Pmpcfg_ent_A (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 2) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7122,22 +6144,16 @@ Definition _set_Pmpcfg_ent_A (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_A (v : Pmpcfg_ent) (x : mword 2) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_A (v : Pmpcfg_ent) (x : mword 2) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 4 3 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Pmpcfg_ent_X (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_X (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 2 2. Definition _set_Pmpcfg_ent_X (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7147,22 +6163,16 @@ Definition _set_Pmpcfg_ent_X (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_X (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_X (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_W (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_W (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 1 1. Definition _set_Pmpcfg_ent_W (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7172,22 +6182,16 @@ Definition _set_Pmpcfg_ent_W (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_W (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_W (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_R (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_R (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 0 0. Definition _set_Pmpcfg_ent_R (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7197,69 +6201,64 @@ Definition _set_Pmpcfg_ent_R (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_R (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_R (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition pmpReadCfgReg (n : Z) `{ArithFact (0 <= n /\ n < 4)} -: M (mword 32) := - - let l__23 := n in - (if sumbool_of_bool ((Z.eqb l__23 0)) then +Definition pmpReadCfgReg (n : Z) `{ArithFact ((0 <=? n) && (n <? 4))} : M (mword 32) := + let l__83 := n in + (if sumbool_of_bool (Z.eqb l__83 0) then read_reg pmp3cfg_ref >>= fun w__0 : Pmpcfg_ent => read_reg pmp2cfg_ref >>= fun w__1 : Pmpcfg_ent => read_reg pmp1cfg_ref >>= fun w__2 : Pmpcfg_ent => read_reg pmp0cfg_ref >>= fun w__3 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__0) - (concat_vec (_get_Pmpcfg_ent_bits w__1) - (concat_vec (_get_Pmpcfg_ent_bits w__2) (_get_Pmpcfg_ent_bits w__3)))) - : mword (8 + (8 + (8 + 8)))) - else if sumbool_of_bool ((Z.eqb l__23 1)) then + returnm (concat_vec (_get_Pmpcfg_ent_bits w__0) + (concat_vec (_get_Pmpcfg_ent_bits w__1) + (concat_vec (_get_Pmpcfg_ent_bits w__2) (_get_Pmpcfg_ent_bits w__3)))) + else if sumbool_of_bool (Z.eqb l__83 1) then read_reg pmp7cfg_ref >>= fun w__4 : Pmpcfg_ent => read_reg pmp6cfg_ref >>= fun w__5 : Pmpcfg_ent => read_reg pmp5cfg_ref >>= fun w__6 : Pmpcfg_ent => read_reg pmp4cfg_ref >>= fun w__7 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__4) - (concat_vec (_get_Pmpcfg_ent_bits w__5) - (concat_vec (_get_Pmpcfg_ent_bits w__6) (_get_Pmpcfg_ent_bits w__7)))) - : mword (8 + (8 + (8 + 8)))) - else if sumbool_of_bool ((Z.eqb l__23 2)) then + returnm (concat_vec (_get_Pmpcfg_ent_bits w__4) + (concat_vec (_get_Pmpcfg_ent_bits w__5) + (concat_vec (_get_Pmpcfg_ent_bits w__6) (_get_Pmpcfg_ent_bits w__7)))) + else if sumbool_of_bool (Z.eqb l__83 2) then read_reg pmp11cfg_ref >>= fun w__8 : Pmpcfg_ent => read_reg pmp10cfg_ref >>= fun w__9 : Pmpcfg_ent => read_reg pmp9cfg_ref >>= fun w__10 : Pmpcfg_ent => read_reg pmp8cfg_ref >>= fun w__11 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__8) - (concat_vec (_get_Pmpcfg_ent_bits w__9) - (concat_vec (_get_Pmpcfg_ent_bits w__10) (_get_Pmpcfg_ent_bits w__11)))) - : mword (8 + (8 + (8 + 8)))) - else if sumbool_of_bool ((Z.eqb l__23 3)) then + returnm (concat_vec (_get_Pmpcfg_ent_bits w__8) + (concat_vec (_get_Pmpcfg_ent_bits w__9) + (concat_vec (_get_Pmpcfg_ent_bits w__10) (_get_Pmpcfg_ent_bits w__11)))) + else if sumbool_of_bool (Z.eqb l__83 3) then read_reg pmp15cfg_ref >>= fun w__12 : Pmpcfg_ent => read_reg pmp14cfg_ref >>= fun w__13 : Pmpcfg_ent => read_reg pmp13cfg_ref >>= fun w__14 : Pmpcfg_ent => read_reg pmp12cfg_ref >>= fun w__15 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__12) - (concat_vec (_get_Pmpcfg_ent_bits w__13) - (concat_vec (_get_Pmpcfg_ent_bits w__14) (_get_Pmpcfg_ent_bits w__15)))) - : mword (8 + (8 + (8 + 8)))) + returnm (concat_vec (_get_Pmpcfg_ent_bits w__12) + (concat_vec (_get_Pmpcfg_ent_bits w__13) + (concat_vec (_get_Pmpcfg_ent_bits w__14) (_get_Pmpcfg_ent_bits w__15)))) else assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 75:2 - 85:8" >>= fun _ => exit tt) : M (mword 32). -Definition pmpWriteCfg (cfg : Pmpcfg_ent) (v : mword 8) -: Pmpcfg_ent := - - if ((eq_vec (_get_Pmpcfg_ent_L cfg) ((bool_to_bits true) : mword 1))) then cfg - else Mk_Pmpcfg_ent v. +Definition pmpLocked (cfg : Pmpcfg_ent) : bool := eq_vec (_get_Pmpcfg_ent_L cfg) ('b"1" : mword 1). -Definition pmpWriteCfgReg (n : Z) (v : mword 32) `{ArithFact (0 <= n /\ n < 4)} -: M (unit) := - - let l__19 := n in - (if sumbool_of_bool ((Z.eqb l__19 0)) then +Definition pmpTORLocked (cfg : Pmpcfg_ent) : M (bool) := + (and_boolM (returnm ((eq_vec (_get_Pmpcfg_ent_L cfg) ('b"1" : mword 1)) : bool)) + ((pmpAddrMatchType_of_bits (_get_Pmpcfg_ent_A cfg)) >>= fun w__0 : PmpAddrMatchType => + returnm ((generic_eq w__0 TOR) : bool))) + : M (bool). + +Definition pmpWriteCfg (cfg : Pmpcfg_ent) (v : mword 8) : Pmpcfg_ent := + if pmpLocked cfg then cfg else Mk_Pmpcfg_ent (and_vec v (Ox"9F" : mword 8)). + +Definition pmpWriteCfgReg (n : Z) (v : mword 32) `{ArithFact ((0 <=? n) && (n <? 4))} : M (unit) := + let l__79 := n in + (if sumbool_of_bool (Z.eqb l__79 0) then read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => write_reg pmp0cfg_ref (pmpWriteCfg w__0 (subrange_vec_dec v 7 0)) >> read_reg pmp1cfg_ref >>= fun w__1 : Pmpcfg_ent => @@ -7269,7 +6268,7 @@ Definition pmpWriteCfgReg (n : Z) (v : mword 32) `{ArithFact (0 <= n /\ n < 4)} read_reg pmp3cfg_ref >>= fun w__3 : Pmpcfg_ent => write_reg pmp3cfg_ref (pmpWriteCfg w__3 (subrange_vec_dec v 31 24)) : M (unit) - else if sumbool_of_bool ((Z.eqb l__19 1)) then + else if sumbool_of_bool (Z.eqb l__79 1) then read_reg pmp4cfg_ref >>= fun w__4 : Pmpcfg_ent => write_reg pmp4cfg_ref (pmpWriteCfg w__4 (subrange_vec_dec v 7 0)) >> read_reg pmp5cfg_ref >>= fun w__5 : Pmpcfg_ent => @@ -7279,17 +6278,17 @@ Definition pmpWriteCfgReg (n : Z) (v : mword 32) `{ArithFact (0 <= n /\ n < 4)} read_reg pmp7cfg_ref >>= fun w__7 : Pmpcfg_ent => write_reg pmp7cfg_ref (pmpWriteCfg w__7 (subrange_vec_dec v 31 24)) : M (unit) - else if sumbool_of_bool ((Z.eqb l__19 2)) then + else if sumbool_of_bool (Z.eqb l__79 2) then read_reg pmp8cfg_ref >>= fun w__8 : Pmpcfg_ent => - let pmp8cfg8 := pmpWriteCfg w__8 (subrange_vec_dec v 7 0) in + write_reg pmp8cfg_ref (pmpWriteCfg w__8 (subrange_vec_dec v 7 0)) >> read_reg pmp9cfg_ref >>= fun w__9 : Pmpcfg_ent => - let pmp9cfg9 := pmpWriteCfg w__9 (subrange_vec_dec v 15 8) in + write_reg pmp9cfg_ref (pmpWriteCfg w__9 (subrange_vec_dec v 15 8)) >> read_reg pmp10cfg_ref >>= fun w__10 : Pmpcfg_ent => write_reg pmp10cfg_ref (pmpWriteCfg w__10 (subrange_vec_dec v 23 16)) >> read_reg pmp11cfg_ref >>= fun w__11 : Pmpcfg_ent => write_reg pmp11cfg_ref (pmpWriteCfg w__11 (subrange_vec_dec v 31 24)) : M (unit) - else if sumbool_of_bool ((Z.eqb l__19 3)) then + else if sumbool_of_bool (Z.eqb l__79 3) then read_reg pmp12cfg_ref >>= fun w__12 : Pmpcfg_ent => write_reg pmp12cfg_ref (pmpWriteCfg w__12 (subrange_vec_dec v 7 0)) >> read_reg pmp13cfg_ref >>= fun w__13 : Pmpcfg_ent => @@ -7300,280 +6299,184 @@ Definition pmpWriteCfgReg (n : Z) (v : mword 32) `{ArithFact (0 <= n /\ n < 4)} write_reg pmp15cfg_ref (pmpWriteCfg w__15 (subrange_vec_dec v 31 24)) : M (unit) else - assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 94:2 - 137:8" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 101:2 - 144:8" >>= fun _ => exit tt) : M (unit). -Definition pmpWriteAddr (cfg : Pmpcfg_ent) (reg : mword 32) (v : mword 32) +Definition pmpWriteAddr (locked : bool) (tor_locked : bool) (reg : mword 32) (v : mword 32) : mword 32 := - - if ((eq_vec (_get_Pmpcfg_ent_L cfg) ((bool_to_bits true) : mword 1))) then reg - else v. + if sumbool_of_bool (orb locked tor_locked) then reg else v. -Definition pmpAddrRange (cfg : Pmpcfg_ent) (pmpaddr : mword 32) (prev_pmpaddr : mword 32) +Definition pmpAddrRange (cfg : Pmpcfg_ent) (pmpaddr : mword 32) (prev_pmpaddr : mword 32) : M (option ((mword 32 * mword 32))) := - (pmpAddrMatchType_of_bits (_get_Pmpcfg_ent_A cfg)) >>= fun w__0 : PmpAddrMatchType => - returnm ((match w__0 with - | OFF => None - | TOR => Some ((shiftl prev_pmpaddr 2, shiftl pmpaddr 2)) - | NA4 => - let lo := shiftl pmpaddr 2 in - Some - ((lo, add_vec_int lo 4)) - | NAPOT => - let mask := xor_vec pmpaddr (add_vec_int pmpaddr 1) in - let lo := and_vec pmpaddr (not_vec mask) in - let len := add_vec_int mask 1 in - Some - ((shiftl lo 2, shiftl (add_vec lo len) 2)) - end) - : option ((mword 32 * mword 32))). + returnm (match w__0 with + | OFF => None + | TOR => Some (shiftl prev_pmpaddr 2, shiftl pmpaddr 2) + | NA4 => + let lo := shiftl pmpaddr 2 in + Some (lo, add_vec_int lo 4) + | NAPOT => + let mask := xor_vec pmpaddr (add_vec_int pmpaddr 1) in + let lo := and_vec pmpaddr (not_vec mask) in + let len := add_vec_int mask 1 in + Some (shiftl lo 2, shiftl (add_vec lo len) 2) + end). -Definition pmpCheckRWX (ent : Pmpcfg_ent) (acc : AccessType) -: bool := - +Definition pmpCheckRWX (ent : Pmpcfg_ent) (acc : AccessType unit) : bool := match acc with - | Read => eq_vec (_get_Pmpcfg_ent_R ent) ((bool_to_bits true) : mword 1) - | Write => eq_vec (_get_Pmpcfg_ent_W ent) ((bool_to_bits true) : mword 1) - | ReadWrite => - andb (eq_vec (_get_Pmpcfg_ent_R ent) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_Pmpcfg_ent_W ent) ((bool_to_bits true) : mword 1)) - | Execute => eq_vec (_get_Pmpcfg_ent_X ent) ((bool_to_bits true) : mword 1) + | Read _ => eq_vec (_get_Pmpcfg_ent_R ent) ('b"1" : mword 1) + | Write _ => eq_vec (_get_Pmpcfg_ent_W ent) ('b"1" : mword 1) + | ReadWrite _ => + andb (eq_vec (_get_Pmpcfg_ent_R ent) ('b"1" : mword 1)) + (eq_vec (_get_Pmpcfg_ent_W ent) ('b"1" : mword 1)) + | Execute tt => eq_vec (_get_Pmpcfg_ent_X ent) ('b"1" : mword 1) end. -Definition pmpCheckPerms (ent : Pmpcfg_ent) (acc : AccessType) (priv : Privilege) -: bool := - +Definition pmpCheckPerms (ent : Pmpcfg_ent) (acc : AccessType unit) (priv : Privilege) : bool := match priv with - | Machine => - if ((eq_vec (_get_Pmpcfg_ent_L ent) ((bool_to_bits true) : mword 1))) then - pmpCheckRWX ent acc - else true + | Machine => if pmpLocked ent then pmpCheckRWX ent acc else true | _ => pmpCheckRWX ent acc end. -Definition pmpAddrMatch_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: pmpAddrMatch := - - let l__17 := arg_ in - if sumbool_of_bool ((Z.eqb l__17 0)) then PMP_NoMatch - else if sumbool_of_bool ((Z.eqb l__17 1)) then PMP_PartialMatch +Definition pmpAddrMatch_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : pmpAddrMatch := + let l__77 := arg_ in + if sumbool_of_bool (Z.eqb l__77 0) then PMP_NoMatch + else if sumbool_of_bool (Z.eqb l__77 1) then PMP_PartialMatch else PMP_Match. -Definition num_of_pmpAddrMatch (arg_ : pmpAddrMatch) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | PMP_NoMatch => 0 | PMP_PartialMatch => 1 | PMP_Match => 2 end). +Definition num_of_pmpAddrMatch (arg_ : pmpAddrMatch) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | PMP_NoMatch => 0 | PMP_PartialMatch => 1 | PMP_Match => 2 end). -Definition pmpMatchAddr (addr : mword 32) (width : mword 32) (rng : option ((mword 32 * mword 32))) +Definition pmpMatchAddr (addr : mword 32) (width : mword 32) (rng : option ((mword 32 * mword 32))) : pmpAddrMatch := - match rng with | None => PMP_NoMatch - | Some ((lo, hi)) => - if ((zopz0zI_u hi lo)) then PMP_NoMatch - else if ((orb (zopz0zI_u (add_vec addr width) lo) (zopz0zI_u hi addr))) then PMP_NoMatch - else if ((andb (zopz0zIzJ_u lo addr) (zopz0zIzJ_u (add_vec addr width) hi))) then PMP_Match + | Some (lo, hi) => + if zopz0zI_u hi lo then PMP_NoMatch + else if orb (zopz0zI_u (add_vec addr width) lo) (zopz0zI_u hi addr) then PMP_NoMatch + else if andb (zopz0zIzJ_u lo addr) (zopz0zIzJ_u (add_vec addr width) hi) then PMP_Match else PMP_PartialMatch end. -Definition pmpMatch_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: pmpMatch := - - let l__15 := arg_ in - if sumbool_of_bool ((Z.eqb l__15 0)) then PMP_Success - else if sumbool_of_bool ((Z.eqb l__15 1)) then PMP_Continue +Definition pmpMatch_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : pmpMatch := + let l__75 := arg_ in + if sumbool_of_bool (Z.eqb l__75 0) then PMP_Success + else if sumbool_of_bool (Z.eqb l__75 1) then PMP_Continue else PMP_Fail. -Definition num_of_pmpMatch (arg_ : pmpMatch) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | PMP_Success => 0 | PMP_Continue => 1 | PMP_Fail => 2 end). +Definition num_of_pmpMatch (arg_ : pmpMatch) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | PMP_Success => 0 | PMP_Continue => 1 | PMP_Fail => 2 end). Definition pmpMatchEntry -(addr : mword 32) (width : mword 32) (acc : AccessType) (priv : Privilege) (ent : Pmpcfg_ent) -(pmpaddr : mword 32) (prev_pmpaddr : mword 32) +(addr : mword 32) (width : mword 32) (acc : AccessType unit) (priv : Privilege) (ent : Pmpcfg_ent) +(pmpaddr : mword 32) (prev_pmpaddr : mword 32) : M (pmpMatch) := - (pmpAddrRange ent pmpaddr prev_pmpaddr) >>= fun rng => - returnm ((match (pmpMatchAddr addr width rng) with - | PMP_NoMatch => PMP_Continue - | PMP_PartialMatch => PMP_Fail - | PMP_Match => if ((pmpCheckPerms ent acc priv)) then PMP_Success else PMP_Fail - end) - : pmpMatch). + returnm (match (pmpMatchAddr addr width rng) with + | PMP_NoMatch => PMP_Continue + | PMP_PartialMatch => PMP_Fail + | PMP_Match => if pmpCheckPerms ent acc priv then PMP_Success else PMP_Fail + end). -Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Privilege) -`{ArithFact (width > 0)} +Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType unit) (priv : Privilege) +`{ArithFact (width >? 0)} : M (option ExceptionType) := - let width : xlenbits := to_bits 32 width in read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__1 : mword 32 => (pmpMatchEntry addr width acc priv w__0 w__1 (zeros_implicit 32)) >>= fun w__2 : pmpMatch => (match w__2 with - | PMP_Success => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp1cfg_ref >>= fun w__3 : Pmpcfg_ent => ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__4 : mword 32 => ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__5 : mword 32 => (pmpMatchEntry addr width acc priv w__3 w__4 w__5) >>= fun w__6 : pmpMatch => (match w__6 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp2cfg_ref >>= fun w__7 : Pmpcfg_ent => ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__8 : mword 32 => ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__9 : mword 32 => (pmpMatchEntry addr width acc priv w__7 w__8 w__9) >>= fun w__10 : pmpMatch => (match w__10 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp3cfg_ref >>= fun w__11 : Pmpcfg_ent => ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__12 : mword 32 => ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__13 : mword 32 => (pmpMatchEntry addr width acc priv w__11 w__12 w__13) >>= fun w__14 : pmpMatch => (match w__14 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp4cfg_ref >>= fun w__15 : Pmpcfg_ent => ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__16 : mword 32 => ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__17 : mword 32 => (pmpMatchEntry addr width acc priv w__15 w__16 w__17) >>= fun w__18 : pmpMatch => (match w__18 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp5cfg_ref >>= fun w__19 : Pmpcfg_ent => ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__20 : mword 32 => ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__21 : mword 32 => (pmpMatchEntry addr width acc priv w__19 w__20 w__21) >>= fun w__22 : pmpMatch => (match w__22 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp6cfg_ref >>= fun w__23 : Pmpcfg_ent => ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__24 : mword 32 => ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__25 : mword 32 => (pmpMatchEntry addr width acc priv w__23 w__24 w__25) >>= fun w__26 : pmpMatch => (match w__26 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp7cfg_ref >>= fun w__27 : Pmpcfg_ent => ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__28 : mword 32 => ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__29 : mword 32 => (pmpMatchEntry addr width acc priv w__27 w__28 w__29) >>= fun w__30 : pmpMatch => (match w__30 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp8cfg_ref >>= fun w__31 : Pmpcfg_ent => ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__32 : mword 32 => ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__33 : mword 32 => (pmpMatchEntry addr width acc priv w__31 w__32 w__33) >>= fun w__34 : pmpMatch => (match w__34 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp9cfg_ref >>= fun w__35 : Pmpcfg_ent => ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__36 : mword 32 => ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__37 : mword 32 => (pmpMatchEntry addr width acc priv w__35 w__36 w__37) >>= fun w__38 : pmpMatch => (match w__38 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp10cfg_ref >>= fun w__39 : Pmpcfg_ent => ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__40 : mword 32 => ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__41 : mword 32 => (pmpMatchEntry addr width acc priv w__39 w__40 w__41) >>= fun w__42 : pmpMatch => (match w__42 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp11cfg_ref >>= fun w__43 : Pmpcfg_ent => ((read_reg pmpaddr11_ref) : M (mword 32)) >>= fun w__44 : mword 32 => ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__45 : mword 32 => (pmpMatchEntry addr width acc priv w__43 w__44 w__45) >>= fun w__46 : pmpMatch => (match w__46 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp12cfg_ref >>= fun w__47 : Pmpcfg_ent => ((read_reg pmpaddr12_ref) : M (mword 32)) >>= fun w__48 : mword 32 => @@ -7581,17 +6484,8 @@ Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__47 w__48 w__49) >>= fun w__50 : pmpMatch => (match w__50 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp13cfg_ref >>= fun w__51 : Pmpcfg_ent => ((read_reg pmpaddr13_ref) : M (mword 32)) >>= fun w__52 : mword 32 => @@ -7599,18 +6493,8 @@ Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__51 w__52 w__53) >>= fun w__54 : pmpMatch => (match w__54 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp14cfg_ref >>= fun w__55 : Pmpcfg_ent => ((read_reg pmpaddr14_ref) : M (mword 32)) >>= fun w__56 : mword 32 => @@ -7618,18 +6502,8 @@ Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__55 w__56 w__57) >>= fun w__58 : pmpMatch => (match w__58 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp15cfg_ref >>= fun w__59 : Pmpcfg_ent => ((read_reg pmpaddr15_ref) @@ -7638,16 +6512,15 @@ Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Pri : M (mword 32)) >>= fun w__61 : mword 32 => (pmpMatchEntry addr width acc priv w__59 w__60 w__61) >>= fun w__62 : pmpMatch => - returnm ((match w__62 with - | PMP_Success => true - | PMP_Fail => false - | PMP_Continue => - match priv with - | Machine => true - | _ => false - end - end) - : bool) + returnm (match w__62 with + | PMP_Success => true + | PMP_Fail => false + | PMP_Continue => + match priv with + | Machine => true + | _ => false + end + end) end) : M (bool) end) @@ -7677,19 +6550,16 @@ Definition pmpCheck (addr : mword 32) (width : Z) (acc : AccessType) (priv : Pri end) : M (bool) end) >>= fun check' : bool => - returnm ((if sumbool_of_bool (check') then None - else - match acc with - | Read => Some (E_Load_Access_Fault) - | Write => Some (E_SAMO_Access_Fault) - | ReadWrite => Some (E_SAMO_Access_Fault) - | Execute => Some (E_Fetch_Access_Fault) - end) - : option ExceptionType). - -Definition init_pmp '(tt : unit) -: M (unit) := - + returnm (if sumbool_of_bool check' then None + else + match acc with + | Read _ => Some (E_Load_Access_Fault tt) + | Write _ => Some (E_SAMO_Access_Fault tt) + | ReadWrite _ => Some (E_SAMO_Access_Fault tt) + | Execute tt => Some (E_Fetch_Access_Fault tt) + end). + +Definition init_pmp '(tt : unit) : M (unit) := read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => write_reg pmp0cfg_ref (_update_Pmpcfg_ent_A w__0 (pmpAddrMatchType_to_bits OFF)) >> read_reg pmp1cfg_ref >>= fun w__1 : Pmpcfg_ent => @@ -7724,2584 +6594,3897 @@ Definition init_pmp '(tt : unit) write_reg pmp15cfg_ref (_update_Pmpcfg_ent_A w__15 (pmpAddrMatchType_to_bits OFF)) : M (unit). -Definition ext_init_regs '(tt : unit) : M (unit) := returnm (tt : unit). +Definition ext_init_regs '(tt : unit) : M (unit) := returnm tt. + +Definition ext_rvfi_init '(tt : unit) : M (unit) := + ((read_reg x1_ref) : M (mword 32)) >>= fun w__0 : mword 32 => write_reg x1_ref w__0 : M (unit). -Definition ext_rvfi_init '(tt : unit) : M (unit) := returnm (tt : unit). +Definition ext_check_CSR (csrno : mword 12) (p : Privilege) (isWrite : bool) : bool := true. -Definition ext_fetch_check_pc (start_pc : mword 32) (pc : mword 32) -: Ext_FetchAddr_Check unit := - - Ext_FetchAddr_OK - (pc). +Definition ext_check_CSR_fail '(tt : unit) : unit := tt. -Definition ext_handle_fetch_check_error (err : unit) : unit := tt. +Definition ext_fetch_check_pc (start_pc : mword 32) (pc : mword 32) : Ext_FetchAddr_Check unit := + Ext_FetchAddr_OK pc. -Definition ext_control_check_addr (pc : mword 32) -: Ext_ControlAddr_Check unit := - - Ext_ControlAddr_OK - (pc). +Definition ext_handle_fetch_check_error (err : unit) : unit := tt. -Definition ext_control_check_pc (pc : mword 32) -: Ext_ControlAddr_Check unit := - - Ext_ControlAddr_OK - (pc). +Definition ext_control_check_addr (pc : mword 32) : Ext_ControlAddr_Check unit := + Ext_ControlAddr_OK pc. -Definition ext_handle_control_check_error (err : unit) : unit := tt. +Definition ext_control_check_pc (pc : mword 32) : Ext_ControlAddr_Check unit := + Ext_ControlAddr_OK pc. + +Definition ext_handle_control_check_error (err : unit) : unit := tt. Definition ext_data_get_addr -(base : mword 5) (offset : mword 32) (acc : AccessType) (width : word_width) +(base : mword 5) (offset : mword 32) (acc : AccessType unit) (width : word_width) : M (Ext_DataAddr_Check unit) := - - (rX (projT1 (regidx_to_regno base))) >>= fun w__0 : mword 32 => + (rX_bits base) >>= fun w__0 : mword 32 => let addr := add_vec w__0 offset in - returnm ((Ext_DataAddr_OK - (addr)) - : Ext_DataAddr_Check unit). + returnm (Ext_DataAddr_OK addr). -Definition ext_handle_data_check_error (err : unit) : unit := tt. +Definition ext_handle_data_check_error (err : unit) : unit := tt. -Definition csr_name (csr : mword 12) -: string := - - let b__0 := csr in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then "ustatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "uie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "utvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "uscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "uepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "ucause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "utval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "uip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "fflags" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "frm" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "fcsr" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "cycle" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "time" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "instret" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "cycleh" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "timeh" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "instreth" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "sstatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "sedeleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "sideleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "sie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "stvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - "scounteren" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "sscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "sepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "scause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "stval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "sip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "satp" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - "mvendorid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - "marchid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - "mimpid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - "mhartid" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mstatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "misa" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "medeleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "mideleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "mie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "mtvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - "mcounteren" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "mepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "mcause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "mtval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "mip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - "pmpcfg0" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - "pmpaddr0" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mcycle" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "minstret" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mcycleh" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "minstreth" - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - "tselect" - else "UNKNOWN". - -Definition csr_name_map_forwards (arg_ : mword 12) -: M (string) := - - let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("ustatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("uie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("utvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("uscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("uepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("ucause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("utval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("uip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("fflags" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("frm" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("fcsr" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("cycle" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("time" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("instret" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("cycleh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("timeh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("instreth" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("sstatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("sedeleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("sideleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("sie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("stvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ("scounteren" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("sscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("sepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("scause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("stval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("sip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("satp" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - returnm ("mvendorid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - returnm ("marchid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - returnm ("mimpid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - returnm ("mhartid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mstatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("misa" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("medeleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("mideleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("mie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("mtvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ("mcounteren" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("mepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("mcause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("mtval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("mip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("pmpcfg0" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("pmpcfg1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("pmpcfg2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("pmpcfg3" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - returnm ("pmpaddr0" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - returnm ("pmpaddr1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - returnm ("pmpaddr2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - returnm ("pmpaddr3" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - returnm ("pmpaddr4" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - returnm ("pmpaddr5" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - returnm ("pmpaddr6" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - returnm ("pmpaddr7" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - returnm ("pmpaddr8" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - returnm ("pmpaddr9" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - returnm ("pmpaddr10" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - returnm ("pmpaddr11" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - returnm ("pmpaddr12" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - returnm ("pmpaddr13" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - returnm ("pmpaddr14" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - returnm ("pmpaddr15" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mcycle" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("minstret" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mcycleh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("minstreth" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("tselect" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("tdata1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("tdata2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("tdata3" - : string) - else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) - : M (string). +Definition Mk_Ustatus (v : mword 32) : Ustatus := + {| Ustatus_Ustatus_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition csr_name_map_backwards (arg_ : string) -: M (mword 12) := - - let p0_ := arg_ in - (if ((generic_eq p0_ "ustatus")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uie")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "utvec")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uscratch")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uepc")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "ucause")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "utval")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uip")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "fflags")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "frm")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "fcsr")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "cycle")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "time")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "instret")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "cycleh")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "timeh")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "instreth")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sstatus")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sedeleg")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sideleg")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sie")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "stvec")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "scounteren")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sscratch")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sepc")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "scause")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "stval")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sip")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "satp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mvendorid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "marchid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mimpid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mhartid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mstatus")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "misa")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "medeleg")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mideleg")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mie")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mtvec")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcounteren")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mscratch")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mepc")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcause")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mtval")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mip")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg0")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg3")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr0")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr3")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr4")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr5")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr6")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr7")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr8")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr9")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr10")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr11")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr12")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr13")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr14")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr15")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcycle")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "minstret")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcycleh")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "minstreth")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tselect")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata1")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata2")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata3")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) - : M (mword 12). +Definition _get_Ustatus_bits (v : Ustatus) : mword 32 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 31 0. -Definition csr_name_map_forwards_matches (arg_ : mword 12) -: bool := - - let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then true - else false. +Definition _set_Ustatus_bits (r_ref : register_ref regstate register_value Ustatus) (v : mword 32) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition csr_name_map_backwards_matches (arg_ : string) -: bool := - - let p0_ := arg_ in - if ((generic_eq p0_ "ustatus")) then true - else if ((generic_eq p0_ "uie")) then true - else if ((generic_eq p0_ "utvec")) then true - else if ((generic_eq p0_ "uscratch")) then true - else if ((generic_eq p0_ "uepc")) then true - else if ((generic_eq p0_ "ucause")) then true - else if ((generic_eq p0_ "utval")) then true - else if ((generic_eq p0_ "uip")) then true - else if ((generic_eq p0_ "fflags")) then true - else if ((generic_eq p0_ "frm")) then true - else if ((generic_eq p0_ "fcsr")) then true - else if ((generic_eq p0_ "cycle")) then true - else if ((generic_eq p0_ "time")) then true - else if ((generic_eq p0_ "instret")) then true - else if ((generic_eq p0_ "cycleh")) then true - else if ((generic_eq p0_ "timeh")) then true - else if ((generic_eq p0_ "instreth")) then true - else if ((generic_eq p0_ "sstatus")) then true - else if ((generic_eq p0_ "sedeleg")) then true - else if ((generic_eq p0_ "sideleg")) then true - else if ((generic_eq p0_ "sie")) then true - else if ((generic_eq p0_ "stvec")) then true - else if ((generic_eq p0_ "scounteren")) then true - else if ((generic_eq p0_ "sscratch")) then true - else if ((generic_eq p0_ "sepc")) then true - else if ((generic_eq p0_ "scause")) then true - else if ((generic_eq p0_ "stval")) then true - else if ((generic_eq p0_ "sip")) then true - else if ((generic_eq p0_ "satp")) then true - else if ((generic_eq p0_ "mvendorid")) then true - else if ((generic_eq p0_ "marchid")) then true - else if ((generic_eq p0_ "mimpid")) then true - else if ((generic_eq p0_ "mhartid")) then true - else if ((generic_eq p0_ "mstatus")) then true - else if ((generic_eq p0_ "misa")) then true - else if ((generic_eq p0_ "medeleg")) then true - else if ((generic_eq p0_ "mideleg")) then true - else if ((generic_eq p0_ "mie")) then true - else if ((generic_eq p0_ "mtvec")) then true - else if ((generic_eq p0_ "mcounteren")) then true - else if ((generic_eq p0_ "mscratch")) then true - else if ((generic_eq p0_ "mepc")) then true - else if ((generic_eq p0_ "mcause")) then true - else if ((generic_eq p0_ "mtval")) then true - else if ((generic_eq p0_ "mip")) then true - else if ((generic_eq p0_ "pmpcfg0")) then true - else if ((generic_eq p0_ "pmpcfg1")) then true - else if ((generic_eq p0_ "pmpcfg2")) then true - else if ((generic_eq p0_ "pmpcfg3")) then true - else if ((generic_eq p0_ "pmpaddr0")) then true - else if ((generic_eq p0_ "pmpaddr1")) then true - else if ((generic_eq p0_ "pmpaddr2")) then true - else if ((generic_eq p0_ "pmpaddr3")) then true - else if ((generic_eq p0_ "pmpaddr4")) then true - else if ((generic_eq p0_ "pmpaddr5")) then true - else if ((generic_eq p0_ "pmpaddr6")) then true - else if ((generic_eq p0_ "pmpaddr7")) then true - else if ((generic_eq p0_ "pmpaddr8")) then true - else if ((generic_eq p0_ "pmpaddr9")) then true - else if ((generic_eq p0_ "pmpaddr10")) then true - else if ((generic_eq p0_ "pmpaddr11")) then true - else if ((generic_eq p0_ "pmpaddr12")) then true - else if ((generic_eq p0_ "pmpaddr13")) then true - else if ((generic_eq p0_ "pmpaddr14")) then true - else if ((generic_eq p0_ "pmpaddr15")) then true - else if ((generic_eq p0_ "mcycle")) then true - else if ((generic_eq p0_ "minstret")) then true - else if ((generic_eq p0_ "mcycleh")) then true - else if ((generic_eq p0_ "minstreth")) then true - else if ((generic_eq p0_ "tselect")) then true - else if ((generic_eq p0_ "tdata1")) then true - else if ((generic_eq p0_ "tdata2")) then true - else if ((generic_eq p0_ "tdata3")) then true - else false. +Definition _update_Ustatus_bits (v : Ustatus) (x : mword 32) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _s488_ (_s489_ : string) -: option string := - - let _s490_ := _s489_ in - if ((string_startswith _s490_ "tdata3")) then - match (string_drop _s490_ (projT1 (string_length "tdata3"))) with | s_ => Some (s_) end - else None. +Definition _get_Ustatus_UPIE (v : Ustatus) : mword 1 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4. -Definition _s484_ (_s485_ : string) -: option string := - - let _s486_ := _s485_ in - if ((string_startswith _s486_ "tdata2")) then - match (string_drop _s486_ (projT1 (string_length "tdata2"))) with | s_ => Some (s_) end - else None. +Definition _set_Ustatus_UPIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition _s480_ (_s481_ : string) -: option string := - - let _s482_ := _s481_ in - if ((string_startswith _s482_ "tdata1")) then - match (string_drop _s482_ (projT1 (string_length "tdata1"))) with | s_ => Some (s_) end - else None. +Definition _update_Ustatus_UPIE (v : Ustatus) (x : mword 1) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _s476_ (_s477_ : string) -: option string := - - let _s478_ := _s477_ in - if ((string_startswith _s478_ "tselect")) then - match (string_drop _s478_ (projT1 (string_length "tselect"))) with | s_ => Some (s_) end - else None. +Definition _get_Ustatus_UIE (v : Ustatus) : mword 1 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0. -Definition _s472_ (_s473_ : string) -: option string := - - let _s474_ := _s473_ in - if ((string_startswith _s474_ "minstreth")) then - match (string_drop _s474_ (projT1 (string_length "minstreth"))) with | s_ => Some (s_) end - else None. +Definition _set_Ustatus_UIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition _s468_ (_s469_ : string) -: option string := - - let _s470_ := _s469_ in - if ((string_startswith _s470_ "mcycleh")) then - match (string_drop _s470_ (projT1 (string_length "mcycleh"))) with | s_ => Some (s_) end - else None. +Definition _update_Ustatus_UIE (v : Ustatus) (x : mword 1) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition _s464_ (_s465_ : string) -: option string := - - let _s466_ := _s465_ in - if ((string_startswith _s466_ "minstret")) then - match (string_drop _s466_ (projT1 (string_length "minstret"))) with | s_ => Some (s_) end - else None. +Definition lower_sstatus (s : Sstatus) : Ustatus := + let u := Mk_Ustatus (EXTZ 32 ('b"0" : mword 1)) in + let u := _update_Ustatus_UPIE u (_get_Sstatus_UPIE s) in + _update_Ustatus_UIE u (_get_Sstatus_UIE s). -Definition _s460_ (_s461_ : string) -: option string := - - let _s462_ := _s461_ in - if ((string_startswith _s462_ "mcycle")) then - match (string_drop _s462_ (projT1 (string_length "mcycle"))) with | s_ => Some (s_) end - else None. +Definition lift_ustatus (s : Sstatus) (u : Ustatus) : Sstatus := + let s := _update_Sstatus_UPIE s (_get_Ustatus_UPIE u) in + _update_Sstatus_UIE s (_get_Ustatus_UIE u). -Definition _s456_ (_s457_ : string) -: option string := - - let _s458_ := _s457_ in - if ((string_startswith _s458_ "pmpaddr15")) then - match (string_drop _s458_ (projT1 (string_length "pmpaddr15"))) with | s_ => Some (s_) end - else None. +Definition legalize_ustatus (m : Mstatus) (v : mword 32) : M (Mstatus) := + let u := Mk_Ustatus v in + let s := lower_mstatus m in + let s := lift_ustatus s u in + lift_sstatus m s. -Definition _s452_ (_s453_ : string) -: option string := - - let _s454_ := _s453_ in - if ((string_startswith _s454_ "pmpaddr14")) then - match (string_drop _s454_ (projT1 (string_length "pmpaddr14"))) with | s_ => Some (s_) end - else None. +Definition Mk_Uinterrupts (v : mword 32) : Uinterrupts := + {| Uinterrupts_Uinterrupts_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _s448_ (_s449_ : string) -: option string := - - let _s450_ := _s449_ in - if ((string_startswith _s450_ "pmpaddr13")) then - match (string_drop _s450_ (projT1 (string_length "pmpaddr13"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_bits (v : Uinterrupts) : mword 32 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 31 0. -Definition _s444_ (_s445_ : string) -: option string := - - let _s446_ := _s445_ in - if ((string_startswith _s446_ "pmpaddr12")) then - match (string_drop _s446_ (projT1 (string_length "pmpaddr12"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_bits +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 32) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s440_ (_s441_ : string) -: option string := - - let _s442_ := _s441_ in - if ((string_startswith _s442_ "pmpaddr11")) then - match (string_drop _s442_ (projT1 (string_length "pmpaddr11"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_bits (v : Uinterrupts) (x : mword 32) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _s436_ (_s437_ : string) -: option string := - - let _s438_ := _s437_ in - if ((string_startswith _s438_ "pmpaddr10")) then - match (string_drop _s438_ (projT1 (string_length "pmpaddr10"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_UEI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8. -Definition _s432_ (_s433_ : string) -: option string := - - let _s434_ := _s433_ in - if ((string_startswith _s434_ "pmpaddr9")) then - match (string_drop _s434_ (projT1 (string_length "pmpaddr9"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_UEI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s428_ (_s429_ : string) -: option string := - - let _s430_ := _s429_ in - if ((string_startswith _s430_ "pmpaddr8")) then - match (string_drop _s430_ (projT1 (string_length "pmpaddr8"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_UEI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _s424_ (_s425_ : string) -: option string := - - let _s426_ := _s425_ in - if ((string_startswith _s426_ "pmpaddr7")) then - match (string_drop _s426_ (projT1 (string_length "pmpaddr7"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_UTI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4. -Definition _s420_ (_s421_ : string) -: option string := - - let _s422_ := _s421_ in - if ((string_startswith _s422_ "pmpaddr6")) then - match (string_drop _s422_ (projT1 (string_length "pmpaddr6"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_UTI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s416_ (_s417_ : string) -: option string := - - let _s418_ := _s417_ in - if ((string_startswith _s418_ "pmpaddr5")) then - match (string_drop _s418_ (projT1 (string_length "pmpaddr5"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_UTI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _s412_ (_s413_ : string) -: option string := - - let _s414_ := _s413_ in - if ((string_startswith _s414_ "pmpaddr4")) then - match (string_drop _s414_ (projT1 (string_length "pmpaddr4"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_USI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0. -Definition _s408_ (_s409_ : string) -: option string := - - let _s410_ := _s409_ in - if ((string_startswith _s410_ "pmpaddr3")) then - match (string_drop _s410_ (projT1 (string_length "pmpaddr3"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_USI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s404_ (_s405_ : string) -: option string := - - let _s406_ := _s405_ in - if ((string_startswith _s406_ "pmpaddr2")) then - match (string_drop _s406_ (projT1 (string_length "pmpaddr2"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_USI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition _s400_ (_s401_ : string) -: option string := - - let _s402_ := _s401_ in - if ((string_startswith _s402_ "pmpaddr1")) then - match (string_drop _s402_ (projT1 (string_length "pmpaddr1"))) with | s_ => Some (s_) end - else None. +Definition lower_sip (s : Sinterrupts) (d : Sinterrupts) : Uinterrupts := + let u : Uinterrupts := Mk_Uinterrupts (EXTZ 32 ('b"0" : mword 1)) in + let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in + let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in + _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). -Definition _s396_ (_s397_ : string) -: option string := - - let _s398_ := _s397_ in - if ((string_startswith _s398_ "pmpaddr0")) then - match (string_drop _s398_ (projT1 (string_length "pmpaddr0"))) with | s_ => Some (s_) end - else None. +Definition lower_sie (s : Sinterrupts) (d : Sinterrupts) : Uinterrupts := + let u : Uinterrupts := Mk_Uinterrupts (EXTZ 32 ('b"0" : mword 1)) in + let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in + let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in + _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). -Definition _s392_ (_s393_ : string) -: option string := - - let _s394_ := _s393_ in - if ((string_startswith _s394_ "pmpcfg3")) then - match (string_drop _s394_ (projT1 (string_length "pmpcfg3"))) with | s_ => Some (s_) end - else None. +Definition lift_uip (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) : Sinterrupts := + let s : Sinterrupts := o in + if eq_vec (_get_Sinterrupts_USI d) ('b"1" : mword 1) then + _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) + else s. -Definition _s388_ (_s389_ : string) -: option string := - - let _s390_ := _s389_ in - if ((string_startswith _s390_ "pmpcfg2")) then - match (string_drop _s390_ (projT1 (string_length "pmpcfg2"))) with | s_ => Some (s_) end - else None. +Definition legalize_uip (s : Sinterrupts) (d : Sinterrupts) (v : mword 32) : Sinterrupts := + lift_uip s d (Mk_Uinterrupts v). -Definition _s384_ (_s385_ : string) -: option string := - - let _s386_ := _s385_ in - if ((string_startswith _s386_ "pmpcfg1")) then - match (string_drop _s386_ (projT1 (string_length "pmpcfg1"))) with | s_ => Some (s_) end - else None. +Definition lift_uie (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) : Sinterrupts := + let s : Sinterrupts := o in + let s := + if eq_vec (_get_Sinterrupts_UEI d) ('b"1" : mword 1) then + _update_Sinterrupts_UEI s (_get_Uinterrupts_UEI u) + else s in + let s := + if eq_vec (_get_Sinterrupts_UTI d) ('b"1" : mword 1) then + _update_Sinterrupts_UTI s (_get_Uinterrupts_UTI u) + else s in + if eq_vec (_get_Sinterrupts_USI d) ('b"1" : mword 1) then + _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) + else s. -Definition _s380_ (_s381_ : string) -: option string := - - let _s382_ := _s381_ in - if ((string_startswith _s382_ "pmpcfg0")) then - match (string_drop _s382_ (projT1 (string_length "pmpcfg0"))) with | s_ => Some (s_) end - else None. +Definition legalize_uie (s : Sinterrupts) (d : Sinterrupts) (v : mword 32) : Sinterrupts := + lift_uie s d (Mk_Uinterrupts v). -Definition _s376_ (_s377_ : string) -: option string := - - let _s378_ := _s377_ in - if ((string_startswith _s378_ "mip")) then - match (string_drop _s378_ (projT1 (string_length "mip"))) with | s_ => Some (s_) end - else None. +Definition ext_check_xret_priv (p : Privilege) : bool := true. -Definition _s372_ (_s373_ : string) -: option string := - - let _s374_ := _s373_ in - if ((string_startswith _s374_ "mtval")) then - match (string_drop _s374_ (projT1 (string_length "mtval"))) with | s_ => Some (s_) end - else None. +Definition ext_fail_xret_priv '(tt : unit) : unit := tt. -Definition _s368_ (_s369_ : string) -: option string := - - let _s370_ := _s369_ in - if ((string_startswith _s370_ "mcause")) then - match (string_drop _s370_ (projT1 (string_length "mcause"))) with | s_ => Some (s_) end - else None. +Definition handle_trap_extension (p : Privilege) (pc : mword 32) (u : option unit) : unit := tt. -Definition _s364_ (_s365_ : string) -: option string := - - let _s366_ := _s365_ in - if ((string_startswith _s366_ "mepc")) then - match (string_drop _s366_ (projT1 (string_length "mepc"))) with | s_ => Some (s_) end - else None. +Definition prepare_trap_vector (p : Privilege) (cause : Mcause) : M (mword 32) := + (match p with + | Machine => read_reg mtvec_ref : M (Mtvec) + | Supervisor => read_reg stvec_ref : M (Mtvec) + | User => read_reg utvec_ref : M (Mtvec) + end) >>= fun tvec : Mtvec => + (match (tvec_addr tvec cause) with + | Some epc => returnm epc + | None => (internal_error "Invalid tvec mode") : M (mword 32) + end) + : M (mword 32). -Definition _s360_ (_s361_ : string) -: option string := - - let _s362_ := _s361_ in - if ((string_startswith _s362_ "mscratch")) then - match (string_drop _s362_ (projT1 (string_length "mscratch"))) with | s_ => Some (s_) end - else None. +Definition get_xret_target (p : Privilege) : M (mword 32) := + (match p with + | Machine => ((read_reg mepc_ref) : M (mword 32)) : M (mword 32) + | Supervisor => ((read_reg sepc_ref) : M (mword 32)) : M (mword 32) + | User => ((read_reg uepc_ref) : M (mword 32)) : M (mword 32) + end) + : M (mword 32). -Definition _s356_ (_s357_ : string) -: option string := - - let _s358_ := _s357_ in - if ((string_startswith _s358_ "mcounteren")) then - match (string_drop _s358_ (projT1 (string_length "mcounteren"))) with | s_ => Some (s_) end - else None. +Definition set_xret_target (p : Privilege) (value : mword 32) : M (mword 32) := + (legalize_xepc value) >>= fun target => + (match p with + | Machine => write_reg mepc_ref target : M (unit) + | Supervisor => write_reg sepc_ref target : M (unit) + | User => write_reg uepc_ref target : M (unit) + end) >> + returnm target. -Definition _s352_ (_s353_ : string) -: option string := - - let _s354_ := _s353_ in - if ((string_startswith _s354_ "mtvec")) then - match (string_drop _s354_ (projT1 (string_length "mtvec"))) with | s_ => Some (s_) end - else None. +Definition prepare_xret_target (p : Privilege) : M (mword 32) := + (get_xret_target p) : M (mword 32). -Definition _s348_ (_s349_ : string) -: option string := - - let _s350_ := _s349_ in - if ((string_startswith _s350_ "mie")) then - match (string_drop _s350_ (projT1 (string_length "mie"))) with | s_ => Some (s_) end - else None. +Definition get_mtvec '(tt : unit) : M (mword 32) := + read_reg mtvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s344_ (_s345_ : string) -: option string := - - let _s346_ := _s345_ in - if ((string_startswith _s346_ "mideleg")) then - match (string_drop _s346_ (projT1 (string_length "mideleg"))) with | s_ => Some (s_) end - else None. +Definition get_stvec '(tt : unit) : M (mword 32) := + read_reg stvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s340_ (_s341_ : string) -: option string := - - let _s342_ := _s341_ in - if ((string_startswith _s342_ "medeleg")) then - match (string_drop _s342_ (projT1 (string_length "medeleg"))) with | s_ => Some (s_) end - else None. +Definition get_utvec '(tt : unit) : M (mword 32) := + read_reg utvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s336_ (_s337_ : string) -: option string := - - let _s338_ := _s337_ in - if ((string_startswith _s338_ "misa")) then - match (string_drop _s338_ (projT1 (string_length "misa"))) with | s_ => Some (s_) end - else None. +Definition set_mtvec (value : mword 32) : M (mword 32) := + read_reg mtvec_ref >>= fun w__0 : Mtvec => + write_reg mtvec_ref (legalize_tvec w__0 value) >> + read_reg mtvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). -Definition _s332_ (_s333_ : string) -: option string := - - let _s334_ := _s333_ in - if ((string_startswith _s334_ "mstatus")) then - match (string_drop _s334_ (projT1 (string_length "mstatus"))) with | s_ => Some (s_) end - else None. +Definition set_stvec (value : mword 32) : M (mword 32) := + read_reg stvec_ref >>= fun w__0 : Mtvec => + write_reg stvec_ref (legalize_tvec w__0 value) >> + read_reg stvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). -Definition _s328_ (_s329_ : string) -: option string := - - let _s330_ := _s329_ in - if ((string_startswith _s330_ "mhartid")) then - match (string_drop _s330_ (projT1 (string_length "mhartid"))) with | s_ => Some (s_) end - else None. +Definition set_utvec (value : mword 32) : M (mword 32) := + read_reg utvec_ref >>= fun w__0 : Mtvec => + write_reg utvec_ref (legalize_tvec w__0 value) >> + read_reg utvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). + +Definition update_softfloat_fflags (flags : mword 5) : M (unit) := + write_reg float_fflags_ref (zero_extend flags 64) : M (unit). + +Axiom extern_f32Add : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Add (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Add rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Sub : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Sub (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Sub rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Mul : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Mul (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Mul rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Div : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Div (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Div rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Add : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Add (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Add rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Sub : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Sub (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Sub rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Mul : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Mul (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Mul rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Div : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Div (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Div rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32MulAdd : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32MulAdd (rm : mword 3) (v1 : mword 32) (v2 : mword 32) (v3 : mword 32) +: M ((mword 5 * mword 32)) := + let '_ := (extern_f32MulAdd rm v1 v2 v3) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64MulAdd : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64MulAdd (rm : mword 3) (v1 : mword 64) (v2 : mword 64) (v3 : mword 64) +: M ((mword 5 * mword 64)) := + let '_ := (extern_f64MulAdd rm v1 v2 v3) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32Sqrt : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32Sqrt (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Sqrt rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Sqrt : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64Sqrt (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Sqrt rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToI32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToI32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32ToI32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32ToUi32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToUi32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32ToUi32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_i32ToF32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_i32ToF32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_i32ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_ui32ToF32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_ui32ToF32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_ui32ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32ToI64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToI64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToI64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToUi64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToUi64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToUi64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_i64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_i64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_i64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_ui64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_ui64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_ui64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64ToI32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToI32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToI32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64ToUi32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToUi32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToUi32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_i32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_i32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_i32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_ui32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_ui32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_ui32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToI64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToI64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64ToI64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToUi64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToUi64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64ToUi64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_i64ToF64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_i64ToF64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_i64ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_ui64ToF64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_ui64ToF64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_ui64ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Lt : forall (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Lt (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Lt v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Le : forall (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Le (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Le v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Eq : forall (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Eq (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Eq v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Lt : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Lt (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Lt v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Le : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Le (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Le v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Eq : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Eq (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Eq v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Definition dirty_fd_context '(tt : unit) : M (unit) := + (_set_Mstatus_FS mstatus_ref (extStatus_to_bits Dirty)) >> + (_set_Mstatus_SD mstatus_ref ('b"1" : mword 1)) + : M (unit). + +Definition rF (r : Z) `{ArithFact ((0 <=? r) && (r <? 32))} : M (mword 32) := + let l__43 := r in + (if sumbool_of_bool (Z.eqb l__43 0) then ((read_reg f0_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 1) then ((read_reg f1_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 2) then ((read_reg f2_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 3) then ((read_reg f3_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 4) then ((read_reg f4_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 5) then ((read_reg f5_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 6) then ((read_reg f6_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 7) then ((read_reg f7_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 8) then ((read_reg f8_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 9) then ((read_reg f9_ref) : M (mword 32)) : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 10) then + ((read_reg f10_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 11) then + ((read_reg f11_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 12) then + ((read_reg f12_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 13) then + ((read_reg f13_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 14) then + ((read_reg f14_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 15) then + ((read_reg f15_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 16) then + ((read_reg f16_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 17) then + ((read_reg f17_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 18) then + ((read_reg f18_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 19) then + ((read_reg f19_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 20) then + ((read_reg f20_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 21) then + ((read_reg f21_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 22) then + ((read_reg f22_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 23) then + ((read_reg f23_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 24) then + ((read_reg f24_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 25) then + ((read_reg f25_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 26) then + ((read_reg f26_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 27) then + ((read_reg f27_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 28) then + ((read_reg f28_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 29) then + ((read_reg f29_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 30) then + ((read_reg f30_ref) : M (mword 32)) + : M (mword 32) + else if sumbool_of_bool (Z.eqb l__43 31) then + ((read_reg f31_ref) : M (mword 32)) + : M (mword 32) + else assert_exp' false "invalid floating point register number" >>= fun _ => exit tt) >>= fun v : fregtype => + returnm (fregval_from_freg v). + +Definition wF (r : Z) (in_v : mword 32) `{ArithFact ((0 <=? r) && (r <? 32))} : M (unit) := + let v := fregval_into_freg in_v in + let l__11 := r in + (if sumbool_of_bool (Z.eqb l__11 0) then write_reg f0_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 1) then write_reg f1_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 2) then write_reg f2_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 3) then write_reg f3_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 4) then write_reg f4_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 5) then write_reg f5_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 6) then write_reg f6_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 7) then write_reg f7_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 8) then write_reg f8_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 9) then write_reg f9_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 10) then write_reg f10_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 11) then write_reg f11_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 12) then write_reg f12_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 13) then write_reg f13_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 14) then write_reg f14_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 15) then write_reg f15_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 16) then write_reg f16_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 17) then write_reg f17_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 18) then write_reg f18_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 19) then write_reg f19_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 20) then write_reg f20_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 21) then write_reg f21_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 22) then write_reg f22_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 23) then write_reg f23_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 24) then write_reg f24_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 25) then write_reg f25_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 26) then write_reg f26_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 27) then write_reg f27_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 28) then write_reg f28_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 29) then write_reg f29_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 30) then write_reg f30_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__11 31) then write_reg f31_ref v : M (unit) + else assert_exp' false "invalid floating point register number" >>= fun _ => exit tt) >> + (dirty_fd_context tt) >> + returnm (if get_config_print_reg tt then + print_endline + (String.append "f" + (String.append (string_of_int r) (String.append " <- " (FRegStr v)))) + else tt). + +Definition rF_bits (i : mword 5) : M (mword 32) := (rF (projT1 (uint i))) : M (mword 32). + +Definition wF_bits (i : mword 5) (data : mword 32) : M (unit) := + (wF (projT1 (uint i)) data) : M (unit). + +Definition freg_name_abi_forwards (arg_ : mword 5) : M (string) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "ft0" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ft1" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "ft2" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "ft3" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "ft4" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "ft5" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "ft6" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "ft7" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fs0" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "fs1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "fa0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "fa1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "fa2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "fa3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "fa4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "fa5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "fa6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "fa7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "fs2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "fs3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "fs4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "fs5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "fs6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "fs7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "fs8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "fs9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "fs10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "fs11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "ft8" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "ft9" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "ft10" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "ft11" + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string). + +Definition freg_name_abi_backwards (arg_ : string) : M (mword 5) := + let p0_ := arg_ in + (if generic_eq p0_ "ft0" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ft1" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "ft2" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "ft3" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "ft4" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "ft5" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "ft6" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "ft7" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fs0" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "fs1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "fa0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "fa1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "fa2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "fa3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "fa4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "fa5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "fa6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "fa7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "fs2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "fs3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "fs4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "fs5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "fs6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "fs7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "fs8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "fs9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "fs10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "fs11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "ft8" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "ft9" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "ft10" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "ft11" then returnm ('b"11111" : mword 5) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 5). + +Definition freg_name_abi_forwards_matches (arg_ : mword 5) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true + else false. + +Definition freg_name_abi_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "ft0" then true + else if generic_eq p0_ "ft1" then true + else if generic_eq p0_ "ft2" then true + else if generic_eq p0_ "ft3" then true + else if generic_eq p0_ "ft4" then true + else if generic_eq p0_ "ft5" then true + else if generic_eq p0_ "ft6" then true + else if generic_eq p0_ "ft7" then true + else if generic_eq p0_ "fs0" then true + else if generic_eq p0_ "fs1" then true + else if generic_eq p0_ "fa0" then true + else if generic_eq p0_ "fa1" then true + else if generic_eq p0_ "fa2" then true + else if generic_eq p0_ "fa3" then true + else if generic_eq p0_ "fa4" then true + else if generic_eq p0_ "fa5" then true + else if generic_eq p0_ "fa6" then true + else if generic_eq p0_ "fa7" then true + else if generic_eq p0_ "fs2" then true + else if generic_eq p0_ "fs3" then true + else if generic_eq p0_ "fs4" then true + else if generic_eq p0_ "fs5" then true + else if generic_eq p0_ "fs6" then true + else if generic_eq p0_ "fs7" then true + else if generic_eq p0_ "fs8" then true + else if generic_eq p0_ "fs9" then true + else if generic_eq p0_ "fs10" then true + else if generic_eq p0_ "fs11" then true + else if generic_eq p0_ "ft8" then true + else if generic_eq p0_ "ft9" then true + else if generic_eq p0_ "ft10" then true + else if generic_eq p0_ "ft11" then true + else false. -Definition _s324_ (_s325_ : string) -: option string := - +Definition _s324_ (_s325_ : string) : option string := let _s326_ := _s325_ in - if ((string_startswith _s326_ "mimpid")) then - match (string_drop _s326_ (projT1 (string_length "mimpid"))) with | s_ => Some (s_) end + if string_startswith _s326_ "ft11" then + match (string_drop _s326_ (projT1 (string_length "ft11"))) with | s_ => Some s_ end else None. -Definition _s320_ (_s321_ : string) -: option string := - +Definition _s320_ (_s321_ : string) : option string := let _s322_ := _s321_ in - if ((string_startswith _s322_ "marchid")) then - match (string_drop _s322_ (projT1 (string_length "marchid"))) with | s_ => Some (s_) end + if string_startswith _s322_ "ft10" then + match (string_drop _s322_ (projT1 (string_length "ft10"))) with | s_ => Some s_ end else None. -Definition _s316_ (_s317_ : string) -: option string := - +Definition _s316_ (_s317_ : string) : option string := let _s318_ := _s317_ in - if ((string_startswith _s318_ "mvendorid")) then - match (string_drop _s318_ (projT1 (string_length "mvendorid"))) with | s_ => Some (s_) end + if string_startswith _s318_ "ft9" then + match (string_drop _s318_ (projT1 (string_length "ft9"))) with | s_ => Some s_ end else None. -Definition _s312_ (_s313_ : string) -: option string := - +Definition _s312_ (_s313_ : string) : option string := let _s314_ := _s313_ in - if ((string_startswith _s314_ "satp")) then - match (string_drop _s314_ (projT1 (string_length "satp"))) with | s_ => Some (s_) end + if string_startswith _s314_ "ft8" then + match (string_drop _s314_ (projT1 (string_length "ft8"))) with | s_ => Some s_ end else None. -Definition _s308_ (_s309_ : string) -: option string := - +Definition _s308_ (_s309_ : string) : option string := let _s310_ := _s309_ in - if ((string_startswith _s310_ "sip")) then - match (string_drop _s310_ (projT1 (string_length "sip"))) with | s_ => Some (s_) end + if string_startswith _s310_ "fs11" then + match (string_drop _s310_ (projT1 (string_length "fs11"))) with | s_ => Some s_ end else None. -Definition _s304_ (_s305_ : string) -: option string := - +Definition _s304_ (_s305_ : string) : option string := let _s306_ := _s305_ in - if ((string_startswith _s306_ "stval")) then - match (string_drop _s306_ (projT1 (string_length "stval"))) with | s_ => Some (s_) end + if string_startswith _s306_ "fs10" then + match (string_drop _s306_ (projT1 (string_length "fs10"))) with | s_ => Some s_ end else None. -Definition _s300_ (_s301_ : string) -: option string := - +Definition _s300_ (_s301_ : string) : option string := let _s302_ := _s301_ in - if ((string_startswith _s302_ "scause")) then - match (string_drop _s302_ (projT1 (string_length "scause"))) with | s_ => Some (s_) end + if string_startswith _s302_ "fs9" then + match (string_drop _s302_ (projT1 (string_length "fs9"))) with | s_ => Some s_ end else None. -Definition _s296_ (_s297_ : string) -: option string := - +Definition _s296_ (_s297_ : string) : option string := let _s298_ := _s297_ in - if ((string_startswith _s298_ "sepc")) then - match (string_drop _s298_ (projT1 (string_length "sepc"))) with | s_ => Some (s_) end + if string_startswith _s298_ "fs8" then + match (string_drop _s298_ (projT1 (string_length "fs8"))) with | s_ => Some s_ end else None. -Definition _s292_ (_s293_ : string) -: option string := - +Definition _s292_ (_s293_ : string) : option string := let _s294_ := _s293_ in - if ((string_startswith _s294_ "sscratch")) then - match (string_drop _s294_ (projT1 (string_length "sscratch"))) with | s_ => Some (s_) end + if string_startswith _s294_ "fs7" then + match (string_drop _s294_ (projT1 (string_length "fs7"))) with | s_ => Some s_ end else None. -Definition _s288_ (_s289_ : string) -: option string := - +Definition _s288_ (_s289_ : string) : option string := let _s290_ := _s289_ in - if ((string_startswith _s290_ "scounteren")) then - match (string_drop _s290_ (projT1 (string_length "scounteren"))) with | s_ => Some (s_) end + if string_startswith _s290_ "fs6" then + match (string_drop _s290_ (projT1 (string_length "fs6"))) with | s_ => Some s_ end else None. -Definition _s284_ (_s285_ : string) -: option string := - +Definition _s284_ (_s285_ : string) : option string := let _s286_ := _s285_ in - if ((string_startswith _s286_ "stvec")) then - match (string_drop _s286_ (projT1 (string_length "stvec"))) with | s_ => Some (s_) end + if string_startswith _s286_ "fs5" then + match (string_drop _s286_ (projT1 (string_length "fs5"))) with | s_ => Some s_ end else None. -Definition _s280_ (_s281_ : string) -: option string := - +Definition _s280_ (_s281_ : string) : option string := let _s282_ := _s281_ in - if ((string_startswith _s282_ "sie")) then - match (string_drop _s282_ (projT1 (string_length "sie"))) with | s_ => Some (s_) end + if string_startswith _s282_ "fs4" then + match (string_drop _s282_ (projT1 (string_length "fs4"))) with | s_ => Some s_ end else None. -Definition _s276_ (_s277_ : string) -: option string := - +Definition _s276_ (_s277_ : string) : option string := let _s278_ := _s277_ in - if ((string_startswith _s278_ "sideleg")) then - match (string_drop _s278_ (projT1 (string_length "sideleg"))) with | s_ => Some (s_) end + if string_startswith _s278_ "fs3" then + match (string_drop _s278_ (projT1 (string_length "fs3"))) with | s_ => Some s_ end else None. -Definition _s272_ (_s273_ : string) -: option string := - +Definition _s272_ (_s273_ : string) : option string := let _s274_ := _s273_ in - if ((string_startswith _s274_ "sedeleg")) then - match (string_drop _s274_ (projT1 (string_length "sedeleg"))) with | s_ => Some (s_) end + if string_startswith _s274_ "fs2" then + match (string_drop _s274_ (projT1 (string_length "fs2"))) with | s_ => Some s_ end else None. -Definition _s268_ (_s269_ : string) -: option string := - +Definition _s268_ (_s269_ : string) : option string := let _s270_ := _s269_ in - if ((string_startswith _s270_ "sstatus")) then - match (string_drop _s270_ (projT1 (string_length "sstatus"))) with | s_ => Some (s_) end + if string_startswith _s270_ "fa7" then + match (string_drop _s270_ (projT1 (string_length "fa7"))) with | s_ => Some s_ end else None. -Definition _s264_ (_s265_ : string) -: option string := - +Definition _s264_ (_s265_ : string) : option string := let _s266_ := _s265_ in - if ((string_startswith _s266_ "instreth")) then - match (string_drop _s266_ (projT1 (string_length "instreth"))) with | s_ => Some (s_) end + if string_startswith _s266_ "fa6" then + match (string_drop _s266_ (projT1 (string_length "fa6"))) with | s_ => Some s_ end else None. -Definition _s260_ (_s261_ : string) -: option string := - +Definition _s260_ (_s261_ : string) : option string := let _s262_ := _s261_ in - if ((string_startswith _s262_ "timeh")) then - match (string_drop _s262_ (projT1 (string_length "timeh"))) with | s_ => Some (s_) end + if string_startswith _s262_ "fa5" then + match (string_drop _s262_ (projT1 (string_length "fa5"))) with | s_ => Some s_ end else None. -Definition _s256_ (_s257_ : string) -: option string := - +Definition _s256_ (_s257_ : string) : option string := let _s258_ := _s257_ in - if ((string_startswith _s258_ "cycleh")) then - match (string_drop _s258_ (projT1 (string_length "cycleh"))) with | s_ => Some (s_) end + if string_startswith _s258_ "fa4" then + match (string_drop _s258_ (projT1 (string_length "fa4"))) with | s_ => Some s_ end else None. -Definition _s252_ (_s253_ : string) -: option string := - +Definition _s252_ (_s253_ : string) : option string := let _s254_ := _s253_ in - if ((string_startswith _s254_ "instret")) then - match (string_drop _s254_ (projT1 (string_length "instret"))) with | s_ => Some (s_) end + if string_startswith _s254_ "fa3" then + match (string_drop _s254_ (projT1 (string_length "fa3"))) with | s_ => Some s_ end else None. -Definition _s248_ (_s249_ : string) -: option string := - +Definition _s248_ (_s249_ : string) : option string := let _s250_ := _s249_ in - if ((string_startswith _s250_ "time")) then - match (string_drop _s250_ (projT1 (string_length "time"))) with | s_ => Some (s_) end + if string_startswith _s250_ "fa2" then + match (string_drop _s250_ (projT1 (string_length "fa2"))) with | s_ => Some s_ end else None. -Definition _s244_ (_s245_ : string) -: option string := - +Definition _s244_ (_s245_ : string) : option string := let _s246_ := _s245_ in - if ((string_startswith _s246_ "cycle")) then - match (string_drop _s246_ (projT1 (string_length "cycle"))) with | s_ => Some (s_) end + if string_startswith _s246_ "fa1" then + match (string_drop _s246_ (projT1 (string_length "fa1"))) with | s_ => Some s_ end else None. -Definition _s240_ (_s241_ : string) -: option string := - +Definition _s240_ (_s241_ : string) : option string := let _s242_ := _s241_ in - if ((string_startswith _s242_ "fcsr")) then - match (string_drop _s242_ (projT1 (string_length "fcsr"))) with | s_ => Some (s_) end + if string_startswith _s242_ "fa0" then + match (string_drop _s242_ (projT1 (string_length "fa0"))) with | s_ => Some s_ end else None. -Definition _s236_ (_s237_ : string) -: option string := - +Definition _s236_ (_s237_ : string) : option string := let _s238_ := _s237_ in - if ((string_startswith _s238_ "frm")) then - match (string_drop _s238_ (projT1 (string_length "frm"))) with | s_ => Some (s_) end + if string_startswith _s238_ "fs1" then + match (string_drop _s238_ (projT1 (string_length "fs1"))) with | s_ => Some s_ end else None. -Definition _s232_ (_s233_ : string) -: option string := - +Definition _s232_ (_s233_ : string) : option string := let _s234_ := _s233_ in - if ((string_startswith _s234_ "fflags")) then - match (string_drop _s234_ (projT1 (string_length "fflags"))) with | s_ => Some (s_) end + if string_startswith _s234_ "fs0" then + match (string_drop _s234_ (projT1 (string_length "fs0"))) with | s_ => Some s_ end else None. -Definition _s228_ (_s229_ : string) -: option string := - +Definition _s228_ (_s229_ : string) : option string := let _s230_ := _s229_ in - if ((string_startswith _s230_ "uip")) then - match (string_drop _s230_ (projT1 (string_length "uip"))) with | s_ => Some (s_) end + if string_startswith _s230_ "ft7" then + match (string_drop _s230_ (projT1 (string_length "ft7"))) with | s_ => Some s_ end else None. -Definition _s224_ (_s225_ : string) -: option string := - +Definition _s224_ (_s225_ : string) : option string := let _s226_ := _s225_ in - if ((string_startswith _s226_ "utval")) then - match (string_drop _s226_ (projT1 (string_length "utval"))) with | s_ => Some (s_) end + if string_startswith _s226_ "ft6" then + match (string_drop _s226_ (projT1 (string_length "ft6"))) with | s_ => Some s_ end else None. -Definition _s220_ (_s221_ : string) -: option string := - +Definition _s220_ (_s221_ : string) : option string := let _s222_ := _s221_ in - if ((string_startswith _s222_ "ucause")) then - match (string_drop _s222_ (projT1 (string_length "ucause"))) with | s_ => Some (s_) end + if string_startswith _s222_ "ft5" then + match (string_drop _s222_ (projT1 (string_length "ft5"))) with | s_ => Some s_ end else None. -Definition _s216_ (_s217_ : string) -: option string := - +Definition _s216_ (_s217_ : string) : option string := let _s218_ := _s217_ in - if ((string_startswith _s218_ "uepc")) then - match (string_drop _s218_ (projT1 (string_length "uepc"))) with | s_ => Some (s_) end + if string_startswith _s218_ "ft4" then + match (string_drop _s218_ (projT1 (string_length "ft4"))) with | s_ => Some s_ end else None. -Definition _s212_ (_s213_ : string) -: option string := - +Definition _s212_ (_s213_ : string) : option string := let _s214_ := _s213_ in - if ((string_startswith _s214_ "uscratch")) then - match (string_drop _s214_ (projT1 (string_length "uscratch"))) with | s_ => Some (s_) end + if string_startswith _s214_ "ft3" then + match (string_drop _s214_ (projT1 (string_length "ft3"))) with | s_ => Some s_ end else None. -Definition _s208_ (_s209_ : string) -: option string := - +Definition _s208_ (_s209_ : string) : option string := let _s210_ := _s209_ in - if ((string_startswith _s210_ "utvec")) then - match (string_drop _s210_ (projT1 (string_length "utvec"))) with | s_ => Some (s_) end + if string_startswith _s210_ "ft2" then + match (string_drop _s210_ (projT1 (string_length "ft2"))) with | s_ => Some s_ end else None. -Definition _s204_ (_s205_ : string) -: option string := - +Definition _s204_ (_s205_ : string) : option string := let _s206_ := _s205_ in - if ((string_startswith _s206_ "uie")) then - match (string_drop _s206_ (projT1 (string_length "uie"))) with | s_ => Some (s_) end + if string_startswith _s206_ "ft1" then + match (string_drop _s206_ (projT1 (string_length "ft1"))) with | s_ => Some s_ end else None. -Definition _s200_ (_s201_ : string) -: option string := - +Definition _s200_ (_s201_ : string) : option string := let _s202_ := _s201_ in - if ((string_startswith _s202_ "ustatus")) then - match (string_drop _s202_ (projT1 (string_length "ustatus"))) with | s_ => Some (s_) end + if string_startswith _s202_ "ft0" then + match (string_drop _s202_ (projT1 (string_length "ft0"))) with | s_ => Some s_ end else None. -Definition csr_name_map_matches_prefix (arg_ : string) -: M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) := - +Definition freg_name_abi_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := let _s203_ := arg_ in - (if ((match (_s200_ _s203_) with | Some (s_) => true | _ => false end)) then + (if match (_s200_ _s203_) with | Some s_ => true | _ => false end then (match (_s200_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s204_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s204_ _s203_) with | Some s_ => true | _ => false end then (match (_s204_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s208_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s208_ _s203_) with | Some s_ => true | _ => false end then (match (_s208_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s212_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s212_ _s203_) with | Some s_ => true | _ => false end then (match (_s212_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s216_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s216_ _s203_) with | Some s_ => true | _ => false end then (match (_s216_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s220_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s220_ _s203_) with | Some s_ => true | _ => false end then (match (_s220_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s224_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s224_ _s203_) with | Some s_ => true | _ => false end then (match (_s224_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s228_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s228_ _s203_) with | Some s_ => true | _ => false end then (match (_s228_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s232_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s232_ _s203_) with | Some s_ => true | _ => false end then (match (_s232_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s236_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s236_ _s203_) with | Some s_ => true | _ => false end then (match (_s236_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s240_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s240_ _s203_) with | Some s_ => true | _ => false end then (match (_s240_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s244_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s244_ _s203_) with | Some s_ => true | _ => false end then (match (_s244_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s248_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s248_ _s203_) with | Some s_ => true | _ => false end then (match (_s248_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s252_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s252_ _s203_) with | Some s_ => true | _ => false end then (match (_s252_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s256_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s256_ _s203_) with | Some s_ => true | _ => false end then (match (_s256_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s260_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s260_ _s203_) with | Some s_ => true | _ => false end then (match (_s260_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s264_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s264_ _s203_) with | Some s_ => true | _ => false end then (match (_s264_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s268_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s268_ _s203_) with | Some s_ => true | _ => false end then (match (_s268_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s272_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s272_ _s203_) with | Some s_ => true | _ => false end then (match (_s272_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s276_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s276_ _s203_) with | Some s_ => true | _ => false end then (match (_s276_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s280_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s280_ _s203_) with | Some s_ => true | _ => false end then (match (_s280_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s284_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s284_ _s203_) with | Some s_ => true | _ => false end then (match (_s284_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s288_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s288_ _s203_) with | Some s_ => true | _ => false end then (match (_s288_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s292_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s292_ _s203_) with | Some s_ => true | _ => false end then (match (_s292_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s296_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s296_ _s203_) with | Some s_ => true | _ => false end then (match (_s296_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s300_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s300_ _s203_) with | Some s_ => true | _ => false end then (match (_s300_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s304_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s304_ _s203_) with | Some s_ => true | _ => false end then (match (_s304_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s308_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s308_ _s203_) with | Some s_ => true | _ => false end then (match (_s308_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s312_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s312_ _s203_) with | Some s_ => true | _ => false end then (match (_s312_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s316_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s316_ _s203_) with | Some s_ => true | _ => false end then (match (_s316_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s320_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s320_ _s203_) with | Some s_ => true | _ => false end then (match (_s320_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s324_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s324_ _s203_) with | Some s_ => true | _ => false end then (match (_s324_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s328_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s328_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s332_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s332_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s336_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s336_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s340_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s340_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s344_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s344_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s348_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s348_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s352_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s352_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s356_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s356_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s360_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s360_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s364_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s364_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s368_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s368_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s372_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s372_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s376_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s376_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s380_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s380_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s384_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s384_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s388_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s388_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s392_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s392_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s396_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s396_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s400_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s400_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s404_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s404_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s408_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s408_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s412_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s412_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s416_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s416_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s420_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s420_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s424_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s424_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s428_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s428_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s432_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s432_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s436_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s436_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s440_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s440_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s444_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s444_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s448_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s448_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s452_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s452_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s456_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s456_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s460_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s460_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s464_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s464_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s468_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s468_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s472_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s472_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s476_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s476_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s480_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s480_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s484_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s484_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s488_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s488_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 12 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). -Definition Mk_Ustatus (v : mword 32) -: Ustatus := - - {| Ustatus_Ustatus_chunk_0 := (subrange_vec_dec v 31 0) |}. +Definition freg_name_forwards (arg_ : mword 5) : M (string) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "ft0" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ft1" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "ft2" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "ft3" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "ft4" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "ft5" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "ft6" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "ft7" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fs0" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "fs1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "fa0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "fa1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "fa2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "fa3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "fa4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "fa5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "fa6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "fa7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "fs2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "fs3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "fs4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "fs5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "fs6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "fs7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "fs8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "fs9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "fs10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "fs11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "ft8" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "ft9" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "ft10" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "ft11" + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string). -Definition _get_Ustatus_bits (v : Ustatus) -: mword 32 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 31 0. +Definition freg_name_backwards (arg_ : string) : M (mword 5) := + let p0_ := arg_ in + (if generic_eq p0_ "ft0" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ft1" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "ft2" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "ft3" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "ft4" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "ft5" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "ft6" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "ft7" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fs0" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "fs1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "fa0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "fa1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "fa2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "fa3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "fa4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "fa5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "fa6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "fa7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "fs2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "fs3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "fs4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "fs5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "fs6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "fs7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "fs8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "fs9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "fs10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "fs11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "ft8" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "ft9" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "ft10" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "ft11" then returnm ('b"11111" : mword 5) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 5). -Definition _set_Ustatus_bits (r_ref : register_ref regstate register_value Ustatus) (v : mword 32) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition freg_name_forwards_matches (arg_ : mword 5) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true + else false. -Definition _update_Ustatus_bits (v : Ustatus) (x : mword 32) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. +Definition freg_name_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "ft0" then true + else if generic_eq p0_ "ft1" then true + else if generic_eq p0_ "ft2" then true + else if generic_eq p0_ "ft3" then true + else if generic_eq p0_ "ft4" then true + else if generic_eq p0_ "ft5" then true + else if generic_eq p0_ "ft6" then true + else if generic_eq p0_ "ft7" then true + else if generic_eq p0_ "fs0" then true + else if generic_eq p0_ "fs1" then true + else if generic_eq p0_ "fa0" then true + else if generic_eq p0_ "fa1" then true + else if generic_eq p0_ "fa2" then true + else if generic_eq p0_ "fa3" then true + else if generic_eq p0_ "fa4" then true + else if generic_eq p0_ "fa5" then true + else if generic_eq p0_ "fa6" then true + else if generic_eq p0_ "fa7" then true + else if generic_eq p0_ "fs2" then true + else if generic_eq p0_ "fs3" then true + else if generic_eq p0_ "fs4" then true + else if generic_eq p0_ "fs5" then true + else if generic_eq p0_ "fs6" then true + else if generic_eq p0_ "fs7" then true + else if generic_eq p0_ "fs8" then true + else if generic_eq p0_ "fs9" then true + else if generic_eq p0_ "fs10" then true + else if generic_eq p0_ "fs11" then true + else if generic_eq p0_ "ft8" then true + else if generic_eq p0_ "ft9" then true + else if generic_eq p0_ "ft10" then true + else if generic_eq p0_ "ft11" then true + else false. -Definition _get_Ustatus_UPIE (v : Ustatus) -: mword 1 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4. +Definition _s452_ (_s453_ : string) : option string := + let _s454_ := _s453_ in + if string_startswith _s454_ "ft11" then + match (string_drop _s454_ (projT1 (string_length "ft11"))) with | s_ => Some s_ end + else None. -Definition _set_Ustatus_UPIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition _s448_ (_s449_ : string) : option string := + let _s450_ := _s449_ in + if string_startswith _s450_ "ft10" then + match (string_drop _s450_ (projT1 (string_length "ft10"))) with | s_ => Some s_ end + else None. -Definition _update_Ustatus_UPIE (v : Ustatus) (x : mword 1) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. +Definition _s444_ (_s445_ : string) : option string := + let _s446_ := _s445_ in + if string_startswith _s446_ "ft9" then + match (string_drop _s446_ (projT1 (string_length "ft9"))) with | s_ => Some s_ end + else None. -Definition _get_Ustatus_UIE (v : Ustatus) -: mword 1 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0. +Definition _s440_ (_s441_ : string) : option string := + let _s442_ := _s441_ in + if string_startswith _s442_ "ft8" then + match (string_drop _s442_ (projT1 (string_length "ft8"))) with | s_ => Some s_ end + else None. -Definition _set_Ustatus_UIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition _s436_ (_s437_ : string) : option string := + let _s438_ := _s437_ in + if string_startswith _s438_ "fs11" then + match (string_drop _s438_ (projT1 (string_length "fs11"))) with | s_ => Some s_ end + else None. -Definition _update_Ustatus_UIE (v : Ustatus) (x : mword 1) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. +Definition _s432_ (_s433_ : string) : option string := + let _s434_ := _s433_ in + if string_startswith _s434_ "fs10" then + match (string_drop _s434_ (projT1 (string_length "fs10"))) with | s_ => Some s_ end + else None. -Definition lower_sstatus (s : Sstatus) -: Ustatus := - - let u := Mk_Ustatus (EXTZ 32 (vec_of_bits [B0] : mword 1)) in - let u := _update_Ustatus_UPIE u (_get_Sstatus_UPIE s) in - _update_Ustatus_UIE u (_get_Sstatus_UIE s). +Definition _s428_ (_s429_ : string) : option string := + let _s430_ := _s429_ in + if string_startswith _s430_ "fs9" then + match (string_drop _s430_ (projT1 (string_length "fs9"))) with | s_ => Some s_ end + else None. -Definition lift_ustatus (s : Sstatus) (u : Ustatus) -: Sstatus := - - let s := _update_Sstatus_UPIE s (_get_Ustatus_UPIE u) in - _update_Sstatus_UIE s (_get_Ustatus_UIE u). +Definition _s424_ (_s425_ : string) : option string := + let _s426_ := _s425_ in + if string_startswith _s426_ "fs8" then + match (string_drop _s426_ (projT1 (string_length "fs8"))) with | s_ => Some s_ end + else None. -Definition legalize_ustatus (m : Mstatus) (v : mword 32) -: M (Mstatus) := - - let u := Mk_Ustatus v in - let s := lower_mstatus m in - let s := lift_ustatus s u in - (lift_sstatus m s) - : M (Mstatus). +Definition _s420_ (_s421_ : string) : option string := + let _s422_ := _s421_ in + if string_startswith _s422_ "fs7" then + match (string_drop _s422_ (projT1 (string_length "fs7"))) with | s_ => Some s_ end + else None. -Definition Mk_Uinterrupts (v : mword 32) -: Uinterrupts := - - {| Uinterrupts_Uinterrupts_chunk_0 := (subrange_vec_dec v 31 0) |}. +Definition _s416_ (_s417_ : string) : option string := + let _s418_ := _s417_ in + if string_startswith _s418_ "fs6" then + match (string_drop _s418_ (projT1 (string_length "fs6"))) with | s_ => Some s_ end + else None. -Definition _get_Uinterrupts_bits (v : Uinterrupts) -: mword 32 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 31 0. +Definition _s412_ (_s413_ : string) : option string := + let _s414_ := _s413_ in + if string_startswith _s414_ "fs5" then + match (string_drop _s414_ (projT1 (string_length "fs5"))) with | s_ => Some s_ end + else None. -Definition _set_Uinterrupts_bits -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 32) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} - : Uinterrupts in - write_reg r_ref r - : M (unit). +Definition _s408_ (_s409_ : string) : option string := + let _s410_ := _s409_ in + if string_startswith _s410_ "fs4" then + match (string_drop _s410_ (projT1 (string_length "fs4"))) with | s_ => Some s_ end + else None. -Definition _update_Uinterrupts_bits (v : Uinterrupts) (x : mword 32) -: Uinterrupts := - - {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. +Definition _s404_ (_s405_ : string) : option string := + let _s406_ := _s405_ in + if string_startswith _s406_ "fs3" then + match (string_drop _s406_ (projT1 (string_length "fs3"))) with | s_ => Some s_ end + else None. -Definition _get_Uinterrupts_UEI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8. +Definition _s400_ (_s401_ : string) : option string := + let _s402_ := _s401_ in + if string_startswith _s402_ "fs2" then + match (string_drop _s402_ (projT1 (string_length "fs2"))) with | s_ => Some s_ end + else None. -Definition _set_Uinterrupts_UEI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _s396_ (_s397_ : string) : option string := + let _s398_ := _s397_ in + if string_startswith _s398_ "fa7" then + match (string_drop _s398_ (projT1 (string_length "fa7"))) with | s_ => Some s_ end + else None. + +Definition _s392_ (_s393_ : string) : option string := + let _s394_ := _s393_ in + if string_startswith _s394_ "fa6" then + match (string_drop _s394_ (projT1 (string_length "fa6"))) with | s_ => Some s_ end + else None. + +Definition _s388_ (_s389_ : string) : option string := + let _s390_ := _s389_ in + if string_startswith _s390_ "fa5" then + match (string_drop _s390_ (projT1 (string_length "fa5"))) with | s_ => Some s_ end + else None. + +Definition _s384_ (_s385_ : string) : option string := + let _s386_ := _s385_ in + if string_startswith _s386_ "fa4" then + match (string_drop _s386_ (projT1 (string_length "fa4"))) with | s_ => Some s_ end + else None. + +Definition _s380_ (_s381_ : string) : option string := + let _s382_ := _s381_ in + if string_startswith _s382_ "fa3" then + match (string_drop _s382_ (projT1 (string_length "fa3"))) with | s_ => Some s_ end + else None. + +Definition _s376_ (_s377_ : string) : option string := + let _s378_ := _s377_ in + if string_startswith _s378_ "fa2" then + match (string_drop _s378_ (projT1 (string_length "fa2"))) with | s_ => Some s_ end + else None. + +Definition _s372_ (_s373_ : string) : option string := + let _s374_ := _s373_ in + if string_startswith _s374_ "fa1" then + match (string_drop _s374_ (projT1 (string_length "fa1"))) with | s_ => Some s_ end + else None. + +Definition _s368_ (_s369_ : string) : option string := + let _s370_ := _s369_ in + if string_startswith _s370_ "fa0" then + match (string_drop _s370_ (projT1 (string_length "fa0"))) with | s_ => Some s_ end + else None. + +Definition _s364_ (_s365_ : string) : option string := + let _s366_ := _s365_ in + if string_startswith _s366_ "fs1" then + match (string_drop _s366_ (projT1 (string_length "fs1"))) with | s_ => Some s_ end + else None. + +Definition _s360_ (_s361_ : string) : option string := + let _s362_ := _s361_ in + if string_startswith _s362_ "fs0" then + match (string_drop _s362_ (projT1 (string_length "fs0"))) with | s_ => Some s_ end + else None. + +Definition _s356_ (_s357_ : string) : option string := + let _s358_ := _s357_ in + if string_startswith _s358_ "ft7" then + match (string_drop _s358_ (projT1 (string_length "ft7"))) with | s_ => Some s_ end + else None. + +Definition _s352_ (_s353_ : string) : option string := + let _s354_ := _s353_ in + if string_startswith _s354_ "ft6" then + match (string_drop _s354_ (projT1 (string_length "ft6"))) with | s_ => Some s_ end + else None. + +Definition _s348_ (_s349_ : string) : option string := + let _s350_ := _s349_ in + if string_startswith _s350_ "ft5" then + match (string_drop _s350_ (projT1 (string_length "ft5"))) with | s_ => Some s_ end + else None. + +Definition _s344_ (_s345_ : string) : option string := + let _s346_ := _s345_ in + if string_startswith _s346_ "ft4" then + match (string_drop _s346_ (projT1 (string_length "ft4"))) with | s_ => Some s_ end + else None. + +Definition _s340_ (_s341_ : string) : option string := + let _s342_ := _s341_ in + if string_startswith _s342_ "ft3" then + match (string_drop _s342_ (projT1 (string_length "ft3"))) with | s_ => Some s_ end + else None. + +Definition _s336_ (_s337_ : string) : option string := + let _s338_ := _s337_ in + if string_startswith _s338_ "ft2" then + match (string_drop _s338_ (projT1 (string_length "ft2"))) with | s_ => Some s_ end + else None. + +Definition _s332_ (_s333_ : string) : option string := + let _s334_ := _s333_ in + if string_startswith _s334_ "ft1" then + match (string_drop _s334_ (projT1 (string_length "ft1"))) with | s_ => Some s_ end + else None. + +Definition _s328_ (_s329_ : string) : option string := + let _s330_ := _s329_ in + if string_startswith _s330_ "ft0" then + match (string_drop _s330_ (projT1 (string_length "ft0"))) with | s_ => Some s_ end + else None. + +Definition freg_name_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := + let _s331_ := arg_ in + (if match (_s328_ _s331_) with | Some s_ => true | _ => false end then + (match (_s328_ _s331_) with + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s332_ _s331_) with | Some s_ => true | _ => false end then + (match (_s332_ _s331_) with + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s336_ _s331_) with | Some s_ => true | _ => false end then + (match (_s336_ _s331_) with + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s340_ _s331_) with | Some s_ => true | _ => false end then + (match (_s340_ _s331_) with + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s344_ _s331_) with | Some s_ => true | _ => false end then + (match (_s344_ _s331_) with + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s348_ _s331_) with | Some s_ => true | _ => false end then + (match (_s348_ _s331_) with + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s352_ _s331_) with | Some s_ => true | _ => false end then + (match (_s352_ _s331_) with + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s356_ _s331_) with | Some s_ => true | _ => false end then + (match (_s356_ _s331_) with + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s360_ _s331_) with | Some s_ => true | _ => false end then + (match (_s360_ _s331_) with + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s364_ _s331_) with | Some s_ => true | _ => false end then + (match (_s364_ _s331_) with + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s368_ _s331_) with | Some s_ => true | _ => false end then + (match (_s368_ _s331_) with + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s372_ _s331_) with | Some s_ => true | _ => false end then + (match (_s372_ _s331_) with + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s376_ _s331_) with | Some s_ => true | _ => false end then + (match (_s376_ _s331_) with + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s380_ _s331_) with | Some s_ => true | _ => false end then + (match (_s380_ _s331_) with + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s384_ _s331_) with | Some s_ => true | _ => false end then + (match (_s384_ _s331_) with + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s388_ _s331_) with | Some s_ => true | _ => false end then + (match (_s388_ _s331_) with + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s392_ _s331_) with | Some s_ => true | _ => false end then + (match (_s392_ _s331_) with + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s396_ _s331_) with | Some s_ => true | _ => false end then + (match (_s396_ _s331_) with + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s400_ _s331_) with | Some s_ => true | _ => false end then + (match (_s400_ _s331_) with + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s404_ _s331_) with | Some s_ => true | _ => false end then + (match (_s404_ _s331_) with + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s408_ _s331_) with | Some s_ => true | _ => false end then + (match (_s408_ _s331_) with + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s412_ _s331_) with | Some s_ => true | _ => false end then + (match (_s412_ _s331_) with + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s416_ _s331_) with | Some s_ => true | _ => false end then + (match (_s416_ _s331_) with + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s420_ _s331_) with | Some s_ => true | _ => false end then + (match (_s420_ _s331_) with + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s424_ _s331_) with | Some s_ => true | _ => false end then + (match (_s424_ _s331_) with + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s428_ _s331_) with | Some s_ => true | _ => false end then + (match (_s428_ _s331_) with + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s432_ _s331_) with | Some s_ => true | _ => false end then + (match (_s432_ _s331_) with + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s436_ _s331_) with | Some s_ => true | _ => false end then + (match (_s436_ _s331_) with + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s440_ _s331_) with | Some s_ => true | _ => false end then + (match (_s440_ _s331_) with + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s444_ _s331_) with | Some s_ => true | _ => false end then + (match (_s444_ _s331_) with + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s448_ _s331_) with | Some s_ => true | _ => false end then + (match (_s448_ _s331_) with + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s452_ _s331_) with | Some s_ => true | _ => false end then + (match (_s452_ _s331_) with + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). + +Definition init_fdext_regs '(tt : unit) : M (unit) := + write_reg f0_ref zero_freg >> + write_reg f1_ref zero_freg >> + write_reg f2_ref zero_freg >> + write_reg f3_ref zero_freg >> + write_reg f4_ref zero_freg >> + write_reg f5_ref zero_freg >> + write_reg f6_ref zero_freg >> + write_reg f7_ref zero_freg >> + write_reg f8_ref zero_freg >> + write_reg f9_ref zero_freg >> + write_reg f10_ref zero_freg >> + write_reg f11_ref zero_freg >> + write_reg f12_ref zero_freg >> + write_reg f13_ref zero_freg >> + write_reg f14_ref zero_freg >> + write_reg f15_ref zero_freg >> + write_reg f16_ref zero_freg >> + write_reg f17_ref zero_freg >> + write_reg f18_ref zero_freg >> + write_reg f19_ref zero_freg >> + write_reg f20_ref zero_freg >> + write_reg f21_ref zero_freg >> + write_reg f22_ref zero_freg >> + write_reg f23_ref zero_freg >> + write_reg f24_ref zero_freg >> + write_reg f25_ref zero_freg >> + write_reg f26_ref zero_freg >> + write_reg f27_ref zero_freg >> + write_reg f28_ref zero_freg >> + write_reg f29_ref zero_freg >> + write_reg f30_ref zero_freg >> write_reg f31_ref zero_freg : M (unit). + +Definition Mk_Fcsr (v : mword 32) : Fcsr := {| Fcsr_Fcsr_chunk_0 := (subrange_vec_dec v 31 0) |}. + +Definition _get_Fcsr_bits (v : Fcsr) : mword 32 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 31 0. + +Definition _set_Fcsr_bits (r_ref : register_ref regstate register_value Fcsr) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_UEI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_bits (v : Fcsr) (x : mword 32) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Uinterrupts_UTI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4. +Definition _get_Fcsr_FRM (v : Fcsr) : mword 3 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 7 5. -Definition _set_Uinterrupts_UTI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _set_Fcsr_FRM (r_ref : register_ref regstate register_value Fcsr) (v : mword 3) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 7 5 (subrange_vec_dec v 2 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_UTI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_FRM (v : Fcsr) (x : mword 3) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 7 5 (subrange_vec_dec x 2 0)) ]}. -Definition _get_Uinterrupts_USI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0. +Definition _get_Fcsr_FFLAGS (v : Fcsr) : mword 5 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 4 0. -Definition _set_Uinterrupts_USI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _set_Fcsr_FFLAGS (r_ref : register_ref regstate register_value Fcsr) (v : mword 5) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 4 0 (subrange_vec_dec v 4 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_USI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_FFLAGS (v : Fcsr) (x : mword 5) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 4 0 (subrange_vec_dec x 4 0)) ]}. + +Definition ext_write_fcsr (frm : mword 3) (fflags : mword 5) : M (unit) := + (_set_Fcsr_FRM fcsr_ref frm) >> + (_set_Fcsr_FFLAGS fcsr_ref fflags) >> + (update_softfloat_fflags fflags) >> (dirty_fd_context tt) : M (unit). + +Definition write_fflags (fflags : mword 5) : M (unit) := + read_reg fcsr_ref >>= fun w__0 : Fcsr => + (if neq_vec (_get_Fcsr_FFLAGS w__0) fflags then (dirty_fd_context tt) : M (unit) + else returnm tt) >> + (_set_Fcsr_FFLAGS fcsr_ref fflags) + : M (unit). -Definition lower_sip (s : Sinterrupts) (d : Sinterrupts) -: Uinterrupts := - - let u : Uinterrupts := Mk_Uinterrupts (EXTZ 32 (vec_of_bits [B0] : mword 1)) in - let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in - let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in - _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). +Definition accrue_fflags (flags : mword 5) : M (unit) := + read_reg fcsr_ref >>= fun w__0 : Fcsr => + let f := or_vec (_get_Fcsr_FFLAGS w__0) flags in + read_reg fcsr_ref >>= fun w__1 : Fcsr => + (if neq_vec (_get_Fcsr_FFLAGS w__1) f then + (_set_Fcsr_FFLAGS fcsr_ref f) >> + (update_softfloat_fflags f) >> (dirty_fd_context tt) : M (unit) + else returnm tt) + : M (unit). -Definition lower_sie (s : Sinterrupts) (d : Sinterrupts) -: Uinterrupts := - - let u : Uinterrupts := Mk_Uinterrupts (EXTZ 32 (vec_of_bits [B0] : mword 1)) in - let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in - let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in - _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). +Definition csr_name_map_forwards (arg_ : mword 12) : string := + let b__0 := arg_ in + if eq_vec b__0 (Ox"000" : mword 12) then "ustatus" + else if eq_vec b__0 (Ox"004" : mword 12) then "uie" + else if eq_vec b__0 (Ox"005" : mword 12) then "utvec" + else if eq_vec b__0 (Ox"040" : mword 12) then "uscratch" + else if eq_vec b__0 (Ox"041" : mword 12) then "uepc" + else if eq_vec b__0 (Ox"042" : mword 12) then "ucause" + else if eq_vec b__0 (Ox"043" : mword 12) then "utval" + else if eq_vec b__0 (Ox"044" : mword 12) then "uip" + else if eq_vec b__0 (Ox"001" : mword 12) then "fflags" + else if eq_vec b__0 (Ox"002" : mword 12) then "frm" + else if eq_vec b__0 (Ox"003" : mword 12) then "fcsr" + else if eq_vec b__0 (Ox"C00" : mword 12) then "cycle" + else if eq_vec b__0 (Ox"C01" : mword 12) then "time" + else if eq_vec b__0 (Ox"C02" : mword 12) then "instret" + else if eq_vec b__0 (Ox"C80" : mword 12) then "cycleh" + else if eq_vec b__0 (Ox"C81" : mword 12) then "timeh" + else if eq_vec b__0 (Ox"C82" : mword 12) then "instreth" + else if eq_vec b__0 (Ox"100" : mword 12) then "sstatus" + else if eq_vec b__0 (Ox"102" : mword 12) then "sedeleg" + else if eq_vec b__0 (Ox"103" : mword 12) then "sideleg" + else if eq_vec b__0 (Ox"104" : mword 12) then "sie" + else if eq_vec b__0 (Ox"105" : mword 12) then "stvec" + else if eq_vec b__0 (Ox"106" : mword 12) then "scounteren" + else if eq_vec b__0 (Ox"140" : mword 12) then "sscratch" + else if eq_vec b__0 (Ox"141" : mword 12) then "sepc" + else if eq_vec b__0 (Ox"142" : mword 12) then "scause" + else if eq_vec b__0 (Ox"143" : mword 12) then "stval" + else if eq_vec b__0 (Ox"144" : mword 12) then "sip" + else if eq_vec b__0 (Ox"180" : mword 12) then "satp" + else if eq_vec b__0 (Ox"F11" : mword 12) then "mvendorid" + else if eq_vec b__0 (Ox"F12" : mword 12) then "marchid" + else if eq_vec b__0 (Ox"F13" : mword 12) then "mimpid" + else if eq_vec b__0 (Ox"F14" : mword 12) then "mhartid" + else if eq_vec b__0 (Ox"300" : mword 12) then "mstatus" + else if eq_vec b__0 (Ox"301" : mword 12) then "misa" + else if eq_vec b__0 (Ox"302" : mword 12) then "medeleg" + else if eq_vec b__0 (Ox"303" : mword 12) then "mideleg" + else if eq_vec b__0 (Ox"304" : mword 12) then "mie" + else if eq_vec b__0 (Ox"305" : mword 12) then "mtvec" + else if eq_vec b__0 (Ox"306" : mword 12) then "mcounteren" + else if eq_vec b__0 (Ox"340" : mword 12) then "mscratch" + else if eq_vec b__0 (Ox"341" : mword 12) then "mepc" + else if eq_vec b__0 (Ox"342" : mword 12) then "mcause" + else if eq_vec b__0 (Ox"343" : mword 12) then "mtval" + else if eq_vec b__0 (Ox"344" : mword 12) then "mip" + else if eq_vec b__0 (Ox"3A0" : mword 12) then "pmpcfg0" + else if eq_vec b__0 (Ox"3A1" : mword 12) then "pmpcfg1" + else if eq_vec b__0 (Ox"3A2" : mword 12) then "pmpcfg2" + else if eq_vec b__0 (Ox"3A3" : mword 12) then "pmpcfg3" + else if eq_vec b__0 (Ox"3B0" : mword 12) then "pmpaddr0" + else if eq_vec b__0 (Ox"3B1" : mword 12) then "pmpaddr1" + else if eq_vec b__0 (Ox"3B2" : mword 12) then "pmpaddr2" + else if eq_vec b__0 (Ox"3B3" : mword 12) then "pmpaddr3" + else if eq_vec b__0 (Ox"3B4" : mword 12) then "pmpaddr4" + else if eq_vec b__0 (Ox"3B5" : mword 12) then "pmpaddr5" + else if eq_vec b__0 (Ox"3B6" : mword 12) then "pmpaddr6" + else if eq_vec b__0 (Ox"3B7" : mword 12) then "pmpaddr7" + else if eq_vec b__0 (Ox"3B8" : mword 12) then "pmpaddr8" + else if eq_vec b__0 (Ox"3B9" : mword 12) then "pmpaddr9" + else if eq_vec b__0 (Ox"3BA" : mword 12) then "pmpaddr10" + else if eq_vec b__0 (Ox"3BB" : mword 12) then "pmpaddr11" + else if eq_vec b__0 (Ox"3BC" : mword 12) then "pmpaddr12" + else if eq_vec b__0 (Ox"3BD" : mword 12) then "pmpaddr13" + else if eq_vec b__0 (Ox"3BE" : mword 12) then "pmpaddr14" + else if eq_vec b__0 (Ox"3BF" : mword 12) then "pmpaddr15" + else if eq_vec b__0 (Ox"B00" : mword 12) then "mcycle" + else if eq_vec b__0 (Ox"B02" : mword 12) then "minstret" + else if eq_vec b__0 (Ox"B80" : mword 12) then "mcycleh" + else if eq_vec b__0 (Ox"B82" : mword 12) then "minstreth" + else if eq_vec b__0 (Ox"7A0" : mword 12) then "tselect" + else if eq_vec b__0 (Ox"7A1" : mword 12) then "tdata1" + else if eq_vec b__0 (Ox"7A2" : mword 12) then "tdata2" + else if eq_vec b__0 (Ox"7A3" : mword 12) then "tdata3" + else decimal_string_of_bits b__0. + +Definition csr_name_map_backwards (arg_ : string) : M (mword 12) := + let p0_ := arg_ in + (if generic_eq p0_ "ustatus" then returnm (Ox"000" : mword 12) + else if generic_eq p0_ "uie" then returnm (Ox"004" : mword 12) + else if generic_eq p0_ "utvec" then returnm (Ox"005" : mword 12) + else if generic_eq p0_ "uscratch" then returnm (Ox"040" : mword 12) + else if generic_eq p0_ "uepc" then returnm (Ox"041" : mword 12) + else if generic_eq p0_ "ucause" then returnm (Ox"042" : mword 12) + else if generic_eq p0_ "utval" then returnm (Ox"043" : mword 12) + else if generic_eq p0_ "uip" then returnm (Ox"044" : mword 12) + else if generic_eq p0_ "fflags" then returnm (Ox"001" : mword 12) + else if generic_eq p0_ "frm" then returnm (Ox"002" : mword 12) + else if generic_eq p0_ "fcsr" then returnm (Ox"003" : mword 12) + else if generic_eq p0_ "cycle" then returnm (Ox"C00" : mword 12) + else if generic_eq p0_ "time" then returnm (Ox"C01" : mword 12) + else if generic_eq p0_ "instret" then returnm (Ox"C02" : mword 12) + else if generic_eq p0_ "cycleh" then returnm (Ox"C80" : mword 12) + else if generic_eq p0_ "timeh" then returnm (Ox"C81" : mword 12) + else if generic_eq p0_ "instreth" then returnm (Ox"C82" : mword 12) + else if generic_eq p0_ "sstatus" then returnm (Ox"100" : mword 12) + else if generic_eq p0_ "sedeleg" then returnm (Ox"102" : mword 12) + else if generic_eq p0_ "sideleg" then returnm (Ox"103" : mword 12) + else if generic_eq p0_ "sie" then returnm (Ox"104" : mword 12) + else if generic_eq p0_ "stvec" then returnm (Ox"105" : mword 12) + else if generic_eq p0_ "scounteren" then returnm (Ox"106" : mword 12) + else if generic_eq p0_ "sscratch" then returnm (Ox"140" : mword 12) + else if generic_eq p0_ "sepc" then returnm (Ox"141" : mword 12) + else if generic_eq p0_ "scause" then returnm (Ox"142" : mword 12) + else if generic_eq p0_ "stval" then returnm (Ox"143" : mword 12) + else if generic_eq p0_ "sip" then returnm (Ox"144" : mword 12) + else if generic_eq p0_ "satp" then returnm (Ox"180" : mword 12) + else if generic_eq p0_ "mvendorid" then returnm (Ox"F11" : mword 12) + else if generic_eq p0_ "marchid" then returnm (Ox"F12" : mword 12) + else if generic_eq p0_ "mimpid" then returnm (Ox"F13" : mword 12) + else if generic_eq p0_ "mhartid" then returnm (Ox"F14" : mword 12) + else if generic_eq p0_ "mstatus" then returnm (Ox"300" : mword 12) + else if generic_eq p0_ "misa" then returnm (Ox"301" : mword 12) + else if generic_eq p0_ "medeleg" then returnm (Ox"302" : mword 12) + else if generic_eq p0_ "mideleg" then returnm (Ox"303" : mword 12) + else if generic_eq p0_ "mie" then returnm (Ox"304" : mword 12) + else if generic_eq p0_ "mtvec" then returnm (Ox"305" : mword 12) + else if generic_eq p0_ "mcounteren" then returnm (Ox"306" : mword 12) + else if generic_eq p0_ "mscratch" then returnm (Ox"340" : mword 12) + else if generic_eq p0_ "mepc" then returnm (Ox"341" : mword 12) + else if generic_eq p0_ "mcause" then returnm (Ox"342" : mword 12) + else if generic_eq p0_ "mtval" then returnm (Ox"343" : mword 12) + else if generic_eq p0_ "mip" then returnm (Ox"344" : mword 12) + else if generic_eq p0_ "pmpcfg0" then returnm (Ox"3A0" : mword 12) + else if generic_eq p0_ "pmpcfg1" then returnm (Ox"3A1" : mword 12) + else if generic_eq p0_ "pmpcfg2" then returnm (Ox"3A2" : mword 12) + else if generic_eq p0_ "pmpcfg3" then returnm (Ox"3A3" : mword 12) + else if generic_eq p0_ "pmpaddr0" then returnm (Ox"3B0" : mword 12) + else if generic_eq p0_ "pmpaddr1" then returnm (Ox"3B1" : mword 12) + else if generic_eq p0_ "pmpaddr2" then returnm (Ox"3B2" : mword 12) + else if generic_eq p0_ "pmpaddr3" then returnm (Ox"3B3" : mword 12) + else if generic_eq p0_ "pmpaddr4" then returnm (Ox"3B4" : mword 12) + else if generic_eq p0_ "pmpaddr5" then returnm (Ox"3B5" : mword 12) + else if generic_eq p0_ "pmpaddr6" then returnm (Ox"3B6" : mword 12) + else if generic_eq p0_ "pmpaddr7" then returnm (Ox"3B7" : mword 12) + else if generic_eq p0_ "pmpaddr8" then returnm (Ox"3B8" : mword 12) + else if generic_eq p0_ "pmpaddr9" then returnm (Ox"3B9" : mword 12) + else if generic_eq p0_ "pmpaddr10" then returnm (Ox"3BA" : mword 12) + else if generic_eq p0_ "pmpaddr11" then returnm (Ox"3BB" : mword 12) + else if generic_eq p0_ "pmpaddr12" then returnm (Ox"3BC" : mword 12) + else if generic_eq p0_ "pmpaddr13" then returnm (Ox"3BD" : mword 12) + else if generic_eq p0_ "pmpaddr14" then returnm (Ox"3BE" : mword 12) + else if generic_eq p0_ "pmpaddr15" then returnm (Ox"3BF" : mword 12) + else if generic_eq p0_ "mcycle" then returnm (Ox"B00" : mword 12) + else if generic_eq p0_ "minstret" then returnm (Ox"B02" : mword 12) + else if generic_eq p0_ "mcycleh" then returnm (Ox"B80" : mword 12) + else if generic_eq p0_ "minstreth" then returnm (Ox"B82" : mword 12) + else if generic_eq p0_ "tselect" then returnm (Ox"7A0" : mword 12) + else if generic_eq p0_ "tdata1" then returnm (Ox"7A1" : mword 12) + else if generic_eq p0_ "tdata2" then returnm (Ox"7A2" : mword 12) + else if generic_eq p0_ "tdata3" then returnm (Ox"7A3" : mword 12) + else + (and_boolM (returnm ((hex_bits_12_backwards_matches p0_) : bool)) + ((if hex_bits_12_backwards_matches p0_ then + (hex_bits_12_backwards p0_) >>= fun reg => returnm (true : bool) + else returnm false) + : M (bool))) >>= fun w__1 : bool => + (if sumbool_of_bool w__1 then hex_bits_12_backwards p0_ + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 12)) + : M (mword 12). -Definition lift_uip (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) -: Sinterrupts := - - let s : Sinterrupts := o in - if ((eq_vec (_get_Sinterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) - else s. +Definition csr_name_map_forwards_matches (arg_ : mword 12) : bool := + let b__0 := arg_ in + if eq_vec b__0 (Ox"000" : mword 12) then true + else if eq_vec b__0 (Ox"004" : mword 12) then true + else if eq_vec b__0 (Ox"005" : mword 12) then true + else if eq_vec b__0 (Ox"040" : mword 12) then true + else if eq_vec b__0 (Ox"041" : mword 12) then true + else if eq_vec b__0 (Ox"042" : mword 12) then true + else if eq_vec b__0 (Ox"043" : mword 12) then true + else if eq_vec b__0 (Ox"044" : mword 12) then true + else if eq_vec b__0 (Ox"001" : mword 12) then true + else if eq_vec b__0 (Ox"002" : mword 12) then true + else if eq_vec b__0 (Ox"003" : mword 12) then true + else if eq_vec b__0 (Ox"C00" : mword 12) then true + else if eq_vec b__0 (Ox"C01" : mword 12) then true + else if eq_vec b__0 (Ox"C02" : mword 12) then true + else if eq_vec b__0 (Ox"C80" : mword 12) then true + else if eq_vec b__0 (Ox"C81" : mword 12) then true + else if eq_vec b__0 (Ox"C82" : mword 12) then true + else if eq_vec b__0 (Ox"100" : mword 12) then true + else if eq_vec b__0 (Ox"102" : mword 12) then true + else if eq_vec b__0 (Ox"103" : mword 12) then true + else if eq_vec b__0 (Ox"104" : mword 12) then true + else if eq_vec b__0 (Ox"105" : mword 12) then true + else if eq_vec b__0 (Ox"106" : mword 12) then true + else if eq_vec b__0 (Ox"140" : mword 12) then true + else if eq_vec b__0 (Ox"141" : mword 12) then true + else if eq_vec b__0 (Ox"142" : mword 12) then true + else if eq_vec b__0 (Ox"143" : mword 12) then true + else if eq_vec b__0 (Ox"144" : mword 12) then true + else if eq_vec b__0 (Ox"180" : mword 12) then true + else if eq_vec b__0 (Ox"F11" : mword 12) then true + else if eq_vec b__0 (Ox"F12" : mword 12) then true + else if eq_vec b__0 (Ox"F13" : mword 12) then true + else if eq_vec b__0 (Ox"F14" : mword 12) then true + else if eq_vec b__0 (Ox"300" : mword 12) then true + else if eq_vec b__0 (Ox"301" : mword 12) then true + else if eq_vec b__0 (Ox"302" : mword 12) then true + else if eq_vec b__0 (Ox"303" : mword 12) then true + else if eq_vec b__0 (Ox"304" : mword 12) then true + else if eq_vec b__0 (Ox"305" : mword 12) then true + else if eq_vec b__0 (Ox"306" : mword 12) then true + else if eq_vec b__0 (Ox"340" : mword 12) then true + else if eq_vec b__0 (Ox"341" : mword 12) then true + else if eq_vec b__0 (Ox"342" : mword 12) then true + else if eq_vec b__0 (Ox"343" : mword 12) then true + else if eq_vec b__0 (Ox"344" : mword 12) then true + else if eq_vec b__0 (Ox"3A0" : mword 12) then true + else if eq_vec b__0 (Ox"3A1" : mword 12) then true + else if eq_vec b__0 (Ox"3A2" : mword 12) then true + else if eq_vec b__0 (Ox"3A3" : mword 12) then true + else if eq_vec b__0 (Ox"3B0" : mword 12) then true + else if eq_vec b__0 (Ox"3B1" : mword 12) then true + else if eq_vec b__0 (Ox"3B2" : mword 12) then true + else if eq_vec b__0 (Ox"3B3" : mword 12) then true + else if eq_vec b__0 (Ox"3B4" : mword 12) then true + else if eq_vec b__0 (Ox"3B5" : mword 12) then true + else if eq_vec b__0 (Ox"3B6" : mword 12) then true + else if eq_vec b__0 (Ox"3B7" : mword 12) then true + else if eq_vec b__0 (Ox"3B8" : mword 12) then true + else if eq_vec b__0 (Ox"3B9" : mword 12) then true + else if eq_vec b__0 (Ox"3BA" : mword 12) then true + else if eq_vec b__0 (Ox"3BB" : mword 12) then true + else if eq_vec b__0 (Ox"3BC" : mword 12) then true + else if eq_vec b__0 (Ox"3BD" : mword 12) then true + else if eq_vec b__0 (Ox"3BE" : mword 12) then true + else if eq_vec b__0 (Ox"3BF" : mword 12) then true + else if eq_vec b__0 (Ox"B00" : mword 12) then true + else if eq_vec b__0 (Ox"B02" : mword 12) then true + else if eq_vec b__0 (Ox"B80" : mword 12) then true + else if eq_vec b__0 (Ox"B82" : mword 12) then true + else if eq_vec b__0 (Ox"7A0" : mword 12) then true + else if eq_vec b__0 (Ox"7A1" : mword 12) then true + else if eq_vec b__0 (Ox"7A2" : mword 12) then true + else if eq_vec b__0 (Ox"7A3" : mword 12) then true + else true. -Definition legalize_uip (s : Sinterrupts) (d : Sinterrupts) (v : mword 32) -: Sinterrupts := - - lift_uip s d (Mk_Uinterrupts v). +Definition csr_name_map_backwards_matches (arg_ : string) : M (bool) := + let p0_ := arg_ in + (if generic_eq p0_ "ustatus" then returnm true + else if generic_eq p0_ "uie" then returnm true + else if generic_eq p0_ "utvec" then returnm true + else if generic_eq p0_ "uscratch" then returnm true + else if generic_eq p0_ "uepc" then returnm true + else if generic_eq p0_ "ucause" then returnm true + else if generic_eq p0_ "utval" then returnm true + else if generic_eq p0_ "uip" then returnm true + else if generic_eq p0_ "fflags" then returnm true + else if generic_eq p0_ "frm" then returnm true + else if generic_eq p0_ "fcsr" then returnm true + else if generic_eq p0_ "cycle" then returnm true + else if generic_eq p0_ "time" then returnm true + else if generic_eq p0_ "instret" then returnm true + else if generic_eq p0_ "cycleh" then returnm true + else if generic_eq p0_ "timeh" then returnm true + else if generic_eq p0_ "instreth" then returnm true + else if generic_eq p0_ "sstatus" then returnm true + else if generic_eq p0_ "sedeleg" then returnm true + else if generic_eq p0_ "sideleg" then returnm true + else if generic_eq p0_ "sie" then returnm true + else if generic_eq p0_ "stvec" then returnm true + else if generic_eq p0_ "scounteren" then returnm true + else if generic_eq p0_ "sscratch" then returnm true + else if generic_eq p0_ "sepc" then returnm true + else if generic_eq p0_ "scause" then returnm true + else if generic_eq p0_ "stval" then returnm true + else if generic_eq p0_ "sip" then returnm true + else if generic_eq p0_ "satp" then returnm true + else if generic_eq p0_ "mvendorid" then returnm true + else if generic_eq p0_ "marchid" then returnm true + else if generic_eq p0_ "mimpid" then returnm true + else if generic_eq p0_ "mhartid" then returnm true + else if generic_eq p0_ "mstatus" then returnm true + else if generic_eq p0_ "misa" then returnm true + else if generic_eq p0_ "medeleg" then returnm true + else if generic_eq p0_ "mideleg" then returnm true + else if generic_eq p0_ "mie" then returnm true + else if generic_eq p0_ "mtvec" then returnm true + else if generic_eq p0_ "mcounteren" then returnm true + else if generic_eq p0_ "mscratch" then returnm true + else if generic_eq p0_ "mepc" then returnm true + else if generic_eq p0_ "mcause" then returnm true + else if generic_eq p0_ "mtval" then returnm true + else if generic_eq p0_ "mip" then returnm true + else if generic_eq p0_ "pmpcfg0" then returnm true + else if generic_eq p0_ "pmpcfg1" then returnm true + else if generic_eq p0_ "pmpcfg2" then returnm true + else if generic_eq p0_ "pmpcfg3" then returnm true + else if generic_eq p0_ "pmpaddr0" then returnm true + else if generic_eq p0_ "pmpaddr1" then returnm true + else if generic_eq p0_ "pmpaddr2" then returnm true + else if generic_eq p0_ "pmpaddr3" then returnm true + else if generic_eq p0_ "pmpaddr4" then returnm true + else if generic_eq p0_ "pmpaddr5" then returnm true + else if generic_eq p0_ "pmpaddr6" then returnm true + else if generic_eq p0_ "pmpaddr7" then returnm true + else if generic_eq p0_ "pmpaddr8" then returnm true + else if generic_eq p0_ "pmpaddr9" then returnm true + else if generic_eq p0_ "pmpaddr10" then returnm true + else if generic_eq p0_ "pmpaddr11" then returnm true + else if generic_eq p0_ "pmpaddr12" then returnm true + else if generic_eq p0_ "pmpaddr13" then returnm true + else if generic_eq p0_ "pmpaddr14" then returnm true + else if generic_eq p0_ "pmpaddr15" then returnm true + else if generic_eq p0_ "mcycle" then returnm true + else if generic_eq p0_ "minstret" then returnm true + else if generic_eq p0_ "mcycleh" then returnm true + else if generic_eq p0_ "minstreth" then returnm true + else if generic_eq p0_ "tselect" then returnm true + else if generic_eq p0_ "tdata1" then returnm true + else if generic_eq p0_ "tdata2" then returnm true + else if generic_eq p0_ "tdata3" then returnm true + else + (and_boolM (returnm ((hex_bits_12_backwards_matches p0_) : bool)) + ((if hex_bits_12_backwards_matches p0_ then + (hex_bits_12_backwards p0_) >>= fun reg => returnm (true : bool) + else returnm false) + : M (bool))) >>= fun w__1 : bool => + if sumbool_of_bool w__1 then (hex_bits_12_backwards p0_) >>= fun reg => returnm true + else returnm false) + : M (bool). -Definition lift_uie (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) -: Sinterrupts := - - let s : Sinterrupts := o in - let s := - if ((eq_vec (_get_Sinterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_UEI s (_get_Uinterrupts_UEI u) - else s in - let s := - if ((eq_vec (_get_Sinterrupts_UTI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_UTI s (_get_Uinterrupts_UTI u) - else s in - if ((eq_vec (_get_Sinterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) - else s. +Definition _s748_ (_s749_ : string) : option ((mword 12 * string)) := + match _s749_ with + | _s750_ => + match (hex_bits_12_matches_prefix _s750_) with + | Some (reg, existT _ _s751_ _) => + match (string_drop _s750_ _s751_) with | s_ => Some (reg, s_) end + | _ => None + end + end. -Definition legalize_uie (s : Sinterrupts) (d : Sinterrupts) (v : mword 32) -: Sinterrupts := - - lift_uie s d (Mk_Uinterrupts v). +Definition _s744_ (_s745_ : string) : option string := + let _s746_ := _s745_ in + if string_startswith _s746_ "tdata3" then + match (string_drop _s746_ (projT1 (string_length "tdata3"))) with | s_ => Some s_ end + else None. -Definition handle_trap_extension (p : Privilege) (pc : mword 32) (u : option unit) : unit := tt. +Definition _s740_ (_s741_ : string) : option string := + let _s742_ := _s741_ in + if string_startswith _s742_ "tdata2" then + match (string_drop _s742_ (projT1 (string_length "tdata2"))) with | s_ => Some s_ end + else None. -Definition prepare_trap_vector (p : Privilege) (cause : Mcause) -: M (mword 32) := - - (match p with - | Machine => read_reg mtvec_ref : M (Mtvec) - | Supervisor => read_reg stvec_ref : M (Mtvec) - | User => read_reg utvec_ref : M (Mtvec) - end) >>= fun tvec : Mtvec => - (match (tvec_addr tvec cause) with - | Some (epc) => returnm (epc : mword 32) - | None => (internal_error "Invalid tvec mode") : M (mword 32) - end) - : M (mword 32). +Definition _s736_ (_s737_ : string) : option string := + let _s738_ := _s737_ in + if string_startswith _s738_ "tdata1" then + match (string_drop _s738_ (projT1 (string_length "tdata1"))) with | s_ => Some s_ end + else None. -Definition get_xret_target (p : Privilege) -: M (mword 32) := - - (match p with - | Machine => ((read_reg mepc_ref) : M (mword 32)) : M (mword 32) - | Supervisor => ((read_reg sepc_ref) : M (mword 32)) : M (mword 32) - | User => ((read_reg uepc_ref) : M (mword 32)) : M (mword 32) - end) - : M (mword 32). +Definition _s732_ (_s733_ : string) : option string := + let _s734_ := _s733_ in + if string_startswith _s734_ "tselect" then + match (string_drop _s734_ (projT1 (string_length "tselect"))) with | s_ => Some s_ end + else None. -Definition set_xret_target (p : Privilege) (value : mword 32) -: M (mword 32) := - - (legalize_xepc value) >>= fun target => - (match p with - | Machine => write_reg mepc_ref target : M (unit) - | Supervisor => write_reg sepc_ref target : M (unit) - | User => write_reg uepc_ref target : M (unit) - end) >> - returnm (target - : mword 32). +Definition _s728_ (_s729_ : string) : option string := + let _s730_ := _s729_ in + if string_startswith _s730_ "minstreth" then + match (string_drop _s730_ (projT1 (string_length "minstreth"))) with | s_ => Some s_ end + else None. -Definition prepare_xret_target (p : Privilege) -: M (mword 32) := - - (get_xret_target p) - : M (mword 32). +Definition _s724_ (_s725_ : string) : option string := + let _s726_ := _s725_ in + if string_startswith _s726_ "mcycleh" then + match (string_drop _s726_ (projT1 (string_length "mcycleh"))) with | s_ => Some s_ end + else None. -Definition get_mtvec '(tt : unit) -: M (mword 32) := - - read_reg mtvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 32). +Definition _s720_ (_s721_ : string) : option string := + let _s722_ := _s721_ in + if string_startswith _s722_ "minstret" then + match (string_drop _s722_ (projT1 (string_length "minstret"))) with | s_ => Some s_ end + else None. -Definition get_stvec '(tt : unit) -: M (mword 32) := - - read_reg stvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 32). +Definition _s716_ (_s717_ : string) : option string := + let _s718_ := _s717_ in + if string_startswith _s718_ "mcycle" then + match (string_drop _s718_ (projT1 (string_length "mcycle"))) with | s_ => Some s_ end + else None. -Definition get_utvec '(tt : unit) -: M (mword 32) := - - read_reg utvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 32). +Definition _s712_ (_s713_ : string) : option string := + let _s714_ := _s713_ in + if string_startswith _s714_ "pmpaddr15" then + match (string_drop _s714_ (projT1 (string_length "pmpaddr15"))) with | s_ => Some s_ end + else None. -Definition set_mtvec (value : mword 32) -: M (mword 32) := - - read_reg mtvec_ref >>= fun w__0 : Mtvec => - write_reg mtvec_ref (legalize_tvec w__0 value) >> - read_reg mtvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 32). +Definition _s708_ (_s709_ : string) : option string := + let _s710_ := _s709_ in + if string_startswith _s710_ "pmpaddr14" then + match (string_drop _s710_ (projT1 (string_length "pmpaddr14"))) with | s_ => Some s_ end + else None. -Definition set_stvec (value : mword 32) -: M (mword 32) := - - read_reg stvec_ref >>= fun w__0 : Mtvec => - write_reg stvec_ref (legalize_tvec w__0 value) >> - read_reg stvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 32). +Definition _s704_ (_s705_ : string) : option string := + let _s706_ := _s705_ in + if string_startswith _s706_ "pmpaddr13" then + match (string_drop _s706_ (projT1 (string_length "pmpaddr13"))) with | s_ => Some s_ end + else None. -Definition set_utvec (value : mword 32) -: M (mword 32) := - - read_reg utvec_ref >>= fun w__0 : Mtvec => - write_reg utvec_ref (legalize_tvec w__0 value) >> - read_reg utvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 32). +Definition _s700_ (_s701_ : string) : option string := + let _s702_ := _s701_ in + if string_startswith _s702_ "pmpaddr12" then + match (string_drop _s702_ (projT1 (string_length "pmpaddr12"))) with | s_ => Some s_ end + else None. -Definition is_NExt_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - (haveUsrMode tt) +Definition _s696_ (_s697_ : string) : option string := + let _s698_ := _s697_ in + if string_startswith _s698_ "pmpaddr11" then + match (string_drop _s698_ (projT1 (string_length "pmpaddr11"))) with | s_ => Some s_ end + else None. + +Definition _s692_ (_s693_ : string) : option string := + let _s694_ := _s693_ in + if string_startswith _s694_ "pmpaddr10" then + match (string_drop _s694_ (projT1 (string_length "pmpaddr10"))) with | s_ => Some s_ end + else None. + +Definition _s688_ (_s689_ : string) : option string := + let _s690_ := _s689_ in + if string_startswith _s690_ "pmpaddr9" then + match (string_drop _s690_ (projT1 (string_length "pmpaddr9"))) with | s_ => Some s_ end + else None. + +Definition _s684_ (_s685_ : string) : option string := + let _s686_ := _s685_ in + if string_startswith _s686_ "pmpaddr8" then + match (string_drop _s686_ (projT1 (string_length "pmpaddr8"))) with | s_ => Some s_ end + else None. + +Definition _s680_ (_s681_ : string) : option string := + let _s682_ := _s681_ in + if string_startswith _s682_ "pmpaddr7" then + match (string_drop _s682_ (projT1 (string_length "pmpaddr7"))) with | s_ => Some s_ end + else None. + +Definition _s676_ (_s677_ : string) : option string := + let _s678_ := _s677_ in + if string_startswith _s678_ "pmpaddr6" then + match (string_drop _s678_ (projT1 (string_length "pmpaddr6"))) with | s_ => Some s_ end + else None. + +Definition _s672_ (_s673_ : string) : option string := + let _s674_ := _s673_ in + if string_startswith _s674_ "pmpaddr5" then + match (string_drop _s674_ (projT1 (string_length "pmpaddr5"))) with | s_ => Some s_ end + else None. + +Definition _s668_ (_s669_ : string) : option string := + let _s670_ := _s669_ in + if string_startswith _s670_ "pmpaddr4" then + match (string_drop _s670_ (projT1 (string_length "pmpaddr4"))) with | s_ => Some s_ end + else None. + +Definition _s664_ (_s665_ : string) : option string := + let _s666_ := _s665_ in + if string_startswith _s666_ "pmpaddr3" then + match (string_drop _s666_ (projT1 (string_length "pmpaddr3"))) with | s_ => Some s_ end + else None. + +Definition _s660_ (_s661_ : string) : option string := + let _s662_ := _s661_ in + if string_startswith _s662_ "pmpaddr2" then + match (string_drop _s662_ (projT1 (string_length "pmpaddr2"))) with | s_ => Some s_ end + else None. + +Definition _s656_ (_s657_ : string) : option string := + let _s658_ := _s657_ in + if string_startswith _s658_ "pmpaddr1" then + match (string_drop _s658_ (projT1 (string_length "pmpaddr1"))) with | s_ => Some s_ end + else None. + +Definition _s652_ (_s653_ : string) : option string := + let _s654_ := _s653_ in + if string_startswith _s654_ "pmpaddr0" then + match (string_drop _s654_ (projT1 (string_length "pmpaddr0"))) with | s_ => Some s_ end + else None. + +Definition _s648_ (_s649_ : string) : option string := + let _s650_ := _s649_ in + if string_startswith _s650_ "pmpcfg3" then + match (string_drop _s650_ (projT1 (string_length "pmpcfg3"))) with | s_ => Some s_ end + else None. + +Definition _s644_ (_s645_ : string) : option string := + let _s646_ := _s645_ in + if string_startswith _s646_ "pmpcfg2" then + match (string_drop _s646_ (projT1 (string_length "pmpcfg2"))) with | s_ => Some s_ end + else None. + +Definition _s640_ (_s641_ : string) : option string := + let _s642_ := _s641_ in + if string_startswith _s642_ "pmpcfg1" then + match (string_drop _s642_ (projT1 (string_length "pmpcfg1"))) with | s_ => Some s_ end + else None. + +Definition _s636_ (_s637_ : string) : option string := + let _s638_ := _s637_ in + if string_startswith _s638_ "pmpcfg0" then + match (string_drop _s638_ (projT1 (string_length "pmpcfg0"))) with | s_ => Some s_ end + else None. + +Definition _s632_ (_s633_ : string) : option string := + let _s634_ := _s633_ in + if string_startswith _s634_ "mip" then + match (string_drop _s634_ (projT1 (string_length "mip"))) with | s_ => Some s_ end + else None. + +Definition _s628_ (_s629_ : string) : option string := + let _s630_ := _s629_ in + if string_startswith _s630_ "mtval" then + match (string_drop _s630_ (projT1 (string_length "mtval"))) with | s_ => Some s_ end + else None. + +Definition _s624_ (_s625_ : string) : option string := + let _s626_ := _s625_ in + if string_startswith _s626_ "mcause" then + match (string_drop _s626_ (projT1 (string_length "mcause"))) with | s_ => Some s_ end + else None. + +Definition _s620_ (_s621_ : string) : option string := + let _s622_ := _s621_ in + if string_startswith _s622_ "mepc" then + match (string_drop _s622_ (projT1 (string_length "mepc"))) with | s_ => Some s_ end + else None. + +Definition _s616_ (_s617_ : string) : option string := + let _s618_ := _s617_ in + if string_startswith _s618_ "mscratch" then + match (string_drop _s618_ (projT1 (string_length "mscratch"))) with | s_ => Some s_ end + else None. + +Definition _s612_ (_s613_ : string) : option string := + let _s614_ := _s613_ in + if string_startswith _s614_ "mcounteren" then + match (string_drop _s614_ (projT1 (string_length "mcounteren"))) with | s_ => Some s_ end + else None. + +Definition _s608_ (_s609_ : string) : option string := + let _s610_ := _s609_ in + if string_startswith _s610_ "mtvec" then + match (string_drop _s610_ (projT1 (string_length "mtvec"))) with | s_ => Some s_ end + else None. + +Definition _s604_ (_s605_ : string) : option string := + let _s606_ := _s605_ in + if string_startswith _s606_ "mie" then + match (string_drop _s606_ (projT1 (string_length "mie"))) with | s_ => Some s_ end + else None. + +Definition _s600_ (_s601_ : string) : option string := + let _s602_ := _s601_ in + if string_startswith _s602_ "mideleg" then + match (string_drop _s602_ (projT1 (string_length "mideleg"))) with | s_ => Some s_ end + else None. + +Definition _s596_ (_s597_ : string) : option string := + let _s598_ := _s597_ in + if string_startswith _s598_ "medeleg" then + match (string_drop _s598_ (projT1 (string_length "medeleg"))) with | s_ => Some s_ end + else None. + +Definition _s592_ (_s593_ : string) : option string := + let _s594_ := _s593_ in + if string_startswith _s594_ "misa" then + match (string_drop _s594_ (projT1 (string_length "misa"))) with | s_ => Some s_ end + else None. + +Definition _s588_ (_s589_ : string) : option string := + let _s590_ := _s589_ in + if string_startswith _s590_ "mstatus" then + match (string_drop _s590_ (projT1 (string_length "mstatus"))) with | s_ => Some s_ end + else None. + +Definition _s584_ (_s585_ : string) : option string := + let _s586_ := _s585_ in + if string_startswith _s586_ "mhartid" then + match (string_drop _s586_ (projT1 (string_length "mhartid"))) with | s_ => Some s_ end + else None. + +Definition _s580_ (_s581_ : string) : option string := + let _s582_ := _s581_ in + if string_startswith _s582_ "mimpid" then + match (string_drop _s582_ (projT1 (string_length "mimpid"))) with | s_ => Some s_ end + else None. + +Definition _s576_ (_s577_ : string) : option string := + let _s578_ := _s577_ in + if string_startswith _s578_ "marchid" then + match (string_drop _s578_ (projT1 (string_length "marchid"))) with | s_ => Some s_ end + else None. + +Definition _s572_ (_s573_ : string) : option string := + let _s574_ := _s573_ in + if string_startswith _s574_ "mvendorid" then + match (string_drop _s574_ (projT1 (string_length "mvendorid"))) with | s_ => Some s_ end + else None. + +Definition _s568_ (_s569_ : string) : option string := + let _s570_ := _s569_ in + if string_startswith _s570_ "satp" then + match (string_drop _s570_ (projT1 (string_length "satp"))) with | s_ => Some s_ end + else None. + +Definition _s564_ (_s565_ : string) : option string := + let _s566_ := _s565_ in + if string_startswith _s566_ "sip" then + match (string_drop _s566_ (projT1 (string_length "sip"))) with | s_ => Some s_ end + else None. + +Definition _s560_ (_s561_ : string) : option string := + let _s562_ := _s561_ in + if string_startswith _s562_ "stval" then + match (string_drop _s562_ (projT1 (string_length "stval"))) with | s_ => Some s_ end + else None. + +Definition _s556_ (_s557_ : string) : option string := + let _s558_ := _s557_ in + if string_startswith _s558_ "scause" then + match (string_drop _s558_ (projT1 (string_length "scause"))) with | s_ => Some s_ end + else None. + +Definition _s552_ (_s553_ : string) : option string := + let _s554_ := _s553_ in + if string_startswith _s554_ "sepc" then + match (string_drop _s554_ (projT1 (string_length "sepc"))) with | s_ => Some s_ end + else None. + +Definition _s548_ (_s549_ : string) : option string := + let _s550_ := _s549_ in + if string_startswith _s550_ "sscratch" then + match (string_drop _s550_ (projT1 (string_length "sscratch"))) with | s_ => Some s_ end + else None. + +Definition _s544_ (_s545_ : string) : option string := + let _s546_ := _s545_ in + if string_startswith _s546_ "scounteren" then + match (string_drop _s546_ (projT1 (string_length "scounteren"))) with | s_ => Some s_ end + else None. + +Definition _s540_ (_s541_ : string) : option string := + let _s542_ := _s541_ in + if string_startswith _s542_ "stvec" then + match (string_drop _s542_ (projT1 (string_length "stvec"))) with | s_ => Some s_ end + else None. + +Definition _s536_ (_s537_ : string) : option string := + let _s538_ := _s537_ in + if string_startswith _s538_ "sie" then + match (string_drop _s538_ (projT1 (string_length "sie"))) with | s_ => Some s_ end + else None. + +Definition _s532_ (_s533_ : string) : option string := + let _s534_ := _s533_ in + if string_startswith _s534_ "sideleg" then + match (string_drop _s534_ (projT1 (string_length "sideleg"))) with | s_ => Some s_ end + else None. + +Definition _s528_ (_s529_ : string) : option string := + let _s530_ := _s529_ in + if string_startswith _s530_ "sedeleg" then + match (string_drop _s530_ (projT1 (string_length "sedeleg"))) with | s_ => Some s_ end + else None. + +Definition _s524_ (_s525_ : string) : option string := + let _s526_ := _s525_ in + if string_startswith _s526_ "sstatus" then + match (string_drop _s526_ (projT1 (string_length "sstatus"))) with | s_ => Some s_ end + else None. + +Definition _s520_ (_s521_ : string) : option string := + let _s522_ := _s521_ in + if string_startswith _s522_ "instreth" then + match (string_drop _s522_ (projT1 (string_length "instreth"))) with | s_ => Some s_ end + else None. + +Definition _s516_ (_s517_ : string) : option string := + let _s518_ := _s517_ in + if string_startswith _s518_ "timeh" then + match (string_drop _s518_ (projT1 (string_length "timeh"))) with | s_ => Some s_ end + else None. + +Definition _s512_ (_s513_ : string) : option string := + let _s514_ := _s513_ in + if string_startswith _s514_ "cycleh" then + match (string_drop _s514_ (projT1 (string_length "cycleh"))) with | s_ => Some s_ end + else None. + +Definition _s508_ (_s509_ : string) : option string := + let _s510_ := _s509_ in + if string_startswith _s510_ "instret" then + match (string_drop _s510_ (projT1 (string_length "instret"))) with | s_ => Some s_ end + else None. + +Definition _s504_ (_s505_ : string) : option string := + let _s506_ := _s505_ in + if string_startswith _s506_ "time" then + match (string_drop _s506_ (projT1 (string_length "time"))) with | s_ => Some s_ end + else None. + +Definition _s500_ (_s501_ : string) : option string := + let _s502_ := _s501_ in + if string_startswith _s502_ "cycle" then + match (string_drop _s502_ (projT1 (string_length "cycle"))) with | s_ => Some s_ end + else None. + +Definition _s496_ (_s497_ : string) : option string := + let _s498_ := _s497_ in + if string_startswith _s498_ "fcsr" then + match (string_drop _s498_ (projT1 (string_length "fcsr"))) with | s_ => Some s_ end + else None. + +Definition _s492_ (_s493_ : string) : option string := + let _s494_ := _s493_ in + if string_startswith _s494_ "frm" then + match (string_drop _s494_ (projT1 (string_length "frm"))) with | s_ => Some s_ end + else None. + +Definition _s488_ (_s489_ : string) : option string := + let _s490_ := _s489_ in + if string_startswith _s490_ "fflags" then + match (string_drop _s490_ (projT1 (string_length "fflags"))) with | s_ => Some s_ end + else None. + +Definition _s484_ (_s485_ : string) : option string := + let _s486_ := _s485_ in + if string_startswith _s486_ "uip" then + match (string_drop _s486_ (projT1 (string_length "uip"))) with | s_ => Some s_ end + else None. + +Definition _s480_ (_s481_ : string) : option string := + let _s482_ := _s481_ in + if string_startswith _s482_ "utval" then + match (string_drop _s482_ (projT1 (string_length "utval"))) with | s_ => Some s_ end + else None. + +Definition _s476_ (_s477_ : string) : option string := + let _s478_ := _s477_ in + if string_startswith _s478_ "ucause" then + match (string_drop _s478_ (projT1 (string_length "ucause"))) with | s_ => Some s_ end + else None. + +Definition _s472_ (_s473_ : string) : option string := + let _s474_ := _s473_ in + if string_startswith _s474_ "uepc" then + match (string_drop _s474_ (projT1 (string_length "uepc"))) with | s_ => Some s_ end + else None. + +Definition _s468_ (_s469_ : string) : option string := + let _s470_ := _s469_ in + if string_startswith _s470_ "uscratch" then + match (string_drop _s470_ (projT1 (string_length "uscratch"))) with | s_ => Some s_ end + else None. + +Definition _s464_ (_s465_ : string) : option string := + let _s466_ := _s465_ in + if string_startswith _s466_ "utvec" then + match (string_drop _s466_ (projT1 (string_length "utvec"))) with | s_ => Some s_ end + else None. + +Definition _s460_ (_s461_ : string) : option string := + let _s462_ := _s461_ in + if string_startswith _s462_ "uie" then + match (string_drop _s462_ (projT1 (string_length "uie"))) with | s_ => Some s_ end + else None. + +Definition _s456_ (_s457_ : string) : option string := + let _s458_ := _s457_ in + if string_startswith _s458_ "ustatus" then + match (string_drop _s458_ (projT1 (string_length "ustatus"))) with | s_ => Some s_ end + else None. + +Definition csr_name_map_matches_prefix (arg_ : string) +: M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) := + let _s459_ := arg_ in + (if match (_s456_ _s459_) with | Some s_ => true | _ => false end then + (match (_s456_ _s459_) with + | Some s_ => + returnm (Some + (Ox"000" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s460_ _s459_) with | Some s_ => true | _ => false end then + (match (_s460_ _s459_) with + | Some s_ => + returnm (Some + (Ox"004" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s464_ _s459_) with | Some s_ => true | _ => false end then + (match (_s464_ _s459_) with + | Some s_ => + returnm (Some + (Ox"005" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s468_ _s459_) with | Some s_ => true | _ => false end then + (match (_s468_ _s459_) with + | Some s_ => + returnm (Some + (Ox"040" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s472_ _s459_) with | Some s_ => true | _ => false end then + (match (_s472_ _s459_) with + | Some s_ => + returnm (Some + (Ox"041" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s476_ _s459_) with | Some s_ => true | _ => false end then + (match (_s476_ _s459_) with + | Some s_ => + returnm (Some + (Ox"042" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s480_ _s459_) with | Some s_ => true | _ => false end then + (match (_s480_ _s459_) with + | Some s_ => + returnm (Some + (Ox"043" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s484_ _s459_) with | Some s_ => true | _ => false end then + (match (_s484_ _s459_) with + | Some s_ => + returnm (Some + (Ox"044" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s488_ _s459_) with | Some s_ => true | _ => false end then + (match (_s488_ _s459_) with + | Some s_ => + returnm (Some + (Ox"001" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s492_ _s459_) with | Some s_ => true | _ => false end then + (match (_s492_ _s459_) with + | Some s_ => + returnm (Some + (Ox"002" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s496_ _s459_) with | Some s_ => true | _ => false end then + (match (_s496_ _s459_) with + | Some s_ => + returnm (Some + (Ox"003" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s500_ _s459_) with | Some s_ => true | _ => false end then + (match (_s500_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C00" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s504_ _s459_) with | Some s_ => true | _ => false end then + (match (_s504_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C01" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s508_ _s459_) with | Some s_ => true | _ => false end then + (match (_s508_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C02" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s512_ _s459_) with | Some s_ => true | _ => false end then + (match (_s512_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C80" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s516_ _s459_) with | Some s_ => true | _ => false end then + (match (_s516_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C81" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s520_ _s459_) with | Some s_ => true | _ => false end then + (match (_s520_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C82" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s524_ _s459_) with | Some s_ => true | _ => false end then + (match (_s524_ _s459_) with + | Some s_ => + returnm (Some + (Ox"100" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s528_ _s459_) with | Some s_ => true | _ => false end then + (match (_s528_ _s459_) with + | Some s_ => + returnm (Some + (Ox"102" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s532_ _s459_) with | Some s_ => true | _ => false end then + (match (_s532_ _s459_) with + | Some s_ => + returnm (Some + (Ox"103" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s536_ _s459_) with | Some s_ => true | _ => false end then + (match (_s536_ _s459_) with + | Some s_ => + returnm (Some + (Ox"104" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s540_ _s459_) with | Some s_ => true | _ => false end then + (match (_s540_ _s459_) with + | Some s_ => + returnm (Some + (Ox"105" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s544_ _s459_) with | Some s_ => true | _ => false end then + (match (_s544_ _s459_) with + | Some s_ => + returnm (Some + (Ox"106" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s548_ _s459_) with | Some s_ => true | _ => false end then + (match (_s548_ _s459_) with + | Some s_ => + returnm (Some + (Ox"140" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s552_ _s459_) with | Some s_ => true | _ => false end then + (match (_s552_ _s459_) with + | Some s_ => + returnm (Some + (Ox"141" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s556_ _s459_) with | Some s_ => true | _ => false end then + (match (_s556_ _s459_) with + | Some s_ => + returnm (Some + (Ox"142" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s560_ _s459_) with | Some s_ => true | _ => false end then + (match (_s560_ _s459_) with + | Some s_ => + returnm (Some + (Ox"143" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s564_ _s459_) with | Some s_ => true | _ => false end then + (match (_s564_ _s459_) with + | Some s_ => + returnm (Some + (Ox"144" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s568_ _s459_) with | Some s_ => true | _ => false end then + (match (_s568_ _s459_) with + | Some s_ => + returnm (Some + (Ox"180" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s572_ _s459_) with | Some s_ => true | _ => false end then + (match (_s572_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F11" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s576_ _s459_) with | Some s_ => true | _ => false end then + (match (_s576_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F12" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s580_ _s459_) with | Some s_ => true | _ => false end then + (match (_s580_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F13" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s584_ _s459_) with | Some s_ => true | _ => false end then + (match (_s584_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F14" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s588_ _s459_) with | Some s_ => true | _ => false end then + (match (_s588_ _s459_) with + | Some s_ => + returnm (Some + (Ox"300" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s592_ _s459_) with | Some s_ => true | _ => false end then + (match (_s592_ _s459_) with + | Some s_ => + returnm (Some + (Ox"301" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s596_ _s459_) with | Some s_ => true | _ => false end then + (match (_s596_ _s459_) with + | Some s_ => + returnm (Some + (Ox"302" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s600_ _s459_) with | Some s_ => true | _ => false end then + (match (_s600_ _s459_) with + | Some s_ => + returnm (Some + (Ox"303" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s604_ _s459_) with | Some s_ => true | _ => false end then + (match (_s604_ _s459_) with + | Some s_ => + returnm (Some + (Ox"304" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s608_ _s459_) with | Some s_ => true | _ => false end then + (match (_s608_ _s459_) with + | Some s_ => + returnm (Some + (Ox"305" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s612_ _s459_) with | Some s_ => true | _ => false end then + (match (_s612_ _s459_) with + | Some s_ => + returnm (Some + (Ox"306" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s616_ _s459_) with | Some s_ => true | _ => false end then + (match (_s616_ _s459_) with + | Some s_ => + returnm (Some + (Ox"340" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s620_ _s459_) with | Some s_ => true | _ => false end then + (match (_s620_ _s459_) with + | Some s_ => + returnm (Some + (Ox"341" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s624_ _s459_) with | Some s_ => true | _ => false end then + (match (_s624_ _s459_) with + | Some s_ => + returnm (Some + (Ox"342" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s628_ _s459_) with | Some s_ => true | _ => false end then + (match (_s628_ _s459_) with + | Some s_ => + returnm (Some + (Ox"343" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s632_ _s459_) with | Some s_ => true | _ => false end then + (match (_s632_ _s459_) with + | Some s_ => + returnm (Some + (Ox"344" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s636_ _s459_) with | Some s_ => true | _ => false end then + (match (_s636_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s640_ _s459_) with | Some s_ => true | _ => false end then + (match (_s640_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s644_ _s459_) with | Some s_ => true | _ => false end then + (match (_s644_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s648_ _s459_) with | Some s_ => true | _ => false end then + (match (_s648_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s652_ _s459_) with | Some s_ => true | _ => false end then + (match (_s652_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s656_ _s459_) with | Some s_ => true | _ => false end then + (match (_s656_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s660_ _s459_) with | Some s_ => true | _ => false end then + (match (_s660_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s664_ _s459_) with | Some s_ => true | _ => false end then + (match (_s664_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s668_ _s459_) with | Some s_ => true | _ => false end then + (match (_s668_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B4" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s672_ _s459_) with | Some s_ => true | _ => false end then + (match (_s672_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B5" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s676_ _s459_) with | Some s_ => true | _ => false end then + (match (_s676_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B6" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s680_ _s459_) with | Some s_ => true | _ => false end then + (match (_s680_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B7" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s684_ _s459_) with | Some s_ => true | _ => false end then + (match (_s684_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B8" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s688_ _s459_) with | Some s_ => true | _ => false end then + (match (_s688_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B9" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s692_ _s459_) with | Some s_ => true | _ => false end then + (match (_s692_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BA" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s696_ _s459_) with | Some s_ => true | _ => false end then + (match (_s696_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BB" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s700_ _s459_) with | Some s_ => true | _ => false end then + (match (_s700_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BC" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s704_ _s459_) with | Some s_ => true | _ => false end then + (match (_s704_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BD" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s708_ _s459_) with | Some s_ => true | _ => false end then + (match (_s708_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BE" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s712_ _s459_) with | Some s_ => true | _ => false end then + (match (_s712_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BF" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s716_ _s459_) with | Some s_ => true | _ => false end then + (match (_s716_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B00" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s720_ _s459_) with | Some s_ => true | _ => false end then + (match (_s720_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B02" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s724_ _s459_) with | Some s_ => true | _ => false end then + (match (_s724_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B80" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s728_ _s459_) with | Some s_ => true | _ => false end then + (match (_s728_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B82" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s732_ _s459_) with | Some s_ => true | _ => false end then + (match (_s732_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s736_ _s459_) with | Some s_ => true | _ => false end then + (match (_s736_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s740_ _s459_) with | Some s_ => true | _ => false end then + (match (_s740_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s744_ _s459_) with | Some s_ => true | _ => false end then + (match (_s744_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s748_ _s459_) with | Some (reg, s_) => true | _ => false end then + (match (_s748_ _s459_) with + | Some (reg, s_) => + returnm (Some + (reg, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))). + +Definition csr_name (csr : mword 12) : string := csr_name_map_forwards csr. + +Definition ext_is_CSR_defined (b__0 : mword 12) (g__312 : Privilege) : M (bool) := + (if eq_vec b__0 (Ox"000" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"004" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"005" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"040" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"041" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"042" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"043" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"044" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else if eq_vec b__0 (Ox"001" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool) + else if eq_vec b__0 (Ox"002" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool) + else if eq_vec b__0 (Ox"003" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool) + else returnm false) : M (bool). -Definition read_NExt_CSR (csr : mword 12) -: M (option (mword 32)) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then +Definition ext_read_CSR (b__0 : mword 12) : M (option (mword 32)) := + (if eq_vec b__0 (Ox"000" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => - returnm ((Some - (_get_Ustatus_bits (lower_sstatus (lower_mstatus w__0)))) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + returnm (Some (_get_Ustatus_bits (lower_sstatus (lower_mstatus w__0)))) + else if eq_vec b__0 (Ox"004" : mword 12) then read_reg mie_ref >>= fun w__1 : Minterrupts => read_reg mideleg_ref >>= fun w__2 : Minterrupts => read_reg sideleg_ref >>= fun w__3 : Sinterrupts => - returnm ((Some - (_get_Uinterrupts_bits (lower_sie (lower_mie w__1 w__2) w__3))) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_utvec tt) >>= fun w__4 : mword 32 => returnm ((Some (w__4)) : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg uscratch_ref) : M (mword 32)) >>= fun w__5 : mword 32 => - returnm ((Some - (w__5)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then + returnm (Some (_get_Uinterrupts_bits (lower_sie (lower_mie w__1 w__2) w__3))) + else if eq_vec b__0 (Ox"005" : mword 12) then + (get_utvec tt) >>= fun w__4 : mword 32 => returnm (Some w__4) + else if eq_vec b__0 (Ox"040" : mword 12) then + ((read_reg uscratch_ref) : M (mword 32)) >>= fun w__5 : mword 32 => returnm (Some w__5) + else if eq_vec b__0 (Ox"041" : mword 12) then (get_xret_target User) >>= fun w__6 : mword 32 => - (pc_alignment_mask tt) >>= fun w__7 : mword 32 => - returnm ((Some - (and_vec w__6 w__7)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg ucause_ref >>= fun w__8 : Mcause => - returnm ((Some - (_get_Mcause_bits w__8)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - ((read_reg utval_ref) : M (mword 32)) >>= fun w__9 : mword 32 => - returnm ((Some - (w__9)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + (pc_alignment_mask tt) >>= fun w__7 : mword 32 => returnm (Some (and_vec w__6 w__7)) + else if eq_vec b__0 (Ox"042" : mword 12) then + read_reg ucause_ref >>= fun w__8 : Mcause => returnm (Some (_get_Mcause_bits w__8)) + else if eq_vec b__0 (Ox"043" : mword 12) then + ((read_reg utval_ref) : M (mword 32)) >>= fun w__9 : mword 32 => returnm (Some w__9) + else if eq_vec b__0 (Ox"044" : mword 12) then read_reg mip_ref >>= fun w__10 : Minterrupts => read_reg mideleg_ref >>= fun w__11 : Minterrupts => read_reg sideleg_ref >>= fun w__12 : Sinterrupts => - returnm ((Some - (_get_Uinterrupts_bits (lower_sip (lower_mip w__10 w__11) w__12))) - : option (mword 32)) - else returnm (None : option (mword 32))) - : M (option xlenbits). - -Definition write_NExt_CSR (csr : mword 12) (value : mword 32) -: M (bool) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + returnm (Some (_get_Uinterrupts_bits (lower_sip (lower_mip w__10 w__11) w__12))) + else if eq_vec b__0 (Ox"001" : mword 12) then + read_reg fcsr_ref >>= fun w__13 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_FFLAGS w__13))) + else if eq_vec b__0 (Ox"002" : mword 12) then + read_reg fcsr_ref >>= fun w__14 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_FRM w__14))) + else if eq_vec b__0 (Ox"003" : mword 12) then + read_reg fcsr_ref >>= fun w__15 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_bits w__15))) + else returnm None) + : M (option (mword 32)). + +Definition ext_write_CSR (b__0 : mword 12) (value : mword 32) : M (option (mword 32)) := + (if eq_vec b__0 (Ox"000" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (legalize_ustatus w__0 value) >>= fun w__1 : Mstatus => write_reg mstatus_ref w__1 >> - read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__2)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (Some (_get_Mstatus_bits w__2)) + else if eq_vec b__0 (Ox"004" : mword 12) then read_reg mie_ref >>= fun w__3 : Minterrupts => read_reg mideleg_ref >>= fun w__4 : Minterrupts => read_reg sideleg_ref >>= fun w__5 : Sinterrupts => @@ -10310,36 +10493,21 @@ Definition write_NExt_CSR (csr : mword 12) (value : mword 32) read_reg mideleg_ref >>= fun w__7 : Minterrupts => (lift_sie w__6 w__7 sie) >>= fun w__8 : Minterrupts => write_reg mie_ref w__8 >> - read_reg mie_ref >>= fun w__9 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__9)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_utvec value) >>= fun w__10 : mword 32 => returnm ((Some (w__10)) : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + read_reg mie_ref >>= fun w__9 : Minterrupts => returnm (Some (_get_Minterrupts_bits w__9)) + else if eq_vec b__0 (Ox"005" : mword 12) then + (set_utvec value) >>= fun w__10 : mword 32 => returnm (Some w__10) + else if eq_vec b__0 (Ox"040" : mword 12) then write_reg uscratch_ref value >> - ((read_reg uscratch_ref) : M (mword 32)) >>= fun w__11 : mword 32 => - returnm ((Some - (w__11)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target User value) >>= fun w__12 : mword 32 => - returnm ((Some - (w__12)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg uscratch_ref) : M (mword 32)) >>= fun w__11 : mword 32 => returnm (Some w__11) + else if eq_vec b__0 (Ox"041" : mword 12) then + (set_xret_target User value) >>= fun w__12 : mword 32 => returnm (Some w__12) + else if eq_vec b__0 (Ox"042" : mword 12) then (_set_Mcause_bits ucause_ref value) >> - read_reg ucause_ref >>= fun w__13 : Mcause => - returnm ((Some - (_get_Mcause_bits w__13)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg ucause_ref >>= fun w__13 : Mcause => returnm (Some (_get_Mcause_bits w__13)) + else if eq_vec b__0 (Ox"043" : mword 12) then write_reg utval_ref value >> - ((read_reg utval_ref) : M (mword 32)) >>= fun w__14 : mword 32 => - returnm ((Some - (w__14)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + ((read_reg utval_ref) : M (mword 32)) >>= fun w__14 : mword 32 => returnm (Some w__14) + else if eq_vec b__0 (Ox"044" : mword 12) then read_reg mip_ref >>= fun w__15 : Minterrupts => read_reg mideleg_ref >>= fun w__16 : Minterrupts => read_reg sideleg_ref >>= fun w__17 : Sinterrupts => @@ -10348,401 +10516,209 @@ Definition write_NExt_CSR (csr : mword 12) (value : mword 32) read_reg mideleg_ref >>= fun w__19 : Minterrupts => (lift_sip w__18 w__19 sip) >>= fun w__20 : Minterrupts => write_reg mip_ref w__20 >> - read_reg mip_ref >>= fun w__21 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__21)) - : option (mword 32)) - else returnm (None : option (mword 32))) >>= fun res : option xlenbits => - returnm ((match res with - | Some (v) => - let '_ := - (if ((get_config_print_reg tt)) then - print_endline - (String.append "CSR " - (String.append (csr_name csr) - (String.append " <- " - (String.append (string_of_bits v) - (String.append " (input: " - (String.append (string_of_bits value) ")")))))) - else tt) - : unit in - true - | None => false - end) - : bool). - -Definition ext_is_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - - (is_NExt_CSR_defined csr p) - : M (bool). - -Definition ext_read_CSR (csr : mword 12) -: M (option (mword 32)) := - - (read_NExt_CSR csr) + read_reg mip_ref >>= fun w__21 : Minterrupts => returnm (Some (_get_Minterrupts_bits w__21)) + else if eq_vec b__0 (Ox"001" : mword 12) then + read_reg fcsr_ref >>= fun w__22 : Fcsr => + (ext_write_fcsr (_get_Fcsr_FRM w__22) (subrange_vec_dec value 4 0)) >> + read_reg fcsr_ref >>= fun w__23 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_FFLAGS w__23))) + else if eq_vec b__0 (Ox"002" : mword 12) then + read_reg fcsr_ref >>= fun w__24 : Fcsr => + (ext_write_fcsr (subrange_vec_dec value 2 0) (_get_Fcsr_FFLAGS w__24)) >> + read_reg fcsr_ref >>= fun w__25 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_FRM w__25))) + else if eq_vec b__0 (Ox"003" : mword 12) then + (ext_write_fcsr (subrange_vec_dec value 7 5) (subrange_vec_dec value 4 0)) >> + read_reg fcsr_ref >>= fun w__26 : Fcsr => returnm (Some (EXTZ 32 (_get_Fcsr_bits w__26))) + else returnm None) : M (option (mword 32)). -Definition ext_write_CSR (csr : mword 12) (value : mword 32) -: M (bool) := - - (write_NExt_CSR csr value) - : M (bool). - -Definition csrAccess (csr : mword 12) : mword 2 := subrange_vec_dec csr 11 10. +Definition csrAccess (csr : mword 12) : mword 2 := subrange_vec_dec csr 11 10. -Definition csrPriv (csr : mword 12) : mword 2 := subrange_vec_dec csr 9 8. +Definition csrPriv (csr : mword 12) : mword 2 := subrange_vec_dec csr 9 8. -Definition is_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - +Definition is_CSR_defined (csr : mword 12) (p : Privilege) : M (bool) := let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__0 (Ox"F11" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F12" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F13" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F14" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"300" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"301" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"302" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"303" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"304" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"305" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"306" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"340" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"341" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"342" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"343" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"344" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A1" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"3A2" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A3" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"3B0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B1" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B2" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B3" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B4" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B5" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B6" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B7" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B8" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B9" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BA" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BB" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BC" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BD" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BE" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BF" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B00" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B02" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B80" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"B82" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"7A0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"100" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"102" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"103" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"104" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"105" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"106" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"140" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"141" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"142" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"143" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"144" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"180" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 32 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 32 = 32))})) + else if eq_vec b__0 (Ox"C00" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C01" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C02" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C80" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"C81" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 32 32)) + else if eq_vec b__0 (Ox"C82" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 32 32)) else (ext_is_CSR_defined csr p) : M (bool)) : M (bool). -Definition check_CSR_access (csrrw : mword 2) (csrpr : mword 2) (p : Privilege) (isWrite : bool) +Definition check_CSR_access (csrrw : mword 2) (csrpr : mword 2) (p : Privilege) (isWrite : bool) : bool := - - andb (negb (andb (Bool.eqb isWrite true) (eq_vec csrrw (vec_of_bits [B1;B1] : mword 2)))) + andb (negb (andb (Bool.eqb isWrite true) (eq_vec csrrw ('b"11" : mword 2)))) (zopz0zKzJ_u (privLevel_to_bits p) csrpr). -Definition check_TVM_SATP (csr : mword 12) (p : Privilege) -: M (bool) := - - (and_boolM - (returnm ((eq_vec csr (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2)) - : bool)) +Definition check_TVM_SATP (csr : mword 12) (p : Privilege) : M (bool) := + (and_boolM (returnm ((eq_vec csr (Ox"180" : mword 12)) : bool)) + ((and_boolM (returnm ((generic_eq p Supervisor) : bool)) (read_reg mstatus_ref >>= fun w__0 : Mstatus => - returnm ((eq_vec (_get_Mstatus_TVM w__0) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_TVM w__0) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun w__2 : bool => - returnm ((negb w__2) - : bool). + returnm (negb w__2). -Definition check_Counteren (csr : mword 12) (p : Privilege) -: M (bool) := - +Definition check_Counteren (csr : mword 12) (p : Privilege) : M (bool) := (match (csr, p) with | (b__0, Supervisor) => - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__0 (Ox"C00" : mword 12) then read_reg mcounteren_ref >>= fun w__0 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__0) ((bool_to_bits true) : mword 1)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + returnm (eq_vec (_get_Counteren_CY w__0) ('b"1" : mword 1)) + else if eq_vec b__0 (Ox"C01" : mword 12) then read_reg mcounteren_ref >>= fun w__1 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__1) ((bool_to_bits true) : mword 1)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + returnm (eq_vec (_get_Counteren_TM w__1) ('b"1" : mword 1)) + else if eq_vec b__0 (Ox"C02" : mword 12) then read_reg mcounteren_ref >>= fun w__2 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__2) ((bool_to_bits true) : mword 1)) - : bool) + returnm (eq_vec (_get_Counteren_IR w__2) ('b"1" : mword 1)) else - returnm ((match (b__0, Supervisor) with - | (_, _) => - if ((andb - (zopz0zIzJ_u - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) - then - false - else true - end) - : bool)) + returnm (match (b__0, Supervisor) with + | (_, _) => + if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true + end)) : M (bool) | (b__3, User) => - (if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__3 (Ox"C00" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__6 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__6) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_CY w__6) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__7 : bool => returnm ((negb w__7) : bool)) (read_reg scounteren_ref >>= fun w__8 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__8) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_CY w__8) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) - else if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__3 (Ox"C01" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__11 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__11) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_TM w__11) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__12 : bool => returnm ((negb w__12) : bool)) (read_reg scounteren_ref >>= fun w__13 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__13) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_TM w__13) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) - else if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__3 (Ox"C02" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__16 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__16) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_IR w__16) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__17 : bool => returnm ((negb w__17) : bool)) (read_reg scounteren_ref >>= fun w__18 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__18) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_IR w__18) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) else - returnm ((match (b__3, User) with - | (_, _) => - if ((andb - (zopz0zIzJ_u - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) - then - false - else true - end) - : bool)) + returnm (match (b__3, User) with + | (_, _) => + if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true + end)) : M (bool) | (_, _) => - returnm ((if ((andb - (zopz0zIzJ_u (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) then - false - else true) - : bool) + returnm (if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true) end) : M (bool). -Definition check_CSR (csr : mword 12) (p : Privilege) (isWrite : bool) -: M (bool) := - +Definition check_CSR (csr : mword 12) (p : Privilege) (isWrite : bool) : M (bool) := (and_boolM ((is_CSR_defined csr p) : M (bool)) ((and_boolM (returnm ((check_CSR_access (csrAccess csr) (csrPriv csr) p isWrite) : bool)) ((and_boolM ((check_TVM_SATP csr p) : M (bool)) ((check_Counteren csr p) : M (bool))) @@ -10758,223 +10734,166 @@ Axiom match_reservation : forall (_ : mword 32) , bool. Axiom cancel_reservation : forall (_ : unit) , unit. -Definition exception_delegatee (e : ExceptionType) (p : Privilege) -: M (Privilege) := - +Definition exception_delegatee (e : ExceptionType) (p : Privilege) : M (Privilege) := let idx := projT1 (num_of_ExceptionType e) in read_reg medeleg_ref >>= fun w__0 : Medeleg => - let super := access_vec_dec (_get_Medeleg_bits w__0) idx in + (bit_to_bool (access_vec_dec (_get_Medeleg_bits w__0) idx)) >>= fun super => (haveSupMode tt) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (and_boolM ((bit_to_bool super) : M (bool)) - ((and_boolM ((haveNExt tt) : M (bool)) - (read_reg sedeleg_ref >>= fun w__4 : Sedeleg => - (bit_to_bool (access_vec_dec (_get_Sedeleg_bits w__4) idx)) - : M (bool))) - : M (bool))) - : M (bool) - else (and_boolM ((bit_to_bool super) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool)) >>= fun user => + (if sumbool_of_bool w__1 then + and_boolMP + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) + (build_trivial_ex + ((and_boolM ((haveNExt tt) : M (bool)) + (read_reg sedeleg_ref >>= fun w__3 : Sedeleg => + (bit_to_bool (access_vec_dec (_get_Sedeleg_bits w__3) idx)) + : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && simp_0) _bool = true)}) + else + and_boolMP + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) + (build_trivial_ex + ((haveNExt tt) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && simp_0) _bool = true)})) >>= fun '(existT _ user _) => (and_boolMP (build_trivial_ex ((haveUsrMode tt) : M (bool))) - ((returnm (build_ex - user)) : M ({_bool : bool & ArithFact (iff (_bool = true) (user = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (user = true /\ simp_0 = true))})) >>= fun '(existT _ w__12 _) => - (if sumbool_of_bool (w__12) then returnm (User : Privilege) + ((returnm (build_ex user)) : M ({_bool : bool & ArithFact (Bool.eqb user _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (user && + simp_0) _bool = true)})) >>= fun '(existT _ w__10 _) => + (if sumbool_of_bool w__10 then returnm User else - (and_boolM ((haveSupMode tt) : M (bool)) ((bit_to_bool super) : M (bool))) >>= fun w__15 : bool => - returnm ((if sumbool_of_bool (w__15) then Supervisor - else Machine) - : Privilege)) >>= fun deleg => - returnm ((if ((zopz0zI_u (privLevel_to_bits deleg) (privLevel_to_bits p))) then p - else deleg) - : Privilege). - -Definition findPendingInterrupt (ip : mword 32) -: option InterruptType := - + (and_boolMP (build_trivial_ex ((haveSupMode tt) : M (bool))) + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && + simp_0) _bool = true)})) >>= fun '(existT _ w__12 _) => + returnm (if sumbool_of_bool w__12 then Supervisor else Machine)) >>= fun deleg => + returnm (if zopz0zI_u (privLevel_to_bits deleg) (privLevel_to_bits p) then p else deleg). + +Definition findPendingInterrupt (ip : mword 32) : option InterruptType := let ip := Mk_Minterrupts ip in - if ((eq_vec (_get_Minterrupts_MEI ip) ((bool_to_bits true) : mword 1))) then Some (I_M_External) - else if ((eq_vec (_get_Minterrupts_MSI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_M_Software) - else if ((eq_vec (_get_Minterrupts_MTI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_M_Timer) - else if ((eq_vec (_get_Minterrupts_SEI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_External) - else if ((eq_vec (_get_Minterrupts_SSI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_Software) - else if ((eq_vec (_get_Minterrupts_STI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_Timer) - else if ((eq_vec (_get_Minterrupts_UEI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_External) - else if ((eq_vec (_get_Minterrupts_USI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_Software) - else if ((eq_vec (_get_Minterrupts_UTI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_Timer) + if eq_vec (_get_Minterrupts_MEI ip) ('b"1" : mword 1) then Some I_M_External + else if eq_vec (_get_Minterrupts_MSI ip) ('b"1" : mword 1) then Some I_M_Software + else if eq_vec (_get_Minterrupts_MTI ip) ('b"1" : mword 1) then Some I_M_Timer + else if eq_vec (_get_Minterrupts_SEI ip) ('b"1" : mword 1) then Some I_S_External + else if eq_vec (_get_Minterrupts_SSI ip) ('b"1" : mword 1) then Some I_S_Software + else if eq_vec (_get_Minterrupts_STI ip) ('b"1" : mword 1) then Some I_S_Timer + else if eq_vec (_get_Minterrupts_UEI ip) ('b"1" : mword 1) then Some I_U_External + else if eq_vec (_get_Minterrupts_USI ip) ('b"1" : mword 1) then Some I_U_Software + else if eq_vec (_get_Minterrupts_UTI ip) ('b"1" : mword 1) then Some I_U_Timer else None. Definition processPending -(xip : Minterrupts) (xie : Minterrupts) (xideleg : mword 32) (priv_enabled : bool) +(xip : Minterrupts) (xie : Minterrupts) (xideleg : mword 32) (priv_enabled : bool) : interrupt_set := - let effective_pend := and_vec (_get_Minterrupts_bits xip) (and_vec (_get_Minterrupts_bits xie) (not_vec xideleg)) in let effective_delg := and_vec (_get_Minterrupts_bits xip) xideleg in - if sumbool_of_bool ((andb priv_enabled - (neq_vec effective_pend (EXTZ 32 (vec_of_bits [B0] : mword 1))))) then - Ints_Pending - (effective_pend) - else if ((neq_vec effective_delg (EXTZ 32 (vec_of_bits [B0] : mword 1)))) then - Ints_Delegated - (effective_delg) - else Ints_Empty (tt). - -Definition getPendingSet (priv : Privilege) -: M (option ((mword 32 * Privilege))) := - + if sumbool_of_bool (andb priv_enabled (neq_vec effective_pend (EXTZ 32 ('b"0" : mword 1)))) then + Ints_Pending effective_pend + else if neq_vec effective_delg (EXTZ 32 ('b"0" : mword 1)) then Ints_Delegated effective_delg + else Ints_Empty tt. + +Definition getPendingSet (priv : Privilege) : M (option ((mword 32 * Privilege))) := (haveUsrMode tt) >>= fun w__0 : bool => assert_exp' w__0 "no user mode: M/U or M/S/U system required" >>= fun _ => read_reg mip_ref >>= fun w__1 : Minterrupts => read_reg mie_ref >>= fun w__2 : Minterrupts => let effective_pending := and_vec (_get_Minterrupts_bits w__1) (_get_Minterrupts_bits w__2) in - (if ((eq_vec effective_pending (EXTZ 32 (vec_of_bits [B0] : mword 1)))) then - returnm (None - : option ((mword 32 * Privilege))) + (if eq_vec effective_pending (EXTZ 32 ('b"0" : mword 1)) then returnm None else - (or_boolM - (returnm ((neq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) - : bool)) + (or_boolM (returnm ((generic_neq priv Machine) : bool)) + ((and_boolM (returnm ((generic_eq priv Machine) : bool)) (read_reg mstatus_ref >>= fun w__3 : Mstatus => - returnm ((eq_vec (_get_Mstatus_MIE w__3) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_MIE w__3) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun mIE => (and_boolM ((haveSupMode tt) : M (bool)) - ((or_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits User) : mword 2)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) - ((privLevel_to_bits Supervisor) - : mword 2)) - : bool)) + ((or_boolM (returnm ((generic_eq priv User) : bool)) + ((and_boolM (returnm ((generic_eq priv Supervisor) : bool)) (read_reg mstatus_ref >>= fun w__6 : Mstatus => - returnm ((eq_vec (_get_Mstatus_SIE w__6) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_SIE w__6) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool))) >>= fun sIE => (and_boolM ((haveNExt tt) : M (bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits User) : mword 2)) - : bool)) + ((and_boolM (returnm ((generic_eq priv User) : bool)) (read_reg mstatus_ref >>= fun w__10 : Mstatus => - returnm ((eq_vec (_get_Mstatus_UIE w__10) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_UIE w__10) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun uIE => read_reg mip_ref >>= fun w__12 : Minterrupts => read_reg mie_ref >>= fun w__13 : Minterrupts => read_reg mideleg_ref >>= fun w__14 : Minterrupts => (match (processPending w__12 w__13 (_get_Minterrupts_bits w__14) mIE) with - | Ints_Empty (tt) => returnm (None : option ((mword 32 * Privilege))) - | Ints_Pending (p) => + | Ints_Empty tt => returnm None + | Ints_Pending p => let r := (p, Machine) in - returnm ((Some - (r)) - : option ((mword 32 * Privilege))) - | Ints_Delegated (d) => + returnm (Some r) + | Ints_Delegated d => (haveSupMode tt) >>= fun w__15 : bool => - (if sumbool_of_bool ((negb w__15)) then - returnm ((if sumbool_of_bool (uIE) then - let r := (d, User) in - Some - (r) - else None) - : option ((mword 32 * Privilege))) + (if sumbool_of_bool (negb w__15) then + returnm (if sumbool_of_bool uIE then + let r := (d, User) in + Some r + else None) else read_reg mie_ref >>= fun w__16 : Minterrupts => read_reg sideleg_ref >>= fun w__17 : Sinterrupts => - returnm ((match (processPending (Mk_Minterrupts d) w__16 (_get_Sinterrupts_bits w__17) - sIE) with - | Ints_Empty (tt) => None - | Ints_Pending (p) => - let r := (p, Supervisor) in - Some - (r) - | Ints_Delegated (d) => - if sumbool_of_bool (uIE) then - let r := (d, User) in - Some - (r) - else None - end) - : option ((mword 32 * Privilege)))) + returnm (match (processPending (Mk_Minterrupts d) w__16 (_get_Sinterrupts_bits w__17) + sIE) with + | Ints_Empty tt => None + | Ints_Pending p => + let r := (p, Supervisor) in + Some r + | Ints_Delegated d => + if sumbool_of_bool uIE then + let r := (d, User) in + Some r + else None + end)) : M (option ((mword 32 * Privilege))) end) : M (option ((mword 32 * Privilege)))) : M (option ((mword 32 * Privilege))). -Definition dispatchInterrupt (priv : Privilege) -: M (option ((InterruptType * Privilege))) := - +Definition dispatchInterrupt (priv : Privilege) : M (option ((InterruptType * Privilege))) := (or_boolM ((haveUsrMode tt) >>= fun w__0 : bool => returnm ((negb w__0) : bool)) ((and_boolM ((haveSupMode tt) >>= fun w__1 : bool => returnm ((negb w__1) : bool)) ((haveNExt tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) : M (bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - assert_exp (eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) "invalid current privilege" >> + (if sumbool_of_bool w__4 then + assert_exp (generic_eq priv Machine) "invalid current privilege" >> read_reg mip_ref >>= fun w__5 : Minterrupts => read_reg mie_ref >>= fun w__6 : Minterrupts => let enabled_pending := and_vec (_get_Minterrupts_bits w__5) (_get_Minterrupts_bits w__6) in - returnm ((match (findPendingInterrupt enabled_pending) with - | Some (i) => - let r := (i, Machine) in - Some - (r) - | None => None - end) - : option ((InterruptType * Privilege))) + returnm (match (findPendingInterrupt enabled_pending) with + | Some i => + let r := (i, Machine) in + Some r + | None => None + end) else (getPendingSet priv) >>= fun w__7 : option ((mword 32 * Privilege)) => - returnm ((match w__7 with - | None => None - | Some ((ip, p)) => - match (findPendingInterrupt ip) with - | None => None - | Some (i) => - let r := (i, p) in - Some - (r) - end - end) - : option ((InterruptType * Privilege)))) + returnm (match w__7 with + | None => None + | Some (ip, p) => + match (findPendingInterrupt ip) with + | None => None + | Some i => + let r := (i, p) in + Some r + end + end)) : M (option ((InterruptType * Privilege))). -Definition tval (excinfo : option (mword 32)) -: mword 32 := - - match excinfo with | Some (e) => e | None => EXTZ 32 (vec_of_bits [B0] : mword 1) end. +Definition tval (excinfo : option (mword 32)) : mword 32 := + match excinfo with | Some e => e | None => EXTZ 32 ('b"0" : mword 1) end. -Definition rvfi_trap '(tt : unit) : unit := tt. +Definition rvfi_trap '(tt : unit) : unit := tt. Definition trap_handler (del_priv : Privilege) (intr : bool) (c : mword 8) (pc : mword 32) (info : option (mword 32)) -(ext : option unit) +(ext : option unit) : M (mword 32) := - let '_ := (rvfi_trap tt) : unit in let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "handling " - (String.append (if sumbool_of_bool (intr) then "int#" else "exc#") + (String.append (if sumbool_of_bool intr then "int#" else "exc#") (String.append (string_of_bits c) (String.append " at priv " (String.append (privLevel_to_str del_priv) @@ -10984,38 +10903,37 @@ Definition trap_handler let '_ := (cancel_reservation tt) : unit in (match del_priv with | Machine => - (_set_Mcause_IsInterrupt mcause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt mcause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause mcause_ref (EXTZ 31 c)) >> read_reg mstatus_ref >>= fun w__0 : Mstatus => (_set_Mstatus_MPIE mstatus_ref (_get_Mstatus_MIE w__0)) >> - (_set_Mstatus_MIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_MIE mstatus_ref ('b"0" : mword 1)) >> read_reg cur_privilege_ref >>= fun w__1 : Privilege => (_set_Mstatus_MPP mstatus_ref (privLevel_to_bits w__1)) >> write_reg mtval_ref (tval info) >> write_reg mepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__2)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__2)))) + else returnm tt) >> read_reg mcause_ref >>= fun w__3 : Mcause => (prepare_trap_vector del_priv w__3) : M (mword 32) | Supervisor => (haveSupMode tt) >>= fun w__5 : bool => assert_exp' w__5 "no supervisor mode present for delegation" >>= fun _ => - (_set_Mcause_IsInterrupt scause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt scause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause scause_ref (EXTZ 31 c)) >> read_reg mstatus_ref >>= fun w__6 : Mstatus => (_set_Mstatus_SPIE mstatus_ref (_get_Mstatus_SIE w__6)) >> - (_set_Mstatus_SIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_SIE mstatus_ref ('b"0" : mword 1)) >> read_reg cur_privilege_ref >>= fun w__7 : Privilege => (match w__7 with - | User => returnm ((bool_to_bits false) : mword 1) - | Supervisor => returnm ((bool_to_bits true) : mword 1) + | User => returnm ('b"0" : mword 1) + | Supervisor => returnm ('b"1" : mword 1) | Machine => (internal_error "invalid privilege for s-mode trap") : M (mword 1) end) >>= fun w__9 : mword 1 => (_set_Mstatus_SPP mstatus_ref w__9) >> @@ -11023,47 +10941,44 @@ Definition trap_handler write_reg sepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__10 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__10)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__10)))) + else returnm tt) >> read_reg scause_ref >>= fun w__11 : Mcause => (prepare_trap_vector del_priv w__11) : M (mword 32) | User => (haveUsrMode tt) >>= fun w__13 : bool => assert_exp' w__13 "no user mode present for delegation" >>= fun _ => - (_set_Mcause_IsInterrupt ucause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt ucause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause ucause_ref (EXTZ 31 c)) >> read_reg mstatus_ref >>= fun w__14 : Mstatus => (_set_Mstatus_UPIE mstatus_ref (_get_Mstatus_UIE w__14)) >> - (_set_Mstatus_UIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_UIE mstatus_ref ('b"0" : mword 1)) >> write_reg utval_ref (tval info) >> write_reg uepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__15 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__15)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__15)))) + else returnm tt) >> read_reg ucause_ref >>= fun w__16 : Mcause => (prepare_trap_vector del_priv w__16) : M (mword 32) end) : M (mword 32). -Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mword 32) +Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mword 32) : M (mword 32) := - (match (cur_priv, ctl) with - | (_, CTL_TRAP (e)) => + | (_, CTL_TRAP e) => (exception_delegatee e.(sync_exception_trap) cur_priv) >>= fun del_priv => let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "trapping from " (String.append (privLevel_to_str cur_priv) @@ -11073,163 +10988,175 @@ Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mwo (exceptionType_to_str e.(sync_exception_trap))))))) else tt) : unit in - (trap_handler del_priv false ((exceptionType_to_bits e.(sync_exception_trap)) : mword 8) pc + (trap_handler del_priv false (exceptionType_to_bits e.(sync_exception_trap)) pc e.(sync_exception_excinfo) e.(sync_exception_ext)) : M (mword 32) - | (_, CTL_MRET (tt)) => + | (_, CTL_MRET tt) => read_reg cur_privilege_ref >>= fun prev_priv => read_reg mstatus_ref >>= fun w__1 : Mstatus => (_set_Mstatus_MIE mstatus_ref (_get_Mstatus_MPIE w__1)) >> - (_set_Mstatus_MPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> + (_set_Mstatus_MPIE mstatus_ref ('b"1" : mword 1)) >> read_reg mstatus_ref >>= fun w__2 : Mstatus => (privLevel_of_bits (_get_Mstatus_MPP w__2)) >>= fun w__3 : Privilege => write_reg cur_privilege_ref w__3 >> (haveUsrMode tt) >>= fun w__4 : bool => (_set_Mstatus_MPP mstatus_ref - (privLevel_to_bits (if sumbool_of_bool (w__4) then User else Machine))) >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__5 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__5)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__6 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__6))))) - : unit) - else returnm (tt : unit)) >> + (privLevel_to_bits (if sumbool_of_bool w__4 then User else Machine))) >> + read_reg cur_privilege_ref >>= fun w__5 : Privilege => + (if generic_neq w__5 Machine then + (_set_Mstatus_MPRV mstatus_ref ('b"0" : mword 1)) + : M (unit) + else returnm tt) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__6 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__6)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__7 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__7))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target Machine) >>= fun w__7 : mword 32 => - (pc_alignment_mask tt) >>= fun w__8 : mword 32 => returnm ((and_vec w__7 w__8) : mword 32) - | (_, CTL_SRET (tt)) => + (prepare_xret_target Machine) >>= fun w__8 : mword 32 => + (pc_alignment_mask tt) >>= fun w__9 : mword 32 => returnm (and_vec w__8 w__9) + | (_, CTL_SRET tt) => read_reg cur_privilege_ref >>= fun prev_priv => - read_reg mstatus_ref >>= fun w__9 : Mstatus => - (_set_Mstatus_SIE mstatus_ref (_get_Mstatus_SPIE w__9)) >> - (_set_Mstatus_SPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> read_reg mstatus_ref >>= fun w__10 : Mstatus => + (_set_Mstatus_SIE mstatus_ref (_get_Mstatus_SPIE w__10)) >> + (_set_Mstatus_SPIE mstatus_ref ('b"1" : mword 1)) >> + read_reg mstatus_ref >>= fun w__11 : Mstatus => write_reg cur_privilege_ref - (if ((eq_vec (_get_Mstatus_SPP w__10) ((bool_to_bits true) : mword 1))) then Supervisor + (if eq_vec (_get_Mstatus_SPP w__11) ('b"1" : mword 1) then Supervisor else User) >> - (_set_Mstatus_SPP mstatus_ref ((bool_to_bits false) : mword 1)) >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__11 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__11)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__12 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__12))))) - : unit) - else returnm (tt : unit)) >> + (_set_Mstatus_SPP mstatus_ref ('b"0" : mword 1)) >> + read_reg cur_privilege_ref >>= fun w__12 : Privilege => + (if generic_neq w__12 Machine then + (_set_Mstatus_MPRV mstatus_ref ('b"0" : mword 1)) + : M (unit) + else returnm tt) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__13 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__13)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__14 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__14))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target Supervisor) >>= fun w__13 : mword 32 => - (pc_alignment_mask tt) >>= fun w__14 : mword 32 => - returnm ((and_vec w__13 w__14) - : mword 32) - | (_, CTL_URET (tt)) => + (prepare_xret_target Supervisor) >>= fun w__15 : mword 32 => + (pc_alignment_mask tt) >>= fun w__16 : mword 32 => returnm (and_vec w__15 w__16) + | (_, CTL_URET tt) => read_reg cur_privilege_ref >>= fun prev_priv => - read_reg mstatus_ref >>= fun w__15 : Mstatus => - (_set_Mstatus_UIE mstatus_ref (_get_Mstatus_UPIE w__15)) >> - (_set_Mstatus_UPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> + read_reg mstatus_ref >>= fun w__17 : Mstatus => + (_set_Mstatus_UIE mstatus_ref (_get_Mstatus_UPIE w__17)) >> + (_set_Mstatus_UPIE mstatus_ref ('b"1" : mword 1)) >> write_reg cur_privilege_ref User >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__16 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__16)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__17 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__17))))) - : unit) - else returnm (tt : unit)) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__18 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__18)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__19 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__19))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target User) >>= fun w__18 : mword 32 => - (pc_alignment_mask tt) >>= fun w__19 : mword 32 => - returnm ((and_vec w__18 w__19) - : mword 32) + (prepare_xret_target User) >>= fun w__20 : mword 32 => + (pc_alignment_mask tt) >>= fun w__21 : mword 32 => returnm (and_vec w__20 w__21) end) : M (mword 32). -Definition handle_mem_exception (addr : mword 32) (e : ExceptionType) -: M (unit) := - +Definition handle_mem_exception (addr : mword 32) (e : ExceptionType) : M (unit) := let t : sync_exception := {| sync_exception_trap := e; - sync_exception_excinfo := (Some (addr)); + sync_exception_excinfo := (Some addr); sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__0 : Privilege => ((read_reg PC_ref) : M (mword 32)) >>= fun w__1 : mword 32 => - (exception_handler w__0 (CTL_TRAP (t)) w__1) >>= fun w__2 : mword 32 => + (exception_handler w__0 (CTL_TRAP t) w__1) >>= fun w__2 : mword 32 => (set_next_pc w__2) : M (unit). -Definition handle_interrupt (i : InterruptType) (del_priv : Privilege) -: M (unit) := - +Definition handle_exception (e : ExceptionType) : M (unit) := + let t : sync_exception := + {| sync_exception_trap := e; + sync_exception_excinfo := None; + sync_exception_ext := None |} in + read_reg cur_privilege_ref >>= fun w__0 : Privilege => + ((read_reg PC_ref) : M (mword 32)) >>= fun w__1 : mword 32 => + (exception_handler w__0 (CTL_TRAP t) w__1) >>= fun w__2 : mword 32 => + (set_next_pc w__2) + : M (unit). + +Definition handle_interrupt (i : InterruptType) (del_priv : Privilege) : M (unit) := ((read_reg PC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - (trap_handler del_priv true ((interruptType_to_bits i) : mword 8) w__0 None None) >>= fun w__1 : mword 32 => + (trap_handler del_priv true (interruptType_to_bits i) w__0 None None) >>= fun w__1 : mword 32 => (set_next_pc w__1) : M (unit). -Definition init_sys '(tt : unit) -: M (unit) := - +Definition init_sys '(tt : unit) : M (unit) := write_reg cur_privilege_ref Machine >> - write_reg mhartid_ref (EXTZ 32 (vec_of_bits [B0] : mword 1)) >> + write_reg mhartid_ref (EXTZ 32 ('b"0" : mword 1)) >> (_set_Misa_MXL misa_ref (arch_to_bits RV32)) >> - (_set_Misa_A misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_C misa_ref ((bool_to_bits (sys_enable_rvc tt)) : mword 1)) >> - (_set_Misa_I misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_M misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_U misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_S misa_ref ((bool_to_bits true) : mword 1)) >> + (_set_Misa_A misa_ref ('b"1" : mword 1)) >> + (_set_Misa_C misa_ref (bool_to_bits (sys_enable_rvc tt))) >> + (_set_Misa_I misa_ref ('b"1" : mword 1)) >> + (_set_Misa_M misa_ref ('b"1" : mword 1)) >> + (_set_Misa_U misa_ref ('b"1" : mword 1)) >> + (_set_Misa_S misa_ref ('b"1" : mword 1)) >> + (_set_Misa_F misa_ref (bool_to_bits (sys_enable_fdext tt))) >> + (_set_Misa_D misa_ref ('b"0" : mword 1)) >> read_reg mstatus_ref >>= fun w__0 : Mstatus => read_reg misa_ref >>= fun w__1 : Misa => write_reg mstatus_ref (set_mstatus_SXL w__0 (_get_Misa_MXL w__1)) >> read_reg mstatus_ref >>= fun w__2 : Mstatus => read_reg misa_ref >>= fun w__3 : Misa => write_reg mstatus_ref (set_mstatus_UXL w__2 (_get_Misa_MXL w__3)) >> - (_set_Mstatus_SD mstatus_ref ((bool_to_bits false) : mword 1)) >> - (_set_Minterrupts_bits mip_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - (_set_Minterrupts_bits mie_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - (_set_Minterrupts_bits mideleg_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - (_set_Medeleg_bits medeleg_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - (_set_Mtvec_bits mtvec_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - (_set_Mcause_bits mcause_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - write_reg mepc_ref (EXTZ 32 (vec_of_bits [B0] : mword 1)) >> - write_reg mtval_ref (EXTZ 32 (vec_of_bits [B0] : mword 1)) >> - write_reg mscratch_ref (EXTZ 32 (vec_of_bits [B0] : mword 1)) >> - write_reg mcycle_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - write_reg mtime_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - (_set_Counteren_bits mcounteren_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - write_reg minstret_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> + (_set_Mstatus_SD mstatus_ref ('b"0" : mword 1)) >> + (_set_Minterrupts_bits mip_ref (EXTZ 32 ('b"0" : mword 1))) >> + (_set_Minterrupts_bits mie_ref (EXTZ 32 ('b"0" : mword 1))) >> + (_set_Minterrupts_bits mideleg_ref (EXTZ 32 ('b"0" : mword 1))) >> + (_set_Medeleg_bits medeleg_ref (EXTZ 32 ('b"0" : mword 1))) >> + (_set_Mtvec_bits mtvec_ref (EXTZ 32 ('b"0" : mword 1))) >> + (_set_Mcause_bits mcause_ref (EXTZ 32 ('b"0" : mword 1))) >> + write_reg mepc_ref (EXTZ 32 ('b"0" : mword 1)) >> + write_reg mtval_ref (EXTZ 32 ('b"0" : mword 1)) >> + write_reg mscratch_ref (EXTZ 32 ('b"0" : mword 1)) >> + write_reg mcycle_ref (EXTZ 64 ('b"0" : mword 1)) >> + write_reg mtime_ref (EXTZ 64 ('b"0" : mword 1)) >> + (_set_Counteren_bits mcounteren_ref (EXTZ 32 ('b"0" : mword 1))) >> + write_reg minstret_ref (EXTZ 64 ('b"0" : mword 1)) >> write_reg minstret_written_ref false >> (init_pmp tt) >> - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__4 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " - (String.append (string_of_bits (_get_Mstatus_bits w__4)) - (String.append " (input: " - (String.append - (string_of_bits ((EXTZ 32 (vec_of_bits [B0] : mword 1)) : xlenbits)) - ")"))))) - : unit) - else returnm (tt : unit)) + returnm (print_endline + (String.append "CSR mstatus <- " + (String.append (string_of_bits (_get_Mstatus_bits w__4)) + (String.append " (input: " + (String.append (string_of_bits ((EXTZ 32 ('b"0" : mword 1)) : xlenbits)) + ")"))))) + else returnm tt) : M (unit). +Definition MemoryOpResult_add_meta {t : Type} (r : MemoryOpResult t) (m : unit) +: MemoryOpResult ((t * unit)) := + match r with | MemValue v => MemValue (v, m) | MemException e => MemException e end. + +Definition MemoryOpResult_drop_meta {t : Type} (r : MemoryOpResult ((t * unit))) : MemoryOpResult t := + match r with | MemValue (v, m) => MemValue v | MemException e => MemException e end. + Axiom elf_tohost : forall (_ : unit) , Z. Axiom elf_entry : forall (_ : unit) , Z. @@ -11254,28 +11181,24 @@ Axiom plat_clint_base : forall (_ : unit) , mword 32. Axiom plat_clint_size : forall (_ : unit) , mword 32. -Definition plat_htif_tohost '(tt : unit) : mword 32 := to_bits 32 (elf_tohost tt). +Definition plat_htif_tohost '(tt : unit) : mword 32 := to_bits 32 (elf_tohost tt). -Definition phys_mem_segments '(tt : unit) -: list ((mword 32 * mword 32)) := - +Definition phys_mem_segments '(tt : unit) : list ((mword 32 * mword 32)) := (plat_rom_base tt, plat_rom_size tt) :: (plat_ram_base tt, plat_ram_size tt) :: []. -Definition within_phys_mem (addr : mword 32) (width : Z) `{ArithFact (width <= 16)} -: bool := - +Definition within_phys_mem (addr : mword 32) (width : Z) `{ArithFact (width <=? 16)} : bool := let addr_int := projT1 (uint addr) in let ram_base_int := projT1 (uint (plat_ram_base tt)) in let rom_base_int := projT1 (uint (plat_rom_base tt)) in let ram_size_int := projT1 (uint (plat_ram_size tt)) in let rom_size_int := projT1 (uint (plat_rom_size tt)) in - if sumbool_of_bool ((andb (Z.leb ram_base_int addr_int) - (Z.leb (Z.add addr_int (projT1 (__id width))) - (Z.add ram_base_int ram_size_int)))) then + if sumbool_of_bool + (andb (Z.leb ram_base_int addr_int) + (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add ram_base_int ram_size_int))) then true - else if sumbool_of_bool ((andb (Z.leb rom_base_int addr_int) - (Z.leb (Z.add addr_int (projT1 (__id width))) - (Z.add rom_base_int rom_size_int)))) then + else if sumbool_of_bool + (andb (Z.leb rom_base_int addr_int) + (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add rom_base_int rom_size_int))) then true else let '_ := @@ -11297,9 +11220,8 @@ Definition within_phys_mem (addr : mword 32) (width : Z) `{ArithFact (width <= 1 : unit in false. -Definition within_clint (addr : mword 32) (width : Z) `{ArithFact (0 < width /\ width <= 16)} +Definition within_clint (addr : mword 32) (width : Z) `{ArithFact ((0 <? width) && (width <=? 16))} : bool := - let addr_int := projT1 (uint addr) in let clint_base_int := projT1 (uint (plat_clint_base tt)) in let clint_size_int := projT1 (uint (plat_clint_size tt)) in @@ -11307,274 +11229,225 @@ Definition within_clint (addr : mword 32) (width : Z) `{ArithFact (0 < width /\ (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add clint_base_int clint_size_int)). Definition within_htif_writable (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (eq_vec (plat_htif_tohost tt) addr) (andb (eq_vec (add_vec_int (plat_htif_tohost tt) 4) addr) (Z.eqb width 4)). Definition within_htif_readable (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (eq_vec (plat_htif_tohost tt) addr) (andb (eq_vec (add_vec_int (plat_htif_tohost tt) 4) addr) (Z.eqb width 4)). Axiom plat_insns_per_tick : forall (_ : unit) , Z. -Definition MSIP_BASE : xlenbits := -EXTZ 32 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 20). +Definition MSIP_BASE : xlenbits := EXTZ 32 (Ox"00000" : mword 20). Hint Unfold MSIP_BASE : sail. -Definition MTIMECMP_BASE : xlenbits := -EXTZ 32 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 20). +Definition MTIMECMP_BASE : xlenbits := EXTZ 32 (Ox"04000" : mword 20). Hint Unfold MTIMECMP_BASE : sail. -Definition MTIMECMP_BASE_HI : xlenbits := -EXTZ 32 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 20). +Definition MTIMECMP_BASE_HI : xlenbits := EXTZ 32 (Ox"04004" : mword 20). Hint Unfold MTIMECMP_BASE_HI : sail. -Definition MTIME_BASE : xlenbits := -EXTZ 32 (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B0;B0;B0] : mword 20). +Definition MTIME_BASE : xlenbits := EXTZ 32 (Ox"0BFF8" : mword 20). Hint Unfold MTIME_BASE : sail. -Definition MTIME_BASE_HI : xlenbits := -EXTZ 32 (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B0;B0] : mword 20). +Definition MTIME_BASE_HI : xlenbits := EXTZ 32 (Ox"0BFFC" : mword 20). Hint Unfold MTIME_BASE_HI : sail. -Definition clint_load (addr : mword 32) (width : Z) `{ArithFact (width > 0)} +Definition clint_load (t : AccessType unit) (addr : mword 32) (width : Z) `{ArithFact (width >? 0)} : M (MemoryOpResult (mword (8 * width))) := - let addr := sub_vec addr (plat_clint_base tt) in - (if sumbool_of_bool ((andb (eq_vec addr MSIP_BASE) - (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4)))) - then - (if ((get_config_print_platform tt)) then + (if sumbool_of_bool + (andb (eq_vec addr MSIP_BASE) + (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4))) then + (if get_config_print_platform tt then read_reg mip_ref >>= fun w__0 : Minterrupts => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (_get_Minterrupts_MSI w__0)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (_get_Minterrupts_MSI w__0)))))) + else returnm tt) >> read_reg mip_ref >>= fun w__1 : Minterrupts => - returnm ((MemValue - (zero_extend (_get_Minterrupts_MSI w__1) (Z.mul 8 (projT1 (__id width))))) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (_get_Minterrupts_MSI w__1) (Z.mul 8 (projT1 (__id width))))) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - returnm ((print_endline - (String.append "clint<4>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (subrange_vec_dec w__2 31 0)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint<4>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (subrange_vec_dec w__2 31 0)))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__3 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__3 31 0) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__4 : mword 64 => - returnm ((print_endline - (String.append "clint<8>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__4))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint<8>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__4))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__5 : mword 64 => - returnm ((MemValue - (zero_extend w__5 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend w__5 _)) + else if sumbool_of_bool + (andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__6 : mword 64 => - returnm ((print_endline - (String.append "clint-hi<4>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (subrange_vec_dec w__6 63 32)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint-hi<4>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (subrange_vec_dec w__6 63 32)))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__7 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__7 63 32) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 4))) then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__7 63 32) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__8 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__8))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__8))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__9 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__9 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 8))) then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__9 31 0) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 8)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__10 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__10))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__10))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__11 : mword 64 => - returnm ((MemValue - (zero_extend w__11 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend w__11 _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__12 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__12))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__12))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__13 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__13 63 32) _)) - : MemoryOpResult (mword (8 * width))) + returnm (MemValue (zero_extend (subrange_vec_dec w__13 63 32) _)) else let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint[" (String.append (string_of_bits addr) "] -> <not-mapped>")) else tt) : unit in - returnm ((MemException - (E_Load_Access_Fault)) - : MemoryOpResult (mword (8 * width)))) + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition clint_dispatch '(tt : unit) -: M (unit) := - - (if ((get_config_print_platform tt)) then +Definition clint_dispatch '(tt : unit) : M (unit) := + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline (String.append "clint::tick mtime <- " (string_of_bits w__0))) - : unit) - else returnm (tt : unit)) >> - (_set_Minterrupts_MTI mip_ref ((bool_to_bits false) : mword 1)) >> + returnm (print_endline (String.append "clint::tick mtime <- " (string_of_bits w__0))) + else returnm tt) >> + (_set_Minterrupts_MTI mip_ref ('b"0" : mword 1)) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => ((read_reg mtime_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (if ((zopz0zIzJ_u w__1 w__2)) then - (if ((get_config_print_platform tt)) then + (if zopz0zIzJ_u w__1 w__2 then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((print_endline - (String.append " clint timer pending at mtime " (string_of_bits w__3))) - : unit) - else returnm (tt : unit)) >> - (_set_Minterrupts_MTI mip_ref ((bool_to_bits true) : mword 1)) + returnm (print_endline + (String.append " clint timer pending at mtime " (string_of_bits w__3))) + else returnm tt) >> + (_set_Minterrupts_MTI mip_ref ('b"1" : mword 1)) : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit). Definition clint_store (addr : mword 32) (width : Z) (data : mword (8 * width)) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : M (MemoryOpResult bool) := - let addr := sub_vec addr (plat_clint_base tt) in - (if sumbool_of_bool ((andb (eq_vec addr MSIP_BASE) - (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4)))) - then - (if ((get_config_print_platform tt)) then - (cast_unit_vec (access_vec_dec data 0)) >>= fun w__0 : mword 1 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] <- " - (String.append (string_of_bits data) - (String.append " (mip.MSI <- " - (String.append (string_of_bits w__0) ")"))))))) - : unit) - else returnm (tt : unit)) >> - (cast_unit_vec (access_vec_dec data 0)) >>= fun w__1 : mword 1 => - (_set_Minterrupts_MSI mip_ref - ((bool_to_bits (eq_vec w__1 (vec_of_bits [B1] : mword 1))) - : mword 1)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8))) - then + (if sumbool_of_bool + (andb (eq_vec addr MSIP_BASE) + (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4))) then + (if get_config_print_platform tt then + (string_of_bit (access_vec_dec data 0)) >>= fun w__0 : string => + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] <- " + (String.append (string_of_bits data) + (String.append " (mip.MSI <- " (String.append w__0 ")"))))))) + else returnm tt) >> + (_set_Minterrupts_MSI mip_ref (vec_of_bits [access_vec_dec data 0] : mword 1)) >> + (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<8>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - write_reg mtimecmp_ref (zero_extend data 64) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4))) - then + write_reg mtimecmp_ref (zero_extend data 64) >> (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<4>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - write_reg mtimecmp_ref (update_subrange_vec_dec w__2 31 0 (zero_extend data 32)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then + ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + write_reg mtimecmp_ref (update_subrange_vec_dec w__1 31 0 (zero_extend data 32)) >> + (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool + (andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<4>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - write_reg mtimecmp_ref (update_subrange_vec_dec w__3 63 32 (zero_extend data 32)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) + ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => + write_reg mtimecmp_ref (update_subrange_vec_dec w__2 63 32 (zero_extend data 32)) >> + (clint_dispatch tt) >> returnm (MemValue true) else let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (<unmapped>)")))) else tt) : unit in - returnm ((MemException - (E_SAMO_Access_Fault)) - : MemoryOpResult bool)) + returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). -Definition tick_clock '(tt : unit) -: M (unit) := - - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - write_reg mcycle_ref (add_vec_int w__0 1) >> - ((read_reg mtime_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - write_reg mtime_ref (add_vec_int w__1 1) >> (clint_dispatch tt) : M (unit). +Definition tick_clock '(tt : unit) : M (unit) := + read_reg mcountinhibit_ref >>= fun w__0 : Counterin => + (if eq_vec (_get_Counterin_CY w__0) ('b"0" : mword 1) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + write_reg mcycle_ref (add_vec_int w__1 1) + : M (unit) + else returnm tt) >> + ((read_reg mtime_ref) : M (mword 64)) >>= fun w__2 : mword 64 => + write_reg mtime_ref (add_vec_int w__2 1) >> (clint_dispatch tt) : M (unit). Axiom plat_term_write : forall (_ : mword 8) , unit. Axiom plat_term_read : forall (_ : unit) , mword 8. -Definition Mk_htif_cmd (v : mword 64) -: htif_cmd := - +Definition Mk_htif_cmd (v : mword 64) : htif_cmd := {| htif_cmd_htif_cmd_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_htif_cmd_bits (v : htif_cmd) -: mword 64 := - +Definition _get_htif_cmd_bits (v : htif_cmd) : mword 64 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 0. Definition _set_htif_cmd_bits (r_ref : register_ref regstate register_value htif_cmd) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11584,22 +11457,17 @@ Definition _set_htif_cmd_bits (r_ref : register_ref regstate register_value htif write_reg r_ref r : M (unit). -Definition _update_htif_cmd_bits (v : htif_cmd) (x : mword 64) -: htif_cmd := - +Definition _update_htif_cmd_bits (v : htif_cmd) (x : mword 64) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_htif_cmd_device (v : htif_cmd) -: mword 8 := - +Definition _get_htif_cmd_device (v : htif_cmd) : mword 8 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 56. Definition _set_htif_cmd_device -(r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) +(r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11609,21 +11477,16 @@ Definition _set_htif_cmd_device write_reg r_ref r : M (unit). -Definition _update_htif_cmd_device (v : htif_cmd) (x : mword 8) -: htif_cmd := - +Definition _update_htif_cmd_device (v : htif_cmd) (x : mword 8) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 56 (subrange_vec_dec x 7 0)) ]}. -Definition _get_htif_cmd_cmd (v : htif_cmd) -: mword 8 := - +Definition _get_htif_cmd_cmd (v : htif_cmd) : mword 8 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 55 48. -Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) +Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11633,22 +11496,17 @@ Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_ write_reg r_ref r : M (unit). -Definition _update_htif_cmd_cmd (v : htif_cmd) (x : mword 8) -: htif_cmd := - +Definition _update_htif_cmd_cmd (v : htif_cmd) (x : mword 8) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 55 48 (subrange_vec_dec x 7 0)) ]}. -Definition _get_htif_cmd_payload (v : htif_cmd) -: mword 48 := - +Definition _get_htif_cmd_payload (v : htif_cmd) : mword 48 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 47 0. Definition _set_htif_cmd_payload -(r_ref : register_ref regstate register_value htif_cmd) (v : mword 48) +(r_ref : register_ref regstate register_value htif_cmd) (v : mword 48) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11658,61 +11516,55 @@ Definition _set_htif_cmd_payload write_reg r_ref r : M (unit). -Definition _update_htif_cmd_payload (v : htif_cmd) (x : mword 48) -: htif_cmd := - +Definition _update_htif_cmd_payload (v : htif_cmd) (x : mword 48) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 47 0 (subrange_vec_dec x 47 0)) ]}. -Definition htif_load (addr : mword 32) (width : Z) `{ArithFact (width > 0)} +Definition htif_load (t : AccessType unit) (paddr : mword 32) (width : Z) `{ArithFact (width >? 0)} : M (MemoryOpResult (mword (8 * width))) := - - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline - (String.append "htif[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__0))))) - : unit) - else returnm (tt : unit)) >> - (if sumbool_of_bool ((andb (Z.eqb width 8) (eq_vec addr (plat_htif_tohost tt)))) then + returnm (print_endline + (String.append "htif[" + (String.append (string_of_bits paddr) + (String.append "] -> " (string_of_bits w__0))))) + else returnm tt) >> + (if sumbool_of_bool (andb (Z.eqb width 8) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - returnm ((MemValue - (zero_extend w__1 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (Z.eqb width 4) (eq_vec addr (plat_htif_tohost tt)))) then + returnm (MemValue (zero_extend w__1 _)) + else if sumbool_of_bool (andb (Z.eqb width 4) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__2 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (Z.eqb width 4) - (eq_vec addr (add_vec_int (plat_htif_tohost tt) 4)))) then + returnm (MemValue (zero_extend (subrange_vec_dec w__2 31 0) _)) + else if sumbool_of_bool + (andb (Z.eqb width 4) (eq_vec paddr (add_vec_int (plat_htif_tohost tt) 4))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__3 63 32) _)) - : MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) + returnm (MemValue (zero_extend (subrange_vec_dec w__3 63 32) _)) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition htif_store (addr : mword 32) (width : Z) (data : mword (8 * width)) -`{ArithFact (0 < width /\ width <= 8)} +Definition htif_store (paddr : mword 32) (width : Z) (data : mword (8 * width)) +`{ArithFact ((0 <? width) && (width <=? 8))} : M (MemoryOpResult bool) := - let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "htif[" - (String.append (string_of_bits addr) (String.append "] <- " (string_of_bits data)))) + (String.append (string_of_bits paddr) (String.append "] <- " (string_of_bits data)))) else tt) : unit in - (if sumbool_of_bool ((Z.eqb width 8)) then write_reg htif_tohost_ref (EXTZ 64 data) : M (unit) - else if sumbool_of_bool ((andb (Z.eqb width 4) (eq_vec addr (plat_htif_tohost tt)))) then + (if sumbool_of_bool (Z.eqb width 8) then write_reg htif_tohost_ref (EXTZ 64 data) : M (unit) + else if sumbool_of_bool (andb (Z.eqb width 4) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => write_reg htif_tohost_ref (update_subrange_vec_dec w__0 31 0 (autocast (autocast data))) : M (unit) - else if sumbool_of_bool ((andb (Z.eqb width 4) - (eq_vec addr (add_vec_int (plat_htif_tohost tt) 4)))) then + else if sumbool_of_bool + (andb (Z.eqb width 4) (eq_vec paddr (add_vec_int (plat_htif_tohost tt) 4))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__1 : mword 64 => write_reg htif_tohost_ref (update_subrange_vec_dec w__1 63 32 (autocast (autocast data))) : M (unit) @@ -11720,417 +11572,358 @@ Definition htif_store (addr : mword 32) (width : Z) (data : mword (8 * width)) ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__2 : mword 64 => let cmd := Mk_htif_cmd w__2 in let b__0 := _get_htif_cmd_device cmd in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then + (if eq_vec b__0 (Ox"00" : mword 8) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "htif-syscall-proxy cmd: " (string_of_bits (_get_htif_cmd_payload cmd))) else tt) : unit in - (cast_unit_vec (access_vec_dec (_get_htif_cmd_payload cmd) 0)) >>= fun w__3 : mword 1 => - (if ((eq_vec w__3 (vec_of_bits [B1] : mword 1))) then + (if eq_bit (access_vec_dec (_get_htif_cmd_payload cmd) 0) B1 then write_reg htif_done_ref true >> write_reg htif_exit_code_ref (shiftr (zero_extend (_get_htif_cmd_payload cmd) 64) 1) : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit) else - returnm ((if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8))) then - let '_ := - (if ((get_config_print_platform tt)) then - print_endline - (String.append "htif-term cmd: " - (string_of_bits (_get_htif_cmd_payload cmd))) - else tt) - : unit in - let b__2 := _get_htif_cmd_cmd cmd in - if ((eq_vec b__2 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then tt - else if ((eq_vec b__2 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8))) then - plat_term_write (subrange_vec_dec (_get_htif_cmd_payload cmd) 7 0) - else print_endline (String.append "Unknown term cmd: " (string_of_bits b__2)) - else print_endline (String.append "htif-???? cmd: " (string_of_bits data))) - : unit)) >> - returnm ((MemValue - (true)) - : MemoryOpResult bool). - -Definition htif_tick '(tt : unit) -: M (unit) := - - (if ((get_config_print_platform tt)) then + returnm (if eq_vec b__0 (Ox"01" : mword 8) then + let '_ := + (if get_config_print_platform tt then + print_endline + (String.append "htif-term cmd: " + (string_of_bits (_get_htif_cmd_payload cmd))) + else tt) + : unit in + let b__2 := _get_htif_cmd_cmd cmd in + if eq_vec b__2 (Ox"00" : mword 8) then tt + else if eq_vec b__2 (Ox"01" : mword 8) then + plat_term_write (subrange_vec_dec (_get_htif_cmd_payload cmd) 7 0) + else print_endline (String.append "Unknown term cmd: " (string_of_bits b__2)) + else print_endline (String.append "htif-???? cmd: " (string_of_bits data)))) >> + returnm (MemValue true). + +Definition htif_tick '(tt : unit) : M (unit) := + (if get_config_print_platform tt then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline (String.append "htif::tick " (string_of_bits w__0))) - : unit) - else returnm (tt : unit)) >> - write_reg htif_tohost_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) + returnm (print_endline (String.append "htif::tick " (string_of_bits w__0))) + else returnm tt) >> + write_reg htif_tohost_ref (EXTZ 64 ('b"0" : mword 1)) : M (unit). Definition within_mmio_readable (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (within_clint addr width) (andb (within_htif_readable addr width) (Z.leb 1 (projT1 (__id width)))). Definition within_mmio_writable (addr : mword 32) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (within_clint addr width) (andb (within_htif_writable addr width) (Z.leb (projT1 (__id width)) 8)). -Definition mmio_read (addr : mword 32) (width : Z) `{ArithFact (0 < width /\ width <= 16)} +Definition mmio_read (t : AccessType unit) (paddr : mword 32) (width : Z) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult (mword (8 * width))) := - - (if ((within_clint addr width)) then - (clint_load addr width) + (if within_clint paddr width then + (clint_load t paddr width) : M (MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (within_htif_readable addr width) (Z.leb 1 (projT1 (__id width))))) - then - (htif_load addr width) + else if sumbool_of_bool + (andb (within_htif_readable paddr width) (Z.leb 1 (projT1 (__id width)))) then + (htif_load t paddr width) : M (MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition mmio_write (addr : mword 32) (width : Z) (data : mword (8 * width)) -`{ArithFact (0 < width /\ width <= 16)} +Definition mmio_write (paddr : mword 32) (width : Z) (data : mword (8 * width)) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((within_clint addr width)) then (clint_store addr width data) : M (MemoryOpResult bool) - else if sumbool_of_bool ((andb (within_htif_writable addr width) (Z.leb (projT1 (__id width)) 8))) - then - (htif_store addr width data) + (if within_clint paddr width then (clint_store paddr width data) : M (MemoryOpResult bool) + else if sumbool_of_bool + (andb (within_htif_writable paddr width) (Z.leb (projT1 (__id width)) 8)) then + (htif_store paddr width data) : M (MemoryOpResult bool) - else returnm ((MemException (E_SAMO_Access_Fault)) : MemoryOpResult bool)) + else returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). -Definition init_platform '(tt : unit) -: M (unit) := - - write_reg htif_tohost_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> +Definition init_platform '(tt : unit) : M (unit) := + write_reg htif_tohost_ref (EXTZ 64 ('b"0" : mword 1)) >> write_reg htif_done_ref false >> - write_reg htif_exit_code_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) + write_reg htif_exit_code_ref (EXTZ 64 ('b"0" : mword 1)) : M (unit). -Definition tick_platform '(tt : unit) : M (unit) := (htif_tick tt) : M (unit). +Definition tick_platform '(tt : unit) : M (unit) := (htif_tick tt) : M (unit). -Definition handle_illegal '(tt : unit) -: M (unit) := - - (if ((plat_mtval_has_illegal_inst_bits tt)) then - ((read_reg instbits_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - returnm ((Some - (w__0)) - : option (mword 32)) - else returnm (None : option (mword 32))) >>= fun info => +Definition handle_illegal '(tt : unit) : M (unit) := + (if plat_mtval_has_illegal_inst_bits tt then + ((read_reg instbits_ref) : M (mword 32)) >>= fun w__0 : mword 32 => returnm (Some w__0) + else returnm None) >>= fun info => let t : sync_exception := - {| sync_exception_trap := E_Illegal_Instr; + {| sync_exception_trap := (E_Illegal_Instr tt); sync_exception_excinfo := info; sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 32)) >>= fun w__2 : mword 32 => - (exception_handler w__1 (CTL_TRAP (t)) w__2) >>= fun w__3 : mword 32 => + (exception_handler w__1 (CTL_TRAP t) w__2) >>= fun w__3 : mword 32 => (set_next_pc w__3) : M (unit). -Definition platform_wfi '(tt : unit) -: M (unit) := - +Definition platform_wfi '(tt : unit) : M (unit) := let '_ := (cancel_reservation tt) : unit in ((read_reg mtime_ref) : M (mword 64)) >>= fun w__0 : mword 64 => ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - (if ((zopz0zI_u w__0 w__1)) then + (if zopz0zI_u w__0 w__1 then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => write_reg mtime_ref w__2 >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => write_reg mcycle_ref w__3 : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit). -Definition is_aligned_addr (addr : mword 32) (width : Z) -: bool := - +Definition is_aligned_addr (addr : mword 32) (width : Z) : bool := Z.eqb (projT1 (emod_with_eq (projT1 (uint addr)) width)) 0. +Definition read_kind_of_flags (aq : bool) (rl : bool) (res : bool) : option read_kind := + match (aq, rl, res) with + | (false, false, false) => Some Read_plain + | (true, false, false) => Some Read_RISCV_acquire + | (true, true, false) => Some Read_RISCV_strong_acquire + | (false, false, true) => Some Read_RISCV_reserved + | (true, false, true) => Some Read_RISCV_reserved_acquire + | (true, true, true) => Some Read_RISCV_reserved_strong_acquire + | (false, true, false) => None + | (false, true, true) => None + end. + Definition phys_mem_read -(t : AccessType) (addr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (match (aq, rl, res) with - | (false, false, false) => - (read_ram Read_plain addr width) >>= fun w__0 : mword (8 * width) => - returnm ((Some - (w__0)) - : option (mword (8 * width))) - | (true, false, false) => - (read_ram Read_RISCV_acquire addr width) >>= fun w__1 : mword (8 * width) => - returnm ((Some - (w__1)) - : option (mword (8 * width))) - | (true, true, false) => - (read_ram Read_RISCV_strong_acquire addr width) >>= fun w__2 : mword (8 * width) => - returnm ((Some - (w__2)) - : option (mword (8 * width))) - | (false, false, true) => - (read_ram Read_RISCV_reserved addr width) >>= fun w__3 : mword (8 * width) => - returnm ((Some - (w__3)) - : option (mword (8 * width))) - | (true, false, true) => - (read_ram Read_RISCV_reserved_acquire addr width) >>= fun w__4 : mword (8 * width) => - returnm ((Some - (w__4)) - : option (mword (8 * width))) - | (true, true, true) => - (read_ram Read_RISCV_reserved_strong_acquire addr width) >>= fun w__5 : mword (8 * width) => - returnm ((Some - (w__5)) - : option (mword (8 * width))) - | (false, true, false) => returnm (None : option (mword (8 * width))) - | (false, true, true) => returnm (None : option (mword (8 * width))) - end) >>= fun w__6 : option (mword (8 * width)) => - let result := w__6 : option (bits (8 * width)) in - returnm ((match (t, result) with - | (Execute, None) => MemException (E_Fetch_Access_Fault) - | (Read, None) => MemException (E_Load_Access_Fault) - | (_, None) => MemException (E_SAMO_Access_Fault) - | (_, Some (v)) => - let '_ := - (if ((get_config_print_mem tt)) then - print_endline - (String.append "mem[" - (String.append (accessType_to_str t) - (String.append "," - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits v)))))) - else tt) - : unit in - MemValue - (v) - end) - : MemoryOpResult (mword (8 * width))). +(t : AccessType unit) (paddr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (match (read_kind_of_flags aq rl res) with + | Some rk => + (read_ram rk paddr width meta) >>= fun w__0 : (mword (8 * width) * unit) => + returnm (Some w__0) + | None => returnm None + end) >>= fun w__1 : option ((mword (8 * width) * unit)) => + let result := w__1 : option ((bits (8 * width) * mem_meta)) in + returnm (match (t, result) with + | (Execute tt, None) => MemException (E_Fetch_Access_Fault tt) + | (Read Data, None) => MemException (E_Load_Access_Fault tt) + | (_, None) => MemException (E_SAMO_Access_Fault tt) + | (_, Some (v, m)) => + let '_ := + (if get_config_print_mem tt then + print_endline + (String.append "mem[" + (String.append (accessType_to_str t) + (String.append "," + (String.append (string_of_bits paddr) + (String.append "] -> " (string_of_bits v)))))) + else tt) + : unit in + MemValue (v, m) + end). Definition checked_mem_read -(t : AccessType) (addr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if ((within_mmio_readable addr width)) then - (mmio_read addr width) - : M (MemoryOpResult (mword (8 * width))) - else if ((within_phys_mem addr width)) then - (phys_mem_read t addr width aq rl res) - : M (MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) - : M (MemoryOpResult (mword (8 * width))). +(t : AccessType unit) (paddr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if within_mmio_readable paddr width then + (mmio_read t paddr width) >>= fun w__0 : MemoryOpResult (mword (8 * width)) => + returnm (MemoryOpResult_add_meta w__0 default_meta) + else if within_phys_mem paddr width then + (phys_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) + : M (MemoryOpResult ((mword (8 * width) * unit))). Definition pmp_mem_read -(t : AccessType) (addr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if ((negb (plat_enable_pmp tt))) then - (checked_mem_read t addr width aq rl res) - : M (MemoryOpResult (mword (8 * width))) +(t : AccessType unit) (paddr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if negb (plat_enable_pmp tt) then + (checked_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) else read_reg mstatus_ref >>= fun w__1 : Mstatus => read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) >>= fun w__3 : Privilege => - (pmpCheck addr width t w__3) >>= fun w__4 : option ExceptionType => + (effectivePrivilege t w__1 w__2) >>= fun w__3 : Privilege => + (pmpCheck paddr width t w__3) >>= fun w__4 : option ExceptionType => (match w__4 with - | None => (checked_mem_read t addr width aq rl res) : M (MemoryOpResult (mword (8 * width))) - | Some (e) => returnm ((MemException (e)) : MemoryOpResult (mword (8 * width))) + | None => + (checked_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) + | Some e => returnm (MemException e) end) - : M (MemoryOpResult (mword (8 * width)))) - : M (MemoryOpResult (mword (8 * width))). + : M (MemoryOpResult ((mword (8 * width) * unit)))) + : M (MemoryOpResult ((mword (8 * width) * unit))). Definition rvfi_read (addr : mword 32) (width : Z) (value : MemoryOpResult (mword (8 * width))) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : unit := - tt. -Definition mem_read -(typ : AccessType) (addr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if sumbool_of_bool ((andb (orb aq res) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_Load_Addr_Align)) - : MemoryOpResult (mword (8 * width))) +Definition mem_read_meta +(typ : AccessType unit) (paddr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if sumbool_of_bool (andb (orb aq res) (negb (is_aligned_addr paddr width))) then + returnm (MemException (E_Load_Addr_Align tt)) else (match (aq, rl, res) with - | (false, true, false) => throw (Error_not_implemented ("load.rl")) - | (false, true, true) => throw (Error_not_implemented ("lr.rl")) + | (false, true, false) => throw (Error_not_implemented "load.rl") + | (false, true, true) => throw (Error_not_implemented "lr.rl") | (_, _, _) => - (pmp_mem_read typ addr width aq rl res) : M (MemoryOpResult (mword (8 * width))) + (pmp_mem_read typ paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) end) - : M (MemoryOpResult (mword (8 * width)))) >>= fun result : MemoryOpResult (bits (8 * width)) => - let '_ := (rvfi_read addr width result) : unit in - returnm (result - : MemoryOpResult (mword (8 * width))). + : M (MemoryOpResult ((mword (8 * width) * unit)))) >>= fun result : MemoryOpResult ((bits (8 * width) * mem_meta)) => + let '_ := (rvfi_read paddr width (MemoryOpResult_drop_meta result)) : unit in + returnm result. + +Definition mem_read +(typ : AccessType unit) (paddr : mword 32) (width : Z) (aq : bool) (rl : bool) (res : bool) +`{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult (mword (8 * width))) := + (mem_read_meta typ paddr width aq rl res false) >>= fun w__0 : MemoryOpResult ((mword (8 * width) * unit)) => + returnm (MemoryOpResult_drop_meta w__0). Definition mem_write_ea (addr : mword 32) (width : Z) (aq : bool) (rl : bool) (con : bool) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult unit) := - - (if sumbool_of_bool ((andb (orb rl con) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_SAMO_Addr_Align)) - : MemoryOpResult unit) + (if sumbool_of_bool (andb (orb rl con) (negb (is_aligned_addr addr width))) then + returnm (MemException (E_SAMO_Addr_Align tt)) else (match (aq, rl, con) with - | (false, false, false) => - (write_ram_ea Write_plain addr width) >> returnm ((MemValue (tt)) : MemoryOpResult unit) + | (false, false, false) => (write_ram_ea Write_plain addr width) >> returnm (MemValue tt) | (false, true, false) => - (write_ram_ea Write_RISCV_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_release addr width) >> returnm (MemValue tt) | (false, false, true) => - (write_ram_ea Write_RISCV_conditional addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_conditional addr width) >> returnm (MemValue tt) | (false, true, true) => - (write_ram_ea Write_RISCV_conditional_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) - | (true, false, false) => throw (Error_not_implemented ("store.aq")) + (write_ram_ea Write_RISCV_conditional_release addr width) >> returnm (MemValue tt) + | (true, false, false) => throw (Error_not_implemented "store.aq") | (true, true, false) => - (write_ram_ea Write_RISCV_strong_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) - | (true, false, true) => throw (Error_not_implemented ("sc.aq")) + (write_ram_ea Write_RISCV_strong_release addr width) >> returnm (MemValue tt) + | (true, false, true) => throw (Error_not_implemented "sc.aq") | (true, true, true) => - (write_ram_ea Write_RISCV_conditional_strong_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_conditional_strong_release addr width) >> returnm (MemValue tt) end) : M (MemoryOpResult unit)) : M (MemoryOpResult unit). Definition rvfi_write (addr : mword 32) (width : Z) (value : mword (8 * width)) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : unit := - tt. Definition phys_mem_write -(wk : write_kind) (addr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - let '_ := (rvfi_write addr width data) : unit in - (write_ram wk addr width data meta) >>= fun w__0 : bool => - let result := MemValue (w__0) in + let '_ := (rvfi_write paddr width data) : unit in + (write_ram wk paddr width data meta) >>= fun w__0 : bool => + let result := MemValue w__0 in let '_ := - (if ((get_config_print_mem tt)) then + (if get_config_print_mem tt then print_endline (String.append "mem[" - (String.append (string_of_bits addr) (String.append "] <- " (string_of_bits data)))) + (String.append (string_of_bits paddr) (String.append "] <- " (string_of_bits data)))) else tt) : unit in - returnm (result - : MemoryOpResult bool). + returnm result. Definition checked_mem_write -(wk : write_kind) (addr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((within_mmio_writable addr width)) then - (mmio_write addr width data) + (if within_mmio_writable paddr width then + (mmio_write paddr width data) : M (MemoryOpResult bool) - else if ((within_phys_mem addr width)) then - (phys_mem_write wk addr width data meta) + else if within_phys_mem paddr width then + (phys_mem_write wk paddr width data meta) : M (MemoryOpResult bool) - else returnm ((MemException (E_SAMO_Access_Fault)) : MemoryOpResult bool)) + else returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). Definition pmp_mem_write -(wk : write_kind) (addr : mword 32) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 32) (width : Z) (data : mword (8 * width)) (ext_acc : unit) +(meta : unit) `{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((negb (plat_enable_pmp tt))) then - (checked_mem_write wk addr width data meta) + (if negb (plat_enable_pmp tt) then + (checked_mem_write wk paddr width data meta) : M (MemoryOpResult bool) else + let typ : AccessType ext_access_type := Write ext_acc in read_reg mstatus_ref >>= fun w__1 : Mstatus => read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) >>= fun w__3 : Privilege => - (pmpCheck addr width Write w__3) >>= fun w__4 : option ExceptionType => + (effectivePrivilege typ w__1 w__2) >>= fun w__3 : Privilege => + (pmpCheck paddr width typ w__3) >>= fun w__4 : option ExceptionType => (match w__4 with - | None => (checked_mem_write wk addr width data meta) : M (MemoryOpResult bool) - | Some (e) => returnm ((MemException (e)) : MemoryOpResult bool) + | None => (checked_mem_write wk paddr width data meta) : M (MemoryOpResult bool) + | Some e => returnm (MemException e) end) : M (MemoryOpResult bool)) : M (MemoryOpResult bool). Definition mem_write_value_meta -(addr : mword 32) (width : Z) (value : mword (8 * width)) (meta : unit) (aq : bool) (rl : bool) -(con : bool) `{ArithFact (0 < width /\ width <= 16)} +(paddr : mword 32) (width : Z) (value : mword (8 * width)) (ext_acc : unit) (meta : unit) +(aq : bool) (rl : bool) (con : bool) `{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - let '_ := (rvfi_write addr width value) : unit in - (if sumbool_of_bool ((andb (orb rl con) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_SAMO_Addr_Align)) - : MemoryOpResult bool) + let '_ := (rvfi_write paddr width value) : unit in + (if sumbool_of_bool (andb (orb rl con) (negb (is_aligned_addr paddr width))) then + returnm (MemException (E_SAMO_Addr_Align tt)) else (match (aq, rl, con) with | (false, false, false) => - (pmp_mem_write Write_plain addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_plain paddr width value ext_acc meta) : M (MemoryOpResult bool) | (false, true, false) => - (pmp_mem_write Write_RISCV_release addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_RISCV_release paddr width value ext_acc meta) + : M (MemoryOpResult bool) | (false, false, true) => - (pmp_mem_write Write_RISCV_conditional addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_RISCV_conditional paddr width value ext_acc meta) + : M (MemoryOpResult bool) | (false, true, true) => - (pmp_mem_write Write_RISCV_conditional_release addr width value meta) + (pmp_mem_write Write_RISCV_conditional_release paddr width value ext_acc meta) : M (MemoryOpResult bool) | (true, true, false) => - (pmp_mem_write Write_RISCV_strong_release addr width value meta) + (pmp_mem_write Write_RISCV_strong_release paddr width value ext_acc meta) : M (MemoryOpResult bool) | (true, true, true) => - (pmp_mem_write Write_RISCV_conditional_strong_release addr width value meta) + (pmp_mem_write Write_RISCV_conditional_strong_release paddr width value ext_acc meta) : M (MemoryOpResult bool) - | (true, false, false) => throw (Error_not_implemented ("store.aq")) - | (true, false, true) => throw (Error_not_implemented ("sc.aq")) + | (true, false, false) => throw (Error_not_implemented "store.aq") + | (true, false, true) => throw (Error_not_implemented "sc.aq") end) : M (MemoryOpResult bool)) : M (MemoryOpResult bool). Definition mem_write_value -(addr : mword 32) (width : Z) (value : mword (8 * width)) (aq : bool) (rl : bool) (con : bool) -`{ArithFact (0 < width /\ width <= 16)} +(paddr : mword 32) (width : Z) (value : mword (8 * width)) (aq : bool) (rl : bool) (con : bool) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (mem_write_value_meta addr width value default_meta aq rl con) + (mem_write_value_meta paddr width value default_write_acc default_meta aq rl con) : M (MemoryOpResult bool). -Definition PAGESIZE_BITS := 12. -Hint Unfold PAGESIZE_BITS : sail. -Definition Mk_PTE_Bits (v : mword 8) -: PTE_Bits := - +Definition Mk_PTE_Bits (v : mword 8) : PTE_Bits := {| PTE_Bits_PTE_Bits_chunk_0 := (subrange_vec_dec v 7 0) |}. -Definition _get_PTE_Bits_bits (v : PTE_Bits) -: mword 8 := - +Definition _get_PTE_Bits_bits (v : PTE_Bits) : mword 8 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 0. -Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 8) +Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12140,21 +11933,16 @@ Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_ write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_bits (v : PTE_Bits) (x : mword 8) -: PTE_Bits := - +Definition _update_PTE_Bits_bits (v : PTE_Bits) (x : mword 8) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition _get_PTE_Bits_D (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_D (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 7. -Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12164,21 +11952,16 @@ Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_D (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_D (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_A (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_A (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 6 6. -Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12188,21 +11971,16 @@ Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_A (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_A (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_G (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_G (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 5 5. -Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12212,21 +11990,16 @@ Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_G (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_G (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_U (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_U (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 4 4. -Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12236,21 +12009,16 @@ Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_U (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_U (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_X (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_X (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 3 3. -Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12260,21 +12028,16 @@ Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_X (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_X (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_W (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_W (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 2 2. -Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12284,21 +12047,16 @@ Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_W (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_W (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_R (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_R (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 1 1. -Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12308,21 +12066,16 @@ Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_R (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_R (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_V (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_V (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 0 0. -Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12332,142 +12085,116 @@ Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_V (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_V (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition isPTEPtr (p : mword 8) -: bool := - +Definition isPTEPtr (p : mword 8) (ext : mword 10) : bool := let a := Mk_PTE_Bits p in - andb (eq_vec (_get_PTE_Bits_R a) ((bool_to_bits false) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W a) ((bool_to_bits false) : mword 1)) - (eq_vec (_get_PTE_Bits_X a) ((bool_to_bits false) : mword 1))). + andb (eq_vec (_get_PTE_Bits_R a) ('b"0" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W a) ('b"0" : mword 1)) + (eq_vec (_get_PTE_Bits_X a) ('b"0" : mword 1))). -Definition isInvalidPTE (p : mword 8) -: bool := - +Definition isInvalidPTE (p : mword 8) (ext : mword 10) : bool := let a := Mk_PTE_Bits p in - orb (eq_vec (_get_PTE_Bits_V a) ((bool_to_bits false) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W a) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_R a) ((bool_to_bits false) : mword 1))). + orb (eq_vec (_get_PTE_Bits_V a) ('b"0" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W a) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_R a) ('b"0" : mword 1))). + +Definition to_pte_check (b : bool) : PTE_Check := + if sumbool_of_bool b then PTE_Check_Success tt else PTE_Check_Failure tt. Definition checkPTEPermission -(ac : AccessType) (priv : Privilege) (mxr : bool) (do_sum : bool) (p : PTE_Bits) -: M (bool) := - +(ac : AccessType unit) (priv : Privilege) (mxr : bool) (do_sum : bool) (p : PTE_Bits) +(ext : mword 10) (ext_ptw : unit) +: M (PTE_Check) := (match (ac, priv) with - | (Read, User) => - returnm (andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr))) - | (Write, User) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1))) - : bool) - | (ReadWrite, User) => - returnm (andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr)))) - | (Execute, User) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1))) - : bool) - | (Read, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr))) - | (Write, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1))) - | (ReadWrite, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (andb (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr)))) - | (Execute, Supervisor) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) - (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1))) - : bool) - | (_, Machine) => (internal_error "m-mode mem perm check") : M (bool) + | (Read Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr)))) + | (Write Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)))) + | (ReadWrite Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr))))) + | (Execute tt, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)))) + | (Read Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr)))) + | (Write Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)))) + | (ReadWrite Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (andb (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr))))) + | (Execute tt, Supervisor) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) + (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)))) + | (_, Machine) => (internal_error "m-mode mem perm check") : M (PTE_Check) end) - : M (bool). + : M (PTE_Check). -Definition update_PTE_Bits (p : PTE_Bits) (a : AccessType) -: option PTE_Bits := - +Definition update_PTE_Bits (p : PTE_Bits) (a : AccessType unit) (ext : mword 10) +: option ((PTE_Bits * mword 10)) := let update_d := - andb (orb (generic_eq a Write) (generic_eq a ReadWrite)) - (eq_vec (_get_PTE_Bits_D p) ((bool_to_bits false) : mword 1)) in - let update_a := eq_vec (_get_PTE_Bits_A p) ((bool_to_bits false) : mword 1) in - if sumbool_of_bool ((orb update_d update_a)) then - let np := _update_PTE_Bits_A p ((bool_to_bits true) : mword 1) in - let np := - if sumbool_of_bool (update_d) then _update_PTE_Bits_D np ((bool_to_bits true) : mword 1) - else np in - Some - (np) - else None. - -Definition PTW_Error_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 4)} -: PTW_Error := - - let l__11 := arg_ in - if sumbool_of_bool ((Z.eqb l__11 0)) then PTW_Access - else if sumbool_of_bool ((Z.eqb l__11 1)) then PTW_Invalid_PTE - else if sumbool_of_bool ((Z.eqb l__11 2)) then PTW_No_Permission - else if sumbool_of_bool ((Z.eqb l__11 3)) then PTW_Misaligned - else PTW_PTE_Update. - -Definition num_of_PTW_Error (arg_ : PTW_Error) -: {e : Z & ArithFact (0 <= e /\ e <= 4)} := - - build_ex(match arg_ with - | PTW_Access => 0 - | PTW_Invalid_PTE => 1 - | PTW_No_Permission => 2 - | PTW_Misaligned => 3 - | PTW_PTE_Update => 4 - end). + andb (orb (generic_eq a (Write Data)) (generic_eq a (ReadWrite Data))) + (eq_vec (_get_PTE_Bits_D p) ('b"0" : mword 1)) in + let update_a := eq_vec (_get_PTE_Bits_A p) ('b"0" : mword 1) in + if sumbool_of_bool (orb update_d update_a) then + let np := _update_PTE_Bits_A p ('b"1" : mword 1) in + let np := if sumbool_of_bool update_d then _update_PTE_Bits_D np ('b"1" : mword 1) else np in + Some (np, ext) + else None. -Definition ptw_error_to_str (e : PTW_Error) -: string := - +Definition ptw_error_to_str (e : PTW_Error) : string := match e with - | PTW_Access => "mem-access-error" - | PTW_Invalid_PTE => "invalid-pte" - | PTW_No_Permission => "no-permission" - | PTW_Misaligned => "misaligned-superpage" - | PTW_PTE_Update => "pte-update-needed" + | PTW_Invalid_Addr tt => "invalid-source-addr" + | PTW_Access tt => "mem-access-error" + | PTW_Invalid_PTE tt => "invalid-pte" + | PTW_No_Permission tt => "no-permission" + | PTW_Misaligned tt => "misaligned-superpage" + | PTW_PTE_Update tt => "pte-update-needed" + | PTW_Ext_Error e => "extension-error" end. -Definition translationException (a : AccessType) (f : PTW_Error) -: ExceptionType := - +Definition translationException (a : AccessType unit) (f : PTW_Error) : ExceptionType := match (a, f) with - | (ReadWrite, PTW_Access) => E_SAMO_Access_Fault - | (ReadWrite, _) => E_SAMO_Page_Fault - | (Read, PTW_Access) => E_Load_Access_Fault - | (Read, _) => E_Load_Page_Fault - | (Write, PTW_Access) => E_SAMO_Access_Fault - | (Write, _) => E_SAMO_Page_Fault - | (Fetch, PTW_Access) => E_Fetch_Access_Fault - | (Fetch, _) => E_Fetch_Page_Fault + | (_, PTW_Ext_Error e) => E_Extension (ext_translate_exception e) + | (ReadWrite Data, PTW_Access tt) => E_SAMO_Access_Fault tt + | (ReadWrite Data, _) => E_SAMO_Page_Fault tt + | (Read Data, PTW_Access tt) => E_Load_Access_Fault tt + | (Read Data, _) => E_Load_Page_Fault tt + | (Write Data, PTW_Access tt) => E_SAMO_Access_Fault tt + | (Write Data, _) => E_SAMO_Page_Fault tt + | (Execute tt, PTW_Access tt) => E_Fetch_Access_Fault tt + | (Execute tt, _) => E_Fetch_Page_Fault tt end. -Definition curAsid32 (satp : mword 32) -: mword 9 := - +Definition PAGESIZE_BITS := 12. +Hint Unfold PAGESIZE_BITS : sail. +Definition curAsid32 (satp : mword 32) : mword 9 := let s := Mk_Satp32 satp in _get_Satp32_Asid s. -Definition curPTB32 (satp : mword 32) -: mword 34 := - +Definition curPTB32 (satp : mword 32) : mword 34 := let s : Satp32 := Mk_Satp32 satp in shiftl (EXTZ 34 (_get_Satp32_PPN s)) PAGESIZE_BITS. @@ -12479,20 +12206,15 @@ Definition PTE32_LOG_SIZE := 2. Hint Unfold PTE32_LOG_SIZE : sail. Definition PTE32_SIZE := 4. Hint Unfold PTE32_SIZE : sail. -Definition Mk_SV32_Vaddr (v : mword 32) -: SV32_Vaddr := - +Definition Mk_SV32_Vaddr (v : mword 32) : SV32_Vaddr := {| SV32_Vaddr_SV32_Vaddr_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_SV32_Vaddr_bits (v : SV32_Vaddr) -: mword 32 := - +Definition _get_SV32_Vaddr_bits (v : SV32_Vaddr) : mword 32 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 0. Definition _set_SV32_Vaddr_bits -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 32) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12502,22 +12224,17 @@ Definition _set_SV32_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_bits (v : SV32_Vaddr) (x : mword 32) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_bits (v : SV32_Vaddr) (x : mword 32) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_SV32_Vaddr_VPNi (v : SV32_Vaddr) -: mword 20 := - +Definition _get_SV32_Vaddr_VPNi (v : SV32_Vaddr) : mword 20 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 12. Definition _set_SV32_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 20) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 20) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12527,22 +12244,17 @@ Definition _set_SV32_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_VPNi (v : SV32_Vaddr) (x : mword 20) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_VPNi (v : SV32_Vaddr) (x : mword 20) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 12 (subrange_vec_dec x 19 0)) ]}. -Definition _get_SV32_Vaddr_PgOfs (v : SV32_Vaddr) -: mword 12 := - +Definition _get_SV32_Vaddr_PgOfs (v : SV32_Vaddr) : mword 12 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 11 0. Definition _set_SV32_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12552,27 +12264,20 @@ Definition _set_SV32_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_PgOfs (v : SV32_Vaddr) (x : mword 12) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_PgOfs (v : SV32_Vaddr) (x : mword 12) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV32_Paddr (v : mword 34) -: SV32_Paddr := - +Definition Mk_SV32_Paddr (v : mword 34) : SV32_Paddr := {| SV32_Paddr_SV32_Paddr_chunk_0 := (subrange_vec_dec v 33 0) |}. -Definition _get_SV32_Paddr_bits (v : SV32_Paddr) -: mword 34 := - +Definition _get_SV32_Paddr_bits (v : SV32_Paddr) : mword 34 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 0. Definition _set_SV32_Paddr_bits -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 34) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 34) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12582,22 +12287,17 @@ Definition _set_SV32_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_bits (v : SV32_Paddr) (x : mword 34) -: SV32_Paddr := - +Definition _update_SV32_Paddr_bits (v : SV32_Paddr) (x : mword 34) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 0 (subrange_vec_dec x 33 0)) ]}. -Definition _get_SV32_Paddr_PPNi (v : SV32_Paddr) -: mword 22 := - +Definition _get_SV32_Paddr_PPNi (v : SV32_Paddr) : mword 22 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 12. Definition _set_SV32_Paddr_PPNi -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 22) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 22) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12607,22 +12307,17 @@ Definition _set_SV32_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_PPNi (v : SV32_Paddr) (x : mword 22) -: SV32_Paddr := - +Definition _update_SV32_Paddr_PPNi (v : SV32_Paddr) (x : mword 22) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 12 (subrange_vec_dec x 21 0)) ]}. -Definition _get_SV32_Paddr_PgOfs (v : SV32_Paddr) -: mword 12 := - +Definition _get_SV32_Paddr_PgOfs (v : SV32_Paddr) : mword 12 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 11 0. Definition _set_SV32_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12632,27 +12327,19 @@ Definition _set_SV32_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_PgOfs (v : SV32_Paddr) (x : mword 12) -: SV32_Paddr := - +Definition _update_SV32_Paddr_PgOfs (v : SV32_Paddr) (x : mword 12) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV32_PTE (v : mword 32) -: SV32_PTE := - +Definition Mk_SV32_PTE (v : mword 32) : SV32_PTE := {| SV32_PTE_SV32_PTE_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_SV32_PTE_bits (v : SV32_PTE) -: mword 32 := - +Definition _get_SV32_PTE_bits (v : SV32_PTE) : mword 32 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 0. Definition _set_SV32_PTE_bits (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 32) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12662,22 +12349,16 @@ Definition _set_SV32_PTE_bits (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_bits (v : SV32_PTE) (x : mword 32) -: SV32_PTE := - +Definition _update_SV32_PTE_bits (v : SV32_PTE) (x : mword 32) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_SV32_PTE_PPNi (v : SV32_PTE) -: mword 22 := - +Definition _get_SV32_PTE_PPNi (v : SV32_PTE) : mword 22 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 10. Definition _set_SV32_PTE_PPNi (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 22) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12687,21 +12368,16 @@ Definition _set_SV32_PTE_PPNi (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_PPNi (v : SV32_PTE) (x : mword 22) -: SV32_PTE := - +Definition _update_SV32_PTE_PPNi (v : SV32_PTE) (x : mword 22) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 10 (subrange_vec_dec x 21 0)) ]}. -Definition _get_SV32_PTE_RSW (v : SV32_PTE) -: mword 2 := - +Definition _get_SV32_PTE_RSW (v : SV32_PTE) : mword 2 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 9 8. -Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 2) +Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12711,21 +12387,16 @@ Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_ write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_RSW (v : SV32_PTE) (x : mword 2) -: SV32_PTE := - +Definition _update_SV32_PTE_RSW (v : SV32_PTE) (x : mword 2) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV32_PTE_BITS (v : SV32_PTE) -: mword 8 := - +Definition _get_SV32_PTE_BITS (v : SV32_PTE) : mword 8 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 7 0. -Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 8) +Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12735,22 +12406,16 @@ Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_BITS (v : SV32_PTE) (x : mword 8) -: SV32_PTE := - +Definition _update_SV32_PTE_BITS (v : SV32_PTE) (x : mword 8) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition curAsid64 (satp : mword 64) -: mword 16 := - +Definition curAsid64 (satp : mword 64) : mword 16 := let s := Mk_Satp64 satp in _get_Satp64_Asid s. -Definition curPTB64 (satp : mword 64) -: mword 56 := - +Definition curPTB64 (satp : mword 64) : mword 56 := let s := Mk_Satp64 satp in shiftl (EXTZ 56 (_get_Satp64_PPN s)) PAGESIZE_BITS. @@ -12762,20 +12427,15 @@ Definition PTE39_LOG_SIZE := 3. Hint Unfold PTE39_LOG_SIZE : sail. Definition PTE39_SIZE := 8. Hint Unfold PTE39_SIZE : sail. -Definition Mk_SV39_Vaddr (v : mword 39) -: SV39_Vaddr := - +Definition Mk_SV39_Vaddr (v : mword 39) : SV39_Vaddr := {| SV39_Vaddr_SV39_Vaddr_chunk_0 := (subrange_vec_dec v 38 0) |}. -Definition _get_SV39_Vaddr_bits (v : SV39_Vaddr) -: mword 39 := - +Definition _get_SV39_Vaddr_bits (v : SV39_Vaddr) : mword 39 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 0. Definition _set_SV39_Vaddr_bits -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 39) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 39) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12785,22 +12445,17 @@ Definition _set_SV39_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_bits (v : SV39_Vaddr) (x : mword 39) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_bits (v : SV39_Vaddr) (x : mword 39) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 0 (subrange_vec_dec x 38 0)) ]}. -Definition _get_SV39_Vaddr_VPNi (v : SV39_Vaddr) -: mword 27 := - +Definition _get_SV39_Vaddr_VPNi (v : SV39_Vaddr) : mword 27 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 12. Definition _set_SV39_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 27) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 27) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12810,22 +12465,17 @@ Definition _set_SV39_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_VPNi (v : SV39_Vaddr) (x : mword 27) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_VPNi (v : SV39_Vaddr) (x : mword 27) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 12 (subrange_vec_dec x 26 0)) ]}. -Definition _get_SV39_Vaddr_PgOfs (v : SV39_Vaddr) -: mword 12 := - +Definition _get_SV39_Vaddr_PgOfs (v : SV39_Vaddr) : mword 12 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 11 0. Definition _set_SV39_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12835,27 +12485,20 @@ Definition _set_SV39_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_PgOfs (v : SV39_Vaddr) (x : mword 12) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_PgOfs (v : SV39_Vaddr) (x : mword 12) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV39_Paddr (v : mword 56) -: SV39_Paddr := - +Definition Mk_SV39_Paddr (v : mword 56) : SV39_Paddr := {| SV39_Paddr_SV39_Paddr_chunk_0 := (subrange_vec_dec v 55 0) |}. -Definition _get_SV39_Paddr_bits (v : SV39_Paddr) -: mword 56 := - +Definition _get_SV39_Paddr_bits (v : SV39_Paddr) : mword 56 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 0. Definition _set_SV39_Paddr_bits -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 56) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 56) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12865,22 +12508,17 @@ Definition _set_SV39_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_bits (v : SV39_Paddr) (x : mword 56) -: SV39_Paddr := - +Definition _update_SV39_Paddr_bits (v : SV39_Paddr) (x : mword 56) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 0 (subrange_vec_dec x 55 0)) ]}. -Definition _get_SV39_Paddr_PPNi (v : SV39_Paddr) -: mword 44 := - +Definition _get_SV39_Paddr_PPNi (v : SV39_Paddr) : mword 44 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 12. Definition _set_SV39_Paddr_PPNi -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 44) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12890,22 +12528,17 @@ Definition _set_SV39_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_PPNi (v : SV39_Paddr) (x : mword 44) -: SV39_Paddr := - +Definition _update_SV39_Paddr_PPNi (v : SV39_Paddr) (x : mword 44) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 12 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV39_Paddr_PgOfs (v : SV39_Paddr) -: mword 12 := - +Definition _get_SV39_Paddr_PgOfs (v : SV39_Paddr) : mword 12 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 11 0. Definition _set_SV39_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12915,27 +12548,19 @@ Definition _set_SV39_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_PgOfs (v : SV39_Paddr) (x : mword 12) -: SV39_Paddr := - +Definition _update_SV39_Paddr_PgOfs (v : SV39_Paddr) (x : mword 12) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV39_PTE (v : mword 64) -: SV39_PTE := - +Definition Mk_SV39_PTE (v : mword 64) : SV39_PTE := {| SV39_PTE_SV39_PTE_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_SV39_PTE_bits (v : SV39_PTE) -: mword 64 := - +Definition _get_SV39_PTE_bits (v : SV39_PTE) : mword 64 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 0. Definition _set_SV39_PTE_bits (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12945,22 +12570,35 @@ Definition _set_SV39_PTE_bits (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_bits (v : SV39_PTE) (x : mword 64) -: SV39_PTE := - +Definition _update_SV39_PTE_bits (v : SV39_PTE) (x : mword 64) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_SV39_PTE_PPNi (v : SV39_PTE) -: mword 44 := - +Definition _get_SV39_PTE_Ext (v : SV39_PTE) : mword 10 := + subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 54. + +Definition _set_SV39_PTE_Ext (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 10) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + SV39_PTE_SV39_PTE_chunk_0 := + (update_subrange_vec_dec r.(SV39_PTE_SV39_PTE_chunk_0) 63 54 (subrange_vec_dec v 9 0)) ]} + : SV39_PTE in + write_reg r_ref r + : M (unit). + +Definition _update_SV39_PTE_Ext (v : SV39_PTE) (x : mword 10) : SV39_PTE := + {[ v with + SV39_PTE_SV39_PTE_chunk_0 := + (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 54 (subrange_vec_dec x 9 0)) ]}. + +Definition _get_SV39_PTE_PPNi (v : SV39_PTE) : mword 44 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 53 10. Definition _set_SV39_PTE_PPNi (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 44) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12970,21 +12608,16 @@ Definition _set_SV39_PTE_PPNi (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_PPNi (v : SV39_PTE) (x : mword 44) -: SV39_PTE := - +Definition _update_SV39_PTE_PPNi (v : SV39_PTE) (x : mword 44) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 53 10 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV39_PTE_RSW (v : SV39_PTE) -: mword 2 := - +Definition _get_SV39_PTE_RSW (v : SV39_PTE) : mword 2 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 9 8. -Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 2) +Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12994,21 +12627,16 @@ Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_ write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_RSW (v : SV39_PTE) (x : mword 2) -: SV39_PTE := - +Definition _update_SV39_PTE_RSW (v : SV39_PTE) (x : mword 2) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV39_PTE_BITS (v : SV39_PTE) -: mword 8 := - +Definition _get_SV39_PTE_BITS (v : SV39_PTE) : mword 8 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 7 0. -Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 8) +Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13018,9 +12646,7 @@ Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_BITS (v : SV39_PTE) (x : mword 8) -: SV39_PTE := - +Definition _update_SV39_PTE_BITS (v : SV39_PTE) (x : mword 8) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. @@ -13033,20 +12659,15 @@ Definition PTE48_LOG_SIZE := 3. Hint Unfold PTE48_LOG_SIZE : sail. Definition PTE48_SIZE := 8. Hint Unfold PTE48_SIZE : sail. -Definition Mk_SV48_Vaddr (v : mword 48) -: SV48_Vaddr := - +Definition Mk_SV48_Vaddr (v : mword 48) : SV48_Vaddr := {| SV48_Vaddr_SV48_Vaddr_chunk_0 := (subrange_vec_dec v 47 0) |}. -Definition _get_SV48_Vaddr_bits (v : SV48_Vaddr) -: mword 48 := - +Definition _get_SV48_Vaddr_bits (v : SV48_Vaddr) : mword 48 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 47 0. Definition _set_SV48_Vaddr_bits -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 48) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 48) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13056,22 +12677,17 @@ Definition _set_SV48_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_bits (v : SV48_Vaddr) (x : mword 48) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_bits (v : SV48_Vaddr) (x : mword 48) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 47 0 (subrange_vec_dec x 47 0)) ]}. -Definition _get_SV48_Vaddr_VPNi (v : SV48_Vaddr) -: mword 27 := - +Definition _get_SV48_Vaddr_VPNi (v : SV48_Vaddr) : mword 27 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 38 12. Definition _set_SV48_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 27) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 27) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13081,22 +12697,17 @@ Definition _set_SV48_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_VPNi (v : SV48_Vaddr) (x : mword 27) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_VPNi (v : SV48_Vaddr) (x : mword 27) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 38 12 (subrange_vec_dec x 26 0)) ]}. -Definition _get_SV48_Vaddr_PgOfs (v : SV48_Vaddr) -: mword 12 := - +Definition _get_SV48_Vaddr_PgOfs (v : SV48_Vaddr) : mword 12 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 11 0. Definition _set_SV48_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13106,27 +12717,20 @@ Definition _set_SV48_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_PgOfs (v : SV48_Vaddr) (x : mword 12) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_PgOfs (v : SV48_Vaddr) (x : mword 12) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV48_Paddr (v : mword 56) -: SV48_Paddr := - +Definition Mk_SV48_Paddr (v : mword 56) : SV48_Paddr := {| SV48_Paddr_SV48_Paddr_chunk_0 := (subrange_vec_dec v 55 0) |}. -Definition _get_SV48_Paddr_bits (v : SV48_Paddr) -: mword 56 := - +Definition _get_SV48_Paddr_bits (v : SV48_Paddr) : mword 56 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 0. Definition _set_SV48_Paddr_bits -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 56) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 56) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13136,22 +12740,17 @@ Definition _set_SV48_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_bits (v : SV48_Paddr) (x : mword 56) -: SV48_Paddr := - +Definition _update_SV48_Paddr_bits (v : SV48_Paddr) (x : mword 56) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 0 (subrange_vec_dec x 55 0)) ]}. -Definition _get_SV48_Paddr_PPNi (v : SV48_Paddr) -: mword 44 := - +Definition _get_SV48_Paddr_PPNi (v : SV48_Paddr) : mword 44 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 12. Definition _set_SV48_Paddr_PPNi -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 44) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13161,22 +12760,17 @@ Definition _set_SV48_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_PPNi (v : SV48_Paddr) (x : mword 44) -: SV48_Paddr := - +Definition _update_SV48_Paddr_PPNi (v : SV48_Paddr) (x : mword 44) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 12 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV48_Paddr_PgOfs (v : SV48_Paddr) -: mword 12 := - +Definition _get_SV48_Paddr_PgOfs (v : SV48_Paddr) : mword 12 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 11 0. Definition _set_SV48_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13186,27 +12780,19 @@ Definition _set_SV48_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_PgOfs (v : SV48_Paddr) (x : mword 12) -: SV48_Paddr := - +Definition _update_SV48_Paddr_PgOfs (v : SV48_Paddr) (x : mword 12) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV48_PTE (v : mword 64) -: SV48_PTE := - +Definition Mk_SV48_PTE (v : mword 64) : SV48_PTE := {| SV48_PTE_SV48_PTE_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_SV48_PTE_bits (v : SV48_PTE) -: mword 64 := - +Definition _get_SV48_PTE_bits (v : SV48_PTE) : mword 64 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 0. Definition _set_SV48_PTE_bits (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13216,22 +12802,35 @@ Definition _set_SV48_PTE_bits (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_bits (v : SV48_PTE) (x : mword 64) -: SV48_PTE := - +Definition _update_SV48_PTE_bits (v : SV48_PTE) (x : mword 64) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_SV48_PTE_PPNi (v : SV48_PTE) -: mword 44 := - +Definition _get_SV48_PTE_Ext (v : SV48_PTE) : mword 10 := + subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 54. + +Definition _set_SV48_PTE_Ext (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 10) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + SV48_PTE_SV48_PTE_chunk_0 := + (update_subrange_vec_dec r.(SV48_PTE_SV48_PTE_chunk_0) 63 54 (subrange_vec_dec v 9 0)) ]} + : SV48_PTE in + write_reg r_ref r + : M (unit). + +Definition _update_SV48_PTE_Ext (v : SV48_PTE) (x : mword 10) : SV48_PTE := + {[ v with + SV48_PTE_SV48_PTE_chunk_0 := + (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 54 (subrange_vec_dec x 9 0)) ]}. + +Definition _get_SV48_PTE_PPNi (v : SV48_PTE) : mword 44 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 53 10. Definition _set_SV48_PTE_PPNi (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 44) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13241,21 +12840,16 @@ Definition _set_SV48_PTE_PPNi (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_PPNi (v : SV48_PTE) (x : mword 44) -: SV48_PTE := - +Definition _update_SV48_PTE_PPNi (v : SV48_PTE) (x : mword 44) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 53 10 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV48_PTE_RSW (v : SV48_PTE) -: mword 2 := - +Definition _get_SV48_PTE_RSW (v : SV48_PTE) : mword 2 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 9 8. -Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 2) +Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13265,21 +12859,16 @@ Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_ write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_RSW (v : SV48_PTE) (x : mword 2) -: SV48_PTE := - +Definition _update_SV48_PTE_RSW (v : SV48_PTE) (x : mword 2) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV48_PTE_BITS (v : SV48_PTE) -: mword 8 := - +Definition _get_SV48_PTE_BITS (v : SV48_PTE) : mword 8 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 7 0. -Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 8) +Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13289,68 +12878,61 @@ Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_BITS (v : SV48_PTE) (x : mword 8) -: SV48_PTE := - +Definition _update_SV48_PTE_BITS (v : SV48_PTE) (x : mword 8) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. Definition make_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} (asid : mword asidlen) (global : bool) (vAddr : mword valen) (pAddr : mword palen) -(pte : mword ptelen) (level : Z) (pteAddr : mword palen) (levelBitSize : Z) `{ArithFact (valen > 0)} -`{ArithFact (0 <= level)} `{ArithFact (0 <= levelBitSize)} +(pte : mword ptelen) (level : Z) (pteAddr : mword palen) (levelBitSize : Z) +`{ArithFact (valen >? 0)} `{ArithFact (0 <=? level)} `{ArithFact (0 <=? levelBitSize)} : M (TLB_Entry asidlen valen palen ptelen) := - let shift := Z.add PAGESIZE_BITS (Z.mul level levelBitSize) in let vAddrMask : bits valen := sub_vec_int - (shiftl - (xor_vec vAddr (xor_vec vAddr (EXTZ (length_mword vAddr) (vec_of_bits [B1] : mword 1)))) - shift) 1 in + (shiftl (xor_vec vAddr (xor_vec vAddr (EXTZ (length_mword vAddr) ('b"1" : mword 1)))) shift) + 1 in let vMatchMask : bits valen := not_vec vAddrMask in ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm (({| TLB_Entry_asid := asid; - TLB_Entry_global := global; - TLB_Entry_pte := pte; - TLB_Entry_pteAddr := pteAddr; - TLB_Entry_vAddrMask := vAddrMask; - TLB_Entry_vMatchMask := vMatchMask; - TLB_Entry_vAddr := (and_vec vAddr vMatchMask); - TLB_Entry_pAddr := (shiftl (shiftr pAddr shift) shift); - TLB_Entry_age := w__0 |}) - : TLB_Entry asidlen valen palen ptelen). + returnm ({| TLB_Entry_asid := asid; + TLB_Entry_global := global; + TLB_Entry_pte := pte; + TLB_Entry_pteAddr := pteAddr; + TLB_Entry_vAddrMask := vAddrMask; + TLB_Entry_vMatchMask := vMatchMask; + TLB_Entry_vAddr := (and_vec vAddr vMatchMask); + TLB_Entry_pAddr := (shiftl (shiftr pAddr shift) shift); + TLB_Entry_age := w__0 |}). Definition match_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} -(ent : TLB_Entry asidlen valen palen ptelen) (asid : mword asidlen) (vaddr : mword valen) +(ent : TLB_Entry asidlen valen palen ptelen) (asid : mword asidlen) (vaddr : mword valen) : bool := - andb (orb ent.(TLB_Entry_global) (eq_vec ent.(TLB_Entry_asid) asid)) (eq_vec ent.(TLB_Entry_vAddr) (and_vec ent.(TLB_Entry_vMatchMask) vaddr)). Definition flush_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} (e : TLB_Entry asidlen valen palen ptelen) (asid : option (mword asidlen)) -(addr : option (mword valen)) +(addr : option (mword valen)) : bool := - match (asid, addr) with | (None, None) => true - | (None, Some (a)) => eq_vec e.(TLB_Entry_vAddr) (and_vec e.(TLB_Entry_vMatchMask) a) - | (Some (i), None) => andb (eq_vec e.(TLB_Entry_asid) i) (negb e.(TLB_Entry_global)) - | (Some (i), Some (a)) => + | (None, Some a) => eq_vec e.(TLB_Entry_vAddr) (and_vec e.(TLB_Entry_vMatchMask) a) + | (Some i, None) => andb (eq_vec e.(TLB_Entry_asid) i) (negb e.(TLB_Entry_global)) + | (Some i, Some a) => andb (eq_vec e.(TLB_Entry_asid) i) (andb (eq_vec e.(TLB_Entry_vAddr) (and_vec a e.(TLB_Entry_vMatchMask))) (negb e.(TLB_Entry_global))) end. -Definition to_phys_addr (a : mword 34) : mword 32 := subrange_vec_dec a 31 0. +Definition to_phys_addr (a : mword 34) : mword 32 := subrange_vec_dec a 31 0. Fixpoint _rec_walk32 -(vaddr : mword 32) (ac : AccessType) (priv : Privilege) (mxr : bool) (do_sum : bool) -(ptb : mword 34) (level : Z) (global : bool) (_reclimit : Z) `{ArithFact (0 <= level)} -(_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M (PTW_Result (mword 34) SV32_PTE) := - +(vaddr : mword 32) (ac : AccessType unit) (priv : Privilege) (mxr : bool) (do_sum : bool) +(ptb : mword 34) (level : Z) (global : bool) (ext_ptw : unit) (_reclimit : Z) +`{ArithFact (0 <=? level)} (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M (PTW_Result (mword 34) SV32_PTE). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let va := Mk_SV32_Vaddr vaddr in let pt_ofs : paddr32 := @@ -13361,181 +12943,158 @@ Fixpoint _rec_walk32 let pte_addr := add_vec ptb pt_ofs in (mem_read ac (to_phys_addr pte_addr) 4 false false false) >>= fun w__0 : MemoryOpResult (mword (8 * 4)) => (match w__0 with - | MemException (_) => returnm ((PTW_Failure (PTW_Access)) : PTW_Result (mword 34) SV32_PTE) - | MemValue (v) => + | MemException _ => returnm (PTW_Failure (PTW_Access tt, ext_ptw)) + | MemValue v => let pte := Mk_SV32_PTE v in let pbits := _get_SV32_PTE_BITS pte in + let ext_pte : extPte := zeros_implicit 10 in let pattr := Mk_PTE_Bits pbits in - let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ((bool_to_bits true) : mword 1)) in - (if ((isInvalidPTE pbits)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 34) SV32_PTE) - else if ((isPTEPtr pbits)) then - (if sumbool_of_bool ((Z.eqb level 0)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 34) SV32_PTE) - else + let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ('b"1" : mword 1)) in + (if isInvalidPTE pbits ext_pte then returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw)) + else if isPTEPtr pbits ext_pte then + (if sumbool_of_bool (Z.gtb level 0) then (_rec_walk32 vaddr ac priv mxr do_sum (shiftl (EXTZ 34 (_get_SV32_PTE_PPNi pte)) PAGESIZE_BITS) (Z.sub level 1) is_global - (Z.sub _reclimit 1) (_limit_reduces _acc)) - : M (PTW_Result (mword 34) SV32_PTE)) + ext_ptw (Z.sub _reclimit 1) _ (_limit_reduces _acc)) + : M (PTW_Result (mword 34) SV32_PTE) + else returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw))) : M (PTW_Result (mword 34) SV32_PTE) else - (checkPTEPermission ac priv mxr do_sum pattr) >>= fun w__3 : bool => - returnm ((if sumbool_of_bool ((negb w__3)) then PTW_Failure (PTW_No_Permission) - else if sumbool_of_bool ((Z.gtb level 0)) then - let mask := - sub_vec_int - (shiftl - (xor_vec (_get_SV32_PTE_PPNi pte) - (xor_vec (_get_SV32_PTE_PPNi pte) - (EXTZ 22 (vec_of_bits [B1] : mword 1)))) - (Z.mul level SV32_LEVEL_BITS)) 1 in - if ((neq_vec (and_vec (_get_SV32_PTE_PPNi pte) mask) - (EXTZ 22 (vec_of_bits [B0] : mword 1)))) then - PTW_Failure - (PTW_Misaligned) + (checkPTEPermission ac priv mxr do_sum pattr ext_pte ext_ptw) >>= fun w__3 : PTE_Check => + returnm (match w__3 with + | PTE_Check_Failure ext_ptw => PTW_Failure (PTW_No_Permission tt, ext_ptw) + | PTE_Check_Success ext_ptw => + if sumbool_of_bool (Z.gtb level 0) then + let mask := + sub_vec_int + (shiftl + (xor_vec (_get_SV32_PTE_PPNi pte) + (xor_vec (_get_SV32_PTE_PPNi pte) (EXTZ 22 ('b"1" : mword 1)))) + (Z.mul level SV32_LEVEL_BITS)) 1 in + if neq_vec (and_vec (_get_SV32_PTE_PPNi pte) mask) + (EXTZ 22 ('b"0" : mword 1)) then + PTW_Failure (PTW_Misaligned tt, ext_ptw) + else + let ppn := + or_vec (_get_SV32_PTE_PPNi pte) + (and_vec (EXTZ 22 (_get_SV32_Vaddr_VPNi va)) mask) in + PTW_Success + (concat_vec ppn (_get_SV32_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) else - let ppn := - or_vec (_get_SV32_PTE_PPNi pte) - (and_vec (EXTZ 22 (_get_SV32_Vaddr_VPNi va)) mask) in PTW_Success - ((concat_vec ppn (_get_SV32_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global)) - else - PTW_Success - ((concat_vec (_get_SV32_PTE_PPNi pte) (_get_SV32_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global))) - : PTW_Result (mword 34) SV32_PTE)) + (concat_vec (_get_SV32_PTE_PPNi pte) (_get_SV32_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) + end)) : M (PTW_Result (mword 34) SV32_PTE) end) - : M (PTW_Result (mword 34) SV32_PTE). + : M (PTW_Result (mword 34) SV32_PTE) +). +Defined. + Definition walk32 -(_arg0 : mword 32) (_arg1 : AccessType) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) -(_arg5 : mword 34) (level : Z) (_arg7 : bool) `{ArithFact (0 <= level)} +(_arg0 : mword 32) (_arg1 : AccessType unit) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) +(_arg5 : mword 34) (level : Z) (_arg7 : bool) (_arg8 : unit) `{ArithFact (0 <=? level)} : M (PTW_Result (mword 34) SV32_PTE) := - - (_rec_walk32 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 (level : Z) (Zwf_guarded _)) + (_rec_walk32 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 _arg8 (level : Z) (Zwf_guarded _)) : M (PTW_Result (mword 34) SV32_PTE). -Definition lookup_TLB32 (asid : mword 9) (vaddr : mword 32) -: M (option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 9 32 34 32))) := - +Definition lookup_TLB32 (asid : mword 9) (vaddr : mword 32) +: M (option (({n : Z & ArithFact (n >=? 0)} * TLB_Entry 9 32 34 32))) := read_reg tlb32_ref >>= fun w__0 : option (TLB_Entry 9 32 34 32) => - returnm ((match w__0 with - | None => None - | Some (e) => if ((match_TLB_Entry e asid vaddr)) then Some ((build_ex 0, e)) else None - end) - : option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 9 32 34 32))). + returnm (match w__0 with + | None => None + | Some e => if match_TLB_Entry e asid vaddr then Some (build_ex 0, e) else None + end). Definition add_to_TLB32 (asid : mword 9) (vAddr : mword 32) (pAddr : mword 34) (pte : SV32_PTE) (pteAddr : mword 34) -(level : Z) (global : bool) `{ArithFact (0 <= level)} +(level : Z) (global : bool) `{ArithFact (0 <=? level)} : M (unit) := - (make_TLB_Entry asid global vAddr pAddr (_get_SV32_PTE_bits pte) level pteAddr SV32_LEVEL_BITS) >>= fun ent : TLB32_Entry => - write_reg tlb32_ref (Some (ent)) + write_reg tlb32_ref (Some ent) : M (unit). -Definition write_TLB32 (idx : Z) (ent : TLB_Entry 9 32 34 32) `{ArithFact (0 <= idx)} -: M (unit) := - - write_reg tlb32_ref (Some (ent)) - : M (unit). +Definition write_TLB32 (idx : Z) (ent : TLB_Entry 9 32 34 32) `{ArithFact (0 <=? idx)} : M (unit) := + write_reg tlb32_ref (Some ent) : M (unit). -Definition flush_TLB32 (asid : option (mword 9)) (addr : option (mword 32)) -: M (unit) := - +Definition flush_TLB32 (asid : option (mword 9)) (addr : option (mword 32)) : M (unit) := read_reg tlb32_ref >>= fun w__0 : option (TLB_Entry 9 32 34 32) => (match w__0 with - | None => returnm (tt : unit) - | Some (e) => - (if ((flush_TLB_Entry e asid addr)) then write_reg tlb32_ref None : M (unit) - else returnm (tt : unit)) + | None => returnm tt + | Some e => + (if flush_TLB_Entry e asid addr then write_reg tlb32_ref None : M (unit) + else returnm tt) : M (unit) end) : M (unit). Definition translate32 -(asid : mword 9) (ptb : mword 34) (vAddr : mword 32) (ac : AccessType) (priv : Privilege) -(mxr : bool) (do_sum : bool) (level : Z) `{ArithFact (0 <= level)} +(asid : mword 9) (ptb : mword 34) (vAddr : mword 32) (ac : AccessType unit) (priv : Privilege) +(mxr : bool) (do_sum : bool) (level : Z) (ext_ptw : unit) `{ArithFact (0 <=? level)} : M (TR_Result (mword 34) PTW_Error) := - - (lookup_TLB32 asid vAddr) >>= fun w__0 : option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 9 32 34 32)) => + (lookup_TLB32 asid vAddr) >>= fun w__0 : option (({n : Z & ArithFact (n >=? 0)} * TLB_Entry 9 32 34 32)) => (match w__0 with - | Some ((existT _ idx _, ent)) => + | Some (existT _ idx _, ent) => let pte := Mk_SV32_PTE ent.(TLB_Entry_pte) in + let ext_pte : extPte := zeros_implicit 10 in let pteBits := Mk_PTE_Bits (_get_SV32_PTE_BITS pte) in - (checkPTEPermission ac priv mxr do_sum pteBits) >>= fun w__1 : bool => - (if sumbool_of_bool ((negb w__1)) then - returnm ((TR_Failure - (PTW_No_Permission)) - : TR_Result (mword 34) PTW_Error) - else - (match (update_PTE_Bits pteBits ac) with - | None => - returnm ((TR_Address + (checkPTEPermission ac priv mxr do_sum pteBits ext_pte ext_ptw) >>= fun w__1 : PTE_Check => + (match w__1 with + | PTE_Check_Failure ext_ptw => returnm (TR_Failure (PTW_No_Permission tt, ext_ptw)) + | PTE_Check_Success ext_ptw => + (match (update_PTE_Bits pteBits ac ext_pte) with + | None => + returnm (TR_Address (or_vec ent.(TLB_Entry_pAddr) - (EXTZ 34 (and_vec vAddr ent.(TLB_Entry_vAddrMask))))) - : TR_Result (mword 34) PTW_Error) - | Some (pbits) => - (if ((negb (plat_enable_dirty_update tt))) then - returnm ((TR_Failure - (PTW_PTE_Update)) - : TR_Result (mword 34) PTW_Error) - else - let n_pte := _update_SV32_PTE_BITS pte (_get_PTE_Bits_bits pbits) in - let n_ent : TLB32_Entry := ent in - let n_ent := - {[ n_ent with TLB_Entry_pte := (_get_SV32_PTE_bits n_pte) ]} - : TLB_Entry 9 32 34 32 in - (write_TLB32 idx n_ent) >> - (mem_write_value (to_phys_addr (EXTZ 34 ent.(TLB_Entry_pteAddr))) 4 - (_get_SV32_PTE_bits n_pte) false false false) >>= fun w__2 : MemoryOpResult bool => - (match w__2 with - | MemValue (_) => returnm (tt : unit) - | MemException (e) => - (internal_error "invalid physical address in TLB") : M (unit) - end) >> - returnm ((TR_Address + (EXTZ 34 (and_vec vAddr ent.(TLB_Entry_vAddrMask))), ext_ptw)) + | Some (pbits, ext) => + (if negb (plat_enable_dirty_update tt) then + returnm (TR_Failure (PTW_PTE_Update tt, ext_ptw)) + else + let n_pte := _update_SV32_PTE_BITS pte (_get_PTE_Bits_bits pbits) in + let n_ent : TLB32_Entry := ent in + let n_ent := + {[ n_ent with TLB_Entry_pte := (_get_SV32_PTE_bits n_pte) ]} + : TLB_Entry 9 32 34 32 in + (write_TLB32 idx n_ent) >> + (mem_write_value (to_phys_addr (EXTZ 34 ent.(TLB_Entry_pteAddr))) 4 + (_get_SV32_PTE_bits n_pte) false false false) >>= fun w__2 : MemoryOpResult bool => + (match w__2 with + | MemValue _ => returnm tt + | MemException e => + (internal_error "invalid physical address in TLB") : M (unit) + end) >> + returnm (TR_Address (or_vec ent.(TLB_Entry_pAddr) - (EXTZ 34 (and_vec vAddr ent.(TLB_Entry_vAddrMask))))) - : TR_Result (mword 34) PTW_Error)) - : M (TR_Result (mword 34) PTW_Error) - end) - : M (TR_Result (mword 34) PTW_Error)) + (EXTZ 34 (and_vec vAddr ent.(TLB_Entry_vAddrMask))), ext_ptw))) + : M (TR_Result (mword 34) PTW_Error) + end) + : M (TR_Result (mword 34) PTW_Error) + end) : M (TR_Result (mword 34) PTW_Error) | None => - (walk32 vAddr ac priv mxr do_sum ptb level false) >>= fun w__6 : PTW_Result (mword 34) SV32_PTE => + (walk32 vAddr ac priv mxr do_sum ptb level false ext_ptw) >>= fun w__6 : PTW_Result (mword 34) SV32_PTE => (match w__6 with - | PTW_Failure (f) => returnm ((TR_Failure (f)) : TR_Result (mword 34) PTW_Error) - | PTW_Success ((pAddr, pte, pteAddr, existT _ level _, global)) => - (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV32_PTE_BITS pte)) ac) with + | PTW_Failure (f, ext_ptw) => returnm (TR_Failure (f, ext_ptw)) + | PTW_Success (pAddr, pte, pteAddr, existT _ level _, global, ext_ptw) => + (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV32_PTE_BITS pte)) ac (zeros_implicit 10)) with | None => (add_to_TLB32 asid vAddr pAddr pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 34) PTW_Error) - | Some (pbits) => - (if ((negb (plat_enable_dirty_update tt))) then - returnm ((TR_Failure - (PTW_PTE_Update)) - : TR_Result (mword 34) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | Some (pbits, ext) => + (if negb (plat_enable_dirty_update tt) then + returnm (TR_Failure (PTW_PTE_Update tt, ext_ptw)) else let w_pte : SV32_PTE := _update_SV32_PTE_BITS pte (_get_PTE_Bits_bits pbits) in (mem_write_value (to_phys_addr pteAddr) 4 (_get_SV32_PTE_bits w_pte) false false false) >>= fun w__7 : MemoryOpResult bool => (match w__7 with - | MemValue (_) => + | MemValue _ => (add_to_TLB32 asid vAddr pAddr w_pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 34) PTW_Error) - | MemException (e) => - returnm ((TR_Failure (PTW_Access)) : TR_Result (mword 34) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | MemException e => returnm (TR_Failure (PTW_Access tt, ext_ptw)) end) : M (TR_Result (mword 34) PTW_Error)) : M (TR_Result (mword 34) PTW_Error) @@ -13546,213 +13105,161 @@ Definition translate32 end) : M (TR_Result (mword 34) PTW_Error). -Definition init_vmem_sv32 '(tt : unit) : M (unit) := write_reg tlb32_ref None : M (unit). +Definition init_vmem_sv32 '(tt : unit) : M (unit) := write_reg tlb32_ref None : M (unit). -Definition legalize_satp (a : Architecture) (o : mword 32) (v : mword 32) -: mword 32 := - +Definition legalize_satp (a : Architecture) (o : mword 32) (v : mword 32) : mword 32 := legalize_satp32 a o v. -Definition translationMode (priv : Privilege) -: M (SATPMode) := - - (if ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2))) then - returnm (Sbare - : SATPMode) +Definition translationMode (priv : Privilege) : M (SATPMode) := + (if generic_eq priv Machine then returnm Sbare else read_reg mstatus_ref >>= fun w__0 : Mstatus => let arch := architecture (get_mstatus_SXL w__0) in (match arch with - | Some (RV32) => + | Some RV32 => ((read_reg satp_ref) : M (mword 32)) >>= fun w__1 : mword 32 => let s := Mk_Satp32 (subrange_vec_dec w__1 31 0) in - returnm ((if ((eq_vec (_get_Satp32_Mode s) ((bool_to_bits false) : mword 1))) then Sbare - else Sv32) - : SATPMode) + returnm (if eq_vec (_get_Satp32_Mode s) ('b"0" : mword 1) then Sbare else Sv32) | _ => (internal_error "unsupported address translation arch") : M (SATPMode) end) : M (SATPMode)) : M (SATPMode). -Definition translateAddr (vAddr : mword 32) (ac : AccessType) +Definition translateAddr (vAddr : mword 32) (ac : AccessType unit) : M (TR_Result (mword 32) ExceptionType) := - - (match ac with - | Execute => read_reg cur_privilege_ref : M (Privilege) - | _ => - read_reg mstatus_ref >>= fun w__1 : Mstatus => - read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) - : M (Privilege) - end) >>= fun effPriv : Privilege => - read_reg mstatus_ref >>= fun w__4 : Mstatus => - let mxr : bool := eq_vec (_get_Mstatus_MXR w__4) ((bool_to_bits true) : mword 1) in - read_reg mstatus_ref >>= fun w__5 : Mstatus => - let do_sum : bool := eq_vec (_get_Mstatus_SUM w__5) ((bool_to_bits true) : mword 1) in + read_reg mstatus_ref >>= fun w__0 : Mstatus => + read_reg cur_privilege_ref >>= fun w__1 : Privilege => + (effectivePrivilege ac w__0 w__1) >>= fun effPriv : Privilege => + read_reg mstatus_ref >>= fun w__2 : Mstatus => + let mxr : bool := eq_vec (_get_Mstatus_MXR w__2) ('b"1" : mword 1) in + read_reg mstatus_ref >>= fun w__3 : Mstatus => + let do_sum : bool := eq_vec (_get_Mstatus_SUM w__3) ('b"1" : mword 1) in (translationMode effPriv) >>= fun mode : SATPMode => - ((read_reg satp_ref) : M (mword 32)) >>= fun w__6 : mword 32 => - let asid := curAsid32 w__6 in - ((read_reg satp_ref) : M (mword 32)) >>= fun w__7 : mword 32 => - let ptb := curPTB32 w__7 in + ((read_reg satp_ref) : M (mword 32)) >>= fun w__4 : mword 32 => + let asid := curAsid32 w__4 in + ((read_reg satp_ref) : M (mword 32)) >>= fun w__5 : mword 32 => + let ptb := curPTB32 w__5 in + let ext_ptw : ext_ptw := init_ext_ptw in (match mode with - | Sbare => returnm ((TR_Address (vAddr)) : TR_Result (mword 32) ExceptionType) + | Sbare => returnm (TR_Address (vAddr, ext_ptw)) | Sv32 => - (translate32 asid ptb vAddr ac effPriv mxr do_sum (Z.sub SV32_LEVELS 1)) >>= fun w__8 : TR_Result (mword 34) PTW_Error => - returnm ((match w__8 with - | TR_Address (pa) => TR_Address (to_phys_addr pa) - | TR_Failure (f) => TR_Failure (translationException ac f) - end) - : TR_Result (mword 32) ExceptionType) + (translate32 asid ptb vAddr ac effPriv mxr do_sum (Z.sub SV32_LEVELS 1) ext_ptw) >>= fun w__6 : TR_Result (mword 34) PTW_Error => + returnm (match w__6 with + | TR_Address (pa, ext_ptw) => TR_Address (to_phys_addr pa, ext_ptw) + | TR_Failure (f, ext_ptw) => TR_Failure (translationException ac f, ext_ptw) + end) | _ => (internal_error "unsupported address translation scheme") : M (TR_Result (mword 32) ExceptionType) end) : M (TR_Result (mword 32) ExceptionType). -Definition flush_TLB (asid_xlen : option (mword 32)) (addr_xlen : option (mword 32)) -: M (unit) := - +Definition flush_TLB (asid_xlen : option (mword 32)) (addr_xlen : option (mword 32)) : M (unit) := let asid : option asid32 := - match asid_xlen with | None => None | Some (a) => Some (subrange_vec_dec a 8 0) end in + match asid_xlen with | None => None | Some a => Some (subrange_vec_dec a 8 0) end in (flush_TLB32 asid addr_xlen) : M (unit). -Definition init_vmem '(tt : unit) : M (unit) := (init_vmem_sv32 tt) : M (unit). +Definition init_vmem '(tt : unit) : M (unit) := (init_vmem_sv32 tt) : M (unit). -Definition encdec_uop_forwards (arg_ : uop) -: mword 7 := - - match arg_ with - | RISCV_LUI => (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7) - | RISCV_AUIPC => (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7) - end. +Definition encdec_uop_forwards (arg_ : uop) : mword 7 := + match arg_ with | RISCV_LUI => 'b"0110111" : mword 7 | RISCV_AUIPC => 'b"0010111" : mword 7 end. -Definition encdec_uop_backwards (arg_ : mword 7) -: M (uop) := - +Definition encdec_uop_backwards (arg_ : mword 7) : M (uop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7))) then - returnm (RISCV_LUI - : uop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7))) then - returnm (RISCV_AUIPC - : uop) + (if eq_vec b__0 ('b"0110111" : mword 7) then returnm RISCV_LUI + else if eq_vec b__0 ('b"0010111" : mword 7) then returnm RISCV_AUIPC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (uop). -Definition encdec_uop_forwards_matches (arg_ : uop) -: bool := - +Definition encdec_uop_forwards_matches (arg_ : uop) : bool := match arg_ with | RISCV_LUI => true | RISCV_AUIPC => true end. -Definition encdec_uop_backwards_matches (arg_ : mword 7) -: bool := - +Definition encdec_uop_backwards_matches (arg_ : mword 7) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7))) then true + if eq_vec b__0 ('b"0110111" : mword 7) then true + else if eq_vec b__0 ('b"0010111" : mword 7) then true else false. -Definition utype_mnemonic_forwards (arg_ : uop) -: string := - +Definition utype_mnemonic_forwards (arg_ : uop) : string := match arg_ with | RISCV_LUI => "lui" | RISCV_AUIPC => "auipc" end. -Definition utype_mnemonic_backwards (arg_ : string) -: M (uop) := - +Definition utype_mnemonic_backwards (arg_ : string) : M (uop) := let p0_ := arg_ in - (if ((generic_eq p0_ "lui")) then returnm (RISCV_LUI : uop) - else if ((generic_eq p0_ "auipc")) then returnm (RISCV_AUIPC : uop) + (if generic_eq p0_ "lui" then returnm RISCV_LUI + else if generic_eq p0_ "auipc" then returnm RISCV_AUIPC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (uop). -Definition utype_mnemonic_forwards_matches (arg_ : uop) -: bool := - +Definition utype_mnemonic_forwards_matches (arg_ : uop) : bool := match arg_ with | RISCV_LUI => true | RISCV_AUIPC => true end. -Definition utype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition utype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "lui")) then true - else if ((generic_eq p0_ "auipc")) then true + if generic_eq p0_ "lui" then true + else if generic_eq p0_ "auipc" then true else false. -Definition _s496_ (_s497_ : string) -: option string := - - let _s498_ := _s497_ in - if ((string_startswith _s498_ "auipc")) then - match (string_drop _s498_ (projT1 (string_length "auipc"))) with | s_ => Some (s_) end +Definition _s757_ (_s758_ : string) : option string := + let _s759_ := _s758_ in + if string_startswith _s759_ "auipc" then + match (string_drop _s759_ (projT1 (string_length "auipc"))) with | s_ => Some s_ end else None. -Definition _s492_ (_s493_ : string) -: option string := - - let _s494_ := _s493_ in - if ((string_startswith _s494_ "lui")) then - match (string_drop _s494_ (projT1 (string_length "lui"))) with | s_ => Some (s_) end - else None. - -Definition utype_mnemonic_matches_prefix (arg_ : string) -: M (option ((uop * {n : Z & ArithFact (n >= 0)}))) := - - let _s495_ := arg_ in - (if ((match (_s492_ _s495_) with | Some (s_) => true | _ => false end)) then - (match (_s492_ _s495_) with - | Some (s_) => - returnm ((Some - ((RISCV_LUI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((uop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s496_ _s495_) with | Some (s_) => true | _ => false end)) then - (match (_s496_ _s495_) with - | Some (s_) => - returnm ((Some - ((RISCV_AUIPC, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((uop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) +Definition _s753_ (_s754_ : string) : option string := + let _s755_ := _s754_ in + if string_startswith _s755_ "lui" then + match (string_drop _s755_ (projT1 (string_length "lui"))) with | s_ => Some s_ end + else None. + +Definition utype_mnemonic_matches_prefix (arg_ : string) +: M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) := + let _s756_ := arg_ in + (if match (_s753_ _s756_) with | Some s_ => true | _ => false end then + (match (_s753_ _s756_) with + | Some s_ => + returnm (Some + (RISCV_LUI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s757_ _s756_) with | Some s_ => true | _ => false end then + (match (_s757_ _s756_) with + | Some s_ => + returnm (Some + (RISCV_AUIPC, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((uop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_bop_forwards (arg_ : bop) -: mword 3 := - +Definition encdec_bop_forwards (arg_ : bop) : mword 3 := match arg_ with - | RISCV_BEQ => (vec_of_bits [B0;B0;B0] : mword 3) - | RISCV_BNE => (vec_of_bits [B0;B0;B1] : mword 3) - | RISCV_BLT => (vec_of_bits [B1;B0;B0] : mword 3) - | RISCV_BGE => (vec_of_bits [B1;B0;B1] : mword 3) - | RISCV_BLTU => (vec_of_bits [B1;B1;B0] : mword 3) - | RISCV_BGEU => (vec_of_bits [B1;B1;B1] : mword 3) + | RISCV_BEQ => 'b"000" : mword 3 + | RISCV_BNE => 'b"001" : mword 3 + | RISCV_BLT => 'b"100" : mword 3 + | RISCV_BGE => 'b"101" : mword 3 + | RISCV_BLTU => 'b"110" : mword 3 + | RISCV_BGEU => 'b"111" : mword 3 end. -Definition encdec_bop_backwards (arg_ : mword 3) -: M (bop) := - +Definition encdec_bop_backwards (arg_ : mword 3) : M (bop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (RISCV_BEQ : bop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (RISCV_BNE : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm (RISCV_BLT : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_BGE : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm (RISCV_BLTU : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm (RISCV_BGEU : bop) + (if eq_vec b__0 ('b"000" : mword 3) then returnm RISCV_BEQ + else if eq_vec b__0 ('b"001" : mword 3) then returnm RISCV_BNE + else if eq_vec b__0 ('b"100" : mword 3) then returnm RISCV_BLT + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_BGE + else if eq_vec b__0 ('b"110" : mword 3) then returnm RISCV_BLTU + else if eq_vec b__0 ('b"111" : mword 3) then returnm RISCV_BGEU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bop). -Definition encdec_bop_forwards_matches (arg_ : bop) -: bool := - +Definition encdec_bop_forwards_matches (arg_ : bop) : bool := match arg_ with | RISCV_BEQ => true | RISCV_BNE => true @@ -13762,21 +13269,17 @@ Definition encdec_bop_forwards_matches (arg_ : bop) | RISCV_BGEU => true end. -Definition encdec_bop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_bop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true else false. -Definition btype_mnemonic_forwards (arg_ : bop) -: string := - +Definition btype_mnemonic_forwards (arg_ : bop) : string := match arg_ with | RISCV_BEQ => "beq" | RISCV_BNE => "bne" @@ -13786,22 +13289,18 @@ Definition btype_mnemonic_forwards (arg_ : bop) | RISCV_BGEU => "bgeu" end. -Definition btype_mnemonic_backwards (arg_ : string) -: M (bop) := - +Definition btype_mnemonic_backwards (arg_ : string) : M (bop) := let p0_ := arg_ in - (if ((generic_eq p0_ "beq")) then returnm (RISCV_BEQ : bop) - else if ((generic_eq p0_ "bne")) then returnm (RISCV_BNE : bop) - else if ((generic_eq p0_ "blt")) then returnm (RISCV_BLT : bop) - else if ((generic_eq p0_ "bge")) then returnm (RISCV_BGE : bop) - else if ((generic_eq p0_ "bltu")) then returnm (RISCV_BLTU : bop) - else if ((generic_eq p0_ "bgeu")) then returnm (RISCV_BGEU : bop) + (if generic_eq p0_ "beq" then returnm RISCV_BEQ + else if generic_eq p0_ "bne" then returnm RISCV_BNE + else if generic_eq p0_ "blt" then returnm RISCV_BLT + else if generic_eq p0_ "bge" then returnm RISCV_BGE + else if generic_eq p0_ "bltu" then returnm RISCV_BLTU + else if generic_eq p0_ "bgeu" then returnm RISCV_BGEU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bop). -Definition btype_mnemonic_forwards_matches (arg_ : bop) -: bool := - +Definition btype_mnemonic_forwards_matches (arg_ : bop) : bool := match arg_ with | RISCV_BEQ => true | RISCV_BNE => true @@ -13811,167 +13310,140 @@ Definition btype_mnemonic_forwards_matches (arg_ : bop) | RISCV_BGEU => true end. -Definition btype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition btype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "beq")) then true - else if ((generic_eq p0_ "bne")) then true - else if ((generic_eq p0_ "blt")) then true - else if ((generic_eq p0_ "bge")) then true - else if ((generic_eq p0_ "bltu")) then true - else if ((generic_eq p0_ "bgeu")) then true + if generic_eq p0_ "beq" then true + else if generic_eq p0_ "bne" then true + else if generic_eq p0_ "blt" then true + else if generic_eq p0_ "bge" then true + else if generic_eq p0_ "bltu" then true + else if generic_eq p0_ "bgeu" then true else false. -Definition _s520_ (_s521_ : string) -: option string := - - let _s522_ := _s521_ in - if ((string_startswith _s522_ "bgeu")) then - match (string_drop _s522_ (projT1 (string_length "bgeu"))) with | s_ => Some (s_) end +Definition _s781_ (_s782_ : string) : option string := + let _s783_ := _s782_ in + if string_startswith _s783_ "bgeu" then + match (string_drop _s783_ (projT1 (string_length "bgeu"))) with | s_ => Some s_ end else None. -Definition _s516_ (_s517_ : string) -: option string := - - let _s518_ := _s517_ in - if ((string_startswith _s518_ "bltu")) then - match (string_drop _s518_ (projT1 (string_length "bltu"))) with | s_ => Some (s_) end +Definition _s777_ (_s778_ : string) : option string := + let _s779_ := _s778_ in + if string_startswith _s779_ "bltu" then + match (string_drop _s779_ (projT1 (string_length "bltu"))) with | s_ => Some s_ end else None. -Definition _s512_ (_s513_ : string) -: option string := - - let _s514_ := _s513_ in - if ((string_startswith _s514_ "bge")) then - match (string_drop _s514_ (projT1 (string_length "bge"))) with | s_ => Some (s_) end +Definition _s773_ (_s774_ : string) : option string := + let _s775_ := _s774_ in + if string_startswith _s775_ "bge" then + match (string_drop _s775_ (projT1 (string_length "bge"))) with | s_ => Some s_ end else None. -Definition _s508_ (_s509_ : string) -: option string := - - let _s510_ := _s509_ in - if ((string_startswith _s510_ "blt")) then - match (string_drop _s510_ (projT1 (string_length "blt"))) with | s_ => Some (s_) end +Definition _s769_ (_s770_ : string) : option string := + let _s771_ := _s770_ in + if string_startswith _s771_ "blt" then + match (string_drop _s771_ (projT1 (string_length "blt"))) with | s_ => Some s_ end else None. -Definition _s504_ (_s505_ : string) -: option string := - - let _s506_ := _s505_ in - if ((string_startswith _s506_ "bne")) then - match (string_drop _s506_ (projT1 (string_length "bne"))) with | s_ => Some (s_) end +Definition _s765_ (_s766_ : string) : option string := + let _s767_ := _s766_ in + if string_startswith _s767_ "bne" then + match (string_drop _s767_ (projT1 (string_length "bne"))) with | s_ => Some s_ end else None. -Definition _s500_ (_s501_ : string) -: option string := - - let _s502_ := _s501_ in - if ((string_startswith _s502_ "beq")) then - match (string_drop _s502_ (projT1 (string_length "beq"))) with | s_ => Some (s_) end - else None. - -Definition btype_mnemonic_matches_prefix (arg_ : string) -: M (option ((bop * {n : Z & ArithFact (n >= 0)}))) := - - let _s503_ := arg_ in - (if ((match (_s500_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s500_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BEQ, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s504_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s504_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BNE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s508_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s508_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BLT, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s512_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s512_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BGE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s516_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s516_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BLTU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s520_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s520_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BGEU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) +Definition _s761_ (_s762_ : string) : option string := + let _s763_ := _s762_ in + if string_startswith _s763_ "beq" then + match (string_drop _s763_ (projT1 (string_length "beq"))) with | s_ => Some s_ end + else None. + +Definition btype_mnemonic_matches_prefix (arg_ : string) +: M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) := + let _s764_ := arg_ in + (if match (_s761_ _s764_) with | Some s_ => true | _ => false end then + (match (_s761_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BEQ, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s765_ _s764_) with | Some s_ => true | _ => false end then + (match (_s765_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BNE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s769_ _s764_) with | Some s_ => true | _ => false end then + (match (_s769_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BLT, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s773_ _s764_) with | Some s_ => true | _ => false end then + (match (_s773_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BGE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s777_ _s764_) with | Some s_ => true | _ => false end then + (match (_s777_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BLTU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s781_ _s764_) with | Some s_ => true | _ => false end then + (match (_s781_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BGEU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_iop_forwards (arg_ : iop) -: mword 3 := - +Definition encdec_iop_forwards (arg_ : iop) : mword 3 := match arg_ with - | RISCV_ADDI => (vec_of_bits [B0;B0;B0] : mword 3) - | RISCV_SLTI => (vec_of_bits [B0;B1;B0] : mword 3) - | RISCV_SLTIU => (vec_of_bits [B0;B1;B1] : mword 3) - | RISCV_ANDI => (vec_of_bits [B1;B1;B1] : mword 3) - | RISCV_ORI => (vec_of_bits [B1;B1;B0] : mword 3) - | RISCV_XORI => (vec_of_bits [B1;B0;B0] : mword 3) + | RISCV_ADDI => 'b"000" : mword 3 + | RISCV_SLTI => 'b"010" : mword 3 + | RISCV_SLTIU => 'b"011" : mword 3 + | RISCV_ANDI => 'b"111" : mword 3 + | RISCV_ORI => 'b"110" : mword 3 + | RISCV_XORI => 'b"100" : mword 3 end. -Definition encdec_iop_backwards (arg_ : mword 3) -: M (iop) := - +Definition encdec_iop_backwards (arg_ : mword 3) : M (iop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (RISCV_ADDI : iop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm (RISCV_SLTI : iop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm (RISCV_SLTIU : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm (RISCV_ANDI : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm (RISCV_ORI : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm (RISCV_XORI : iop) + (if eq_vec b__0 ('b"000" : mword 3) then returnm RISCV_ADDI + else if eq_vec b__0 ('b"010" : mword 3) then returnm RISCV_SLTI + else if eq_vec b__0 ('b"011" : mword 3) then returnm RISCV_SLTIU + else if eq_vec b__0 ('b"111" : mword 3) then returnm RISCV_ANDI + else if eq_vec b__0 ('b"110" : mword 3) then returnm RISCV_ORI + else if eq_vec b__0 ('b"100" : mword 3) then returnm RISCV_XORI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (iop). -Definition encdec_iop_forwards_matches (arg_ : iop) -: bool := - +Definition encdec_iop_forwards_matches (arg_ : iop) : bool := match arg_ with | RISCV_ADDI => true | RISCV_SLTI => true @@ -13981,21 +13453,17 @@ Definition encdec_iop_forwards_matches (arg_ : iop) | RISCV_XORI => true end. -Definition encdec_iop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_iop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true else false. -Definition itype_mnemonic_forwards (arg_ : iop) -: string := - +Definition itype_mnemonic_forwards (arg_ : iop) : string := match arg_ with | RISCV_ADDI => "addi" | RISCV_SLTI => "slti" @@ -14005,22 +13473,18 @@ Definition itype_mnemonic_forwards (arg_ : iop) | RISCV_ANDI => "andi" end. -Definition itype_mnemonic_backwards (arg_ : string) -: M (iop) := - +Definition itype_mnemonic_backwards (arg_ : string) : M (iop) := let p0_ := arg_ in - (if ((generic_eq p0_ "addi")) then returnm (RISCV_ADDI : iop) - else if ((generic_eq p0_ "slti")) then returnm (RISCV_SLTI : iop) - else if ((generic_eq p0_ "sltiu")) then returnm (RISCV_SLTIU : iop) - else if ((generic_eq p0_ "xori")) then returnm (RISCV_XORI : iop) - else if ((generic_eq p0_ "ori")) then returnm (RISCV_ORI : iop) - else if ((generic_eq p0_ "andi")) then returnm (RISCV_ANDI : iop) + (if generic_eq p0_ "addi" then returnm RISCV_ADDI + else if generic_eq p0_ "slti" then returnm RISCV_SLTI + else if generic_eq p0_ "sltiu" then returnm RISCV_SLTIU + else if generic_eq p0_ "xori" then returnm RISCV_XORI + else if generic_eq p0_ "ori" then returnm RISCV_ORI + else if generic_eq p0_ "andi" then returnm RISCV_ANDI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (iop). -Definition itype_mnemonic_forwards_matches (arg_ : iop) -: bool := - +Definition itype_mnemonic_forwards_matches (arg_ : iop) : bool := match arg_ with | RISCV_ADDI => true | RISCV_SLTI => true @@ -14030,268 +13494,219 @@ Definition itype_mnemonic_forwards_matches (arg_ : iop) | RISCV_ANDI => true end. -Definition itype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition itype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "addi")) then true - else if ((generic_eq p0_ "slti")) then true - else if ((generic_eq p0_ "sltiu")) then true - else if ((generic_eq p0_ "xori")) then true - else if ((generic_eq p0_ "ori")) then true - else if ((generic_eq p0_ "andi")) then true + if generic_eq p0_ "addi" then true + else if generic_eq p0_ "slti" then true + else if generic_eq p0_ "sltiu" then true + else if generic_eq p0_ "xori" then true + else if generic_eq p0_ "ori" then true + else if generic_eq p0_ "andi" then true else false. -Definition _s544_ (_s545_ : string) -: option string := - - let _s546_ := _s545_ in - if ((string_startswith _s546_ "andi")) then - match (string_drop _s546_ (projT1 (string_length "andi"))) with | s_ => Some (s_) end +Definition _s805_ (_s806_ : string) : option string := + let _s807_ := _s806_ in + if string_startswith _s807_ "andi" then + match (string_drop _s807_ (projT1 (string_length "andi"))) with | s_ => Some s_ end else None. -Definition _s540_ (_s541_ : string) -: option string := - - let _s542_ := _s541_ in - if ((string_startswith _s542_ "ori")) then - match (string_drop _s542_ (projT1 (string_length "ori"))) with | s_ => Some (s_) end +Definition _s801_ (_s802_ : string) : option string := + let _s803_ := _s802_ in + if string_startswith _s803_ "ori" then + match (string_drop _s803_ (projT1 (string_length "ori"))) with | s_ => Some s_ end else None. -Definition _s536_ (_s537_ : string) -: option string := - - let _s538_ := _s537_ in - if ((string_startswith _s538_ "xori")) then - match (string_drop _s538_ (projT1 (string_length "xori"))) with | s_ => Some (s_) end +Definition _s797_ (_s798_ : string) : option string := + let _s799_ := _s798_ in + if string_startswith _s799_ "xori" then + match (string_drop _s799_ (projT1 (string_length "xori"))) with | s_ => Some s_ end else None. -Definition _s532_ (_s533_ : string) -: option string := - - let _s534_ := _s533_ in - if ((string_startswith _s534_ "sltiu")) then - match (string_drop _s534_ (projT1 (string_length "sltiu"))) with | s_ => Some (s_) end +Definition _s793_ (_s794_ : string) : option string := + let _s795_ := _s794_ in + if string_startswith _s795_ "sltiu" then + match (string_drop _s795_ (projT1 (string_length "sltiu"))) with | s_ => Some s_ end else None. -Definition _s528_ (_s529_ : string) -: option string := - - let _s530_ := _s529_ in - if ((string_startswith _s530_ "slti")) then - match (string_drop _s530_ (projT1 (string_length "slti"))) with | s_ => Some (s_) end +Definition _s789_ (_s790_ : string) : option string := + let _s791_ := _s790_ in + if string_startswith _s791_ "slti" then + match (string_drop _s791_ (projT1 (string_length "slti"))) with | s_ => Some s_ end else None. -Definition _s524_ (_s525_ : string) -: option string := - - let _s526_ := _s525_ in - if ((string_startswith _s526_ "addi")) then - match (string_drop _s526_ (projT1 (string_length "addi"))) with | s_ => Some (s_) end - else None. - -Definition itype_mnemonic_matches_prefix (arg_ : string) -: M (option ((iop * {n : Z & ArithFact (n >= 0)}))) := - - let _s527_ := arg_ in - (if ((match (_s524_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s524_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADDI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s528_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s528_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s532_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s532_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTIU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s536_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s536_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_XORI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s540_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s540_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ORI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s544_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s544_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ANDI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) +Definition _s785_ (_s786_ : string) : option string := + let _s787_ := _s786_ in + if string_startswith _s787_ "addi" then + match (string_drop _s787_ (projT1 (string_length "addi"))) with | s_ => Some s_ end + else None. + +Definition itype_mnemonic_matches_prefix (arg_ : string) +: M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) := + let _s788_ := arg_ in + (if match (_s785_ _s788_) with | Some s_ => true | _ => false end then + (match (_s785_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ADDI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s789_ _s788_) with | Some s_ => true | _ => false end then + (match (_s789_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_SLTI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s793_ _s788_) with | Some s_ => true | _ => false end then + (match (_s793_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_SLTIU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s797_ _s788_) with | Some s_ => true | _ => false end then + (match (_s797_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_XORI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s801_ _s788_) with | Some s_ => true | _ => false end then + (match (_s801_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ORI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s805_ _s788_) with | Some s_ => true | _ => false end then + (match (_s805_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ANDI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((iop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_sop_forwards (arg_ : sop) -: mword 3 := - +Definition encdec_sop_forwards (arg_ : sop) : mword 3 := match arg_ with - | RISCV_SLLI => (vec_of_bits [B0;B0;B1] : mword 3) - | RISCV_SRLI => (vec_of_bits [B1;B0;B1] : mword 3) - | RISCV_SRAI => (vec_of_bits [B1;B0;B1] : mword 3) + | RISCV_SLLI => 'b"001" : mword 3 + | RISCV_SRLI => 'b"101" : mword 3 + | RISCV_SRAI => 'b"101" : mword 3 end. -Definition encdec_sop_backwards (arg_ : mword 3) -: M (sop) := - +Definition encdec_sop_backwards (arg_ : mword 3) : M (sop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (RISCV_SLLI : sop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_SRLI : sop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_SRAI : sop) + (if eq_vec b__0 ('b"001" : mword 3) then returnm RISCV_SLLI + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_SRLI + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition encdec_sop_forwards_matches (arg_ : sop) -: bool := - +Definition encdec_sop_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition encdec_sop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_sop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true + if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true else false. -Definition shiftiop_mnemonic_forwards (arg_ : sop) -: string := - +Definition shiftiop_mnemonic_forwards (arg_ : sop) : string := match arg_ with | RISCV_SLLI => "slli" | RISCV_SRLI => "srli" | RISCV_SRAI => "srai" end. -Definition shiftiop_mnemonic_backwards (arg_ : string) -: M (sop) := - +Definition shiftiop_mnemonic_backwards (arg_ : string) : M (sop) := let p0_ := arg_ in - (if ((generic_eq p0_ "slli")) then returnm (RISCV_SLLI : sop) - else if ((generic_eq p0_ "srli")) then returnm (RISCV_SRLI : sop) - else if ((generic_eq p0_ "srai")) then returnm (RISCV_SRAI : sop) + (if generic_eq p0_ "slli" then returnm RISCV_SLLI + else if generic_eq p0_ "srli" then returnm RISCV_SRLI + else if generic_eq p0_ "srai" then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition shiftiop_mnemonic_forwards_matches (arg_ : sop) -: bool := - +Definition shiftiop_mnemonic_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition shiftiop_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftiop_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slli")) then true - else if ((generic_eq p0_ "srli")) then true - else if ((generic_eq p0_ "srai")) then true + if generic_eq p0_ "slli" then true + else if generic_eq p0_ "srli" then true + else if generic_eq p0_ "srai" then true else false. -Definition _s556_ (_s557_ : string) -: option string := - - let _s558_ := _s557_ in - if ((string_startswith _s558_ "srai")) then - match (string_drop _s558_ (projT1 (string_length "srai"))) with | s_ => Some (s_) end +Definition _s817_ (_s818_ : string) : option string := + let _s819_ := _s818_ in + if string_startswith _s819_ "srai" then + match (string_drop _s819_ (projT1 (string_length "srai"))) with | s_ => Some s_ end else None. -Definition _s552_ (_s553_ : string) -: option string := - - let _s554_ := _s553_ in - if ((string_startswith _s554_ "srli")) then - match (string_drop _s554_ (projT1 (string_length "srli"))) with | s_ => Some (s_) end +Definition _s813_ (_s814_ : string) : option string := + let _s815_ := _s814_ in + if string_startswith _s815_ "srli" then + match (string_drop _s815_ (projT1 (string_length "srli"))) with | s_ => Some s_ end else None. -Definition _s548_ (_s549_ : string) -: option string := - - let _s550_ := _s549_ in - if ((string_startswith _s550_ "slli")) then - match (string_drop _s550_ (projT1 (string_length "slli"))) with | s_ => Some (s_) end - else None. - -Definition shiftiop_mnemonic_matches_prefix (arg_ : string) -: M (option ((sop * {n : Z & ArithFact (n >= 0)}))) := - - let _s551_ := arg_ in - (if ((match (_s548_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s548_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s552_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s552_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s556_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s556_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) +Definition _s809_ (_s810_ : string) : option string := + let _s811_ := _s810_ in + if string_startswith _s811_ "slli" then + match (string_drop _s811_ (projT1 (string_length "slli"))) with | s_ => Some s_ end + else None. + +Definition shiftiop_mnemonic_matches_prefix (arg_ : string) +: M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) := + let _s812_ := arg_ in + (if match (_s809_ _s812_) with | Some s_ => true | _ => false end then + (match (_s809_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SLLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s813_ _s812_) with | Some s_ => true | _ => false end then + (match (_s813_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SRLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s817_ _s812_) with | Some s_ => true | _ => false end then + (match (_s817_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SRAI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))). -Definition rtype_mnemonic_forwards (arg_ : rop) -: string := - +Definition rtype_mnemonic_forwards (arg_ : rop) : string := match arg_ with | RISCV_ADD => "add" | RISCV_SLT => "slt" @@ -14305,26 +13720,22 @@ Definition rtype_mnemonic_forwards (arg_ : rop) | RISCV_SRA => "sra" end. -Definition rtype_mnemonic_backwards (arg_ : string) -: M (rop) := - +Definition rtype_mnemonic_backwards (arg_ : string) : M (rop) := let p0_ := arg_ in - (if ((generic_eq p0_ "add")) then returnm (RISCV_ADD : rop) - else if ((generic_eq p0_ "slt")) then returnm (RISCV_SLT : rop) - else if ((generic_eq p0_ "sltu")) then returnm (RISCV_SLTU : rop) - else if ((generic_eq p0_ "and")) then returnm (RISCV_AND : rop) - else if ((generic_eq p0_ "or")) then returnm (RISCV_OR : rop) - else if ((generic_eq p0_ "xor")) then returnm (RISCV_XOR : rop) - else if ((generic_eq p0_ "sll")) then returnm (RISCV_SLL : rop) - else if ((generic_eq p0_ "srl")) then returnm (RISCV_SRL : rop) - else if ((generic_eq p0_ "sub")) then returnm (RISCV_SUB : rop) - else if ((generic_eq p0_ "sra")) then returnm (RISCV_SRA : rop) + (if generic_eq p0_ "add" then returnm RISCV_ADD + else if generic_eq p0_ "slt" then returnm RISCV_SLT + else if generic_eq p0_ "sltu" then returnm RISCV_SLTU + else if generic_eq p0_ "and" then returnm RISCV_AND + else if generic_eq p0_ "or" then returnm RISCV_OR + else if generic_eq p0_ "xor" then returnm RISCV_XOR + else if generic_eq p0_ "sll" then returnm RISCV_SLL + else if generic_eq p0_ "srl" then returnm RISCV_SRL + else if generic_eq p0_ "sub" then returnm RISCV_SUB + else if generic_eq p0_ "sra" then returnm RISCV_SRA else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (rop). -Definition rtype_mnemonic_forwards_matches (arg_ : rop) -: bool := - +Definition rtype_mnemonic_forwards_matches (arg_ : rop) : bool := match arg_ with | RISCV_ADD => true | RISCV_SLT => true @@ -14338,620 +13749,464 @@ Definition rtype_mnemonic_forwards_matches (arg_ : rop) | RISCV_SRA => true end. -Definition rtype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition rtype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "add")) then true - else if ((generic_eq p0_ "slt")) then true - else if ((generic_eq p0_ "sltu")) then true - else if ((generic_eq p0_ "and")) then true - else if ((generic_eq p0_ "or")) then true - else if ((generic_eq p0_ "xor")) then true - else if ((generic_eq p0_ "sll")) then true - else if ((generic_eq p0_ "srl")) then true - else if ((generic_eq p0_ "sub")) then true - else if ((generic_eq p0_ "sra")) then true + if generic_eq p0_ "add" then true + else if generic_eq p0_ "slt" then true + else if generic_eq p0_ "sltu" then true + else if generic_eq p0_ "and" then true + else if generic_eq p0_ "or" then true + else if generic_eq p0_ "xor" then true + else if generic_eq p0_ "sll" then true + else if generic_eq p0_ "srl" then true + else if generic_eq p0_ "sub" then true + else if generic_eq p0_ "sra" then true else false. -Definition _s596_ (_s597_ : string) -: option string := - - let _s598_ := _s597_ in - if ((string_startswith _s598_ "sra")) then - match (string_drop _s598_ (projT1 (string_length "sra"))) with | s_ => Some (s_) end +Definition _s857_ (_s858_ : string) : option string := + let _s859_ := _s858_ in + if string_startswith _s859_ "sra" then + match (string_drop _s859_ (projT1 (string_length "sra"))) with | s_ => Some s_ end else None. -Definition _s592_ (_s593_ : string) -: option string := - - let _s594_ := _s593_ in - if ((string_startswith _s594_ "sub")) then - match (string_drop _s594_ (projT1 (string_length "sub"))) with | s_ => Some (s_) end +Definition _s853_ (_s854_ : string) : option string := + let _s855_ := _s854_ in + if string_startswith _s855_ "sub" then + match (string_drop _s855_ (projT1 (string_length "sub"))) with | s_ => Some s_ end else None. -Definition _s588_ (_s589_ : string) -: option string := - - let _s590_ := _s589_ in - if ((string_startswith _s590_ "srl")) then - match (string_drop _s590_ (projT1 (string_length "srl"))) with | s_ => Some (s_) end +Definition _s849_ (_s850_ : string) : option string := + let _s851_ := _s850_ in + if string_startswith _s851_ "srl" then + match (string_drop _s851_ (projT1 (string_length "srl"))) with | s_ => Some s_ end else None. -Definition _s584_ (_s585_ : string) -: option string := - - let _s586_ := _s585_ in - if ((string_startswith _s586_ "sll")) then - match (string_drop _s586_ (projT1 (string_length "sll"))) with | s_ => Some (s_) end +Definition _s845_ (_s846_ : string) : option string := + let _s847_ := _s846_ in + if string_startswith _s847_ "sll" then + match (string_drop _s847_ (projT1 (string_length "sll"))) with | s_ => Some s_ end else None. -Definition _s580_ (_s581_ : string) -: option string := - - let _s582_ := _s581_ in - if ((string_startswith _s582_ "xor")) then - match (string_drop _s582_ (projT1 (string_length "xor"))) with | s_ => Some (s_) end +Definition _s841_ (_s842_ : string) : option string := + let _s843_ := _s842_ in + if string_startswith _s843_ "xor" then + match (string_drop _s843_ (projT1 (string_length "xor"))) with | s_ => Some s_ end else None. -Definition _s576_ (_s577_ : string) -: option string := - - let _s578_ := _s577_ in - if ((string_startswith _s578_ "or")) then - match (string_drop _s578_ (projT1 (string_length "or"))) with | s_ => Some (s_) end +Definition _s837_ (_s838_ : string) : option string := + let _s839_ := _s838_ in + if string_startswith _s839_ "or" then + match (string_drop _s839_ (projT1 (string_length "or"))) with | s_ => Some s_ end else None. -Definition _s572_ (_s573_ : string) -: option string := - - let _s574_ := _s573_ in - if ((string_startswith _s574_ "and")) then - match (string_drop _s574_ (projT1 (string_length "and"))) with | s_ => Some (s_) end +Definition _s833_ (_s834_ : string) : option string := + let _s835_ := _s834_ in + if string_startswith _s835_ "and" then + match (string_drop _s835_ (projT1 (string_length "and"))) with | s_ => Some s_ end else None. -Definition _s568_ (_s569_ : string) -: option string := - - let _s570_ := _s569_ in - if ((string_startswith _s570_ "sltu")) then - match (string_drop _s570_ (projT1 (string_length "sltu"))) with | s_ => Some (s_) end +Definition _s829_ (_s830_ : string) : option string := + let _s831_ := _s830_ in + if string_startswith _s831_ "sltu" then + match (string_drop _s831_ (projT1 (string_length "sltu"))) with | s_ => Some s_ end else None. -Definition _s564_ (_s565_ : string) -: option string := - - let _s566_ := _s565_ in - if ((string_startswith _s566_ "slt")) then - match (string_drop _s566_ (projT1 (string_length "slt"))) with | s_ => Some (s_) end +Definition _s825_ (_s826_ : string) : option string := + let _s827_ := _s826_ in + if string_startswith _s827_ "slt" then + match (string_drop _s827_ (projT1 (string_length "slt"))) with | s_ => Some s_ end else None. -Definition _s560_ (_s561_ : string) -: option string := - - let _s562_ := _s561_ in - if ((string_startswith _s562_ "add")) then - match (string_drop _s562_ (projT1 (string_length "add"))) with | s_ => Some (s_) end - else None. - -Definition rtype_mnemonic_matches_prefix (arg_ : string) -: M (option ((rop * {n : Z & ArithFact (n >= 0)}))) := - - let _s563_ := arg_ in - (if ((match (_s560_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s560_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s564_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s564_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLT, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s568_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s568_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s572_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s572_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_AND, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s576_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s576_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_OR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s580_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s580_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_XOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s584_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s584_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLL, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s588_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s588_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRL, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s592_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s592_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SUB, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s596_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s596_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRA, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) +Definition _s821_ (_s822_ : string) : option string := + let _s823_ := _s822_ in + if string_startswith _s823_ "add" then + match (string_drop _s823_ (projT1 (string_length "add"))) with | s_ => Some s_ end + else None. + +Definition rtype_mnemonic_matches_prefix (arg_ : string) +: M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) := + let _s824_ := arg_ in + (if match (_s821_ _s824_) with | Some s_ => true | _ => false end then + (match (_s821_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_ADD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s825_ _s824_) with | Some s_ => true | _ => false end then + (match (_s825_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLT, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s829_ _s824_) with | Some s_ => true | _ => false end then + (match (_s829_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLTU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s833_ _s824_) with | Some s_ => true | _ => false end then + (match (_s833_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_AND, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s837_ _s824_) with | Some s_ => true | _ => false end then + (match (_s837_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_OR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s841_ _s824_) with | Some s_ => true | _ => false end then + (match (_s841_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_XOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s845_ _s824_) with | Some s_ => true | _ => false end then + (match (_s845_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLL, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s849_ _s824_) with | Some s_ => true | _ => false end then + (match (_s849_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SRL, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s853_ _s824_) with | Some s_ => true | _ => false end then + (match (_s853_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SUB, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s857_ _s824_) with | Some s_ => true | _ => false end then + (match (_s857_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SRA, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((rop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))). Definition extend_value {n : Z} (is_unsigned : bool) (value : MemoryOpResult (mword (8 * n))) -`{ArithFact (0 < n /\ n <= 4)} +`{ArithFact ((0 <? n) && (n <=? 4))} : MemoryOpResult (mword 32) := - match value with - | MemValue (v) => - MemValue (if sumbool_of_bool (is_unsigned) then EXTZ 32 v else (EXTS 32 v) : xlenbits) - | MemException (e) => MemException (e) + | MemValue v => + MemValue (if sumbool_of_bool is_unsigned then EXTZ 32 v else (EXTS 32 v) : xlenbits) + | MemException e => MemException e end. Definition process_load {n : Z} -(rd : mword 5) (addr : mword 32) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) -`{ArithFact (0 < n /\ n <= 4)} +(rd : mword 5) (vaddr : mword 32) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) +`{ArithFact ((0 <? n) && (n <=? 4))} : M (Retired) := - (match (extend_value is_unsigned value) with - | MemValue (result) => - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - | MemException (e) => (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemValue result => (wX_bits rd result) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL end) : M (Retired). -Definition check_misaligned (vaddr : mword 32) (width : word_width) -: M (bool) := - - (if ((plat_enable_misaligned_access tt)) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) - else - (match width with - | BYTE => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) - | HALF => - (bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__0 : bool => - returnm ((Bool.eqb w__0 true) - : bool) - | WORD => - (or_boolM - ((bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__1 : bool => - returnm ((Bool.eqb w__1 true) - : bool)) - ((bit_to_bool (access_vec_dec vaddr 1)) >>= fun w__2 : bool => - returnm ((Bool.eqb w__2 true) - : bool))) - : M (bool) - | DOUBLE => - (or_boolM - ((bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__4 : bool => - returnm ((Bool.eqb w__4 true) - : bool)) - ((or_boolM - ((bit_to_bool (access_vec_dec vaddr 1)) >>= fun w__5 : bool => - returnm ((Bool.eqb w__5 true) - : bool)) - ((bit_to_bool (access_vec_dec vaddr 2)) >>= fun w__6 : bool => - returnm ((Bool.eqb w__6 true) - : bool))) - : M (bool))) - : M (bool) - end) - : M (bool)) - : M (bool). - -Definition maybe_aq_forwards (arg_ : bool) -: string := - +Definition check_misaligned (vaddr : mword 32) (width : word_width) : bool := + if plat_enable_misaligned_access tt then false + else + match width with + | BYTE => false + | HALF => eq_bit (access_vec_dec vaddr 0) B1 + | WORD => orb (eq_bit (access_vec_dec vaddr 0) B1) (eq_bit (access_vec_dec vaddr 1) B1) + | DOUBLE => + orb (eq_bit (access_vec_dec vaddr 0) B1) + (orb (eq_bit (access_vec_dec vaddr 1) B1) (eq_bit (access_vec_dec vaddr 2) B1)) + end. + +Definition maybe_aq_forwards (arg_ : bool) : string := match arg_ with | true => ".aq" | false => "" end. -Definition maybe_aq_backwards (arg_ : string) -: M (bool) := - +Definition maybe_aq_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ ".aq")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ ".aq" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_aq_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_aq_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_aq_backwards_matches (arg_ : string) -: bool := - +Definition maybe_aq_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ ".aq")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ ".aq" then true + else if generic_eq p0_ "" then true else false. -Definition _s604_ (_s605_ : string) -: option string := - - let _s606_ := _s605_ in - if ((string_startswith _s606_ "")) then - match (string_drop _s606_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s865_ (_s866_ : string) : option string := + let _s867_ := _s866_ in + if string_startswith _s867_ "" then + match (string_drop _s867_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s600_ (_s601_ : string) -: option string := - - let _s602_ := _s601_ in - if ((string_startswith _s602_ ".aq")) then - match (string_drop _s602_ (projT1 (string_length ".aq"))) with | s_ => Some (s_) end - else None. - -Definition maybe_aq_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s603_ := arg_ in - (if ((match (_s600_ _s603_) with | Some (s_) => true | _ => false end)) then - (match (_s600_ _s603_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s604_ _s603_) with | Some (s_) => true | _ => false end)) then - (match (_s604_ _s603_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s861_ (_s862_ : string) : option string := + let _s863_ := _s862_ in + if string_startswith _s863_ ".aq" then + match (string_drop _s863_ (projT1 (string_length ".aq"))) with | s_ => Some s_ end + else None. + +Definition maybe_aq_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s864_ := arg_ in + (if match (_s861_ _s864_) with | Some s_ => true | _ => false end then + (match (_s861_ _s864_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s865_ _s864_) with | Some s_ => true | _ => false end then + (match (_s865_ _s864_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_rl_forwards (arg_ : bool) -: string := - +Definition maybe_rl_forwards (arg_ : bool) : string := match arg_ with | true => ".rl" | false => "" end. -Definition maybe_rl_backwards (arg_ : string) -: M (bool) := - +Definition maybe_rl_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ ".rl")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ ".rl" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_rl_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_rl_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_rl_backwards_matches (arg_ : string) -: bool := - +Definition maybe_rl_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ ".rl")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ ".rl" then true + else if generic_eq p0_ "" then true else false. -Definition _s612_ (_s613_ : string) -: option string := - - let _s614_ := _s613_ in - if ((string_startswith _s614_ "")) then - match (string_drop _s614_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s873_ (_s874_ : string) : option string := + let _s875_ := _s874_ in + if string_startswith _s875_ "" then + match (string_drop _s875_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s608_ (_s609_ : string) -: option string := - - let _s610_ := _s609_ in - if ((string_startswith _s610_ ".rl")) then - match (string_drop _s610_ (projT1 (string_length ".rl"))) with | s_ => Some (s_) end - else None. - -Definition maybe_rl_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s611_ := arg_ in - (if ((match (_s608_ _s611_) with | Some (s_) => true | _ => false end)) then - (match (_s608_ _s611_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s612_ _s611_) with | Some (s_) => true | _ => false end)) then - (match (_s612_ _s611_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s869_ (_s870_ : string) : option string := + let _s871_ := _s870_ in + if string_startswith _s871_ ".rl" then + match (string_drop _s871_ (projT1 (string_length ".rl"))) with | s_ => Some s_ end + else None. + +Definition maybe_rl_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s872_ := arg_ in + (if match (_s869_ _s872_) with | Some s_ => true | _ => false end then + (match (_s869_ _s872_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s873_ _s872_) with | Some s_ => true | _ => false end then + (match (_s873_ _s872_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_u_forwards (arg_ : bool) -: string := - +Definition maybe_u_forwards (arg_ : bool) : string := match arg_ with | true => "u" | false => "" end. -Definition maybe_u_backwards (arg_ : string) -: M (bool) := - +Definition maybe_u_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "u")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ "u" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_u_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_u_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_u_backwards_matches (arg_ : string) -: bool := - +Definition maybe_u_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "u")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "u" then true + else if generic_eq p0_ "" then true else false. -Definition _s620_ (_s621_ : string) -: option string := - - let _s622_ := _s621_ in - if ((string_startswith _s622_ "")) then - match (string_drop _s622_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s881_ (_s882_ : string) : option string := + let _s883_ := _s882_ in + if string_startswith _s883_ "" then + match (string_drop _s883_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s616_ (_s617_ : string) -: option string := - - let _s618_ := _s617_ in - if ((string_startswith _s618_ "u")) then - match (string_drop _s618_ (projT1 (string_length "u"))) with | s_ => Some (s_) end - else None. - -Definition maybe_u_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s619_ := arg_ in - (if ((match (_s616_ _s619_) with | Some (s_) => true | _ => false end)) then - (match (_s616_ _s619_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s620_ _s619_) with | Some (s_) => true | _ => false end)) then - (match (_s620_ _s619_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s877_ (_s878_ : string) : option string := + let _s879_ := _s878_ in + if string_startswith _s879_ "u" then + match (string_drop _s879_ (projT1 (string_length "u"))) with | s_ => Some s_ end + else None. + +Definition maybe_u_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s880_ := arg_ in + (if match (_s877_ _s880_) with | Some s_ => true | _ => false end then + (match (_s877_ _s880_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s881_ _s880_) with | Some s_ => true | _ => false end then + (match (_s881_ _s880_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition shiftw_mnemonic_forwards (arg_ : sop) -: string := - +Definition shiftw_mnemonic_forwards (arg_ : sop) : string := match arg_ with | RISCV_SLLI => "slli" | RISCV_SRLI => "srli" | RISCV_SRAI => "srai" end. -Definition shiftw_mnemonic_backwards (arg_ : string) -: M (sop) := - +Definition shiftw_mnemonic_backwards (arg_ : string) : M (sop) := let p0_ := arg_ in - (if ((generic_eq p0_ "slli")) then returnm (RISCV_SLLI : sop) - else if ((generic_eq p0_ "srli")) then returnm (RISCV_SRLI : sop) - else if ((generic_eq p0_ "srai")) then returnm (RISCV_SRAI : sop) + (if generic_eq p0_ "slli" then returnm RISCV_SLLI + else if generic_eq p0_ "srli" then returnm RISCV_SRLI + else if generic_eq p0_ "srai" then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition shiftw_mnemonic_forwards_matches (arg_ : sop) -: bool := - +Definition shiftw_mnemonic_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition shiftw_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftw_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slli")) then true - else if ((generic_eq p0_ "srli")) then true - else if ((generic_eq p0_ "srai")) then true + if generic_eq p0_ "slli" then true + else if generic_eq p0_ "srli" then true + else if generic_eq p0_ "srai" then true else false. -Definition _s632_ (_s633_ : string) -: option string := - - let _s634_ := _s633_ in - if ((string_startswith _s634_ "srai")) then - match (string_drop _s634_ (projT1 (string_length "srai"))) with | s_ => Some (s_) end +Definition _s893_ (_s894_ : string) : option string := + let _s895_ := _s894_ in + if string_startswith _s895_ "srai" then + match (string_drop _s895_ (projT1 (string_length "srai"))) with | s_ => Some s_ end else None. -Definition _s628_ (_s629_ : string) -: option string := - - let _s630_ := _s629_ in - if ((string_startswith _s630_ "srli")) then - match (string_drop _s630_ (projT1 (string_length "srli"))) with | s_ => Some (s_) end +Definition _s889_ (_s890_ : string) : option string := + let _s891_ := _s890_ in + if string_startswith _s891_ "srli" then + match (string_drop _s891_ (projT1 (string_length "srli"))) with | s_ => Some s_ end else None. -Definition _s624_ (_s625_ : string) -: option string := - - let _s626_ := _s625_ in - if ((string_startswith _s626_ "slli")) then - match (string_drop _s626_ (projT1 (string_length "slli"))) with | s_ => Some (s_) end - else None. - -Definition shiftw_mnemonic_matches_prefix (arg_ : string) -: M (option ((sop * {n : Z & ArithFact (n >= 0)}))) := - - let _s627_ := arg_ in - (if ((match (_s624_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s624_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s628_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s628_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s632_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s632_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) +Definition _s885_ (_s886_ : string) : option string := + let _s887_ := _s886_ in + if string_startswith _s887_ "slli" then + match (string_drop _s887_ (projT1 (string_length "slli"))) with | s_ => Some s_ end + else None. + +Definition shiftw_mnemonic_matches_prefix (arg_ : string) +: M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) := + let _s888_ := arg_ in + (if match (_s885_ _s888_) with | Some s_ => true | _ => false end then + (match (_s885_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SLLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s889_ _s888_) with | Some s_ => true | _ => false end then + (match (_s889_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SRLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s893_ _s888_) with | Some s_ => true | _ => false end then + (match (_s893_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SRAI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))). -Definition rtypew_mnemonic_forwards (arg_ : ropw) -: string := - +Definition rtypew_mnemonic_forwards (arg_ : ropw) : string := match arg_ with | RISCV_ADDW => "addw" | RISCV_SUBW => "subw" @@ -14960,21 +14215,17 @@ Definition rtypew_mnemonic_forwards (arg_ : ropw) | RISCV_SRAW => "sraw" end. -Definition rtypew_mnemonic_backwards (arg_ : string) -: M (ropw) := - +Definition rtypew_mnemonic_backwards (arg_ : string) : M (ropw) := let p0_ := arg_ in - (if ((generic_eq p0_ "addw")) then returnm (RISCV_ADDW : ropw) - else if ((generic_eq p0_ "subw")) then returnm (RISCV_SUBW : ropw) - else if ((generic_eq p0_ "sllw")) then returnm (RISCV_SLLW : ropw) - else if ((generic_eq p0_ "srlw")) then returnm (RISCV_SRLW : ropw) - else if ((generic_eq p0_ "sraw")) then returnm (RISCV_SRAW : ropw) + (if generic_eq p0_ "addw" then returnm RISCV_ADDW + else if generic_eq p0_ "subw" then returnm RISCV_SUBW + else if generic_eq p0_ "sllw" then returnm RISCV_SLLW + else if generic_eq p0_ "srlw" then returnm RISCV_SRLW + else if generic_eq p0_ "sraw" then returnm RISCV_SRAW else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (ropw). -Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) -: bool := - +Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) : bool := match arg_ with | RISCV_ADDW => true | RISCV_SUBW => true @@ -14983,531 +14234,441 @@ Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) | RISCV_SRAW => true end. -Definition rtypew_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition rtypew_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "addw")) then true - else if ((generic_eq p0_ "subw")) then true - else if ((generic_eq p0_ "sllw")) then true - else if ((generic_eq p0_ "srlw")) then true - else if ((generic_eq p0_ "sraw")) then true + if generic_eq p0_ "addw" then true + else if generic_eq p0_ "subw" then true + else if generic_eq p0_ "sllw" then true + else if generic_eq p0_ "srlw" then true + else if generic_eq p0_ "sraw" then true else false. -Definition _s652_ (_s653_ : string) -: option string := - - let _s654_ := _s653_ in - if ((string_startswith _s654_ "sraw")) then - match (string_drop _s654_ (projT1 (string_length "sraw"))) with | s_ => Some (s_) end +Definition _s913_ (_s914_ : string) : option string := + let _s915_ := _s914_ in + if string_startswith _s915_ "sraw" then + match (string_drop _s915_ (projT1 (string_length "sraw"))) with | s_ => Some s_ end else None. -Definition _s648_ (_s649_ : string) -: option string := - - let _s650_ := _s649_ in - if ((string_startswith _s650_ "srlw")) then - match (string_drop _s650_ (projT1 (string_length "srlw"))) with | s_ => Some (s_) end +Definition _s909_ (_s910_ : string) : option string := + let _s911_ := _s910_ in + if string_startswith _s911_ "srlw" then + match (string_drop _s911_ (projT1 (string_length "srlw"))) with | s_ => Some s_ end else None. -Definition _s644_ (_s645_ : string) -: option string := - - let _s646_ := _s645_ in - if ((string_startswith _s646_ "sllw")) then - match (string_drop _s646_ (projT1 (string_length "sllw"))) with | s_ => Some (s_) end +Definition _s905_ (_s906_ : string) : option string := + let _s907_ := _s906_ in + if string_startswith _s907_ "sllw" then + match (string_drop _s907_ (projT1 (string_length "sllw"))) with | s_ => Some s_ end else None. -Definition _s640_ (_s641_ : string) -: option string := - - let _s642_ := _s641_ in - if ((string_startswith _s642_ "subw")) then - match (string_drop _s642_ (projT1 (string_length "subw"))) with | s_ => Some (s_) end +Definition _s901_ (_s902_ : string) : option string := + let _s903_ := _s902_ in + if string_startswith _s903_ "subw" then + match (string_drop _s903_ (projT1 (string_length "subw"))) with | s_ => Some s_ end else None. -Definition _s636_ (_s637_ : string) -: option string := - - let _s638_ := _s637_ in - if ((string_startswith _s638_ "addw")) then - match (string_drop _s638_ (projT1 (string_length "addw"))) with | s_ => Some (s_) end - else None. - -Definition rtypew_mnemonic_matches_prefix (arg_ : string) -: M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) := - - let _s639_ := arg_ in - (if ((match (_s636_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s636_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADDW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s640_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s640_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SUBW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s644_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s644_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s648_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s648_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s652_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s652_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) +Definition _s897_ (_s898_ : string) : option string := + let _s899_ := _s898_ in + if string_startswith _s899_ "addw" then + match (string_drop _s899_ (projT1 (string_length "addw"))) with | s_ => Some s_ end + else None. + +Definition rtypew_mnemonic_matches_prefix (arg_ : string) +: M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) := + let _s900_ := arg_ in + (if match (_s897_ _s900_) with | Some s_ => true | _ => false end then + (match (_s897_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_ADDW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s901_ _s900_) with | Some s_ => true | _ => false end then + (match (_s901_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SUBW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s905_ _s900_) with | Some s_ => true | _ => false end then + (match (_s905_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SLLW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s909_ _s900_) with | Some s_ => true | _ => false end then + (match (_s909_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SRLW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s913_ _s900_) with | Some s_ => true | _ => false end then + (match (_s913_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SRAW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((ropw * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))). + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))). -Definition shiftiwop_mnemonic_forwards (arg_ : sopw) -: string := - +Definition shiftiwop_mnemonic_forwards (arg_ : sopw) : string := match arg_ with | RISCV_SLLIW => "slliw" | RISCV_SRLIW => "srliw" | RISCV_SRAIW => "sraiw" end. -Definition shiftiwop_mnemonic_backwards (arg_ : string) -: M (sopw) := - +Definition shiftiwop_mnemonic_backwards (arg_ : string) : M (sopw) := let p0_ := arg_ in - (if ((generic_eq p0_ "slliw")) then returnm (RISCV_SLLIW : sopw) - else if ((generic_eq p0_ "srliw")) then returnm (RISCV_SRLIW : sopw) - else if ((generic_eq p0_ "sraiw")) then returnm (RISCV_SRAIW : sopw) + (if generic_eq p0_ "slliw" then returnm RISCV_SLLIW + else if generic_eq p0_ "srliw" then returnm RISCV_SRLIW + else if generic_eq p0_ "sraiw" then returnm RISCV_SRAIW else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sopw). -Definition shiftiwop_mnemonic_forwards_matches (arg_ : sopw) -: bool := - +Definition shiftiwop_mnemonic_forwards_matches (arg_ : sopw) : bool := match arg_ with | RISCV_SLLIW => true | RISCV_SRLIW => true | RISCV_SRAIW => true end. -Definition shiftiwop_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftiwop_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slliw")) then true - else if ((generic_eq p0_ "srliw")) then true - else if ((generic_eq p0_ "sraiw")) then true + if generic_eq p0_ "slliw" then true + else if generic_eq p0_ "srliw" then true + else if generic_eq p0_ "sraiw" then true else false. -Definition _s664_ (_s665_ : string) -: option string := - - let _s666_ := _s665_ in - if ((string_startswith _s666_ "sraiw")) then - match (string_drop _s666_ (projT1 (string_length "sraiw"))) with | s_ => Some (s_) end +Definition _s925_ (_s926_ : string) : option string := + let _s927_ := _s926_ in + if string_startswith _s927_ "sraiw" then + match (string_drop _s927_ (projT1 (string_length "sraiw"))) with | s_ => Some s_ end else None. -Definition _s660_ (_s661_ : string) -: option string := - - let _s662_ := _s661_ in - if ((string_startswith _s662_ "srliw")) then - match (string_drop _s662_ (projT1 (string_length "srliw"))) with | s_ => Some (s_) end +Definition _s921_ (_s922_ : string) : option string := + let _s923_ := _s922_ in + if string_startswith _s923_ "srliw" then + match (string_drop _s923_ (projT1 (string_length "srliw"))) with | s_ => Some s_ end else None. -Definition _s656_ (_s657_ : string) -: option string := - - let _s658_ := _s657_ in - if ((string_startswith _s658_ "slliw")) then - match (string_drop _s658_ (projT1 (string_length "slliw"))) with | s_ => Some (s_) end - else None. - -Definition shiftiwop_mnemonic_matches_prefix (arg_ : string) -: M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) := - - let _s659_ := arg_ in - (if ((match (_s656_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s656_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s660_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s660_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s664_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s664_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) +Definition _s917_ (_s918_ : string) : option string := + let _s919_ := _s918_ in + if string_startswith _s919_ "slliw" then + match (string_drop _s919_ (projT1 (string_length "slliw"))) with | s_ => Some s_ end + else None. + +Definition shiftiwop_mnemonic_matches_prefix (arg_ : string) +: M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) := + let _s920_ := arg_ in + (if match (_s917_ _s920_) with | Some s_ => true | _ => false end then + (match (_s917_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SLLIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s921_ _s920_) with | Some s_ => true | _ => false end then + (match (_s921_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SRLIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s925_ _s920_) with | Some s_ => true | _ => false end then + (match (_s925_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SRAIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sopw * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_r_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_r_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("r" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "r" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_r_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_r_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "r")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "r" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_r_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_r_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_r_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_r_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "r")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "r" then true + else if generic_eq p0_ "" then true else false. -Definition _s672_ (_s673_ : string) -: option string := - - let _s674_ := _s673_ in - if ((string_startswith _s674_ "")) then - match (string_drop _s674_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s933_ (_s934_ : string) : option string := + let _s935_ := _s934_ in + if string_startswith _s935_ "" then + match (string_drop _s935_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s668_ (_s669_ : string) -: option string := - - let _s670_ := _s669_ in - if ((string_startswith _s670_ "r")) then - match (string_drop _s670_ (projT1 (string_length "r"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_r_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s671_ := arg_ in - (if ((match (_s668_ _s671_) with | Some (s_) => true | _ => false end)) then - (match (_s668_ _s671_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s672_ _s671_) with | Some (s_) => true | _ => false end)) then - (match (_s672_ _s671_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s929_ (_s930_ : string) : option string := + let _s931_ := _s930_ in + if string_startswith _s931_ "r" then + match (string_drop _s931_ (projT1 (string_length "r"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_r_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s932_ := arg_ in + (if match (_s929_ _s932_) with | Some s_ => true | _ => false end then + (match (_s929_ _s932_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s933_ _s932_) with | Some s_ => true | _ => false end then + (match (_s933_ _s932_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_w_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_w_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("w" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "w" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_w_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_w_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "w")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "w" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_w_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_w_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_w_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_w_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "w")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "w" then true + else if generic_eq p0_ "" then true else false. -Definition _s680_ (_s681_ : string) -: option string := - - let _s682_ := _s681_ in - if ((string_startswith _s682_ "")) then - match (string_drop _s682_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s941_ (_s942_ : string) : option string := + let _s943_ := _s942_ in + if string_startswith _s943_ "" then + match (string_drop _s943_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s676_ (_s677_ : string) -: option string := - - let _s678_ := _s677_ in - if ((string_startswith _s678_ "w")) then - match (string_drop _s678_ (projT1 (string_length "w"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_w_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s679_ := arg_ in - (if ((match (_s676_ _s679_) with | Some (s_) => true | _ => false end)) then - (match (_s676_ _s679_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s680_ _s679_) with | Some (s_) => true | _ => false end)) then - (match (_s680_ _s679_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s937_ (_s938_ : string) : option string := + let _s939_ := _s938_ in + if string_startswith _s939_ "w" then + match (string_drop _s939_ (projT1 (string_length "w"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_w_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s940_ := arg_ in + (if match (_s937_ _s940_) with | Some s_ => true | _ => false end then + (match (_s937_ _s940_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s941_ _s940_) with | Some s_ => true | _ => false end then + (match (_s941_ _s940_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_i_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_i_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("i" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "i" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_i_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_i_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "i")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "i" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_i_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_i_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_i_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_i_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "i")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "i" then true + else if generic_eq p0_ "" then true else false. -Definition _s688_ (_s689_ : string) -: option string := - - let _s690_ := _s689_ in - if ((string_startswith _s690_ "")) then - match (string_drop _s690_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s949_ (_s950_ : string) : option string := + let _s951_ := _s950_ in + if string_startswith _s951_ "" then + match (string_drop _s951_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s684_ (_s685_ : string) -: option string := - - let _s686_ := _s685_ in - if ((string_startswith _s686_ "i")) then - match (string_drop _s686_ (projT1 (string_length "i"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_i_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s687_ := arg_ in - (if ((match (_s684_ _s687_) with | Some (s_) => true | _ => false end)) then - (match (_s684_ _s687_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s688_ _s687_) with | Some (s_) => true | _ => false end)) then - (match (_s688_ _s687_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s945_ (_s946_ : string) : option string := + let _s947_ := _s946_ in + if string_startswith _s947_ "i" then + match (string_drop _s947_ (projT1 (string_length "i"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_i_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s948_ := arg_ in + (if match (_s945_ _s948_) with | Some s_ => true | _ => false end then + (match (_s945_ _s948_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s949_ _s948_) with | Some s_ => true | _ => false end then + (match (_s949_ _s948_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_o_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_o_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("o" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "o" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_o_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_o_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "o")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "o" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_o_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_o_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_o_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_o_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "o")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "o" then true + else if generic_eq p0_ "" then true else false. -Definition _s696_ (_s697_ : string) -: option string := - - let _s698_ := _s697_ in - if ((string_startswith _s698_ "")) then - match (string_drop _s698_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s957_ (_s958_ : string) : option string := + let _s959_ := _s958_ in + if string_startswith _s959_ "" then + match (string_drop _s959_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s692_ (_s693_ : string) -: option string := - - let _s694_ := _s693_ in - if ((string_startswith _s694_ "o")) then - match (string_drop _s694_ (projT1 (string_length "o"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_o_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s695_ := arg_ in - (if ((match (_s692_ _s695_) with | Some (s_) => true | _ => false end)) then - (match (_s692_ _s695_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s696_ _s695_) with | Some (s_) => true | _ => false end)) then - (match (_s696_ _s695_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s953_ (_s954_ : string) : option string := + let _s955_ := _s954_ in + if string_startswith _s955_ "o" then + match (string_drop _s955_ (projT1 (string_length "o"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_o_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s956_ := arg_ in + (if match (_s953_ _s956_) with | Some s_ => true | _ => false end then + (match (_s953_ _s956_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s957_ _s956_) with | Some s_ => true | _ => false end then + (match (_s957_ _s956_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition fence_bits_forwards (arg_ : mword 4) -: M (string) := - +Definition fence_bits_forwards (arg_ : mword 4) : M (string) := (match arg_ with | v__0 => let i : bits 1 := subrange_vec_dec v__0 3 3 in @@ -15519,230 +14680,202 @@ Definition fence_bits_forwards (arg_ : mword 4) (bit_maybe_o_forwards o) >>= fun w__1 : string => (bit_maybe_r_forwards r) >>= fun w__2 : string => (bit_maybe_w_forwards w) >>= fun w__3 : string => - returnm ((string_append w__0 - (string_append w__1 (string_append w__2 (string_append w__3 "")))) - : string) + returnm (string_append w__0 (string_append w__1 (string_append w__2 (string_append w__3 "")))) end) : M (string). -Definition _s700_ (_s701_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := - - (match _s701_ with - | _s702_ => - (bit_maybe_i_matches_prefix _s702_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s961_ (_s962_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := + (match _s962_ with + | _s963_ => + (bit_maybe_i_matches_prefix _s963_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s703_ _)) => - (match (string_drop _s702_ _s703_) with - | _s704_ => - (bit_maybe_o_matches_prefix _s704_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s964_ _) => + (match (string_drop _s963_ _s964_) with + | _s965_ => + (bit_maybe_o_matches_prefix _s965_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s705_ _)) => - (match (string_drop _s704_ _s705_) with - | _s706_ => - (bit_maybe_r_matches_prefix _s706_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s966_ _) => + (match (string_drop _s965_ _s966_) with + | _s967_ => + (bit_maybe_r_matches_prefix _s967_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s707_ _)) => - (match (string_drop _s706_ _s707_) with - | _s708_ => - (bit_maybe_w_matches_prefix _s708_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s968_ _) => + (match (string_drop _s967_ _s968_) with + | _s969_ => + (bit_maybe_w_matches_prefix _s969_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s709_ _)) => - let p0_ := string_drop _s708_ _s709_ in - if ((generic_eq p0_ "")) then Some ((i, o, r, w)) - else None - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1))) + returnm (match w__3 with + | Some (w, existT _ _s970_ _) => + let p0_ := string_drop _s969_ _s970_ in + if generic_eq p0_ "" then Some (i, o, r, w) + else None + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))). -Definition fence_bits_backwards (arg_ : string) -: M (mword 4) := - - let _s710_ := arg_ in - (_s700_ _s710_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (if ((match w__0 with | Some ((i, o, r, w)) => true | _ => false end)) then - (_s700_ _s710_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => +Definition fence_bits_backwards (arg_ : string) : M (mword 4) := + let _s971_ := arg_ in + (_s961_ _s971_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (if match w__0 with | Some (i, o, r, w) => true | _ => false end then + (_s961_ _s971_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => (match w__1 with - | Some ((i, o, r, w)) => - returnm ((concat_vec (i : bits 1) - (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1)))) - : mword (1 + (1 + (1 + 1)))) + | Some (i, o, r, w) => + returnm (concat_vec (i : bits 1) + (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1)))) | _ => exit tt : M (mword 4) end) : M (mword 4) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 4). -Definition fence_bits_forwards_matches (arg_ : mword 4) -: bool := - +Definition fence_bits_forwards_matches (arg_ : mword 4) : bool := match arg_ with | v__1 => true end. -Definition _s711_ (_s712_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := - - (match _s712_ with - | _s713_ => - (bit_maybe_i_matches_prefix _s713_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s972_ (_s973_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := + (match _s973_ with + | _s974_ => + (bit_maybe_i_matches_prefix _s974_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s714_ _)) => - (match (string_drop _s713_ _s714_) with - | _s715_ => - (bit_maybe_o_matches_prefix _s715_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s975_ _) => + (match (string_drop _s974_ _s975_) with + | _s976_ => + (bit_maybe_o_matches_prefix _s976_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s716_ _)) => - (match (string_drop _s715_ _s716_) with - | _s717_ => - (bit_maybe_r_matches_prefix _s717_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s977_ _) => + (match (string_drop _s976_ _s977_) with + | _s978_ => + (bit_maybe_r_matches_prefix _s978_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s718_ _)) => - (match (string_drop _s717_ _s718_) with - | _s719_ => - (bit_maybe_w_matches_prefix _s719_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s979_ _) => + (match (string_drop _s978_ _s979_) with + | _s980_ => + (bit_maybe_w_matches_prefix _s980_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s720_ _)) => - let p0_ := string_drop _s719_ _s720_ in - if ((generic_eq p0_ "")) then Some ((i, o, r, w)) - else None - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1))) + returnm (match w__3 with + | Some (w, existT _ _s981_ _) => + let p0_ := string_drop _s980_ _s981_ in + if generic_eq p0_ "" then Some (i, o, r, w) + else None + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))). -Definition fence_bits_backwards_matches (arg_ : string) -: M (bool) := - - let _s721_ := arg_ in - (_s711_ _s721_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (if ((match w__0 with | Some ((i, o, r, w)) => true | _ => false end)) then - (_s711_ _s721_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (match w__1 with - | Some ((i, o, r, w)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) +Definition fence_bits_backwards_matches (arg_ : string) : M (bool) := + let _s982_ := arg_ in + (_s972_ _s982_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (if match w__0 with | Some (i, o, r, w) => true | _ => false end then + (_s972_ _s982_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (match w__1 with | Some (i, o, r, w) => returnm true | _ => exit tt : M (bool) end) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else returnm false) : M (bool). -Definition _s722_ (_s723_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) := - - (match _s723_ with - | _s724_ => - (bit_maybe_i_matches_prefix _s724_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s983_ (_s984_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) := + (match _s984_ with + | _s985_ => + (bit_maybe_i_matches_prefix _s985_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s725_ _)) => - (match (string_drop _s724_ _s725_) with - | _s726_ => - (bit_maybe_o_matches_prefix _s726_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s986_ _) => + (match (string_drop _s985_ _s986_) with + | _s987_ => + (bit_maybe_o_matches_prefix _s987_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s727_ _)) => - (match (string_drop _s726_ _s727_) with - | _s728_ => - (bit_maybe_r_matches_prefix _s728_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s988_ _) => + (match (string_drop _s987_ _s988_) with + | _s989_ => + (bit_maybe_r_matches_prefix _s989_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s729_ _)) => - (match (string_drop _s728_ _s729_) with - | _s730_ => - (bit_maybe_w_matches_prefix _s730_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s990_ _) => + (match (string_drop _s989_ _s990_) with + | _s991_ => + (bit_maybe_w_matches_prefix _s991_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s731_ _)) => - match (string_drop _s730_ _s731_) with - | s_ => Some ((i, o, r, w, s_)) - end - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + returnm (match w__3 with + | Some (w, existT _ _s992_ _) => + match (string_drop _s991_ _s992_) with + | s_ => Some (i, o, r, w, s_) + end + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => - returnm (None - : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))). -Definition fence_bits_matches_prefix (arg_ : string) -: M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) := - - let _s732_ := arg_ in - (_s722_ _s732_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => - (if ((match w__0 with | Some ((i, o, r, w, s_)) => true | _ => false end)) then - (_s722_ _s732_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => +Definition fence_bits_matches_prefix (arg_ : string) +: M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) := + let _s993_ := arg_ in + (_s983_ _s993_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => + (if match w__0 with | Some (i, o, r, w, s_) => true | _ => false end then + (_s983_ _s993_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => (match w__1 with - | Some ((i, o, r, w, s_)) => - returnm ((Some - ((concat_vec (i : bits 1) - (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1))), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) + | Some (i, o, r, w, s_) => + returnm (Some + (concat_vec (i : bits 1) + (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1))), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 4 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))). -Definition aqrl_str (aq : bool) (rl : bool) -: string := - +Definition aqrl_str (aq : bool) (rl : bool) : string := match (aq, rl) with | (false, false) => "" | (false, true) => ".rl" @@ -15750,62 +14883,49 @@ Definition aqrl_str (aq : bool) (rl : bool) | (true, true) => ".aqrl" end. -Definition lrsc_width_str (width : word_width) -: string := - +Definition lrsc_width_str (width : word_width) : string := match width with | BYTE => ".b" | HALF => ".h" | WORD => ".w" | DOUBLE => ".d" end. Definition process_loadres {n : Z} (rd : mword 5) (addr : mword 32) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) -`{ArithFact (0 < n /\ n <= 4)} +`{ArithFact ((0 <? n) && (n <=? 4))} : M (Retired) := - (match (extend_value is_unsigned value) with - | MemValue (result) => + | MemValue result => let '_ := (load_reservation addr) : unit in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - | MemException (e) => (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired). -Definition encdec_amoop_forwards (arg_ : amoop) -: mword 5 := - +Definition encdec_amoop_forwards (arg_ : amoop) : mword 5 := match arg_ with - | AMOSWAP => (vec_of_bits [B0;B0;B0;B0;B1] : mword 5) - | AMOADD => (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - | AMOXOR => (vec_of_bits [B0;B0;B1;B0;B0] : mword 5) - | AMOAND => (vec_of_bits [B0;B1;B1;B0;B0] : mword 5) - | AMOOR => (vec_of_bits [B0;B1;B0;B0;B0] : mword 5) - | AMOMIN => (vec_of_bits [B1;B0;B0;B0;B0] : mword 5) - | AMOMAX => (vec_of_bits [B1;B0;B1;B0;B0] : mword 5) - | AMOMINU => (vec_of_bits [B1;B1;B0;B0;B0] : mword 5) - | AMOMAXU => (vec_of_bits [B1;B1;B1;B0;B0] : mword 5) + | AMOSWAP => 'b"00001" : mword 5 + | AMOADD => 'b"00000" : mword 5 + | AMOXOR => 'b"00100" : mword 5 + | AMOAND => 'b"01100" : mword 5 + | AMOOR => 'b"01000" : mword 5 + | AMOMIN => 'b"10000" : mword 5 + | AMOMAX => 'b"10100" : mword 5 + | AMOMINU => 'b"11000" : mword 5 + | AMOMAXU => 'b"11100" : mword 5 end. -Definition encdec_amoop_backwards (arg_ : mword 5) -: M (amoop) := - +Definition encdec_amoop_backwards (arg_ : mword 5) : M (amoop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm (AMOSWAP : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm (AMOADD : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm (AMOXOR : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm (AMOAND : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm (AMOOR : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm (AMOMIN : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm (AMOMAX : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then - returnm (AMOMINU - : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then - returnm (AMOMAXU - : amoop) + (if eq_vec b__0 ('b"00001" : mword 5) then returnm AMOSWAP + else if eq_vec b__0 ('b"00000" : mword 5) then returnm AMOADD + else if eq_vec b__0 ('b"00100" : mword 5) then returnm AMOXOR + else if eq_vec b__0 ('b"01100" : mword 5) then returnm AMOAND + else if eq_vec b__0 ('b"01000" : mword 5) then returnm AMOOR + else if eq_vec b__0 ('b"10000" : mword 5) then returnm AMOMIN + else if eq_vec b__0 ('b"10100" : mword 5) then returnm AMOMAX + else if eq_vec b__0 ('b"11000" : mword 5) then returnm AMOMINU + else if eq_vec b__0 ('b"11100" : mword 5) then returnm AMOMAXU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (amoop). -Definition encdec_amoop_forwards_matches (arg_ : amoop) -: bool := - +Definition encdec_amoop_forwards_matches (arg_ : amoop) : bool := match arg_ with | AMOSWAP => true | AMOADD => true @@ -15818,24 +14938,20 @@ Definition encdec_amoop_forwards_matches (arg_ : amoop) | AMOMAXU => true end. -Definition encdec_amoop_backwards_matches (arg_ : mword 5) -: bool := - +Definition encdec_amoop_backwards_matches (arg_ : mword 5) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then true + if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true else false. -Definition amo_mnemonic_forwards (arg_ : amoop) -: string := - +Definition amo_mnemonic_forwards (arg_ : amoop) : string := match arg_ with | AMOSWAP => "amoswap" | AMOADD => "amoadd" @@ -15848,25 +14964,21 @@ Definition amo_mnemonic_forwards (arg_ : amoop) | AMOMAXU => "amomaxu" end. -Definition amo_mnemonic_backwards (arg_ : string) -: M (amoop) := - +Definition amo_mnemonic_backwards (arg_ : string) : M (amoop) := let p0_ := arg_ in - (if ((generic_eq p0_ "amoswap")) then returnm (AMOSWAP : amoop) - else if ((generic_eq p0_ "amoadd")) then returnm (AMOADD : amoop) - else if ((generic_eq p0_ "amoxor")) then returnm (AMOXOR : amoop) - else if ((generic_eq p0_ "amoand")) then returnm (AMOAND : amoop) - else if ((generic_eq p0_ "amoor")) then returnm (AMOOR : amoop) - else if ((generic_eq p0_ "amomin")) then returnm (AMOMIN : amoop) - else if ((generic_eq p0_ "amomax")) then returnm (AMOMAX : amoop) - else if ((generic_eq p0_ "amominu")) then returnm (AMOMINU : amoop) - else if ((generic_eq p0_ "amomaxu")) then returnm (AMOMAXU : amoop) + (if generic_eq p0_ "amoswap" then returnm AMOSWAP + else if generic_eq p0_ "amoadd" then returnm AMOADD + else if generic_eq p0_ "amoxor" then returnm AMOXOR + else if generic_eq p0_ "amoand" then returnm AMOAND + else if generic_eq p0_ "amoor" then returnm AMOOR + else if generic_eq p0_ "amomin" then returnm AMOMIN + else if generic_eq p0_ "amomax" then returnm AMOMAX + else if generic_eq p0_ "amominu" then returnm AMOMINU + else if generic_eq p0_ "amomaxu" then returnm AMOMAXU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (amoop). -Definition amo_mnemonic_forwards_matches (arg_ : amoop) -: bool := - +Definition amo_mnemonic_forwards_matches (arg_ : amoop) : bool := match arg_ with | AMOSWAP => true | AMOADD => true @@ -15879,225 +14991,189 @@ Definition amo_mnemonic_forwards_matches (arg_ : amoop) | AMOMAXU => true end. -Definition amo_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition amo_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "amoswap")) then true - else if ((generic_eq p0_ "amoadd")) then true - else if ((generic_eq p0_ "amoxor")) then true - else if ((generic_eq p0_ "amoand")) then true - else if ((generic_eq p0_ "amoor")) then true - else if ((generic_eq p0_ "amomin")) then true - else if ((generic_eq p0_ "amomax")) then true - else if ((generic_eq p0_ "amominu")) then true - else if ((generic_eq p0_ "amomaxu")) then true + if generic_eq p0_ "amoswap" then true + else if generic_eq p0_ "amoadd" then true + else if generic_eq p0_ "amoxor" then true + else if generic_eq p0_ "amoand" then true + else if generic_eq p0_ "amoor" then true + else if generic_eq p0_ "amomin" then true + else if generic_eq p0_ "amomax" then true + else if generic_eq p0_ "amominu" then true + else if generic_eq p0_ "amomaxu" then true else false. -Definition _s765_ (_s766_ : string) -: option string := - - let _s767_ := _s766_ in - if ((string_startswith _s767_ "amomaxu")) then - match (string_drop _s767_ (projT1 (string_length "amomaxu"))) with | s_ => Some (s_) end +Definition _s1026_ (_s1027_ : string) : option string := + let _s1028_ := _s1027_ in + if string_startswith _s1028_ "amomaxu" then + match (string_drop _s1028_ (projT1 (string_length "amomaxu"))) with | s_ => Some s_ end else None. -Definition _s761_ (_s762_ : string) -: option string := - - let _s763_ := _s762_ in - if ((string_startswith _s763_ "amominu")) then - match (string_drop _s763_ (projT1 (string_length "amominu"))) with | s_ => Some (s_) end +Definition _s1022_ (_s1023_ : string) : option string := + let _s1024_ := _s1023_ in + if string_startswith _s1024_ "amominu" then + match (string_drop _s1024_ (projT1 (string_length "amominu"))) with | s_ => Some s_ end else None. -Definition _s757_ (_s758_ : string) -: option string := - - let _s759_ := _s758_ in - if ((string_startswith _s759_ "amomax")) then - match (string_drop _s759_ (projT1 (string_length "amomax"))) with | s_ => Some (s_) end +Definition _s1018_ (_s1019_ : string) : option string := + let _s1020_ := _s1019_ in + if string_startswith _s1020_ "amomax" then + match (string_drop _s1020_ (projT1 (string_length "amomax"))) with | s_ => Some s_ end else None. -Definition _s753_ (_s754_ : string) -: option string := - - let _s755_ := _s754_ in - if ((string_startswith _s755_ "amomin")) then - match (string_drop _s755_ (projT1 (string_length "amomin"))) with | s_ => Some (s_) end - else None. - -Definition _s749_ (_s750_ : string) -: option string := - - let _s751_ := _s750_ in - if ((string_startswith _s751_ "amoor")) then - match (string_drop _s751_ (projT1 (string_length "amoor"))) with | s_ => Some (s_) end - else None. - -Definition _s745_ (_s746_ : string) -: option string := - - let _s747_ := _s746_ in - if ((string_startswith _s747_ "amoand")) then - match (string_drop _s747_ (projT1 (string_length "amoand"))) with | s_ => Some (s_) end - else None. - -Definition _s741_ (_s742_ : string) -: option string := - - let _s743_ := _s742_ in - if ((string_startswith _s743_ "amoxor")) then - match (string_drop _s743_ (projT1 (string_length "amoxor"))) with | s_ => Some (s_) end - else None. - -Definition _s737_ (_s738_ : string) -: option string := - - let _s739_ := _s738_ in - if ((string_startswith _s739_ "amoadd")) then - match (string_drop _s739_ (projT1 (string_length "amoadd"))) with | s_ => Some (s_) end - else None. - -Definition _s733_ (_s734_ : string) -: option string := - - let _s735_ := _s734_ in - if ((string_startswith _s735_ "amoswap")) then - match (string_drop _s735_ (projT1 (string_length "amoswap"))) with | s_ => Some (s_) end - else None. - -Definition amo_mnemonic_matches_prefix (arg_ : string) -: M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) := - - let _s736_ := arg_ in - (if ((match (_s733_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s733_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOSWAP, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s737_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s737_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOADD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s741_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s741_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOXOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s745_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s745_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOAND, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s749_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s749_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s753_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s753_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMIN, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s757_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s757_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMAX, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s761_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s761_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMINU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s765_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s765_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMAXU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) +Definition _s1014_ (_s1015_ : string) : option string := + let _s1016_ := _s1015_ in + if string_startswith _s1016_ "amomin" then + match (string_drop _s1016_ (projT1 (string_length "amomin"))) with | s_ => Some s_ end + else None. + +Definition _s1010_ (_s1011_ : string) : option string := + let _s1012_ := _s1011_ in + if string_startswith _s1012_ "amoor" then + match (string_drop _s1012_ (projT1 (string_length "amoor"))) with | s_ => Some s_ end + else None. + +Definition _s1006_ (_s1007_ : string) : option string := + let _s1008_ := _s1007_ in + if string_startswith _s1008_ "amoand" then + match (string_drop _s1008_ (projT1 (string_length "amoand"))) with | s_ => Some s_ end + else None. + +Definition _s1002_ (_s1003_ : string) : option string := + let _s1004_ := _s1003_ in + if string_startswith _s1004_ "amoxor" then + match (string_drop _s1004_ (projT1 (string_length "amoxor"))) with | s_ => Some s_ end + else None. + +Definition _s998_ (_s999_ : string) : option string := + let _s1000_ := _s999_ in + if string_startswith _s1000_ "amoadd" then + match (string_drop _s1000_ (projT1 (string_length "amoadd"))) with | s_ => Some s_ end + else None. + +Definition _s994_ (_s995_ : string) : option string := + let _s996_ := _s995_ in + if string_startswith _s996_ "amoswap" then + match (string_drop _s996_ (projT1 (string_length "amoswap"))) with | s_ => Some s_ end + else None. + +Definition amo_mnemonic_matches_prefix (arg_ : string) +: M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) := + let _s997_ := arg_ in + (if match (_s994_ _s997_) with | Some s_ => true | _ => false end then + (match (_s994_ _s997_) with + | Some s_ => + returnm (Some + (AMOSWAP, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s998_ _s997_) with | Some s_ => true | _ => false end then + (match (_s998_ _s997_) with + | Some s_ => + returnm (Some + (AMOADD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1002_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1002_ _s997_) with + | Some s_ => + returnm (Some + (AMOXOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1006_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1006_ _s997_) with + | Some s_ => + returnm (Some + (AMOAND, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1010_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1010_ _s997_) with + | Some s_ => + returnm (Some + (AMOOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1014_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1014_ _s997_) with + | Some s_ => + returnm (Some + (AMOMIN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1018_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1018_ _s997_) with + | Some s_ => + returnm (Some + (AMOMAX, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1022_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1022_ _s997_) with + | Some s_ => + returnm (Some + (AMOMINU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1026_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1026_ _s997_) with + | Some s_ => + returnm (Some + (AMOMAXU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((amoop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_mul_op_forwards (arg_ : (bool * bool * bool)) -: M (mword 3) := - +Definition encdec_mul_op_forwards (arg_ : (bool * bool * bool)) : M (mword 3) := (match arg_ with - | (false, true, true) => returnm ((vec_of_bits [B0;B0;B0] : mword 3) : mword 3) - | (true, true, true) => returnm ((vec_of_bits [B0;B0;B1] : mword 3) : mword 3) - | (true, true, false) => returnm ((vec_of_bits [B0;B1;B0] : mword 3) : mword 3) - | (true, false, false) => returnm ((vec_of_bits [B0;B1;B1] : mword 3) : mword 3) + | (false, true, true) => returnm ('b"000" : mword 3) + | (true, true, true) => returnm ('b"001" : mword 3) + | (true, true, false) => returnm ('b"010" : mword 3) + | (true, false, false) => returnm ('b"011" : mword 3) | _ => exit tt : M (mword 3) end) : M (mword 3). -Definition encdec_mul_op_backwards (arg_ : mword 3) -: M ((bool * bool * bool)) := - +Definition encdec_mul_op_backwards (arg_ : mword 3) : M ((bool * bool * bool)) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (false, true, true) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (true, true, true) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm (true, true, false) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm (true, false, false) + (if eq_vec b__0 ('b"000" : mword 3) then returnm (false, true, true) + else if eq_vec b__0 ('b"001" : mword 3) then returnm (true, true, true) + else if eq_vec b__0 ('b"010" : mword 3) then returnm (true, true, false) + else if eq_vec b__0 ('b"011" : mword 3) then returnm (true, false, false) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M ((bool * bool * bool)). -Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) -: bool := - +Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) : bool := match arg_ with | (false, true, true) => true | (true, true, true) => true @@ -16106,42 +15182,34 @@ Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) | _ => false end. -Definition encdec_mul_op_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_mul_op_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true else false. -Definition mul_mnemonic_forwards (arg_ : (bool * bool * bool)) -: M (string) := - +Definition mul_mnemonic_forwards (arg_ : (bool * bool * bool)) : M (string) := (match arg_ with - | (false, true, true) => returnm ("mul" : string) - | (true, true, true) => returnm ("mulh" : string) - | (true, true, false) => returnm ("mulhsu" : string) - | (true, false, false) => returnm ("mulhu" : string) + | (false, true, true) => returnm "mul" + | (true, true, true) => returnm "mulh" + | (true, true, false) => returnm "mulhsu" + | (true, false, false) => returnm "mulhu" | _ => exit tt : M (string) end) : M (string). -Definition mul_mnemonic_backwards (arg_ : string) -: M ((bool * bool * bool)) := - +Definition mul_mnemonic_backwards (arg_ : string) : M ((bool * bool * bool)) := let p0_ := arg_ in - (if ((generic_eq p0_ "mul")) then returnm (false, true, true) - else if ((generic_eq p0_ "mulh")) then returnm (true, true, true) - else if ((generic_eq p0_ "mulhsu")) then returnm (true, true, false) - else if ((generic_eq p0_ "mulhu")) then returnm (true, false, false) + (if generic_eq p0_ "mul" then returnm (false, true, true) + else if generic_eq p0_ "mulh" then returnm (true, true, true) + else if generic_eq p0_ "mulhsu" then returnm (true, true, false) + else if generic_eq p0_ "mulhu" then returnm (true, false, false) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M ((bool * bool * bool)). -Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) -: bool := - +Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) : bool := match arg_ with | (false, true, true) => true | (true, true, true) => true @@ -16150,2853 +15218,4943 @@ Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) | _ => false end. -Definition mul_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition mul_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "mul")) then true - else if ((generic_eq p0_ "mulh")) then true - else if ((generic_eq p0_ "mulhsu")) then true - else if ((generic_eq p0_ "mulhu")) then true + if generic_eq p0_ "mul" then true + else if generic_eq p0_ "mulh" then true + else if generic_eq p0_ "mulhsu" then true + else if generic_eq p0_ "mulhu" then true else false. -Definition _s781_ (_s782_ : string) -: option string := - - let _s783_ := _s782_ in - if ((string_startswith _s783_ "mulhu")) then - match (string_drop _s783_ (projT1 (string_length "mulhu"))) with | s_ => Some (s_) end +Definition _s1042_ (_s1043_ : string) : option string := + let _s1044_ := _s1043_ in + if string_startswith _s1044_ "mulhu" then + match (string_drop _s1044_ (projT1 (string_length "mulhu"))) with | s_ => Some s_ end else None. -Definition _s777_ (_s778_ : string) -: option string := - - let _s779_ := _s778_ in - if ((string_startswith _s779_ "mulhsu")) then - match (string_drop _s779_ (projT1 (string_length "mulhsu"))) with | s_ => Some (s_) end +Definition _s1038_ (_s1039_ : string) : option string := + let _s1040_ := _s1039_ in + if string_startswith _s1040_ "mulhsu" then + match (string_drop _s1040_ (projT1 (string_length "mulhsu"))) with | s_ => Some s_ end else None. -Definition _s773_ (_s774_ : string) -: option string := - - let _s775_ := _s774_ in - if ((string_startswith _s775_ "mulh")) then - match (string_drop _s775_ (projT1 (string_length "mulh"))) with | s_ => Some (s_) end +Definition _s1034_ (_s1035_ : string) : option string := + let _s1036_ := _s1035_ in + if string_startswith _s1036_ "mulh" then + match (string_drop _s1036_ (projT1 (string_length "mulh"))) with | s_ => Some s_ end else None. -Definition _s769_ (_s770_ : string) -: option string := - - let _s771_ := _s770_ in - if ((string_startswith _s771_ "mul")) then - match (string_drop _s771_ (projT1 (string_length "mul"))) with | s_ => Some (s_) end - else None. - -Definition mul_mnemonic_matches_prefix (arg_ : string) -: M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) := - - let _s772_ := arg_ in - (if ((match (_s769_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s769_ _s772_) with - | Some (s_) => - returnm ((Some - (((false, true, true), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s773_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s773_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, true, true), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s777_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s777_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, true, false), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s781_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s781_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, false, false), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) +Definition _s1030_ (_s1031_ : string) : option string := + let _s1032_ := _s1031_ in + if string_startswith _s1032_ "mul" then + match (string_drop _s1032_ (projT1 (string_length "mul"))) with | s_ => Some s_ end + else None. + +Definition mul_mnemonic_matches_prefix (arg_ : string) +: M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) := + let _s1033_ := arg_ in + (if match (_s1030_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1030_ _s1033_) with + | Some s_ => + returnm (Some + ((false, true, true), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1034_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1034_ _s1033_) with + | Some s_ => + returnm (Some + ((true, true, true), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1038_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1038_ _s1033_) with + | Some s_ => + returnm (Some + ((true, true, false), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1042_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1042_ _s1033_) with + | Some s_ => + returnm (Some + ((true, false, false), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)})))) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))). + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_not_u_forwards (arg_ : bool) -: string := - +Definition maybe_not_u_forwards (arg_ : bool) : string := match arg_ with | false => "u" | true => "" end. -Definition maybe_not_u_backwards (arg_ : string) -: M (bool) := - +Definition maybe_not_u_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "u")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (if generic_eq p0_ "u" then returnm false + else if generic_eq p0_ "" then returnm true else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_not_u_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_not_u_forwards_matches (arg_ : bool) : bool := match arg_ with | false => true | true => true end. -Definition maybe_not_u_backwards_matches (arg_ : string) -: bool := - +Definition maybe_not_u_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "u")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "u" then true + else if generic_eq p0_ "" then true else false. -Definition _s789_ (_s790_ : string) -: option string := - - let _s791_ := _s790_ in - if ((string_startswith _s791_ "")) then - match (string_drop _s791_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s1050_ (_s1051_ : string) : option string := + let _s1052_ := _s1051_ in + if string_startswith _s1052_ "" then + match (string_drop _s1052_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s785_ (_s786_ : string) -: option string := - - let _s787_ := _s786_ in - if ((string_startswith _s787_ "u")) then - match (string_drop _s787_ (projT1 (string_length "u"))) with | s_ => Some (s_) end +Definition _s1046_ (_s1047_ : string) : option string := + let _s1048_ := _s1047_ in + if string_startswith _s1048_ "u" then + match (string_drop _s1048_ (projT1 (string_length "u"))) with | s_ => Some s_ end else None. -Definition maybe_not_u_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s788_ := arg_ in - (if ((match (_s785_ _s788_) with | Some (s_) => true | _ => false end)) then - (match (_s785_ _s788_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s789_ _s788_) with | Some (s_) => true | _ => false end)) then - (match (_s789_ _s788_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition maybe_not_u_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s1049_ := arg_ in + (if match (_s1046_ _s1049_) with | Some s_ => true | _ => false end then + (match (_s1046_ _s1049_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1050_ _s1049_) with | Some s_ => true | _ => false end then + (match (_s1050_ _s1049_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_csrop_forwards (arg_ : csrop) -: mword 2 := - +Definition encdec_csrop_forwards (arg_ : csrop) : mword 2 := match arg_ with - | CSRRW => (vec_of_bits [B0;B1] : mword 2) - | CSRRS => (vec_of_bits [B1;B0] : mword 2) - | CSRRC => (vec_of_bits [B1;B1] : mword 2) + | CSRRW => 'b"01" : mword 2 + | CSRRS => 'b"10" : mword 2 + | CSRRC => 'b"11" : mword 2 end. -Definition encdec_csrop_backwards (arg_ : mword 2) -: M (csrop) := - +Definition encdec_csrop_backwards (arg_ : mword 2) : M (csrop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (CSRRW : csrop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (CSRRS : csrop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (CSRRC : csrop) + (if eq_vec b__0 ('b"01" : mword 2) then returnm CSRRW + else if eq_vec b__0 ('b"10" : mword 2) then returnm CSRRS + else if eq_vec b__0 ('b"11" : mword 2) then returnm CSRRC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (csrop). -Definition encdec_csrop_forwards_matches (arg_ : csrop) -: bool := - +Definition encdec_csrop_forwards_matches (arg_ : csrop) : bool := match arg_ with | CSRRW => true | CSRRS => true | CSRRC => true end. -Definition encdec_csrop_backwards_matches (arg_ : mword 2) -: bool := - +Definition encdec_csrop_backwards_matches (arg_ : mword 2) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then true + if eq_vec b__0 ('b"01" : mword 2) then true + else if eq_vec b__0 ('b"10" : mword 2) then true + else if eq_vec b__0 ('b"11" : mword 2) then true else false. -Definition readCSR (csr : mword 12) -: M (mword 32) := - +Definition readCSR (csr : mword 12) : M (mword 32) := (match (csr, 32) with - | (b__0, g__217) => - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then + | (b__0, g__311) => + (if eq_vec b__0 (Ox"F11" : mword 12) then ((read_reg mvendorid_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - returnm ((EXTZ 32 w__0) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then + returnm (EXTZ 32 w__0) + else if eq_vec b__0 (Ox"F12" : mword 12) then ((read_reg marchid_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"F13" : mword 12) then ((read_reg mimpid_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"F14" : mword 12) then ((read_reg mhartid_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__4 : Mstatus => - returnm ((_get_Mstatus_bits w__4) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - read_reg misa_ref >>= fun w__5 : Misa => returnm ((_get_Misa_bits w__5) : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg medeleg_ref >>= fun w__6 : Medeleg => - returnm ((_get_Medeleg_bits w__6) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - read_reg mideleg_ref >>= fun w__7 : Minterrupts => - returnm ((_get_Minterrupts_bits w__7) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__8 : Minterrupts => - returnm ((_get_Minterrupts_bits w__8) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_mtvec tt) - : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"300" : mword 12) then + read_reg mstatus_ref >>= fun w__4 : Mstatus => returnm (_get_Mstatus_bits w__4) + else if eq_vec b__0 (Ox"301" : mword 12) then + read_reg misa_ref >>= fun w__5 : Misa => returnm (_get_Misa_bits w__5) + else if eq_vec b__0 (Ox"302" : mword 12) then + read_reg medeleg_ref >>= fun w__6 : Medeleg => returnm (_get_Medeleg_bits w__6) + else if eq_vec b__0 (Ox"303" : mword 12) then + read_reg mideleg_ref >>= fun w__7 : Minterrupts => returnm (_get_Minterrupts_bits w__7) + else if eq_vec b__0 (Ox"304" : mword 12) then + read_reg mie_ref >>= fun w__8 : Minterrupts => returnm (_get_Minterrupts_bits w__8) + else if eq_vec b__0 (Ox"305" : mword 12) then (get_mtvec tt) : M (mword 32) + else if eq_vec b__0 (Ox"306" : mword 12) then read_reg mcounteren_ref >>= fun w__10 : Counteren => - returnm ((EXTZ 32 (_get_Counteren_bits w__10)) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + returnm (EXTZ 32 (_get_Counteren_bits w__10)) + else if eq_vec b__0 (Ox"320" : mword 12) then + read_reg mcountinhibit_ref >>= fun w__11 : Counterin => + returnm (EXTZ 32 (_get_Counterin_bits w__11)) + else if eq_vec b__0 (Ox"340" : mword 12) then ((read_reg mscratch_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (get_xret_target Machine) >>= fun w__12 : mword 32 => - (pc_alignment_mask tt) >>= fun w__13 : mword 32 => - returnm ((and_vec w__12 w__13) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg mcause_ref >>= fun w__14 : Mcause => - returnm ((_get_Mcause_bits w__14) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"341" : mword 12) then + (get_xret_target Machine) >>= fun w__13 : mword 32 => + (pc_alignment_mask tt) >>= fun w__14 : mword 32 => returnm (and_vec w__13 w__14) + else if eq_vec b__0 (Ox"342" : mword 12) then + read_reg mcause_ref >>= fun w__15 : Mcause => returnm (_get_Mcause_bits w__15) + else if eq_vec b__0 (Ox"343" : mword 12) then ((read_reg mtval_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__16 : Minterrupts => - returnm ((_get_Minterrupts_bits w__16) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - (pmpReadCfgReg 0) - : M (mword 32) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] - : mword 12)) (Z.eqb g__217 32))) then + else if eq_vec b__0 (Ox"344" : mword 12) then + read_reg mip_ref >>= fun w__17 : Minterrupts => returnm (_get_Minterrupts_bits w__17) + else if eq_vec b__0 (Ox"3A0" : mword 12) then (pmpReadCfgReg 0) : M (mword 32) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"3A1" : mword 12)) (Z.eqb g__311 32)) then (pmpReadCfgReg 1) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - (pmpReadCfgReg 2) - : M (mword 32) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] - : mword 12)) (Z.eqb g__217 32))) then + else if eq_vec b__0 (Ox"3A2" : mword 12) then (pmpReadCfgReg 2) : M (mword 32) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"3A3" : mword 12)) (Z.eqb g__311 32)) then (pmpReadCfgReg 3) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B0" : mword 12) then ((read_reg pmpaddr0_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B1" : mword 12) then ((read_reg pmpaddr1_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B2" : mword 12) then ((read_reg pmpaddr2_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B3" : mword 12) then ((read_reg pmpaddr3_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B4" : mword 12) then ((read_reg pmpaddr4_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B5" : mword 12) then ((read_reg pmpaddr5_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B6" : mword 12) then ((read_reg pmpaddr6_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B7" : mword 12) then ((read_reg pmpaddr7_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B8" : mword 12) then ((read_reg pmpaddr8_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B9" : mword 12) then ((read_reg pmpaddr9_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BA" : mword 12) then ((read_reg pmpaddr10_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BB" : mword 12) then ((read_reg pmpaddr11_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BC" : mword 12) then ((read_reg pmpaddr12_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BD" : mword 12) then ((read_reg pmpaddr13_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BE" : mword 12) then ((read_reg pmpaddr14_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BF" : mword 12) then ((read_reg pmpaddr15_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__37 : mword 64 => - returnm ((subrange_vec_dec w__37 (Z.sub 32 1) 0) - : mword (31 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__38 : mword 64 => - returnm ((subrange_vec_dec w__38 (Z.sub 32 1) 0) - : mword (31 - 0 + 1)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] - : mword 12)) (Z.eqb g__217 32))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__39 : mword 64 => - returnm ((subrange_vec_dec w__39 63 32) - : mword (63 - 32 + 1)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] - : mword 12)) (Z.eqb g__217 32))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__40 : mword 64 => - returnm ((subrange_vec_dec w__40 63 32) - : mword (63 - 32 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg tselect_ref) : M (mword 32)) >>= fun w__41 : mword 32 => - returnm ((not_vec w__41) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__42 : Mstatus => - returnm ((_get_Sstatus_bits (lower_mstatus w__42)) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg sedeleg_ref >>= fun w__43 : Sedeleg => - returnm ((_get_Sedeleg_bits w__43) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - read_reg sideleg_ref >>= fun w__44 : Sinterrupts => - returnm ((_get_Sinterrupts_bits w__44) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__45 : Minterrupts => - read_reg mideleg_ref >>= fun w__46 : Minterrupts => - returnm ((_get_Sinterrupts_bits (lower_mie w__45 w__46)) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_stvec tt) - : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - read_reg scounteren_ref >>= fun w__48 : Counteren => - returnm ((EXTZ 32 (_get_Counteren_bits w__48)) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"B00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__38 : mword 64 => + returnm (subrange_vec_dec w__38 (Z.sub 32 1) 0) + else if eq_vec b__0 (Ox"B02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__39 : mword 64 => + returnm (subrange_vec_dec w__39 (Z.sub 32 1) 0) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"B80" : mword 12)) (Z.eqb g__311 32)) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__40 : mword 64 => + returnm (subrange_vec_dec w__40 63 32) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"B82" : mword 12)) (Z.eqb g__311 32)) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__41 : mword 64 => + returnm (subrange_vec_dec w__41 63 32) + else if eq_vec b__0 (Ox"7A0" : mword 12) then + ((read_reg tselect_ref) : M (mword 32)) >>= fun w__42 : mword 32 => + returnm (not_vec w__42) + else if eq_vec b__0 (Ox"100" : mword 12) then + read_reg mstatus_ref >>= fun w__43 : Mstatus => + returnm (_get_Sstatus_bits (lower_mstatus w__43)) + else if eq_vec b__0 (Ox"102" : mword 12) then + read_reg sedeleg_ref >>= fun w__44 : Sedeleg => returnm (_get_Sedeleg_bits w__44) + else if eq_vec b__0 (Ox"103" : mword 12) then + read_reg sideleg_ref >>= fun w__45 : Sinterrupts => returnm (_get_Sinterrupts_bits w__45) + else if eq_vec b__0 (Ox"104" : mword 12) then + read_reg mie_ref >>= fun w__46 : Minterrupts => + read_reg mideleg_ref >>= fun w__47 : Minterrupts => + returnm (_get_Sinterrupts_bits (lower_mie w__46 w__47)) + else if eq_vec b__0 (Ox"105" : mword 12) then (get_stvec tt) : M (mword 32) + else if eq_vec b__0 (Ox"106" : mword 12) then + read_reg scounteren_ref >>= fun w__49 : Counteren => + returnm (EXTZ 32 (_get_Counteren_bits w__49)) + else if eq_vec b__0 (Ox"140" : mword 12) then ((read_reg sscratch_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (get_xret_target Supervisor) >>= fun w__50 : mword 32 => - (pc_alignment_mask tt) >>= fun w__51 : mword 32 => - returnm ((and_vec w__50 w__51) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg scause_ref >>= fun w__52 : Mcause => - returnm ((_get_Mcause_bits w__52) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"141" : mword 12) then + (get_xret_target Supervisor) >>= fun w__51 : mword 32 => + (pc_alignment_mask tt) >>= fun w__52 : mword 32 => returnm (and_vec w__51 w__52) + else if eq_vec b__0 (Ox"142" : mword 12) then + read_reg scause_ref >>= fun w__53 : Mcause => returnm (_get_Mcause_bits w__53) + else if eq_vec b__0 (Ox"143" : mword 12) then ((read_reg stval_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__54 : Minterrupts => - read_reg mideleg_ref >>= fun w__55 : Minterrupts => - returnm ((_get_Sinterrupts_bits (lower_mip w__54 w__55)) - : mword 32) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"144" : mword 12) then + read_reg mip_ref >>= fun w__55 : Minterrupts => + read_reg mideleg_ref >>= fun w__56 : Minterrupts => + returnm (_get_Sinterrupts_bits (lower_mip w__55 w__56)) + else if eq_vec b__0 (Ox"180" : mword 12) then ((read_reg satp_ref) : M (mword 32)) : M (mword 32) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__57 : mword 64 => - returnm ((subrange_vec_dec w__57 (Z.sub 32 1) 0) - : mword (31 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - ((read_reg mtime_ref) : M (mword 64)) >>= fun w__58 : mword 64 => - returnm ((subrange_vec_dec w__58 (Z.sub 32 1) 0) - : mword (31 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__59 : mword 64 => - returnm ((subrange_vec_dec w__59 (Z.sub 32 1) 0) - : mword (31 - 0 + 1)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] - : mword 12)) (Z.eqb g__217 32))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__60 : mword 64 => - returnm ((subrange_vec_dec w__60 63 32) - : mword (63 - 32 + 1)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] - : mword 12)) (Z.eqb g__217 32))) then - ((read_reg mtime_ref) : M (mword 64)) >>= fun w__61 : mword 64 => - returnm ((subrange_vec_dec w__61 63 32) - : mword (63 - 32 + 1)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] - : mword 12)) (Z.eqb g__217 32))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__62 : mword 64 => - returnm ((subrange_vec_dec w__62 63 32) - : mword (63 - 32 + 1)) + else if eq_vec b__0 (Ox"C00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__58 : mword 64 => + returnm (subrange_vec_dec w__58 (Z.sub 32 1) 0) + else if eq_vec b__0 (Ox"C01" : mword 12) then + ((read_reg mtime_ref) : M (mword 64)) >>= fun w__59 : mword 64 => + returnm (subrange_vec_dec w__59 (Z.sub 32 1) 0) + else if eq_vec b__0 (Ox"C02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__60 : mword 64 => + returnm (subrange_vec_dec w__60 (Z.sub 32 1) 0) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"C80" : mword 12)) (Z.eqb g__311 32)) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__61 : mword 64 => + returnm (subrange_vec_dec w__61 63 32) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"C81" : mword 12)) (Z.eqb g__311 32)) then + ((read_reg mtime_ref) : M (mword 64)) >>= fun w__62 : mword 64 => + returnm (subrange_vec_dec w__62 63 32) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"C82" : mword 12)) (Z.eqb g__311 32)) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__63 : mword 64 => + returnm (subrange_vec_dec w__63 63 32) else - (ext_read_CSR csr) >>= fun w__63 : option (mword 32) => - returnm ((match w__63 with - | Some (res) => res - | None => - let '_ := (print_bits "unhandled read to CSR " csr) : unit in - EXTZ 32 (vec_of_bits [B0;B0;B0;B0] : mword 4) - end) - : mword 32)) + (ext_read_CSR csr) >>= fun w__64 : option (mword 32) => + returnm (match w__64 with + | Some res => res + | None => + let '_ := (print_bits "unhandled read to CSR " csr) : unit in + EXTZ 32 (Ox"0" : mword 4) + end)) : M (mword 32) end) >>= fun res : xlenbits => let '_ := - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then print_endline (String.append "CSR " (String.append (csr_name csr) (String.append " -> " (string_of_bits res)))) else tt) : unit in - returnm (res - : mword 32). + returnm res. -Definition writeCSR (csr : mword 12) (value : mword 32) -: M (unit) := - +Definition writeCSR (csr : mword 12) (value : mword 32) : M (unit) := (match (csr, 32) with - | (b__0, g__216) => - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + | (b__0, g__310) => + (if eq_vec b__0 (Ox"300" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (legalize_mstatus w__0 value) >>= fun w__1 : Mstatus => write_reg mstatus_ref w__1 >> - read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__2)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (Some (_get_Mstatus_bits w__2)) + else if eq_vec b__0 (Ox"301" : mword 12) then read_reg misa_ref >>= fun w__3 : Misa => (legalize_misa w__3 value) >>= fun w__4 : Misa => write_reg misa_ref w__4 >> - read_reg misa_ref >>= fun w__5 : Misa => - returnm ((Some - (_get_Misa_bits w__5)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + read_reg misa_ref >>= fun w__5 : Misa => returnm (Some (_get_Misa_bits w__5)) + else if eq_vec b__0 (Ox"302" : mword 12) then read_reg medeleg_ref >>= fun w__6 : Medeleg => write_reg medeleg_ref (legalize_medeleg w__6 value) >> - read_reg medeleg_ref >>= fun w__7 : Medeleg => - returnm ((Some - (_get_Medeleg_bits w__7)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg medeleg_ref >>= fun w__7 : Medeleg => returnm (Some (_get_Medeleg_bits w__7)) + else if eq_vec b__0 (Ox"303" : mword 12) then read_reg mideleg_ref >>= fun w__8 : Minterrupts => write_reg mideleg_ref (legalize_mideleg w__8 value) >> read_reg mideleg_ref >>= fun w__9 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__9)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + returnm (Some (_get_Minterrupts_bits w__9)) + else if eq_vec b__0 (Ox"304" : mword 12) then read_reg mie_ref >>= fun w__10 : Minterrupts => (legalize_mie w__10 value) >>= fun w__11 : Minterrupts => write_reg mie_ref w__11 >> read_reg mie_ref >>= fun w__12 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__12)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_mtvec value) >>= fun w__13 : mword 32 => - returnm ((Some - (w__13)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + returnm (Some (_get_Minterrupts_bits w__12)) + else if eq_vec b__0 (Ox"305" : mword 12) then + (set_mtvec value) >>= fun w__13 : mword 32 => returnm (Some w__13) + else if eq_vec b__0 (Ox"306" : mword 12) then read_reg mcounteren_ref >>= fun w__14 : Counteren => - (legalize_mcounteren w__14 value) >>= fun w__15 : Counteren => - write_reg mcounteren_ref w__15 >> - read_reg mcounteren_ref >>= fun w__16 : Counteren => - returnm ((Some - (EXTZ 32 (_get_Counteren_bits w__16))) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + write_reg mcounteren_ref (legalize_mcounteren w__14 value) >> + read_reg mcounteren_ref >>= fun w__15 : Counteren => + returnm (Some (EXTZ 32 (_get_Counteren_bits w__15))) + else if eq_vec b__0 (Ox"320" : mword 12) then + read_reg mcountinhibit_ref >>= fun w__16 : Counterin => + write_reg mcountinhibit_ref (legalize_mcountinhibit w__16 value) >> + read_reg mcountinhibit_ref >>= fun w__17 : Counterin => + returnm (Some (EXTZ 32 (_get_Counterin_bits w__17))) + else if eq_vec b__0 (Ox"340" : mword 12) then write_reg mscratch_ref value >> - ((read_reg mscratch_ref) : M (mword 32)) >>= fun w__17 : mword 32 => - returnm ((Some - (w__17)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target Machine value) >>= fun w__18 : mword 32 => - returnm ((Some - (w__18)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg mscratch_ref) : M (mword 32)) >>= fun w__18 : mword 32 => returnm (Some w__18) + else if eq_vec b__0 (Ox"341" : mword 12) then + (set_xret_target Machine value) >>= fun w__19 : mword 32 => returnm (Some w__19) + else if eq_vec b__0 (Ox"342" : mword 12) then (_set_Mcause_bits mcause_ref value) >> - read_reg mcause_ref >>= fun w__19 : Mcause => - returnm ((Some - (_get_Mcause_bits w__19)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg mcause_ref >>= fun w__20 : Mcause => returnm (Some (_get_Mcause_bits w__20)) + else if eq_vec b__0 (Ox"343" : mword 12) then write_reg mtval_ref value >> - ((read_reg mtval_ref) : M (mword 32)) >>= fun w__20 : mword 32 => - returnm ((Some - (w__20)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__21 : Minterrupts => - (legalize_mip w__21 value) >>= fun w__22 : Minterrupts => - write_reg mip_ref w__22 >> - read_reg mip_ref >>= fun w__23 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__23)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - (pmpWriteCfgReg 0 value) >> returnm ((Some (value)) : option (mword 32)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] - : mword 12)) (Z.eqb g__216 32))) then - (pmpWriteCfgReg 1 value) >> returnm ((Some (value)) : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - (pmpWriteCfgReg 2 value) >> returnm ((Some (value)) : option (mword 32)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] - : mword 12)) (Z.eqb g__216 32))) then - (pmpWriteCfgReg 3 value) >> returnm ((Some (value)) : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - read_reg pmp0cfg_ref >>= fun w__24 : Pmpcfg_ent => - ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__25 : mword 32 => - write_reg pmpaddr0_ref (pmpWriteAddr w__24 w__25 value) >> - ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__26 : mword 32 => - returnm ((Some - (w__26)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - read_reg pmp1cfg_ref >>= fun w__27 : Pmpcfg_ent => - ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__28 : mword 32 => - write_reg pmpaddr1_ref (pmpWriteAddr w__27 w__28 value) >> - ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__29 : mword 32 => - returnm ((Some - (w__29)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - read_reg pmp2cfg_ref >>= fun w__30 : Pmpcfg_ent => - ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__31 : mword 32 => - write_reg pmpaddr2_ref (pmpWriteAddr w__30 w__31 value) >> - ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__32 : mword 32 => - returnm ((Some - (w__32)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - read_reg pmp3cfg_ref >>= fun w__33 : Pmpcfg_ent => - ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__34 : mword 32 => - write_reg pmpaddr3_ref (pmpWriteAddr w__33 w__34 value) >> - ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__35 : mword 32 => - returnm ((Some - (w__35)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - read_reg pmp4cfg_ref >>= fun w__36 : Pmpcfg_ent => - ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__37 : mword 32 => - write_reg pmpaddr4_ref (pmpWriteAddr w__36 w__37 value) >> - ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__38 : mword 32 => - returnm ((Some - (w__38)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - read_reg pmp5cfg_ref >>= fun w__39 : Pmpcfg_ent => - ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__40 : mword 32 => - write_reg pmpaddr5_ref (pmpWriteAddr w__39 w__40 value) >> - ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__41 : mword 32 => - returnm ((Some - (w__41)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - read_reg pmp6cfg_ref >>= fun w__42 : Pmpcfg_ent => - ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__43 : mword 32 => - write_reg pmpaddr6_ref (pmpWriteAddr w__42 w__43 value) >> - ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__44 : mword 32 => - returnm ((Some - (w__44)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - read_reg pmp7cfg_ref >>= fun w__45 : Pmpcfg_ent => - ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__46 : mword 32 => - write_reg pmpaddr7_ref (pmpWriteAddr w__45 w__46 value) >> - ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__47 : mword 32 => - returnm ((Some - (w__47)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - read_reg pmp8cfg_ref >>= fun w__48 : Pmpcfg_ent => - ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__49 : mword 32 => - write_reg pmpaddr8_ref (pmpWriteAddr w__48 w__49 value) >> - ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__50 : mword 32 => - returnm ((Some - (w__50)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - read_reg pmp9cfg_ref >>= fun w__51 : Pmpcfg_ent => - ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__52 : mword 32 => - write_reg pmpaddr9_ref (pmpWriteAddr w__51 w__52 value) >> - ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__53 : mword 32 => - returnm ((Some - (w__53)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - read_reg pmp10cfg_ref >>= fun w__54 : Pmpcfg_ent => - ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__55 : mword 32 => - write_reg pmpaddr10_ref (pmpWriteAddr w__54 w__55 value) >> - ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__56 : mword 32 => - returnm ((Some - (w__56)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - read_reg pmp11cfg_ref >>= fun w__57 : Pmpcfg_ent => - ((read_reg pmpaddr11_ref) : M (mword 32)) >>= fun w__58 : mword 32 => - write_reg pmpaddr11_ref (pmpWriteAddr w__57 w__58 value) >> - ((read_reg pmpaddr11_ref) : M (mword 32)) >>= fun w__59 : mword 32 => - returnm ((Some - (w__59)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - read_reg pmp12cfg_ref >>= fun w__60 : Pmpcfg_ent => - ((read_reg pmpaddr12_ref) : M (mword 32)) >>= fun w__61 : mword 32 => - write_reg pmpaddr12_ref (pmpWriteAddr w__60 w__61 value) >> - ((read_reg pmpaddr12_ref) : M (mword 32)) >>= fun w__62 : mword 32 => - returnm ((Some - (w__62)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - read_reg pmp13cfg_ref >>= fun w__63 : Pmpcfg_ent => - ((read_reg pmpaddr13_ref) : M (mword 32)) >>= fun w__64 : mword 32 => - write_reg pmpaddr13_ref (pmpWriteAddr w__63 w__64 value) >> - ((read_reg pmpaddr13_ref) : M (mword 32)) >>= fun w__65 : mword 32 => - returnm ((Some - (w__65)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - read_reg pmp14cfg_ref >>= fun w__66 : Pmpcfg_ent => - ((read_reg pmpaddr14_ref) : M (mword 32)) >>= fun w__67 : mword 32 => - write_reg pmpaddr14_ref (pmpWriteAddr w__66 w__67 value) >> - ((read_reg pmpaddr14_ref) : M (mword 32)) >>= fun w__68 : mword 32 => - returnm ((Some - (w__68)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - read_reg pmp15cfg_ref >>= fun w__69 : Pmpcfg_ent => - ((read_reg pmpaddr15_ref) : M (mword 32)) >>= fun w__70 : mword 32 => - write_reg pmpaddr15_ref (pmpWriteAddr w__69 w__70 value) >> - ((read_reg pmpaddr15_ref) : M (mword 32)) >>= fun w__71 : mword 32 => - returnm ((Some - (w__71)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__72 : mword 64 => - write_reg mcycle_ref (update_subrange_vec_dec w__72 (Z.sub 32 1) 0 value) >> - returnm ((Some - (value)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__73 : mword 64 => - write_reg minstret_ref (update_subrange_vec_dec w__73 (Z.sub 32 1) 0 value) >> - write_reg minstret_written_ref true >> returnm ((Some (value)) : option (mword 32)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] - : mword 12)) (Z.eqb g__216 32))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__74 : mword 64 => - write_reg mcycle_ref (update_subrange_vec_dec w__74 63 32 value) >> - returnm ((Some - (value)) - : option (mword 32)) - else if sumbool_of_bool ((andb - (eq_vec b__0 - (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] - : mword 12)) (Z.eqb g__216 32))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__75 : mword 64 => - write_reg minstret_ref (update_subrange_vec_dec w__75 63 32 value) >> - write_reg minstret_written_ref true >> returnm ((Some (value)) : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then + ((read_reg mtval_ref) : M (mword 32)) >>= fun w__21 : mword 32 => returnm (Some w__21) + else if eq_vec b__0 (Ox"344" : mword 12) then + read_reg mip_ref >>= fun w__22 : Minterrupts => + (legalize_mip w__22 value) >>= fun w__23 : Minterrupts => + write_reg mip_ref w__23 >> + read_reg mip_ref >>= fun w__24 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__24)) + else if eq_vec b__0 (Ox"3A0" : mword 12) then + (pmpWriteCfgReg 0 value) >> + (pmpReadCfgReg 0) >>= fun w__25 : mword 32 => returnm (Some w__25) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"3A1" : mword 12)) (Z.eqb g__310 32)) then + (pmpWriteCfgReg 1 value) >> + (pmpReadCfgReg 1) >>= fun w__26 : mword 32 => returnm (Some w__26) + else if eq_vec b__0 (Ox"3A2" : mword 12) then + (pmpWriteCfgReg 2 value) >> + (pmpReadCfgReg 2) >>= fun w__27 : mword 32 => returnm (Some w__27) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"3A3" : mword 12)) (Z.eqb g__310 32)) then + (pmpWriteCfgReg 3 value) >> + (pmpReadCfgReg 3) >>= fun w__28 : mword 32 => returnm (Some w__28) + else if eq_vec b__0 (Ox"3B0" : mword 12) then + read_reg pmp0cfg_ref >>= fun w__29 : Pmpcfg_ent => + read_reg pmp1cfg_ref >>= fun w__30 : Pmpcfg_ent => + (pmpTORLocked w__30) >>= fun w__31 : bool => + ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__32 : mword 32 => + write_reg pmpaddr0_ref (pmpWriteAddr (pmpLocked w__29) w__31 w__32 value) >> + ((read_reg pmpaddr0_ref) : M (mword 32)) >>= fun w__33 : mword 32 => returnm (Some w__33) + else if eq_vec b__0 (Ox"3B1" : mword 12) then + read_reg pmp1cfg_ref >>= fun w__34 : Pmpcfg_ent => + read_reg pmp2cfg_ref >>= fun w__35 : Pmpcfg_ent => + (pmpTORLocked w__35) >>= fun w__36 : bool => + ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__37 : mword 32 => + write_reg pmpaddr1_ref (pmpWriteAddr (pmpLocked w__34) w__36 w__37 value) >> + ((read_reg pmpaddr1_ref) : M (mword 32)) >>= fun w__38 : mword 32 => returnm (Some w__38) + else if eq_vec b__0 (Ox"3B2" : mword 12) then + read_reg pmp2cfg_ref >>= fun w__39 : Pmpcfg_ent => + read_reg pmp3cfg_ref >>= fun w__40 : Pmpcfg_ent => + (pmpTORLocked w__40) >>= fun w__41 : bool => + ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__42 : mword 32 => + write_reg pmpaddr2_ref (pmpWriteAddr (pmpLocked w__39) w__41 w__42 value) >> + ((read_reg pmpaddr2_ref) : M (mword 32)) >>= fun w__43 : mword 32 => returnm (Some w__43) + else if eq_vec b__0 (Ox"3B3" : mword 12) then + read_reg pmp3cfg_ref >>= fun w__44 : Pmpcfg_ent => + read_reg pmp4cfg_ref >>= fun w__45 : Pmpcfg_ent => + (pmpTORLocked w__45) >>= fun w__46 : bool => + ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__47 : mword 32 => + write_reg pmpaddr3_ref (pmpWriteAddr (pmpLocked w__44) w__46 w__47 value) >> + ((read_reg pmpaddr3_ref) : M (mword 32)) >>= fun w__48 : mword 32 => returnm (Some w__48) + else if eq_vec b__0 (Ox"3B4" : mword 12) then + read_reg pmp4cfg_ref >>= fun w__49 : Pmpcfg_ent => + read_reg pmp5cfg_ref >>= fun w__50 : Pmpcfg_ent => + (pmpTORLocked w__50) >>= fun w__51 : bool => + ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__52 : mword 32 => + write_reg pmpaddr4_ref (pmpWriteAddr (pmpLocked w__49) w__51 w__52 value) >> + ((read_reg pmpaddr4_ref) : M (mword 32)) >>= fun w__53 : mword 32 => returnm (Some w__53) + else if eq_vec b__0 (Ox"3B5" : mword 12) then + read_reg pmp5cfg_ref >>= fun w__54 : Pmpcfg_ent => + read_reg pmp6cfg_ref >>= fun w__55 : Pmpcfg_ent => + (pmpTORLocked w__55) >>= fun w__56 : bool => + ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__57 : mword 32 => + write_reg pmpaddr5_ref (pmpWriteAddr (pmpLocked w__54) w__56 w__57 value) >> + ((read_reg pmpaddr5_ref) : M (mword 32)) >>= fun w__58 : mword 32 => returnm (Some w__58) + else if eq_vec b__0 (Ox"3B6" : mword 12) then + read_reg pmp6cfg_ref >>= fun w__59 : Pmpcfg_ent => + read_reg pmp7cfg_ref >>= fun w__60 : Pmpcfg_ent => + (pmpTORLocked w__60) >>= fun w__61 : bool => + ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__62 : mword 32 => + write_reg pmpaddr6_ref (pmpWriteAddr (pmpLocked w__59) w__61 w__62 value) >> + ((read_reg pmpaddr6_ref) : M (mword 32)) >>= fun w__63 : mword 32 => returnm (Some w__63) + else if eq_vec b__0 (Ox"3B7" : mword 12) then + read_reg pmp7cfg_ref >>= fun w__64 : Pmpcfg_ent => + read_reg pmp8cfg_ref >>= fun w__65 : Pmpcfg_ent => + (pmpTORLocked w__65) >>= fun w__66 : bool => + ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__67 : mword 32 => + write_reg pmpaddr7_ref (pmpWriteAddr (pmpLocked w__64) w__66 w__67 value) >> + ((read_reg pmpaddr7_ref) : M (mword 32)) >>= fun w__68 : mword 32 => returnm (Some w__68) + else if eq_vec b__0 (Ox"3B8" : mword 12) then + read_reg pmp8cfg_ref >>= fun w__69 : Pmpcfg_ent => + read_reg pmp9cfg_ref >>= fun w__70 : Pmpcfg_ent => + (pmpTORLocked w__70) >>= fun w__71 : bool => + ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__72 : mword 32 => + write_reg pmpaddr8_ref (pmpWriteAddr (pmpLocked w__69) w__71 w__72 value) >> + ((read_reg pmpaddr8_ref) : M (mword 32)) >>= fun w__73 : mword 32 => returnm (Some w__73) + else if eq_vec b__0 (Ox"3B9" : mword 12) then + read_reg pmp9cfg_ref >>= fun w__74 : Pmpcfg_ent => + read_reg pmp10cfg_ref >>= fun w__75 : Pmpcfg_ent => + (pmpTORLocked w__75) >>= fun w__76 : bool => + ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__77 : mword 32 => + write_reg pmpaddr9_ref (pmpWriteAddr (pmpLocked w__74) w__76 w__77 value) >> + ((read_reg pmpaddr9_ref) : M (mword 32)) >>= fun w__78 : mword 32 => returnm (Some w__78) + else if eq_vec b__0 (Ox"3BA" : mword 12) then + read_reg pmp10cfg_ref >>= fun w__79 : Pmpcfg_ent => + read_reg pmp11cfg_ref >>= fun w__80 : Pmpcfg_ent => + (pmpTORLocked w__80) >>= fun w__81 : bool => + ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__82 : mword 32 => + write_reg pmpaddr10_ref (pmpWriteAddr (pmpLocked w__79) w__81 w__82 value) >> + ((read_reg pmpaddr10_ref) : M (mword 32)) >>= fun w__83 : mword 32 => + returnm (Some w__83) + else if eq_vec b__0 (Ox"3BB" : mword 12) then + read_reg pmp11cfg_ref >>= fun w__84 : Pmpcfg_ent => + read_reg pmp12cfg_ref >>= fun w__85 : Pmpcfg_ent => + (pmpTORLocked w__85) >>= fun w__86 : bool => + ((read_reg pmpaddr11_ref) : M (mword 32)) >>= fun w__87 : mword 32 => + write_reg pmpaddr11_ref (pmpWriteAddr (pmpLocked w__84) w__86 w__87 value) >> + ((read_reg pmpaddr11_ref) : M (mword 32)) >>= fun w__88 : mword 32 => + returnm (Some w__88) + else if eq_vec b__0 (Ox"3BC" : mword 12) then + read_reg pmp12cfg_ref >>= fun w__89 : Pmpcfg_ent => + read_reg pmp13cfg_ref >>= fun w__90 : Pmpcfg_ent => + (pmpTORLocked w__90) >>= fun w__91 : bool => + ((read_reg pmpaddr12_ref) : M (mword 32)) >>= fun w__92 : mword 32 => + write_reg pmpaddr12_ref (pmpWriteAddr (pmpLocked w__89) w__91 w__92 value) >> + ((read_reg pmpaddr12_ref) : M (mword 32)) >>= fun w__93 : mword 32 => + returnm (Some w__93) + else if eq_vec b__0 (Ox"3BD" : mword 12) then + read_reg pmp13cfg_ref >>= fun w__94 : Pmpcfg_ent => + read_reg pmp14cfg_ref >>= fun w__95 : Pmpcfg_ent => + (pmpTORLocked w__95) >>= fun w__96 : bool => + ((read_reg pmpaddr13_ref) : M (mword 32)) >>= fun w__97 : mword 32 => + write_reg pmpaddr13_ref (pmpWriteAddr (pmpLocked w__94) w__96 w__97 value) >> + ((read_reg pmpaddr13_ref) : M (mword 32)) >>= fun w__98 : mword 32 => + returnm (Some w__98) + else if eq_vec b__0 (Ox"3BE" : mword 12) then + read_reg pmp14cfg_ref >>= fun w__99 : Pmpcfg_ent => + read_reg pmp15cfg_ref >>= fun w__100 : Pmpcfg_ent => + (pmpTORLocked w__100) >>= fun w__101 : bool => + ((read_reg pmpaddr14_ref) : M (mword 32)) >>= fun w__102 : mword 32 => + write_reg pmpaddr14_ref (pmpWriteAddr (pmpLocked w__99) w__101 w__102 value) >> + ((read_reg pmpaddr14_ref) : M (mword 32)) >>= fun w__103 : mword 32 => + returnm (Some w__103) + else if eq_vec b__0 (Ox"3BF" : mword 12) then + read_reg pmp15cfg_ref >>= fun w__104 : Pmpcfg_ent => + ((read_reg pmpaddr15_ref) : M (mword 32)) >>= fun w__105 : mword 32 => + write_reg pmpaddr15_ref (pmpWriteAddr (pmpLocked w__104) false w__105 value) >> + ((read_reg pmpaddr15_ref) : M (mword 32)) >>= fun w__106 : mword 32 => + returnm (Some w__106) + else if eq_vec b__0 (Ox"B00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__107 : mword 64 => + write_reg mcycle_ref (update_subrange_vec_dec w__107 (Z.sub 32 1) 0 value) >> + returnm (Some value) + else if eq_vec b__0 (Ox"B02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__108 : mword 64 => + write_reg minstret_ref (update_subrange_vec_dec w__108 (Z.sub 32 1) 0 value) >> + write_reg minstret_written_ref true >> returnm (Some value) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"B80" : mword 12)) (Z.eqb g__310 32)) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__109 : mword 64 => + write_reg mcycle_ref (update_subrange_vec_dec w__109 63 32 value) >> returnm (Some value) + else if sumbool_of_bool (andb (eq_vec b__0 (Ox"B82" : mword 12)) (Z.eqb g__310 32)) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__110 : mword 64 => + write_reg minstret_ref (update_subrange_vec_dec w__110 63 32 value) >> + write_reg minstret_written_ref true >> returnm (Some value) + else if eq_vec b__0 (Ox"7A0" : mword 12) then write_reg tselect_ref value >> - ((read_reg tselect_ref) : M (mword 32)) >>= fun w__76 : mword 32 => - returnm ((Some - (w__76)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__77 : Mstatus => - (legalize_sstatus w__77 value) >>= fun w__78 : Mstatus => - write_reg mstatus_ref w__78 >> - read_reg mstatus_ref >>= fun w__79 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__79)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg sedeleg_ref >>= fun w__80 : Sedeleg => - write_reg sedeleg_ref (legalize_sedeleg w__80 value) >> - read_reg sedeleg_ref >>= fun w__81 : Sedeleg => - returnm ((Some - (_get_Sedeleg_bits w__81)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + ((read_reg tselect_ref) : M (mword 32)) >>= fun w__111 : mword 32 => + returnm (Some w__111) + else if eq_vec b__0 (Ox"100" : mword 12) then + read_reg mstatus_ref >>= fun w__112 : Mstatus => + (legalize_sstatus w__112 value) >>= fun w__113 : Mstatus => + write_reg mstatus_ref w__113 >> + read_reg mstatus_ref >>= fun w__114 : Mstatus => returnm (Some (_get_Mstatus_bits w__114)) + else if eq_vec b__0 (Ox"102" : mword 12) then + read_reg sedeleg_ref >>= fun w__115 : Sedeleg => + write_reg sedeleg_ref (legalize_sedeleg w__115 value) >> + read_reg sedeleg_ref >>= fun w__116 : Sedeleg => returnm (Some (_get_Sedeleg_bits w__116)) + else if eq_vec b__0 (Ox"103" : mword 12) then (_set_Sinterrupts_bits sideleg_ref value) >> - read_reg sideleg_ref >>= fun w__82 : Sinterrupts => - returnm ((Some - (_get_Sinterrupts_bits w__82)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__83 : Minterrupts => - read_reg mideleg_ref >>= fun w__84 : Minterrupts => - (legalize_sie w__83 w__84 value) >>= fun w__85 : Minterrupts => - write_reg mie_ref w__85 >> - read_reg mie_ref >>= fun w__86 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__86)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_stvec value) >>= fun w__87 : mword 32 => - returnm ((Some - (w__87)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - read_reg scounteren_ref >>= fun w__88 : Counteren => - (legalize_scounteren w__88 value) >>= fun w__89 : Counteren => - write_reg scounteren_ref w__89 >> - read_reg scounteren_ref >>= fun w__90 : Counteren => - returnm ((Some - (EXTZ 32 (_get_Counteren_bits w__90))) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + read_reg sideleg_ref >>= fun w__117 : Sinterrupts => + returnm (Some (_get_Sinterrupts_bits w__117)) + else if eq_vec b__0 (Ox"104" : mword 12) then + read_reg mie_ref >>= fun w__118 : Minterrupts => + read_reg mideleg_ref >>= fun w__119 : Minterrupts => + (legalize_sie w__118 w__119 value) >>= fun w__120 : Minterrupts => + write_reg mie_ref w__120 >> + read_reg mie_ref >>= fun w__121 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__121)) + else if eq_vec b__0 (Ox"105" : mword 12) then + (set_stvec value) >>= fun w__122 : mword 32 => returnm (Some w__122) + else if eq_vec b__0 (Ox"106" : mword 12) then + read_reg scounteren_ref >>= fun w__123 : Counteren => + write_reg scounteren_ref (legalize_scounteren w__123 value) >> + read_reg scounteren_ref >>= fun w__124 : Counteren => + returnm (Some (EXTZ 32 (_get_Counteren_bits w__124))) + else if eq_vec b__0 (Ox"140" : mword 12) then write_reg sscratch_ref value >> - ((read_reg sscratch_ref) : M (mword 32)) >>= fun w__91 : mword 32 => - returnm ((Some - (w__91)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target Supervisor value) >>= fun w__92 : mword 32 => - returnm ((Some - (w__92)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg sscratch_ref) : M (mword 32)) >>= fun w__125 : mword 32 => + returnm (Some w__125) + else if eq_vec b__0 (Ox"141" : mword 12) then + (set_xret_target Supervisor value) >>= fun w__126 : mword 32 => returnm (Some w__126) + else if eq_vec b__0 (Ox"142" : mword 12) then (_set_Mcause_bits scause_ref value) >> - read_reg scause_ref >>= fun w__93 : Mcause => - returnm ((Some - (_get_Mcause_bits w__93)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg scause_ref >>= fun w__127 : Mcause => returnm (Some (_get_Mcause_bits w__127)) + else if eq_vec b__0 (Ox"143" : mword 12) then write_reg stval_ref value >> - ((read_reg stval_ref) : M (mword 32)) >>= fun w__94 : mword 32 => - returnm ((Some - (w__94)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__95 : Minterrupts => - read_reg mideleg_ref >>= fun w__96 : Minterrupts => - (legalize_sip w__95 w__96 value) >>= fun w__97 : Minterrupts => - write_reg mip_ref w__97 >> - read_reg mip_ref >>= fun w__98 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__98)) - : option (mword 32)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - (cur_Architecture tt) >>= fun w__99 : Architecture => - ((read_reg satp_ref) : M (mword 32)) >>= fun w__100 : mword 32 => - write_reg satp_ref (legalize_satp w__99 w__100 value) >> - ((read_reg satp_ref) : M (mword 32)) >>= fun w__101 : mword 32 => - returnm ((Some - (w__101)) - : option (mword 32)) - else returnm (None : option (mword 32))) + ((read_reg stval_ref) : M (mword 32)) >>= fun w__128 : mword 32 => returnm (Some w__128) + else if eq_vec b__0 (Ox"144" : mword 12) then + read_reg mip_ref >>= fun w__129 : Minterrupts => + read_reg mideleg_ref >>= fun w__130 : Minterrupts => + (legalize_sip w__129 w__130 value) >>= fun w__131 : Minterrupts => + write_reg mip_ref w__131 >> + read_reg mip_ref >>= fun w__132 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__132)) + else if eq_vec b__0 (Ox"180" : mword 12) then + (cur_Architecture tt) >>= fun w__133 : Architecture => + ((read_reg satp_ref) : M (mword 32)) >>= fun w__134 : mword 32 => + write_reg satp_ref (legalize_satp w__133 w__134 value) >> + ((read_reg satp_ref) : M (mword 32)) >>= fun w__135 : mword 32 => returnm (Some w__135) + else (ext_write_CSR csr value) : M (option (mword 32))) : M (option (mword 32)) end) >>= fun res : option xlenbits => - (match res with - | Some (v) => - returnm ((if ((get_config_print_reg tt)) then - print_endline - (String.append "CSR " - (String.append (csr_name csr) - (String.append " <- " - (String.append (string_of_bits v) - (String.append " (input: " - (String.append (string_of_bits value) ")")))))) - else tt) - : unit) - | None => - (ext_write_CSR csr value) >>= fun w__151 : bool => - returnm ((if sumbool_of_bool (w__151) then tt - else print_bits "unhandled write to CSR " csr) - : unit) - end) - : M (unit). + returnm (match res with + | Some v => + if get_config_print_reg tt then + print_endline + (String.append "CSR " + (String.append (csr_name csr) + (String.append " <- " + (String.append (string_of_bits v) + (String.append " (input: " (String.append (string_of_bits value) ")")))))) + else tt + | None => print_bits "unhandled write to CSR " csr + end). -Definition maybe_i_forwards (arg_ : bool) -: string := - +Definition maybe_i_forwards (arg_ : bool) : string := match arg_ with | true => "i" | false => "" end. -Definition maybe_i_backwards (arg_ : string) -: M (bool) := - +Definition maybe_i_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "i")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ "i" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_i_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_i_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_i_backwards_matches (arg_ : string) -: bool := - +Definition maybe_i_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "i")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "i" then true + else if generic_eq p0_ "" then true else false. -Definition _s797_ (_s798_ : string) -: option string := - - let _s799_ := _s798_ in - if ((string_startswith _s799_ "")) then - match (string_drop _s799_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s1058_ (_s1059_ : string) : option string := + let _s1060_ := _s1059_ in + if string_startswith _s1060_ "" then + match (string_drop _s1060_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s793_ (_s794_ : string) -: option string := - - let _s795_ := _s794_ in - if ((string_startswith _s795_ "i")) then - match (string_drop _s795_ (projT1 (string_length "i"))) with | s_ => Some (s_) end - else None. - -Definition maybe_i_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s796_ := arg_ in - (if ((match (_s793_ _s796_) with | Some (s_) => true | _ => false end)) then - (match (_s793_ _s796_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s797_ _s796_) with | Some (s_) => true | _ => false end)) then - (match (_s797_ _s796_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s1054_ (_s1055_ : string) : option string := + let _s1056_ := _s1055_ in + if string_startswith _s1056_ "i" then + match (string_drop _s1056_ (projT1 (string_length "i"))) with | s_ => Some s_ end + else None. + +Definition maybe_i_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s1057_ := arg_ in + (if match (_s1054_ _s1057_) with | Some s_ => true | _ => false end then + (match (_s1054_ _s1057_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1058_ _s1057_) with | Some s_ => true | _ => false end then + (match (_s1058_ _s1057_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition csr_mnemonic_forwards (arg_ : csrop) -: string := - +Definition csr_mnemonic_forwards (arg_ : csrop) : string := match arg_ with | CSRRW => "csrrw" | CSRRS => "csrrs" | CSRRC => "csrrc" end. -Definition csr_mnemonic_backwards (arg_ : string) -: M (csrop) := - +Definition csr_mnemonic_backwards (arg_ : string) : M (csrop) := let p0_ := arg_ in - (if ((generic_eq p0_ "csrrw")) then returnm (CSRRW : csrop) - else if ((generic_eq p0_ "csrrs")) then returnm (CSRRS : csrop) - else if ((generic_eq p0_ "csrrc")) then returnm (CSRRC : csrop) + (if generic_eq p0_ "csrrw" then returnm CSRRW + else if generic_eq p0_ "csrrs" then returnm CSRRS + else if generic_eq p0_ "csrrc" then returnm CSRRC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (csrop). -Definition csr_mnemonic_forwards_matches (arg_ : csrop) -: bool := - +Definition csr_mnemonic_forwards_matches (arg_ : csrop) : bool := match arg_ with | CSRRW => true | CSRRS => true | CSRRC => true end. -Definition csr_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition csr_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "csrrw")) then true - else if ((generic_eq p0_ "csrrs")) then true - else if ((generic_eq p0_ "csrrc")) then true + if generic_eq p0_ "csrrw" then true + else if generic_eq p0_ "csrrs" then true + else if generic_eq p0_ "csrrc" then true else false. -Definition _s809_ (_s810_ : string) -: option string := - - let _s811_ := _s810_ in - if ((string_startswith _s811_ "csrrc")) then - match (string_drop _s811_ (projT1 (string_length "csrrc"))) with | s_ => Some (s_) end +Definition _s1070_ (_s1071_ : string) : option string := + let _s1072_ := _s1071_ in + if string_startswith _s1072_ "csrrc" then + match (string_drop _s1072_ (projT1 (string_length "csrrc"))) with | s_ => Some s_ end else None. -Definition _s805_ (_s806_ : string) -: option string := - - let _s807_ := _s806_ in - if ((string_startswith _s807_ "csrrs")) then - match (string_drop _s807_ (projT1 (string_length "csrrs"))) with | s_ => Some (s_) end +Definition _s1066_ (_s1067_ : string) : option string := + let _s1068_ := _s1067_ in + if string_startswith _s1068_ "csrrs" then + match (string_drop _s1068_ (projT1 (string_length "csrrs"))) with | s_ => Some s_ end else None. -Definition _s801_ (_s802_ : string) -: option string := - - let _s803_ := _s802_ in - if ((string_startswith _s803_ "csrrw")) then - match (string_drop _s803_ (projT1 (string_length "csrrw"))) with | s_ => Some (s_) end - else None. - -Definition csr_mnemonic_matches_prefix (arg_ : string) -: M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) := - - let _s804_ := arg_ in - (if ((match (_s801_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s801_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s805_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s805_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRS, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s809_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s809_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRC, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) +Definition _s1062_ (_s1063_ : string) : option string := + let _s1064_ := _s1063_ in + if string_startswith _s1064_ "csrrw" then + match (string_drop _s1064_ (projT1 (string_length "csrrw"))) with | s_ => Some s_ end + else None. + +Definition csr_mnemonic_matches_prefix (arg_ : string) +: M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) := + let _s1065_ := arg_ in + (if match (_s1062_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1062_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1066_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1066_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRS, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1070_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1070_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRC, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((csrop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_forwards (arg_ : ast) -: M (mword 32) := - +Definition encdec_rounding_mode_forwards (arg_ : rounding_mode) : mword 3 := + match arg_ with + | RM_RNE => 'b"000" : mword 3 + | RM_RTZ => 'b"001" : mword 3 + | RM_RDN => 'b"010" : mword 3 + | RM_RUP => 'b"011" : mword 3 + | RM_RMM => 'b"100" : mword 3 + | RM_DYN => 'b"111" : mword 3 + end. + +Definition encdec_rounding_mode_backwards (arg_ : mword 3) : M (rounding_mode) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"000" : mword 3) then returnm RM_RNE + else if eq_vec b__0 ('b"001" : mword 3) then returnm RM_RTZ + else if eq_vec b__0 ('b"010" : mword 3) then returnm RM_RDN + else if eq_vec b__0 ('b"011" : mword 3) then returnm RM_RUP + else if eq_vec b__0 ('b"100" : mword 3) then returnm RM_RMM + else if eq_vec b__0 ('b"111" : mword 3) then returnm RM_DYN + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (rounding_mode). + +Definition encdec_rounding_mode_forwards_matches (arg_ : rounding_mode) : bool := + match arg_ with + | RM_RNE => true + | RM_RTZ => true + | RM_RDN => true + | RM_RUP => true + | RM_RMM => true + | RM_DYN => true + end. + +Definition encdec_rounding_mode_backwards_matches (arg_ : mword 3) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true + else false. + +Definition frm_mnemonic_forwards (arg_ : rounding_mode) : string := + match arg_ with + | RM_RNE => "rne" + | RM_RTZ => "rtz" + | RM_RDN => "rdn" + | RM_RUP => "rup" + | RM_RMM => "rmm" + | RM_DYN => "dyn" + end. + +Definition frm_mnemonic_backwards (arg_ : string) : M (rounding_mode) := + let p0_ := arg_ in + (if generic_eq p0_ "rne" then returnm RM_RNE + else if generic_eq p0_ "rtz" then returnm RM_RTZ + else if generic_eq p0_ "rdn" then returnm RM_RDN + else if generic_eq p0_ "rup" then returnm RM_RUP + else if generic_eq p0_ "rmm" then returnm RM_RMM + else if generic_eq p0_ "dyn" then returnm RM_DYN + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (rounding_mode). + +Definition frm_mnemonic_forwards_matches (arg_ : rounding_mode) : bool := + match arg_ with + | RM_RNE => true + | RM_RTZ => true + | RM_RDN => true + | RM_RUP => true + | RM_RMM => true + | RM_DYN => true + end. + +Definition frm_mnemonic_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "rne" then true + else if generic_eq p0_ "rtz" then true + else if generic_eq p0_ "rdn" then true + else if generic_eq p0_ "rup" then true + else if generic_eq p0_ "rmm" then true + else if generic_eq p0_ "dyn" then true + else false. + +Definition _s1094_ (_s1095_ : string) : option string := + let _s1096_ := _s1095_ in + if string_startswith _s1096_ "dyn" then + match (string_drop _s1096_ (projT1 (string_length "dyn"))) with | s_ => Some s_ end + else None. + +Definition _s1090_ (_s1091_ : string) : option string := + let _s1092_ := _s1091_ in + if string_startswith _s1092_ "rmm" then + match (string_drop _s1092_ (projT1 (string_length "rmm"))) with | s_ => Some s_ end + else None. + +Definition _s1086_ (_s1087_ : string) : option string := + let _s1088_ := _s1087_ in + if string_startswith _s1088_ "rup" then + match (string_drop _s1088_ (projT1 (string_length "rup"))) with | s_ => Some s_ end + else None. + +Definition _s1082_ (_s1083_ : string) : option string := + let _s1084_ := _s1083_ in + if string_startswith _s1084_ "rdn" then + match (string_drop _s1084_ (projT1 (string_length "rdn"))) with | s_ => Some s_ end + else None. + +Definition _s1078_ (_s1079_ : string) : option string := + let _s1080_ := _s1079_ in + if string_startswith _s1080_ "rtz" then + match (string_drop _s1080_ (projT1 (string_length "rtz"))) with | s_ => Some s_ end + else None. + +Definition _s1074_ (_s1075_ : string) : option string := + let _s1076_ := _s1075_ in + if string_startswith _s1076_ "rne" then + match (string_drop _s1076_ (projT1 (string_length "rne"))) with | s_ => Some s_ end + else None. + +Definition frm_mnemonic_matches_prefix (arg_ : string) +: M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) := + let _s1077_ := arg_ in + (if match (_s1074_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1074_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RNE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1078_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1078_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RTZ, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1082_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1082_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RDN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1086_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1086_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RUP, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1090_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1090_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RMM, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1094_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1094_ _s1077_) with + | Some s_ => + returnm (Some + (RM_DYN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))). + +Definition select_instr_or_fcsr_rm (instr_rm : rounding_mode) : M (rounding_mode) := + (if generic_eq instr_rm RM_DYN then + read_reg fcsr_ref >>= fun w__0 : Fcsr => + (encdec_rounding_mode_backwards (_get_Fcsr_FRM w__0)) + : M (rounding_mode) + else returnm instr_rm) + : M (rounding_mode). + +Definition nxFlag '(tt : unit) : mword 5 := 'b"00001" : mword 5. + +Definition ufFlag '(tt : unit) : mword 5 := 'b"00010" : mword 5. + +Definition ofFlag '(tt : unit) : mword 5 := 'b"00100" : mword 5. + +Definition dzFlag '(tt : unit) : mword 5 := 'b"01000" : mword 5. + +Definition nvFlag '(tt : unit) : mword 5 := 'b"10000" : mword 5. + +Definition fsplit_S (x32 : mword 32) : (mword 1 * mword 8 * mword 23) := + (subrange_vec_dec x32 31 31, subrange_vec_dec x32 30 23, subrange_vec_dec x32 22 0). + +Definition fmake_S (sign : mword 1) (exp : mword 8) (mant : mword 23) : mword 32 := + concat_vec sign (concat_vec exp mant). + +Definition canonical_NaN_S '(tt : unit) : mword 32 := Ox"7FC00000" : mword 32. + +Definition f_is_neg_inf_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (ones 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_neg_norm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (neq_vec exp (zeros_implicit 8)) (neq_vec exp (ones 8))). + +Definition f_is_neg_subnorm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (zeros_implicit 8)) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_neg_zero_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (ones 1)) + (andb (eq_vec exp (zeros_implicit 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_zero_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_subnorm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 8)) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_norm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (neq_vec exp (zeros_implicit 8)) (neq_vec exp (ones 8))). + +Definition f_is_pos_inf_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (ones 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_SNaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) + (andb (eq_bit (access_vec_dec mant 22) B0) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_QNaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) (eq_bit (access_vec_dec mant 22) B1). + +Definition f_is_NaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) (neq_vec mant (zeros_implicit 23)). + +Definition negate_S (x32 : mword 32) : mword 32 := + let '(sign, exp, mant) := fsplit_S x32 in + let new_sign := if eq_vec sign ('b"0" : mword 1) then 'b"1" : mword 1 else 'b"0" : mword 1 in + fmake_S new_sign exp mant. + +Definition feq_quiet_S (v1 : mword 32) (v2 : mword 32) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let v1Is0 := orb (f_is_neg_zero_S v1) (f_is_pos_zero_S v1) in + let v2Is0 := orb (f_is_neg_zero_S v2) (f_is_pos_zero_S v2) in + let result := orb (eq_vec v1 v2) (andb v1Is0 v2Is0) in + let fflags := if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt else zeros_implicit 5 in + (result, fflags). + +Definition flt_S (v1 : mword 32) (v2 : mword 32) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.ltb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then false + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.gtb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_S v1) (f_is_NaN_S v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition fle_S (v1 : mword 32) (v2 : mword 32) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let v1Is0 := orb (f_is_neg_zero_S v1) (f_is_pos_zero_S v1) in + let v2Is0 := orb (f_is_neg_zero_S v2) (f_is_pos_zero_S v2) in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.leb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then + andb v1Is0 v2Is0 + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.geb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_S v1) (f_is_NaN_S v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition nan_box (val_32b : mword 32) : mword 32 := val_32b. + +Definition nan_unbox (regval : mword 32) : mword 32 := regval. + +Definition is_RV32F_or_RV64F '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveFExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 32 32) (Z.eqb 32 64)) + : {_bool : bool & ArithFact (Bool.eqb ((32 =? 32) || (32 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((32 =? + 32) || + (32 =? 64)) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((32 =? 32) || (32 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && ((32 =? 32) || (32 =? 64))) _bool = true)})). + +Definition is_RV64F '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveFExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 64) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 64) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 64) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 64)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 64)) _bool = true)})). + +Definition is_RV32D_or_RV64D '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveDExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 32 32) (Z.eqb 32 64)) + : {_bool : bool & ArithFact (Bool.eqb ((32 =? 32) || (32 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((32 =? + 32) || + (32 =? 64)) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((32 =? 32) || (32 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && ((32 =? 32) || (32 =? 64))) _bool = true)})). + +Definition is_RV64D '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveDExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 64) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 64) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 64) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 64)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 64)) _bool = true)})). + +Definition process_fload64 (rd : mword 5) (addr : mword 32) (value : MemoryOpResult (mword 64)) +: M (Retired) := + returnm RETIRE_FAIL. + +Definition process_fload32 (rd : mword 5) (addr : mword 32) (value : MemoryOpResult (mword 32)) +: M (Retired) := + (match value with + | MemValue result => (wF_bits rd (nan_box result)) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + end) + : M (Retired). + +Definition process_fstore (vaddr : mword 32) (value : MemoryOpResult bool) : M (Retired) := + (match value with + | MemValue true => returnm RETIRE_SUCCESS + | MemValue false => (internal_error "store got false from mem_write_value") : M (Retired) + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + end) + : M (Retired). + +Definition f_madd_type_mnemonic_S_forwards (arg_ : f_madd_op_S) : string := + match arg_ with + | FMADD_S => "fmadd.s" + | FMSUB_S => "fmsub.s" + | FNMSUB_S => "fnmsub.s" + | FNMADD_S => "fnmadd.s" + end. + +Definition f_madd_type_mnemonic_S_backwards (arg_ : string) : M (f_madd_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fmadd.s" then returnm FMADD_S + else if generic_eq p0_ "fmsub.s" then returnm FMSUB_S + else if generic_eq p0_ "fnmsub.s" then returnm FNMSUB_S + else if generic_eq p0_ "fnmadd.s" then returnm FNMADD_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_madd_op_S). + +Definition f_madd_type_mnemonic_S_forwards_matches (arg_ : f_madd_op_S) : bool := + match arg_ with | FMADD_S => true | FMSUB_S => true | FNMSUB_S => true | FNMADD_S => true end. + +Definition f_madd_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmadd.s" then true + else if generic_eq p0_ "fmsub.s" then true + else if generic_eq p0_ "fnmsub.s" then true + else if generic_eq p0_ "fnmadd.s" then true + else false. + +Definition _s1110_ (_s1111_ : string) : option string := + let _s1112_ := _s1111_ in + if string_startswith _s1112_ "fnmadd.s" then + match (string_drop _s1112_ (projT1 (string_length "fnmadd.s"))) with | s_ => Some s_ end + else None. + +Definition _s1106_ (_s1107_ : string) : option string := + let _s1108_ := _s1107_ in + if string_startswith _s1108_ "fnmsub.s" then + match (string_drop _s1108_ (projT1 (string_length "fnmsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1102_ (_s1103_ : string) : option string := + let _s1104_ := _s1103_ in + if string_startswith _s1104_ "fmsub.s" then + match (string_drop _s1104_ (projT1 (string_length "fmsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1098_ (_s1099_ : string) : option string := + let _s1100_ := _s1099_ in + if string_startswith _s1100_ "fmadd.s" then + match (string_drop _s1100_ (projT1 (string_length "fmadd.s"))) with | s_ => Some s_ end + else None. + +Definition f_madd_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1101_ := arg_ in + (if match (_s1098_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1098_ _s1101_) with + | Some s_ => + returnm (Some + (FMADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1102_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1102_ _s1101_) with + | Some s_ => + returnm (Some + (FMSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1106_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1106_ _s1101_) with + | Some s_ => + returnm (Some + (FNMSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1110_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1110_ _s1101_) with + | Some s_ => + returnm (Some + (FNMADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_rm_type_mnemonic_S_forwards (arg_ : f_bin_rm_op_S) : string := + match arg_ with + | FADD_S => "fadd.s" + | FSUB_S => "fsub.s" + | FMUL_S => "fmul.s" + | FDIV_S => "fdiv.s" + end. + +Definition f_bin_rm_type_mnemonic_S_backwards (arg_ : string) : M (f_bin_rm_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fadd.s" then returnm FADD_S + else if generic_eq p0_ "fsub.s" then returnm FSUB_S + else if generic_eq p0_ "fmul.s" then returnm FMUL_S + else if generic_eq p0_ "fdiv.s" then returnm FDIV_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_rm_op_S). + +Definition f_bin_rm_type_mnemonic_S_forwards_matches (arg_ : f_bin_rm_op_S) : bool := + match arg_ with | FADD_S => true | FSUB_S => true | FMUL_S => true | FDIV_S => true end. + +Definition f_bin_rm_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fadd.s" then true + else if generic_eq p0_ "fsub.s" then true + else if generic_eq p0_ "fmul.s" then true + else if generic_eq p0_ "fdiv.s" then true + else false. + +Definition _s1126_ (_s1127_ : string) : option string := + let _s1128_ := _s1127_ in + if string_startswith _s1128_ "fdiv.s" then + match (string_drop _s1128_ (projT1 (string_length "fdiv.s"))) with | s_ => Some s_ end + else None. + +Definition _s1122_ (_s1123_ : string) : option string := + let _s1124_ := _s1123_ in + if string_startswith _s1124_ "fmul.s" then + match (string_drop _s1124_ (projT1 (string_length "fmul.s"))) with | s_ => Some s_ end + else None. + +Definition _s1118_ (_s1119_ : string) : option string := + let _s1120_ := _s1119_ in + if string_startswith _s1120_ "fsub.s" then + match (string_drop _s1120_ (projT1 (string_length "fsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1114_ (_s1115_ : string) : option string := + let _s1116_ := _s1115_ in + if string_startswith _s1116_ "fadd.s" then + match (string_drop _s1116_ (projT1 (string_length "fadd.s"))) with | s_ => Some s_ end + else None. + +Definition f_bin_rm_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1117_ := arg_ in + (if match (_s1114_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1114_ _s1117_) with + | Some s_ => + returnm (Some + (FADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1118_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1118_ _s1117_) with + | Some s_ => + returnm (Some + (FSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1122_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1122_ _s1117_) with + | Some s_ => + returnm (Some + (FMUL_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1126_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1126_ _s1117_) with + | Some s_ => + returnm (Some + (FDIV_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_rm_type_mnemonic_S_forwards (arg_ : f_un_rm_op_S) : string := + match arg_ with + | FSQRT_S => "fsqrt.s" + | FCVT_W_S => "fcvt.w.s" + | FCVT_WU_S => "fcvt.wu.s" + | FCVT_S_W => "fcvt.s.w" + | FCVT_S_WU => "fcvt.s.wu" + | FCVT_L_S => "fcvt.l.s" + | FCVT_LU_S => "fcvt.lu.s" + | FCVT_S_L => "fcvt.s.l" + | FCVT_S_LU => "fcvt.s.lu" + end. + +Definition f_un_rm_type_mnemonic_S_backwards (arg_ : string) : M (f_un_rm_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fsqrt.s" then returnm FSQRT_S + else if generic_eq p0_ "fcvt.w.s" then returnm FCVT_W_S + else if generic_eq p0_ "fcvt.wu.s" then returnm FCVT_WU_S + else if generic_eq p0_ "fcvt.s.w" then returnm FCVT_S_W + else if generic_eq p0_ "fcvt.s.wu" then returnm FCVT_S_WU + else if generic_eq p0_ "fcvt.l.s" then returnm FCVT_L_S + else if generic_eq p0_ "fcvt.lu.s" then returnm FCVT_LU_S + else if generic_eq p0_ "fcvt.s.l" then returnm FCVT_S_L + else if generic_eq p0_ "fcvt.s.lu" then returnm FCVT_S_LU + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_rm_op_S). + +Definition f_un_rm_type_mnemonic_S_forwards_matches (arg_ : f_un_rm_op_S) : bool := + match arg_ with + | FSQRT_S => true + | FCVT_W_S => true + | FCVT_WU_S => true + | FCVT_S_W => true + | FCVT_S_WU => true + | FCVT_L_S => true + | FCVT_LU_S => true + | FCVT_S_L => true + | FCVT_S_LU => true + end. + +Definition f_un_rm_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsqrt.s" then true + else if generic_eq p0_ "fcvt.w.s" then true + else if generic_eq p0_ "fcvt.wu.s" then true + else if generic_eq p0_ "fcvt.s.w" then true + else if generic_eq p0_ "fcvt.s.wu" then true + else if generic_eq p0_ "fcvt.l.s" then true + else if generic_eq p0_ "fcvt.lu.s" then true + else if generic_eq p0_ "fcvt.s.l" then true + else if generic_eq p0_ "fcvt.s.lu" then true + else false. + +Definition _s1162_ (_s1163_ : string) : option string := + let _s1164_ := _s1163_ in + if string_startswith _s1164_ "fcvt.s.lu" then + match (string_drop _s1164_ (projT1 (string_length "fcvt.s.lu"))) with | s_ => Some s_ end + else None. + +Definition _s1158_ (_s1159_ : string) : option string := + let _s1160_ := _s1159_ in + if string_startswith _s1160_ "fcvt.s.l" then + match (string_drop _s1160_ (projT1 (string_length "fcvt.s.l"))) with | s_ => Some s_ end + else None. + +Definition _s1154_ (_s1155_ : string) : option string := + let _s1156_ := _s1155_ in + if string_startswith _s1156_ "fcvt.lu.s" then + match (string_drop _s1156_ (projT1 (string_length "fcvt.lu.s"))) with | s_ => Some s_ end + else None. + +Definition _s1150_ (_s1151_ : string) : option string := + let _s1152_ := _s1151_ in + if string_startswith _s1152_ "fcvt.l.s" then + match (string_drop _s1152_ (projT1 (string_length "fcvt.l.s"))) with | s_ => Some s_ end + else None. + +Definition _s1146_ (_s1147_ : string) : option string := + let _s1148_ := _s1147_ in + if string_startswith _s1148_ "fcvt.s.wu" then + match (string_drop _s1148_ (projT1 (string_length "fcvt.s.wu"))) with | s_ => Some s_ end + else None. + +Definition _s1142_ (_s1143_ : string) : option string := + let _s1144_ := _s1143_ in + if string_startswith _s1144_ "fcvt.s.w" then + match (string_drop _s1144_ (projT1 (string_length "fcvt.s.w"))) with | s_ => Some s_ end + else None. + +Definition _s1138_ (_s1139_ : string) : option string := + let _s1140_ := _s1139_ in + if string_startswith _s1140_ "fcvt.wu.s" then + match (string_drop _s1140_ (projT1 (string_length "fcvt.wu.s"))) with | s_ => Some s_ end + else None. + +Definition _s1134_ (_s1135_ : string) : option string := + let _s1136_ := _s1135_ in + if string_startswith _s1136_ "fcvt.w.s" then + match (string_drop _s1136_ (projT1 (string_length "fcvt.w.s"))) with | s_ => Some s_ end + else None. + +Definition _s1130_ (_s1131_ : string) : option string := + let _s1132_ := _s1131_ in + if string_startswith _s1132_ "fsqrt.s" then + match (string_drop _s1132_ (projT1 (string_length "fsqrt.s"))) with | s_ => Some s_ end + else None. + +Definition f_un_rm_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1133_ := arg_ in + (if match (_s1130_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1130_ _s1133_) with + | Some s_ => + returnm (Some + (FSQRT_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1134_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1134_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_W_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1138_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1138_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_WU_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1142_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1142_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_W, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1146_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1146_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_WU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1150_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1150_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_L_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1154_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1154_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_LU_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1158_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1158_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_L, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1162_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1162_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_LU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_type_mnemonic_S_forwards (arg_ : f_bin_op_S) : string := + match arg_ with + | FSGNJ_S => "fsgnj.s" + | FSGNJN_S => "fsgnjn.s" + | FSGNJX_S => "fsgnjx.s" + | FMIN_S => "fmin.s" + | FMAX_S => "fmax.s" + | FEQ_S => "feq.s" + | FLT_S => "flt.s" + | FLE_S => "fle.s" + end. + +Definition f_bin_type_mnemonic_S_backwards (arg_ : string) : M (f_bin_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fsgnj.s" then returnm FSGNJ_S + else if generic_eq p0_ "fsgnjn.s" then returnm FSGNJN_S + else if generic_eq p0_ "fsgnjx.s" then returnm FSGNJX_S + else if generic_eq p0_ "fmin.s" then returnm FMIN_S + else if generic_eq p0_ "fmax.s" then returnm FMAX_S + else if generic_eq p0_ "feq.s" then returnm FEQ_S + else if generic_eq p0_ "flt.s" then returnm FLT_S + else if generic_eq p0_ "fle.s" then returnm FLE_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_op_S). + +Definition f_bin_type_mnemonic_S_forwards_matches (arg_ : f_bin_op_S) : bool := + match arg_ with + | FSGNJ_S => true + | FSGNJN_S => true + | FSGNJX_S => true + | FMIN_S => true + | FMAX_S => true + | FEQ_S => true + | FLT_S => true + | FLE_S => true + end. + +Definition f_bin_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsgnj.s" then true + else if generic_eq p0_ "fsgnjn.s" then true + else if generic_eq p0_ "fsgnjx.s" then true + else if generic_eq p0_ "fmin.s" then true + else if generic_eq p0_ "fmax.s" then true + else if generic_eq p0_ "feq.s" then true + else if generic_eq p0_ "flt.s" then true + else if generic_eq p0_ "fle.s" then true + else false. + +Definition _s1194_ (_s1195_ : string) : option string := + let _s1196_ := _s1195_ in + if string_startswith _s1196_ "fle.s" then + match (string_drop _s1196_ (projT1 (string_length "fle.s"))) with | s_ => Some s_ end + else None. + +Definition _s1190_ (_s1191_ : string) : option string := + let _s1192_ := _s1191_ in + if string_startswith _s1192_ "flt.s" then + match (string_drop _s1192_ (projT1 (string_length "flt.s"))) with | s_ => Some s_ end + else None. + +Definition _s1186_ (_s1187_ : string) : option string := + let _s1188_ := _s1187_ in + if string_startswith _s1188_ "feq.s" then + match (string_drop _s1188_ (projT1 (string_length "feq.s"))) with | s_ => Some s_ end + else None. + +Definition _s1182_ (_s1183_ : string) : option string := + let _s1184_ := _s1183_ in + if string_startswith _s1184_ "fmax.s" then + match (string_drop _s1184_ (projT1 (string_length "fmax.s"))) with | s_ => Some s_ end + else None. + +Definition _s1178_ (_s1179_ : string) : option string := + let _s1180_ := _s1179_ in + if string_startswith _s1180_ "fmin.s" then + match (string_drop _s1180_ (projT1 (string_length "fmin.s"))) with | s_ => Some s_ end + else None. + +Definition _s1174_ (_s1175_ : string) : option string := + let _s1176_ := _s1175_ in + if string_startswith _s1176_ "fsgnjx.s" then + match (string_drop _s1176_ (projT1 (string_length "fsgnjx.s"))) with | s_ => Some s_ end + else None. + +Definition _s1170_ (_s1171_ : string) : option string := + let _s1172_ := _s1171_ in + if string_startswith _s1172_ "fsgnjn.s" then + match (string_drop _s1172_ (projT1 (string_length "fsgnjn.s"))) with | s_ => Some s_ end + else None. + +Definition _s1166_ (_s1167_ : string) : option string := + let _s1168_ := _s1167_ in + if string_startswith _s1168_ "fsgnj.s" then + match (string_drop _s1168_ (projT1 (string_length "fsgnj.s"))) with | s_ => Some s_ end + else None. + +Definition f_bin_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1169_ := arg_ in + (if match (_s1166_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1166_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJ_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1170_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1170_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJN_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1174_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1174_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJX_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1178_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1178_ _s1169_) with + | Some s_ => + returnm (Some + (FMIN_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1182_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1182_ _s1169_) with + | Some s_ => + returnm (Some + (FMAX_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1186_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1186_ _s1169_) with + | Some s_ => + returnm (Some + (FEQ_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1190_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1190_ _s1169_) with + | Some s_ => + returnm (Some + (FLT_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1194_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1194_ _s1169_) with + | Some s_ => + returnm (Some + (FLE_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_type_mnemonic_S_forwards (arg_ : f_un_op_S) : string := + match arg_ with | FMV_X_W => "fmv.x.w" | FCLASS_S => "fclass.s" | FMV_W_X => "fmv.w.x" end. + +Definition f_un_type_mnemonic_S_backwards (arg_ : string) : M (f_un_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fmv.x.w" then returnm FMV_X_W + else if generic_eq p0_ "fclass.s" then returnm FCLASS_S + else if generic_eq p0_ "fmv.w.x" then returnm FMV_W_X + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_op_S). + +Definition f_un_type_mnemonic_S_forwards_matches (arg_ : f_un_op_S) : bool := + match arg_ with | FMV_X_W => true | FCLASS_S => true | FMV_W_X => true end. + +Definition f_un_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmv.x.w" then true + else if generic_eq p0_ "fclass.s" then true + else if generic_eq p0_ "fmv.w.x" then true + else false. + +Definition _s1206_ (_s1207_ : string) : option string := + let _s1208_ := _s1207_ in + if string_startswith _s1208_ "fmv.w.x" then + match (string_drop _s1208_ (projT1 (string_length "fmv.w.x"))) with | s_ => Some s_ end + else None. + +Definition _s1202_ (_s1203_ : string) : option string := + let _s1204_ := _s1203_ in + if string_startswith _s1204_ "fclass.s" then + match (string_drop _s1204_ (projT1 (string_length "fclass.s"))) with | s_ => Some s_ end + else None. + +Definition _s1198_ (_s1199_ : string) : option string := + let _s1200_ := _s1199_ in + if string_startswith _s1200_ "fmv.x.w" then + match (string_drop _s1200_ (projT1 (string_length "fmv.x.w"))) with | s_ => Some s_ end + else None. + +Definition f_un_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1201_ := arg_ in + (if match (_s1198_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1198_ _s1201_) with + | Some s_ => + returnm (Some + (FMV_X_W, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1202_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1202_ _s1201_) with + | Some s_ => + returnm (Some + (FCLASS_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1206_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1206_ _s1201_) with + | Some s_ => + returnm (Some + (FMV_W_X, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition encdec_forwards (arg_ : ast) : M (mword 32) := (match arg_ with - | UTYPE ((imm, rd, op)) => - returnm ((concat_vec (imm : mword 20) (concat_vec (rd : mword 5) (encdec_uop_forwards op))) - : mword (20 + (5 + 7))) - | RISCV_JAL ((v__2, rd)) => - (if ((eq_vec (subrange_vec_dec v__2 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then + | UTYPE (imm, rd, op) => + returnm (concat_vec (imm : mword 20) (concat_vec (rd : mword 5) (encdec_uop_forwards op))) + | RISCV_JAL (v__2, rd) => + (if eq_vec (subrange_vec_dec v__2 0 0) ('b"0" : mword (0 - 0 + 1)) then let imm_19 : bits 1 := subrange_vec_dec v__2 20 20 in let imm_8 : bits 1 := subrange_vec_dec v__2 11 11 in let imm_7_0 : bits 8 := subrange_vec_dec v__2 19 12 in let imm_19 : bits 1 := subrange_vec_dec v__2 20 20 in let imm_18_13 : bits 6 := subrange_vec_dec v__2 10 5 in let imm_12_9 : bits 4 := subrange_vec_dec v__2 4 1 in - returnm ((concat_vec (imm_19 : bits 1) - (concat_vec (imm_18_13 : bits 6) - (concat_vec (imm_12_9 : bits 4) - (concat_vec (imm_8 : bits 1) - (concat_vec (imm_7_0 : bits 8) - (concat_vec (rd : mword 5) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword 7))))))) - : mword 32) + returnm (concat_vec (imm_19 : bits 1) + (concat_vec (imm_18_13 : bits 6) + (concat_vec (imm_12_9 : bits 4) + (concat_vec (imm_8 : bits 1) + (concat_vec (imm_7_0 : bits 8) + (concat_vec (rd : mword 5) ('b"1101111" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RISCV_JALR ((imm, rs1, rd)) => - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | BTYPE ((v__4, rs2, rs1, op)) => - (if ((eq_vec (subrange_vec_dec v__4 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then + | RISCV_JALR (imm, rs1, rd) => + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1100111" : mword 7))))) + | BTYPE (v__4, rs2, rs1, op) => + (if eq_vec (subrange_vec_dec v__4 0 0) ('b"0" : mword (0 - 0 + 1)) then let imm7_6 : bits 1 := subrange_vec_dec v__4 12 12 in let imm7_6 : bits 1 := subrange_vec_dec v__4 12 12 in let imm7_5_0 : bits 6 := subrange_vec_dec v__4 10 5 in let imm5_4_1 : bits 4 := subrange_vec_dec v__4 4 1 in let imm5_0 : bits 1 := subrange_vec_dec v__4 11 11 in - returnm ((concat_vec (imm7_6 : bits 1) - (concat_vec (imm7_5_0 : bits 6) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (encdec_bop_forwards op) - (concat_vec (imm5_4_1 : bits 4) - (concat_vec (imm5_0 : bits 1) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword 7)))))))) - : mword 32) + returnm (concat_vec (imm7_6 : bits 1) + (concat_vec (imm7_5_0 : bits 6) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_bop_forwards op) + (concat_vec (imm5_4_1 : bits 4) + (concat_vec (imm5_0 : bits 1) ('b"1100011" : mword 7)))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | ITYPE ((imm, rs1, rd, op)) => - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (encdec_iop_forwards op) - (concat_vec (rd : mword 5) (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SLLI)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRLI)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRAI)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_ADD)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLT)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLTU)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_AND)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_OR)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_XOR)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLL)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SRL)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SUB)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SRA)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | LOAD ((imm, rs1, rd, is_unsigned, size, false, false)) => - (if sumbool_of_bool ((orb (Z.ltb (projT1 (word_width_bytes size)) 4) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 4) - : bool)))) then - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (bool_bits_forwards is_unsigned) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword 7)))))) - : mword (12 + (5 + (1 + (2 + (5 + 7)))))) + | ITYPE (imm, rs1, rd, op) => + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_iop_forwards op) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SLLI) => + returnm (concat_vec ('b"000000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SRLI) => + returnm (concat_vec ('b"000000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SRAI) => + returnm (concat_vec ('b"010000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_ADD) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLT) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLTU) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_AND) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"111" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_OR) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"110" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_XOR) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"100" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLL) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SRL) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SUB) => + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SRA) => + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | LOAD (imm, rs1, rd, is_unsigned, size, false, false) => + (if sumbool_of_bool + (orb (Z.ltb (projT1 (word_width_bytes size)) 4) + (andb (negb is_unsigned) ((Z.leb (projT1 (word_width_bytes size)) 4) : bool))) then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (bool_bits_forwards is_unsigned) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0000011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | STORE ((v__6, rs2, rs1, size, false, false)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then + | STORE (v__6, rs2, rs1, size, false, false) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then let imm7 : bits 7 := subrange_vec_dec v__6 11 5 in let imm7 : bits 7 := subrange_vec_dec v__6 11 5 in let imm5 : bits 5 := subrange_vec_dec v__6 4 0 in - returnm ((concat_vec (imm7 : bits 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (imm5 : bits 5) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword 7))))))) - : mword 32) + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (imm5 : bits 5) ('b"0100011" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | ADDIW ((imm, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) + | ADDIW (imm, rs1, rd) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SLLI)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SLLI) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SRLI)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SRLI) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SRAI)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SRAI) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_ADDW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_ADDW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SUBW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SUBW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SLLW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SLLW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SRLW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SRLW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SRAW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SRAW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SLLIW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRLIW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRAIW)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | FENCE ((pred, succ)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0] : mword 4) - (concat_vec (pred : mword 4) - (concat_vec (succ : mword 4) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))))) - : mword (4 + (4 + (4 + (5 + (3 + (5 + 7))))))) - | FENCE_TSO ((pred, succ)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0;B0] : mword 4) - (concat_vec (pred : mword 4) - (concat_vec (succ : mword 4) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))))) - : mword (4 + (4 + (4 + (5 + (3 + (5 + 7))))))) - | FENCEI (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | ECALL (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | MRET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B1;B1;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | SRET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | EBREAK (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | WFI (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | SFENCE_VMA ((rs1, rs2)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | LOADRES ((aq, rl, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | FENCE (pred, succ) => + returnm (concat_vec (Ox"0" : mword 4) + (concat_vec (pred : mword 4) + (concat_vec (succ : mword 4) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))))) + | FENCE_TSO (pred, succ) => + returnm (concat_vec (Ox"8" : mword 4) + (concat_vec (pred : mword 4) + (concat_vec (succ : mword 4) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))))) + | FENCEI tt => + returnm (concat_vec (Ox"000" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))) + | ECALL tt => + returnm (concat_vec (Ox"000" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | MRET tt => + returnm (concat_vec ('b"0011000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | SRET tt => + returnm (concat_vec ('b"0001000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | EBREAK tt => + returnm (concat_vec (Ox"001" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | WFI tt => + returnm (concat_vec (Ox"105" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | SFENCE_VMA (rs1, rs2) => + returnm (concat_vec ('b"0001001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | LOADRES (aq, rl, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then + returnm (concat_vec ('b"00010" : mword 5) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | STORECON ((aq, rl, rs2, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B1] : mword 5) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | STORECON (aq, rl, rs2, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then + returnm (concat_vec ('b"00011" : mword 5) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | AMO ((op, aq, rl, rs2, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then - returnm ((concat_vec (encdec_amoop_forwards op) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | AMO (op, aq, rl, rs2, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then + returnm (concat_vec (encdec_amoop_forwards op) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | MUL (rs2, rs1, rd, high, signed1, signed2) => (encdec_mul_op_forwards (high, signed1, signed2)) >>= fun w__38 : mword 3 => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (w__38 : bits 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | DIV ((rs2, rs1, rd, s)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) - | REM ((rs2, rs1, rd, s)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) - | MULW ((rs2, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (w__38 : bits 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | DIV (rs2, rs1, rd, s) => + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"10" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7))))))) + | REM (rs2, rs1, rd, s) => + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"11" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7))))))) + | MULW (rs2, rs1, rd) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | DIVW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"10" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | REMW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"11" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | CSR (csr, rs1, rd, is_imm, op) => + returnm (concat_vec (csr : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (bool_bits_forwards is_imm) + (concat_vec (encdec_csrop_forwards op) + (concat_vec (rd : mword 5) ('b"1110011" : mword 7)))))) + | URET tt => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | LOAD_FP (imm, rs1, rd, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__45 : bool => + (if sumbool_of_bool w__45 then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"0000111" : mword 7))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | LOAD_FP (imm, rs1, rd, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__48 : bool => + (if sumbool_of_bool w__48 then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (rd : mword 5) ('b"0000111" : mword 7))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | STORE_FP (v__7, rs2, rs1, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__51 : bool => + (if sumbool_of_bool w__51 then + let imm7 : bits 7 := subrange_vec_dec v__7 11 5 in + let imm7 : bits 7 := subrange_vec_dec v__7 11 5 in + let imm5 : bits 5 := subrange_vec_dec v__7 4 0 in + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (imm5 : bits 5) ('b"0100111" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | STORE_FP (v__8, rs2, rs1, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__54 : bool => + (if sumbool_of_bool w__54 then + let imm7 : bits 7 := subrange_vec_dec v__8 11 5 in + let imm7 : bits 7 := subrange_vec_dec v__8 11 5 in + let imm5 : bits 5 := subrange_vec_dec v__8 4 0 in + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (imm5 : bits 5) ('b"0100111" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__57 : bool => + (if sumbool_of_bool w__57 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000011" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | DIVW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000111" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | REMW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__63 : bool => + (if sumbool_of_bool w__63 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001011" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | CSR ((csr, rs1, rd, is_imm, op)) => - returnm ((concat_vec (csr : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (bool_bits_forwards is_imm) - (concat_vec (encdec_csrop_forwards op) - (concat_vec (rd : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (12 + (5 + (1 + (2 + (5 + 7)))))) - | URET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | ILLEGAL (s) => returnm (s : mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001111" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__69 : bool => + (if sumbool_of_bool w__69 then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__72 : bool => + (if sumbool_of_bool w__72 then + returnm (concat_vec ('b"0000100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FMUL_S) => + (is_RV32F_or_RV64F tt) >>= fun w__75 : bool => + (if sumbool_of_bool w__75 then + returnm (concat_vec ('b"0001000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FDIV_S) => + (is_RV32F_or_RV64F tt) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + returnm (concat_vec ('b"0001100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__81 : bool => + (if sumbool_of_bool w__81 then + returnm (concat_vec ('b"0101100" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (is_RV32F_or_RV64F tt) >>= fun w__84 : bool => + (if sumbool_of_bool w__84 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (is_RV32F_or_RV64F tt) >>= fun w__87 : bool => + (if sumbool_of_bool w__87 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (is_RV32F_or_RV64F tt) >>= fun w__90 : bool => + (if sumbool_of_bool w__90 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (is_RV32F_or_RV64F tt) >>= fun w__93 : bool => + (if sumbool_of_bool w__93 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (is_RV64F tt) >>= fun w__96 : bool => + (if sumbool_of_bool w__96 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (is_RV64F tt) >>= fun w__99 : bool => + (if sumbool_of_bool w__99 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (is_RV64F tt) >>= fun w__102 : bool => + (if sumbool_of_bool w__102 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (is_RV64F tt) >>= fun w__105 : bool => + (if sumbool_of_bool w__105 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__108 : bool => + (if sumbool_of_bool w__108 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__111 : bool => + (if sumbool_of_bool w__111 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__114 : bool => + (if sumbool_of_bool w__114 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__117 : bool => + (if sumbool_of_bool w__117 then + returnm (concat_vec ('b"0010100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__120 : bool => + (if sumbool_of_bool w__120 then + returnm (concat_vec ('b"0010100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__123 : bool => + (if sumbool_of_bool w__123 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__126 : bool => + (if sumbool_of_bool w__126 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (is_RV32F_or_RV64F tt) >>= fun w__129 : bool => + (if sumbool_of_bool w__129 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (haveFExt tt) >>= fun w__132 : bool => + (if sumbool_of_bool w__132 then + returnm (concat_vec ('b"1110000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (haveFExt tt) >>= fun w__135 : bool => + (if sumbool_of_bool w__135 then + returnm (concat_vec ('b"1110000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (haveFExt tt) >>= fun w__138 : bool => + (if sumbool_of_bool w__138 then + returnm (concat_vec ('b"1111000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | ILLEGAL s => returnm s | _ => assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt end) : M (mword 32). -Definition encdec_backwards (arg_ : mword 32) -: M (ast) := - - let v__7 := arg_ in - let _mappingpatterns_23_ : mword 7 := subrange_vec_dec v__7 6 0 in - (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_23_) : bool)) - ((if ((encdec_uop_backwards_matches _mappingpatterns_23_)) then - (encdec_uop_backwards _mappingpatterns_23_) >>= fun op => returnm ((true : bool) : bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) +Definition encdec_backwards (arg_ : mword 32) : M (ast) := + let v__9 := arg_ in + let _mappingpatterns_40_ : mword 7 := subrange_vec_dec v__9 6 0 in + (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_40_) : bool)) + ((if encdec_uop_backwards_matches _mappingpatterns_40_ then + (encdec_uop_backwards _mappingpatterns_40_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - let imm : mword 20 := subrange_vec_dec v__7 31 12 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 20 := subrange_vec_dec v__7 31 12 in - let _mappingpatterns_23_ : mword 7 := subrange_vec_dec v__7 6 0 in - (encdec_uop_backwards _mappingpatterns_23_) >>= fun op => - returnm ((UTYPE - ((imm, rd, op))) - : ast) - else if ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword (6 - 0 + 1)))) then - let imm_19 : bits 1 := subrange_vec_dec v__7 31 31 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm_8 : bits 1 := subrange_vec_dec v__7 20 20 in - let imm_7_0 : bits 8 := subrange_vec_dec v__7 19 12 in - let imm_19 : bits 1 := subrange_vec_dec v__7 31 31 in - let imm_18_13 : bits 6 := subrange_vec_dec v__7 30 25 in - let imm_12_9 : bits 4 := subrange_vec_dec v__7 24 21 in - returnm ((RISCV_JAL - ((concat_vec (imm_19 : bits 1) - (concat_vec (imm_7_0 : bits 8) - (concat_vec (imm_8 : bits 1) - (concat_vec (imm_18_13 : bits 6) - (concat_vec (imm_12_9 : bits 4) (vec_of_bits [B0] : mword 1))))), rd))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword (6 - 0 + 1))))) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - returnm ((RISCV_JALR - ((imm, rs1, rd))) - : ast) + (if sumbool_of_bool w__1 then + let imm : mword 20 := subrange_vec_dec v__9 31 12 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 20 := subrange_vec_dec v__9 31 12 in + let _mappingpatterns_40_ : mword 7 := subrange_vec_dec v__9 6 0 in + (encdec_uop_backwards _mappingpatterns_40_) >>= fun op => returnm (UTYPE (imm, rd, op)) + else if eq_vec (subrange_vec_dec v__9 6 0) ('b"1101111" : mword (6 - 0 + 1)) then + let imm_19 : bits 1 := subrange_vec_dec v__9 31 31 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm_8 : bits 1 := subrange_vec_dec v__9 20 20 in + let imm_7_0 : bits 8 := subrange_vec_dec v__9 19 12 in + let imm_19 : bits 1 := subrange_vec_dec v__9 31 31 in + let imm_18_13 : bits 6 := subrange_vec_dec v__9 30 25 in + let imm_12_9 : bits 4 := subrange_vec_dec v__9 24 21 in + returnm (RISCV_JAL + (concat_vec (imm_19 : bits 1) + (concat_vec (imm_7_0 : bits 8) + (concat_vec (imm_8 : bits 1) + (concat_vec (imm_18_13 : bits 6) + (concat_vec (imm_12_9 : bits 4) ('b"0" : mword 1))))), rd)) + else if andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"1100111" : mword (6 - 0 + 1))) then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (RISCV_JALR (imm, rs1, rd)) else (and_boolM - (let _mappingpatterns_24_ : mword 3 := subrange_vec_dec v__7 14 12 in - (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_24_) : bool)) - ((if ((encdec_bop_backwards_matches _mappingpatterns_24_)) then - (encdec_bop_backwards _mappingpatterns_24_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (let _mappingpatterns_41_ : mword 3 := subrange_vec_dec v__9 14 12 in + (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_41_) : bool)) + ((if encdec_bop_backwards_matches _mappingpatterns_41_ then + (encdec_bop_backwards _mappingpatterns_41_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - let imm7_6 : bits 1 := subrange_vec_dec v__7 31 31 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let imm7_6 : bits 1 := subrange_vec_dec v__7 31 31 in - let imm7_5_0 : bits 6 := subrange_vec_dec v__7 30 25 in - let imm5_4_1 : bits 4 := subrange_vec_dec v__7 11 8 in - let imm5_0 : bits 1 := subrange_vec_dec v__7 7 7 in - let _mappingpatterns_24_ : mword 3 := subrange_vec_dec v__7 14 12 in - (encdec_bop_backwards _mappingpatterns_24_) >>= fun op => - returnm ((BTYPE - ((concat_vec (imm7_6 : bits 1) - (concat_vec (imm5_0 : bits 1) - (concat_vec (imm7_5_0 : bits 6) - (concat_vec (imm5_4_1 : bits 4) (vec_of_bits [B0] : mword 1)))), rs2, rs1, op))) - : ast) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"1100011" : mword (6 - 0 + 1))) : bool))) >>= fun w__4 : bool => + (if sumbool_of_bool w__4 then + let imm7_6 : bits 1 := subrange_vec_dec v__9 31 31 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let imm7_6 : bits 1 := subrange_vec_dec v__9 31 31 in + let imm7_5_0 : bits 6 := subrange_vec_dec v__9 30 25 in + let imm5_4_1 : bits 4 := subrange_vec_dec v__9 11 8 in + let imm5_0 : bits 1 := subrange_vec_dec v__9 7 7 in + let _mappingpatterns_41_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_bop_backwards _mappingpatterns_41_) >>= fun op => + returnm (BTYPE + (concat_vec (imm7_6 : bits 1) + (concat_vec (imm5_0 : bits 1) + (concat_vec (imm7_5_0 : bits 6) + (concat_vec (imm5_4_1 : bits 4) ('b"0" : mword 1)))), rs2, rs1, op)) else (and_boolM - (let _mappingpatterns_25_ : mword 3 := subrange_vec_dec v__7 14 12 in - (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_25_) : bool)) - ((if ((encdec_iop_backwards_matches _mappingpatterns_25_)) then - (encdec_iop_backwards _mappingpatterns_25_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (let _mappingpatterns_42_ : mword 3 := subrange_vec_dec v__9 14 12 in + (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_42_) : bool)) + ((if encdec_iop_backwards_matches _mappingpatterns_42_ then + (encdec_iop_backwards _mappingpatterns_42_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1))) : bool))) >>= fun w__7 : bool => - (if sumbool_of_bool (w__7) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let _mappingpatterns_25_ : mword 3 := subrange_vec_dec v__7 14 12 in - (encdec_iop_backwards _mappingpatterns_25_) >>= fun op => - returnm ((ITYPE - ((imm, rs1, rd, op))) - : ast) + (if sumbool_of_bool w__7 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_42_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_iop_backwards _mappingpatterns_42_) >>= fun op => + returnm (ITYPE (imm, rs1, rd, op)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SLLI)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SRLI)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"010000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SRAI)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_ADD)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"010" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLT)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"011" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLTU)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"111" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_AND)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"110" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_OR)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"100" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_XOR)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLL)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SRL)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SUB)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SRA)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__8 : bool => - returnm ((Bool.eqb w__8 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex - (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = true) (simp_0 = - true /\ - (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__10 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__10) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SLLI))) - : ast) + (and_boolM + (let _mappingpatterns_44_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_43_ : mword 1 := subrange_vec_dec v__9 14 14 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_44_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_44_ then + (size_bits_backwards _mappingpatterns_44_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_43_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_43_ then + (bool_bits_backwards _mappingpatterns_43_) >>= fun is_unsigned => + returnm ((orb (Z.ltb (projT1 (word_width_bytes size)) 4) + (andb (negb is_unsigned) + ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool))) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"0000011" : mword (6 - 0 + 1))) + : bool))) >>= fun w__12 : bool => + (if sumbool_of_bool w__12 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_44_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_43_ : mword 1 := subrange_vec_dec v__9 14 14 in + (size_bits_backwards _mappingpatterns_44_) >>= fun size => + (bool_bits_backwards _mappingpatterns_43_) >>= fun is_unsigned => + returnm (LOAD (imm, rs1, rd, is_unsigned, size, false, false)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__11 : bool => - returnm ((Bool.eqb w__11 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_45_ : mword 2 := subrange_vec_dec v__9 13 12 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_45_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_45_ then + (size_bits_backwards _mappingpatterns_45_) >>= fun size => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) : bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__13 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__13) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SRLI))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 14) ('b"0" : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0100011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__15 : bool => + (if sumbool_of_bool w__15 then + let imm7 : bits 7 := subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_45_ : mword 2 := subrange_vec_dec v__9 13 12 in + (size_bits_backwards _mappingpatterns_45_) >>= fun size => + returnm (STORE + (concat_vec (imm7 : bits 7) (imm5 : bits 5), rs2, rs1, size, false, false)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1))))) + then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (ADDIW (imm, rs1, rd)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SLLI)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SRLI)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SRAI)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_ADDW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SUBW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SLLW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SRLW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SRAW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW)) + else if andb (eq_vec (subrange_vec_dec v__9 31 28) (Ox"0" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__9 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + let succ : mword 4 := subrange_vec_dec v__9 23 20 in + let pred : mword 4 := subrange_vec_dec v__9 27 24 in + returnm (FENCE (pred, succ)) + else if andb (eq_vec (subrange_vec_dec v__9 31 28) (Ox"8" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__9 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + let succ : mword 4 := subrange_vec_dec v__9 23 20 in + let pred : mword 4 := subrange_vec_dec v__9 27 24 in + returnm (FENCE_TSO (pred, succ)) + else if eq_vec v__9 (Ox"0000100F" : mword 32) then returnm (FENCEI tt) + else if eq_vec v__9 (Ox"00000073" : mword 32) then returnm (ECALL tt) + else if eq_vec v__9 (Ox"30200073" : mword 32) then returnm (MRET tt) + else if eq_vec v__9 (Ox"10200073" : mword 32) then returnm (SRET tt) + else if eq_vec v__9 (Ox"00100073" : mword 32) then returnm (EBREAK tt) + else if eq_vec v__9 (Ox"10500073" : mword 32) then returnm (WFI tt) + else if andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0001001" : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 14 0) + ('b"000000001110011" + : mword (14 - 0 + 1))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + returnm (SFENCE_VMA (rs1, rs2)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__14 : bool => - returnm ((Bool.eqb w__14 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_48_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_47_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_46_ : mword 1 := subrange_vec_dec v__9 26 26 in + (and_boolM + (returnm ((size_bits_backwards_matches _mappingpatterns_48_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_48_ then + (size_bits_backwards _mappingpatterns_48_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_47_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_47_ then + (bool_bits_backwards _mappingpatterns_47_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_46_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_46_ then + (bool_bits_backwards _mappingpatterns_46_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword (31 - 26 + 1))) + (eq_vec (subrange_vec_dec v__9 31 27) + ('b"00010" + : mword (31 - 27 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__16 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__16) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SRAI))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_ADD))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLT))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLTU))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_AND))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_OR))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_XOR))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLL))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SRL))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SUB))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SRA))) - : ast) + (eq_vec (subrange_vec_dec v__9 24 20) + ('b"00000" + : mword (24 - 20 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))))) + : bool))) >>= fun w__22 : bool => + (if sumbool_of_bool w__22 then + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_48_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_47_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_46_ : mword 1 := subrange_vec_dec v__9 26 26 in + (size_bits_backwards _mappingpatterns_48_) >>= fun size => + (bool_bits_backwards _mappingpatterns_47_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_46_) >>= fun aq => + returnm (LOADRES (aq, rl, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_27_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_26_ : mword 1 := subrange_vec_dec v__7 14 14 in + (let _mappingpatterns_51_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_50_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_49_ : mword 1 := subrange_vec_dec v__9 26 26 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_27_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_27_)) then - (size_bits_backwards _mappingpatterns_27_) >>= fun size => + (returnm ((size_bits_backwards_matches _mappingpatterns_51_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_51_ then + (size_bits_backwards _mappingpatterns_51_) >>= fun size => (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_26_) + (returnm ((bool_bits_backwards_matches _mappingpatterns_50_) : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_26_)) then - (bool_bits_backwards _mappingpatterns_26_) >>= fun is_unsigned => - returnm (((orb (Z.ltb (projT1 (word_width_bytes size)) 4) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 4) - : bool))) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__18 : bool => - returnm ((w__18 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_bits_backwards_matches _mappingpatterns_50_ then + (bool_bits_backwards _mappingpatterns_50_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_49_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_49_ then + (bool_bits_backwards _mappingpatterns_49_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__21 : bool => - (if sumbool_of_bool (w__21) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let _mappingpatterns_27_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_26_ : mword 1 := subrange_vec_dec v__7 14 14 in - (size_bits_backwards _mappingpatterns_27_) >>= fun size => - (bool_bits_backwards _mappingpatterns_26_) >>= fun is_unsigned => - returnm ((LOAD - ((imm, rs1, rd, is_unsigned, size, false, false))) - : ast) + (returnm ((andb + (eq_vec (subrange_vec_dec v__9 31 27) + ('b"00011" + : mword (31 - 27 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__29 : bool => + (if sumbool_of_bool w__29 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_51_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_50_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_49_ : mword 1 := subrange_vec_dec v__9 26 26 in + (size_bits_backwards _mappingpatterns_51_) >>= fun size => + (bool_bits_backwards _mappingpatterns_50_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_49_) >>= fun aq => + returnm (STORECON (aq, rl, rs2, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_28_ : mword 2 := subrange_vec_dec v__7 13 12 in + (let _mappingpatterns_52_ : mword 5 := subrange_vec_dec v__9 31 27 in + let _mappingpatterns_55_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_54_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_53_ : mword 1 := subrange_vec_dec v__9 26 26 in + let _mappingpatterns_52_ : mword 5 := subrange_vec_dec v__9 31 27 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_28_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_28_)) then - (size_bits_backwards _mappingpatterns_28_) >>= fun size => - returnm (((Z.leb (projT1 (word_width_bytes size)) 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (returnm ((size_bits_backwards_matches _mappingpatterns_55_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_55_ then + (size_bits_backwards _mappingpatterns_55_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_54_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_54_ then + (bool_bits_backwards _mappingpatterns_54_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_53_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_53_ + then + (bool_bits_backwards _mappingpatterns_53_) >>= fun aq => + (and_boolM + (returnm ((encdec_amoop_backwards_matches + _mappingpatterns_52_) + : bool)) + ((if encdec_amoop_backwards_matches + _mappingpatterns_52_ then + (encdec_amoop_backwards _mappingpatterns_52_) >>= fun op => + returnm ((Z.leb + (projT1 + (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1)))) - : bool))) >>= fun w__24 : bool => - (if sumbool_of_bool (w__24) then - let imm7 : bits 7 := subrange_vec_dec v__7 31 25 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let imm7 : bits 7 := subrange_vec_dec v__7 31 25 in - let imm5 : bits 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_28_ : mword 2 := subrange_vec_dec v__7 13 12 in - (size_bits_backwards _mappingpatterns_28_) >>= fun size => - returnm ((STORE - ((concat_vec (imm7 : bits 7) (imm5 : bits 5), rs2, rs1, size, false, false))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1)))))) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - returnm ((ADDIW - ((imm, rs1, rd))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SLLI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SRLI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SRAI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_ADDW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SUBW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SLLW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SRLW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SRAW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SLLIW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SRLIW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SRAIW))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 28) - (vec_of_bits [B0;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__7 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - let succ : mword 4 := subrange_vec_dec v__7 23 20 in - let pred : mword 4 := subrange_vec_dec v__7 27 24 in - returnm ((FENCE - ((pred, succ))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 28) - (vec_of_bits [B1;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__7 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - let succ : mword 4 := subrange_vec_dec v__7 23 20 in - let pred : mword 4 := subrange_vec_dec v__7 27 24 in - returnm ((FENCE_TSO - ((pred, succ))) - : ast) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0; - B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword 32))) then - returnm ((FENCEI - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((ECALL - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((MRET - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((SRET - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((EBREAK - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((WFI - (tt)) - : ast ) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__7 14 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword (14 - 0 + 1))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - returnm ((SFENCE_VMA - ((rs1, rs2))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__38 : bool => + (if sumbool_of_bool w__38 then + let _mappingpatterns_52_ : mword 5 := subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_55_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_54_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_53_ : mword 1 := subrange_vec_dec v__9 26 26 in + let _mappingpatterns_52_ : mword 5 := subrange_vec_dec v__9 31 27 in + (size_bits_backwards _mappingpatterns_55_) >>= fun size => + (bool_bits_backwards _mappingpatterns_54_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_53_) >>= fun aq => + (encdec_amoop_backwards _mappingpatterns_52_) >>= fun op => + returnm (AMO (op, aq, rl, rs2, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_31_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_30_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_29_ : mword 1 := subrange_vec_dec v__7 26 26 in + (let _mappingpatterns_56_ : mword 3 := subrange_vec_dec v__9 14 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_31_) + (returnm ((encdec_mul_op_backwards_matches _mappingpatterns_56_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_31_)) then - (size_bits_backwards _mappingpatterns_31_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_30_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_30_)) - then - (bool_bits_backwards _mappingpatterns_30_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_29_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_29_)) then - (bool_bits_backwards _mappingpatterns_29_) >>= fun aq => - returnm (((Z.leb (projT1 (word_width_bytes size)) - 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__26 : bool => - returnm ((w__26 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__28 : bool => - returnm ((w__28 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_mul_op_backwards_matches _mappingpatterns_56_ then + (encdec_mul_op_backwards _mappingpatterns_56_) >>= fun '(high, signed1, signed2) => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 27) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (31 - 27 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 24 20) - (vec_of_bits [B0;B0;B0;B0;B0] - : mword (24 - 20 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))))) - : bool))) >>= fun w__31 : bool => - (if sumbool_of_bool (w__31) then - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_31_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_30_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_29_ : mword 1 := subrange_vec_dec v__7 26 26 in - (size_bits_backwards _mappingpatterns_31_) >>= fun size => - (bool_bits_backwards _mappingpatterns_30_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_29_) >>= fun aq => - returnm ((LOADRES - ((aq, rl, rs1, size, rd))) - : ast) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__41 : bool => + (if sumbool_of_bool w__41 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_56_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_mul_op_backwards _mappingpatterns_56_) >>= fun '(high, signed1, signed2) => + returnm (MUL (rs2, rs1, rd, high, signed1, signed2)) else (and_boolM - (let _mappingpatterns_34_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_33_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_32_ : mword 1 := subrange_vec_dec v__7 26 26 in + (let _mappingpatterns_57_ : mword 1 := subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_34_) + (returnm ((bool_not_bits_backwards_matches _mappingpatterns_57_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_34_)) then - (size_bits_backwards _mappingpatterns_34_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_33_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_33_)) - then - (bool_bits_backwards _mappingpatterns_33_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_32_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_32_)) then - (bool_bits_backwards _mappingpatterns_32_) >>= fun aq => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__33 : bool => - returnm ((w__33 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__35 : bool => - returnm ((w__35 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_57_ then + (bool_not_bits_backwards _mappingpatterns_57_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 27) - (vec_of_bits [B0;B0;B0;B1;B1] - : mword (31 - 27 + 1))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__38 : bool => - (if sumbool_of_bool (w__38) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_34_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_33_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_32_ : mword 1 := subrange_vec_dec v__7 26 26 in - (size_bits_backwards _mappingpatterns_34_) >>= fun size => - (bool_bits_backwards _mappingpatterns_33_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_32_) >>= fun aq => - returnm ((STORECON - ((aq, rl, rs2, rs1, size, rd))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__44 : bool => + (if sumbool_of_bool w__44 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_57_ : mword 1 := subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_57_) >>= fun s => + returnm (DIV (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - let _mappingpatterns_38_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_37_ : mword 1 := - subrange_vec_dec v__7 25 25 in - let _mappingpatterns_36_ : mword 1 := - subrange_vec_dec v__7 26 26 in - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in + (let _mappingpatterns_58_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_38_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_58_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_38_)) + ((if bool_not_bits_backwards_matches _mappingpatterns_58_ then - (size_bits_backwards _mappingpatterns_38_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_37_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_37_)) then - (bool_bits_backwards _mappingpatterns_37_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_36_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_36_)) then - (bool_bits_backwards _mappingpatterns_36_) >>= fun aq => - (and_boolM - (returnm ((encdec_amoop_backwards_matches - _mappingpatterns_35_) - : bool)) - ((if ((encdec_amoop_backwards_matches - _mappingpatterns_35_)) then - (encdec_amoop_backwards - _mappingpatterns_35_) >>= fun op => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) - 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__40 : bool => - returnm ((w__40 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__42 : bool => - returnm ((w__42 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__44 : bool => - returnm ((w__44 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (bool_not_bits_backwards _mappingpatterns_58_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__47 : bool => - (if sumbool_of_bool (w__47) then - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_38_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_37_ : mword 1 := - subrange_vec_dec v__7 25 25 in - let _mappingpatterns_36_ : mword 1 := - subrange_vec_dec v__7 26 26 in - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - (size_bits_backwards _mappingpatterns_38_) >>= fun size => - (bool_bits_backwards _mappingpatterns_37_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_36_) >>= fun aq => - (encdec_amoop_backwards _mappingpatterns_35_) >>= fun op => - returnm ((AMO - ((op, aq, rl, rs2, rs1, size, rd))) - : ast) + (if sumbool_of_bool w__47 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_58_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_58_) >>= fun s => + returnm (REM (rs2, rs1, rd, s)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1)))))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (MULW (rs2, rs1, rd)) else (and_boolM - (let _mappingpatterns_39_ : mword 3 := - subrange_vec_dec v__7 14 12 in + (let _mappingpatterns_59_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((encdec_mul_op_backwards_matches - _mappingpatterns_39_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_59_) : bool)) - ((if ((encdec_mul_op_backwards_matches - _mappingpatterns_39_)) then - (encdec_mul_op_backwards _mappingpatterns_39_) >>= fun '(high, signed1, signed2) => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_59_ + then + (bool_not_bits_backwards _mappingpatterns_59_) >>= fun s => + returnm ((Z.eqb 32 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__50 : bool => - (if sumbool_of_bool (w__50) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_39_ : mword 3 := - subrange_vec_dec v__7 14 12 in - (encdec_mul_op_backwards _mappingpatterns_39_) >>= fun '(high, signed1, signed2) => - returnm ((MUL - ((rs2, rs1, rd, high, signed1, signed2))) - : ast) + (if sumbool_of_bool w__50 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_59_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_59_) >>= fun s => + returnm (DIVW (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_40_ : mword 1 := - subrange_vec_dec v__7 12 12 in + (let _mappingpatterns_60_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_40_) + _mappingpatterns_60_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_40_)) then - (bool_not_bits_backwards _mappingpatterns_40_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches + _mappingpatterns_60_ then + (bool_not_bits_backwards _mappingpatterns_60_) >>= fun s => + returnm ((Z.eqb 32 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__53 : bool => - (if sumbool_of_bool (w__53) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_40_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_40_) >>= fun s => - returnm ((DIV - ((rs2, rs1, rd, s))) - : ast) + (if sumbool_of_bool w__53 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_60_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_60_) >>= fun s => + returnm (REMW (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_41_ : mword 1 := - subrange_vec_dec v__7 12 12 in + (let _mappingpatterns_62_ : mword 2 := + subrange_vec_dec v__9 13 12 in + let _mappingpatterns_61_ : mword 1 := + subrange_vec_dec v__9 14 14 in (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_41_) + (returnm ((encdec_csrop_backwards_matches + _mappingpatterns_62_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_41_)) then - (bool_not_bits_backwards _mappingpatterns_41_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_csrop_backwards_matches + _mappingpatterns_62_ then + (encdec_csrop_backwards _mappingpatterns_62_) >>= fun op => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_61_) + : bool)) + ((if bool_bits_backwards_matches + _mappingpatterns_61_ then + (bool_bits_backwards _mappingpatterns_61_) >>= fun is_imm => + returnm (true : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__56 : bool => - (if sumbool_of_bool (w__56) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_41_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_41_) >>= fun s => - returnm ((REM - ((rs2, rs1, rd, s))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec - (subrange_vec_dec v__7 - 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec - v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec - (subrange_vec_dec - v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((MULW - ((rs2, rs1, rd))) - : ast) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) + ('b"1110011" + : mword (6 - 0 + 1))) + : bool))) >>= fun w__58 : bool => + (if sumbool_of_bool w__58 then + let csr : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let csr : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_62_ : mword 2 := + subrange_vec_dec v__9 13 12 in + let _mappingpatterns_61_ : mword 1 := + subrange_vec_dec v__9 14 14 in + (encdec_csrop_backwards _mappingpatterns_62_) >>= fun op => + (bool_bits_backwards _mappingpatterns_61_) >>= fun is_imm => + returnm (CSR (csr, rs1, rd, is_imm, op)) + else if eq_vec v__9 (Ox"00200073" : mword 32) then + returnm (URET tt) else - (and_boolM - (let _mappingpatterns_42_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_42_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_42_)) then - (bool_not_bits_backwards _mappingpatterns_42_) >>= fun s => - returnm (((Z.eqb 32 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__59 : bool => - (if sumbool_of_bool (w__59) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_42_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_42_) >>= fun s => - returnm ((DIVW - ((rs2, rs1, rd, s))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (LOAD_FP (imm, rs1, rd, WORD)) else - (and_boolM - (let _mappingpatterns_43_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_43_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_43_)) then - (bool_not_bits_backwards - _mappingpatterns_43_) >>= fun s => - returnm (((Z.eqb 32 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32D_or_RV64D tt) : M (bool)) (returnm ((andb (eq_vec - (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) + (subrange_vec_dec v__9 14 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) : bool))) >>= fun w__62 : bool => - (if sumbool_of_bool (w__62) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_43_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_43_) >>= fun s => - returnm ((REMW - ((rs2, rs1, rd, s))) - : ast) + (if sumbool_of_bool w__62 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (LOAD_FP (imm, rs1, rd, DOUBLE)) else - (and_boolM - (let _mappingpatterns_45_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_44_ : mword 1 := - subrange_vec_dec v__7 14 14 in - (and_boolM - (returnm ((encdec_csrop_backwards_matches - _mappingpatterns_45_) - : bool)) - ((if ((encdec_csrop_backwards_matches - _mappingpatterns_45_)) then - (encdec_csrop_backwards - _mappingpatterns_45_) >>= fun op => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_44_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_44_)) then - (bool_bits_backwards - _mappingpatterns_44_) >>= fun is_imm => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__64 : bool => - returnm ((w__64 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))) - : bool))) >>= fun w__67 : bool => - (if sumbool_of_bool (w__67) then - let csr : mword 12 := - subrange_vec_dec v__7 31 20 in + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__64 : bool => + (if sumbool_of_bool w__64 then + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in let rs1 : mword 5 := - subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let csr : mword 12 := - subrange_vec_dec v__7 31 20 in - let _mappingpatterns_45_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_44_ : mword 1 := - subrange_vec_dec v__7 14 14 in - (encdec_csrop_backwards _mappingpatterns_45_) >>= fun op => - (bool_bits_backwards _mappingpatterns_44_) >>= fun is_imm => - returnm ((CSR - ((csr, rs1, rd, is_imm, op))) - : ast) + subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := + subrange_vec_dec v__9 11 7 in + returnm (STORE_FP + (concat_vec (imm7 : bits 7) + (imm5 + : bits 5), rs2, rs1, WORD)) else - returnm ((if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - URET - (tt) - else ILLEGAL (v__7)) - : ast)) + (and_boolM + ((is_RV32D_or_RV64D tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 14 + 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := + subrange_vec_dec v__9 11 7 in + returnm (STORE_FP + (concat_vec (imm7 : bits 7) + (imm5 + : bits 5), rs2, rs1, DOUBLE)) + else + (and_boolM + (let _mappingpatterns_63_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_63_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_63_ then + (encdec_rounding_mode_backwards + _mappingpatterns_63_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 + 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 + 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__70 : bool => + (if sumbool_of_bool w__70 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_63_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_63_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FMADD_S)) + else + (and_boolM + (let _mappingpatterns_64_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_64_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_64_ then + (encdec_rounding_mode_backwards + _mappingpatterns_64_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__74 : bool => + (if sumbool_of_bool w__74 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_64_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_64_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FMSUB_S)) + else + (and_boolM + (let _mappingpatterns_65_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_65_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_65_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_65_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_65_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_65_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FNMSUB_S)) + else + (and_boolM + (let _mappingpatterns_66_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_66_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_66_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_66_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__82 : bool => + (if sumbool_of_bool w__82 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_66_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_66_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FNMADD_S)) + else + (and_boolM + (let _mappingpatterns_67_ : mword 3 := + subrange_vec_dec v__9 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_67_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_67_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_67_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 31 + 25) + ('b"0000000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__86 : bool => + (if sumbool_of_bool w__86 then + let rs2 : mword 5 := + subrange_vec_dec v__9 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 + 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_67_ : mword 3 := + subrange_vec_dec v__9 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_67_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FADD_S)) + else + (and_boolM + (let _mappingpatterns_68_ : mword 3 := + subrange_vec_dec v__9 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_68_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_68_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_68_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 25) + ('b"0000100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__90 : bool => + (if sumbool_of_bool + w__90 then + let rs2 : mword 5 := + subrange_vec_dec v__9 + 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 + 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 + 11 7 in + let _mappingpatterns_68_ : mword 3 := + subrange_vec_dec v__9 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_68_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FSUB_S)) + else + (and_boolM + (let _mappingpatterns_69_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_69_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_69_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_69_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__94 : bool => + (if sumbool_of_bool + w__94 then + let rs2 : mword 5 := + subrange_vec_dec + v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_69_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_69_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FMUL_S)) + else + (and_boolM + (let _mappingpatterns_70_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_70_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_70_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_70_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__98 : bool => + (if sumbool_of_bool + w__98 then + let rs2 : mword 5 := + subrange_vec_dec + v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_70_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_70_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FDIV_S)) + else + (and_boolM + (let _mappingpatterns_71_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_71_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_71_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_71_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"580" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__102 : bool => + (if sumbool_of_bool + w__102 then + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_71_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_71_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S)) + else + (and_boolM + (let _mappingpatterns_72_ : mword 3 := + subrange_vec_dec + v__9 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_72_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_72_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_72_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__106 : bool => + (if sumbool_of_bool + w__106 then + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_72_ : mword 3 := + subrange_vec_dec + v__9 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_72_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S)) + else + (and_boolM + (let _mappingpatterns_73_ : mword 3 := + subrange_vec_dec + v__9 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_73_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_73_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_73_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__110 : bool => + (if sumbool_of_bool + w__110 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 7 in + let _mappingpatterns_73_ : mword 3 := + subrange_vec_dec + v__9 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_73_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S)) + else + (and_boolM + (let _mappingpatterns_74_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_74_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_74_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_74_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__114 : bool => + (if sumbool_of_bool + w__114 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_74_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_74_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W)) + else + (and_boolM + (let _mappingpatterns_75_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_75_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_75_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_75_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__118 : bool => + (if sumbool_of_bool + w__118 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_75_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_75_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU)) + else + (and_boolM + (let _mappingpatterns_76_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_76_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_76_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_76_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__122 : bool => + (if sumbool_of_bool + w__122 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_76_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_76_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S)) + else + (and_boolM + (let _mappingpatterns_77_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_77_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_77_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_77_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__126 : bool => + (if + sumbool_of_bool + w__126 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_77_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_77_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S)) + else + (and_boolM + (let _mappingpatterns_78_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_78_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_78_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_78_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__130 : bool => + (if + sumbool_of_bool + w__130 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_78_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_78_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L)) + else + (and_boolM + (let _mappingpatterns_79_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_79_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_79_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_79_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__134 : bool => + (if + sumbool_of_bool + w__134 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_79_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_79_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__136 : bool => + (if + sumbool_of_bool + w__136 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__138 : bool => + (if + sumbool_of_bool + w__138 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__140 : bool => + (if + sumbool_of_bool + w__140 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__142 : bool => + (if + sumbool_of_bool + w__142 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__144 : bool => + (if + sumbool_of_bool + w__144 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__146 : bool => + (if + sumbool_of_bool + w__146 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__148 : bool => + (if + sumbool_of_bool + w__148 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__150 : bool => + (if + sumbool_of_bool + w__150 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__152 : bool => + (if + sumbool_of_bool + w__152 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_S + (rs1, rd, FCLASS_S)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__154 : bool => + (if + sumbool_of_bool + w__154 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_S + (rs1, rd, FMV_X_W)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"F00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__156 : bool => + returnm (if + sumbool_of_bool + w__156 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + F_UN_TYPE_S + (rs1, rd, FMV_W_X) + else + ILLEGAL + v__9)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) : M (ast)) : M (ast)) : M (ast)) @@ -19015,1280 +20173,2066 @@ Definition encdec_backwards (arg_ : mword 32) : M (ast)) : M (ast). -Definition encdec_forwards_matches (arg_ : ast) -: bool := - - match arg_ with - | UTYPE ((imm, rd, op)) => true - | RISCV_JAL ((v__220, rd)) => - if ((eq_vec (subrange_vec_dec v__220 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then true - else false - | RISCV_JALR ((imm, rs1, rd)) => true - | BTYPE ((v__222, rs2, rs1, op)) => - if ((eq_vec (subrange_vec_dec v__222 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then true - else false - | ITYPE ((imm, rs1, rd, op)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SLLI)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRLI)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRAI)) => true - | RTYPE ((rs2, rs1, rd, RISCV_ADD)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLT)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLTU)) => true - | RTYPE ((rs2, rs1, rd, RISCV_AND)) => true - | RTYPE ((rs2, rs1, rd, RISCV_OR)) => true - | RTYPE ((rs2, rs1, rd, RISCV_XOR)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLL)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SRL)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SUB)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SRA)) => true - | LOAD ((imm, rs1, rd, is_unsigned, size, false, false)) => - if sumbool_of_bool ((orb (Z.ltb (projT1 (word_width_bytes size)) 4) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 4) - : bool)))) then - true - else false - | STORE ((v__224, rs2, rs1, size, false, false)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then true else false - | ADDIW ((imm, rs1, rd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SLLI)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SRLI)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SRAI)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_ADDW)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SUBW)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SLLW)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SRLW)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SRAW)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SLLIW)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRLIW)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRAIW)) => - if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | FENCE ((pred, succ)) => true - | FENCE_TSO ((pred, succ)) => true - | FENCEI (tt) => true - | ECALL (tt) => true - | MRET (tt) => true - | SRET (tt) => true - | EBREAK (tt) => true - | WFI (tt) => true - | SFENCE_VMA ((rs1, rs2)) => true - | LOADRES ((aq, rl, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then true else false - | STORECON ((aq, rl, rs2, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then true else false - | AMO ((op, aq, rl, rs2, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 4)) then true else false - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => true - | DIV ((rs2, rs1, rd, s)) => true - | REM ((rs2, rs1, rd, s)) => true - | MULW ((rs2, rs1, rd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | DIVW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | REMW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | CSR ((csr, rs1, rd, is_imm, op)) => true - | URET (tt) => true - | ILLEGAL (s) => true - | _ => false - end. +Definition encdec_forwards_matches (arg_ : ast) : M (bool) := + (match arg_ with + | UTYPE (imm, rd, op) => returnm true + | RISCV_JAL (v__341, rd) => + returnm (if eq_vec (subrange_vec_dec v__341 0 0) ('b"0" : mword (0 - 0 + 1)) then true + else false) + | RISCV_JALR (imm, rs1, rd) => returnm true + | BTYPE (v__343, rs2, rs1, op) => + returnm (if eq_vec (subrange_vec_dec v__343 0 0) ('b"0" : mword (0 - 0 + 1)) then true + else false) + | ITYPE (imm, rs1, rd, op) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SLLI) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SRLI) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SRAI) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_ADD) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLT) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLTU) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_AND) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_OR) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_XOR) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLL) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SRL) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SUB) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SRA) => returnm true + | LOAD (imm, rs1, rd, is_unsigned, size, false, false) => + returnm (if sumbool_of_bool + (orb (Z.ltb (projT1 (word_width_bytes size)) 4) + (andb (negb is_unsigned) ((Z.leb (projT1 (word_width_bytes size)) 4) : bool))) + then + true + else false) + | STORE (v__345, rs2, rs1, size, false, false) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then true else false) + | ADDIW (imm, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SLLI) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SRLI) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SRAI) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_ADDW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SUBW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SLLW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SRLW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SRAW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW) => + returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | FENCE (pred, succ) => returnm true + | FENCE_TSO (pred, succ) => returnm true + | FENCEI tt => returnm true + | ECALL tt => returnm true + | MRET tt => returnm true + | SRET tt => returnm true + | EBREAK tt => returnm true + | WFI tt => returnm true + | SFENCE_VMA (rs1, rs2) => returnm true + | LOADRES (aq, rl, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then true else false) + | STORECON (aq, rl, rs2, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then true else false) + | AMO (op, aq, rl, rs2, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 4) then true else false) + | MUL (rs2, rs1, rd, high, signed1, signed2) => returnm true + | DIV (rs2, rs1, rd, s) => returnm true + | REM (rs2, rs1, rd, s) => returnm true + | MULW (rs2, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | DIVW (rs2, rs1, rd, s) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | REMW (rs2, rs1, rd, s) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | CSR (csr, rs1, rd, is_imm, op) => returnm true + | URET tt => returnm true + | LOAD_FP (imm, rs1, rd, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__0 : bool => + returnm (if sumbool_of_bool w__0 then true else false) + | LOAD_FP (imm, rs1, rd, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__1 : bool => + returnm (if sumbool_of_bool w__1 then true else false) + | STORE_FP (v__346, rs2, rs1, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then true else false) + | STORE_FP (v__347, rs2, rs1, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__3 : bool => + returnm (if sumbool_of_bool w__3 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__4 : bool => + returnm (if sumbool_of_bool w__4 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__5 : bool => + returnm (if sumbool_of_bool w__5 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__6 : bool => + returnm (if sumbool_of_bool w__6 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__7 : bool => + returnm (if sumbool_of_bool w__7 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__8 : bool => + returnm (if sumbool_of_bool w__8 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__9 : bool => + returnm (if sumbool_of_bool w__9 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FMUL_S) => + (is_RV32F_or_RV64F tt) >>= fun w__10 : bool => + returnm (if sumbool_of_bool w__10 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FDIV_S) => + (is_RV32F_or_RV64F tt) >>= fun w__11 : bool => + returnm (if sumbool_of_bool w__11 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__12 : bool => + returnm (if sumbool_of_bool w__12 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (is_RV32F_or_RV64F tt) >>= fun w__13 : bool => + returnm (if sumbool_of_bool w__13 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (is_RV32F_or_RV64F tt) >>= fun w__14 : bool => + returnm (if sumbool_of_bool w__14 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (is_RV32F_or_RV64F tt) >>= fun w__15 : bool => + returnm (if sumbool_of_bool w__15 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (is_RV32F_or_RV64F tt) >>= fun w__16 : bool => + returnm (if sumbool_of_bool w__16 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (is_RV64F tt) >>= fun w__17 : bool => returnm (if sumbool_of_bool w__17 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (is_RV64F tt) >>= fun w__18 : bool => returnm (if sumbool_of_bool w__18 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (is_RV64F tt) >>= fun w__19 : bool => returnm (if sumbool_of_bool w__19 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (is_RV64F tt) >>= fun w__20 : bool => returnm (if sumbool_of_bool w__20 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__21 : bool => + returnm (if sumbool_of_bool w__21 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__22 : bool => + returnm (if sumbool_of_bool w__22 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__23 : bool => + returnm (if sumbool_of_bool w__23 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__24 : bool => + returnm (if sumbool_of_bool w__24 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__25 : bool => + returnm (if sumbool_of_bool w__25 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__26 : bool => + returnm (if sumbool_of_bool w__26 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__27 : bool => + returnm (if sumbool_of_bool w__27 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (is_RV32F_or_RV64F tt) >>= fun w__28 : bool => + returnm (if sumbool_of_bool w__28 then true else false) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (haveFExt tt) >>= fun w__29 : bool => returnm (if sumbool_of_bool w__29 then true else false) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (haveFExt tt) >>= fun w__30 : bool => returnm (if sumbool_of_bool w__30 then true else false) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (haveFExt tt) >>= fun w__31 : bool => returnm (if sumbool_of_bool w__31 then true else false) + | ILLEGAL s => returnm true + | _ => returnm false + end) + : M (bool). -Definition encdec_backwards_matches (arg_ : mword 32) -: M (bool) := - - let v__225 := arg_ in - let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__225 6 0 in +Definition encdec_backwards_matches (arg_ : mword 32) : M (bool) := + let v__348 := arg_ in + let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__348 6 0 in (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_0_) : bool)) - ((if ((encdec_uop_backwards_matches _mappingpatterns_0_)) then - (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm ((true : bool) : bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_uop_backwards_matches _mappingpatterns_0_ then + (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__225 6 0 in - (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm (true : bool) - else if ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword (6 - 0 + 1)))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword (6 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (if sumbool_of_bool w__1 then + let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__348 6 0 in + (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm true + else if eq_vec (subrange_vec_dec v__348 6 0) ('b"1101111" : mword (6 - 0 + 1)) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"1100111" : mword (6 - 0 + 1))) then + returnm true else (and_boolM - (let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__348 14 12 in (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_1_) : bool)) - ((if ((encdec_bop_backwards_matches _mappingpatterns_1_)) then - (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_bop_backwards_matches _mappingpatterns_1_ then + (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__348 6 0) ('b"1100011" : mword (6 - 0 + 1))) : bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__225 14 12 in - (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm (true : bool) + (if sumbool_of_bool w__4 then + let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__348 14 12 in + (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm true else (and_boolM - (let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__348 14 12 in (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_2_) : bool)) - ((if ((encdec_iop_backwards_matches _mappingpatterns_2_)) then - (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_iop_backwards_matches _mappingpatterns_2_ then + (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__348 6 0) ('b"0010011" : mword (6 - 0 + 1))) : bool))) >>= fun w__7 : bool => - (if sumbool_of_bool (w__7) then - let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__225 14 12 in - (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm (true : bool) + (if sumbool_of_bool w__7 then + let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__348 14 12 in + (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__348 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__348 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__348 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__348 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__348 25 20 in + orb (Z.eqb 32 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__348 31 26) ('b"010000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"010" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"011" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"111" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"110" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"100" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__8 : bool => - returnm ((Bool.eqb w__8 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex - (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = true) (simp_0 = - true /\ - (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__10 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__10) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (and_boolM + (let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__348 14 14 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_4_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_4_ then + (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_3_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_3_ then + (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => + returnm ((orb (Z.ltb (projT1 (word_width_bytes size)) 4) + (andb (negb is_unsigned) + ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool))) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((eq_vec (subrange_vec_dec v__348 6 0) ('b"0000011" : mword (6 - 0 + 1))) + : bool))) >>= fun w__12 : bool => + (if sumbool_of_bool w__12 then + let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__348 14 14 in + (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__11 : bool => - returnm ((Bool.eqb w__11 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__348 13 12 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_5_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_5_ then + (size_bits_backwards _mappingpatterns_5_) >>= fun size => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) : bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__13 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__13) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__348 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0100011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__15 : bool => + (if sumbool_of_bool w__15 then + let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__348 13 12 in + (size_bits_backwards _mappingpatterns_5_) >>= fun size => returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 28) (Ox"0" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__348 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__348 31 28) (Ox"8" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__348 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + returnm true + else if eq_vec v__348 (Ox"0000100F" : mword 32) then returnm true + else if eq_vec v__348 (Ox"00000073" : mword 32) then returnm true + else if eq_vec v__348 (Ox"30200073" : mword 32) then returnm true + else if eq_vec v__348 (Ox"10200073" : mword 32) then returnm true + else if eq_vec v__348 (Ox"00100073" : mword 32) then returnm true + else if eq_vec v__348 (Ox"10500073" : mword 32) then returnm true + else if andb + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0001001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__348 14 0) + ('b"000000001110011" + : mword (14 - 0 + 1))) then + returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 32 64) - : {_bool : bool & ArithFact (iff (_bool = true) (32 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (32 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__14 : bool => - returnm ((Bool.eqb w__14 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (32 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (32 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__348 25 25 in + let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__348 26 26 in + (and_boolM + (returnm ((size_bits_backwards_matches _mappingpatterns_8_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_8_ then + (size_bits_backwards _mappingpatterns_8_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_7_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_7_ then + (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_6_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_6_ then + (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword (31 - 26 + 1))) + (eq_vec (subrange_vec_dec v__348 31 27) + ('b"00010" + : mword (31 - 27 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__16 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (32 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__16) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__348 24 20) + ('b"00000" + : mword (24 - 20 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))))) + : bool))) >>= fun w__22 : bool => + (if sumbool_of_bool w__22 then + let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__348 25 25 in + let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__348 26 26 in + (size_bits_backwards _mappingpatterns_8_) >>= fun size => + (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => returnm true else (and_boolM - (let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__225 14 14 in + (let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__348 26 26 in + let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__348 25 25 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_4_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_4_)) then - (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (returnm ((size_bits_backwards_matches _mappingpatterns_11_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_11_ then + (size_bits_backwards _mappingpatterns_11_) >>= fun size => (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_3_) + (returnm ((bool_bits_backwards_matches _mappingpatterns_10_) : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_3_)) then - (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => - returnm (((orb (Z.ltb (projT1 (word_width_bytes size)) 4) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 4) - : bool))) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__18 : bool => - returnm ((w__18 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_bits_backwards_matches _mappingpatterns_10_ then + (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_9_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_9_ then + (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__21 : bool => - (if sumbool_of_bool (w__21) then - let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__225 14 14 in - (size_bits_backwards _mappingpatterns_4_) >>= fun size => - (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => - returnm (true - : bool) + (returnm ((andb + (eq_vec (subrange_vec_dec v__348 31 27) + ('b"00011" + : mword (31 - 27 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0101111" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__29 : bool => + (if sumbool_of_bool w__29 then + let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__348 26 26 in + let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__348 25 25 in + (size_bits_backwards _mappingpatterns_11_) >>= fun size => + (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => returnm true else (and_boolM - (let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__225 13 12 in + (let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__348 31 27 in + let _mappingpatterns_15_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_14_ : mword 1 := subrange_vec_dec v__348 25 25 in + let _mappingpatterns_13_ : mword 1 := subrange_vec_dec v__348 26 26 in + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__348 31 27 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_5_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_5_)) then - (size_bits_backwards _mappingpatterns_5_) >>= fun size => - returnm (((Z.leb (projT1 (word_width_bytes size)) 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (returnm ((size_bits_backwards_matches _mappingpatterns_15_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_15_ then + (size_bits_backwards _mappingpatterns_15_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_14_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_14_ then + (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_13_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_13_ + then + (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => + (and_boolM + (returnm ((encdec_amoop_backwards_matches + _mappingpatterns_12_) + : bool)) + ((if encdec_amoop_backwards_matches + _mappingpatterns_12_ then + (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => + returnm ((Z.leb + (projT1 + (word_width_bytes size)) 4) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1)))) - : bool))) >>= fun w__24 : bool => - (if sumbool_of_bool (w__24) then - let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__225 13 12 in - (size_bits_backwards _mappingpatterns_5_) >>= fun size => - returnm (true - : bool) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1)))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 28) - (vec_of_bits [B0;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__225 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 28) - (vec_of_bits [B1;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__225 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0; - B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__225 14 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword (14 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__348 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__38 : bool => + (if sumbool_of_bool w__38 then + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__348 31 27 in + let _mappingpatterns_15_ : mword 2 := subrange_vec_dec v__348 13 12 in + let _mappingpatterns_14_ : mword 1 := subrange_vec_dec v__348 25 25 in + let _mappingpatterns_13_ : mword 1 := subrange_vec_dec v__348 26 26 in + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__348 31 27 in + (size_bits_backwards _mappingpatterns_15_) >>= fun size => + (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => + (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => returnm true else (and_boolM - (let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__225 25 25 in - let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__225 26 26 in + (let _mappingpatterns_16_ : mword 3 := subrange_vec_dec v__348 14 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_8_) + (returnm ((encdec_mul_op_backwards_matches _mappingpatterns_16_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_8_)) then - (size_bits_backwards _mappingpatterns_8_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_7_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_7_)) - then - (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_6_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_6_)) then - (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => - returnm (((Z.leb (projT1 (word_width_bytes size)) - 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__26 : bool => - returnm ((w__26 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__28 : bool => - returnm ((w__28 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_mul_op_backwards_matches _mappingpatterns_16_ then + (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 27) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (31 - 27 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 24 20) - (vec_of_bits [B0;B0;B0;B0;B0] - : mword (24 - 20 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))))) - : bool))) >>= fun w__31 : bool => - (if sumbool_of_bool (w__31) then - let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__225 25 25 in - let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__225 26 26 in - (size_bits_backwards _mappingpatterns_8_) >>= fun size => - (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0110011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__41 : bool => + (if sumbool_of_bool w__41 then + let _mappingpatterns_16_ : mword 3 := subrange_vec_dec v__348 14 12 in + (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => + returnm true else (and_boolM - (let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__225 26 26 in - let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__225 25 25 in + (let _mappingpatterns_17_ : mword 1 := + subrange_vec_dec v__348 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_11_) + (returnm ((bool_not_bits_backwards_matches _mappingpatterns_17_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_11_)) then - (size_bits_backwards _mappingpatterns_11_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_10_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_10_)) - then - (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_9_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_9_)) then - (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__33 : bool => - returnm ((w__33 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__35 : bool => - returnm ((w__35 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_17_ then + (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 27) - (vec_of_bits [B0;B0;B0;B1;B1] - : mword (31 - 27 + 1))) + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__38 : bool => - (if sumbool_of_bool (w__38) then - let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__225 26 26 in - let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__225 25 25 in - (size_bits_backwards _mappingpatterns_11_) >>= fun size => - (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__348 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__44 : bool => + (if sumbool_of_bool w__44 then + let _mappingpatterns_17_ : mword 1 := subrange_vec_dec v__348 12 12 in + (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - let _mappingpatterns_15_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_14_ : mword 1 := - subrange_vec_dec v__225 25 25 in - let _mappingpatterns_13_ : mword 1 := - subrange_vec_dec v__225 26 26 in - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in + (let _mappingpatterns_18_ : mword 1 := + subrange_vec_dec v__348 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_15_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_18_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_15_)) + ((if bool_not_bits_backwards_matches _mappingpatterns_18_ then - (size_bits_backwards _mappingpatterns_15_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_14_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_14_)) then - (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_13_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_13_)) then - (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => - (and_boolM - (returnm ((encdec_amoop_backwards_matches - _mappingpatterns_12_) - : bool)) - ((if ((encdec_amoop_backwards_matches - _mappingpatterns_12_)) then - (encdec_amoop_backwards - _mappingpatterns_12_) >>= fun op => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) - 4) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__40 : bool => - returnm ((w__40 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__42 : bool => - returnm ((w__42 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__44 : bool => - returnm ((w__44 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__47 : bool => - (if sumbool_of_bool (w__47) then - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - let _mappingpatterns_15_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_14_ : mword 1 := - subrange_vec_dec v__225 25 25 in - let _mappingpatterns_13_ : mword 1 := - subrange_vec_dec v__225 26 26 in - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - (size_bits_backwards _mappingpatterns_15_) >>= fun size => - (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => - (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => - returnm (true - : bool) + (if sumbool_of_bool w__47 then + let _mappingpatterns_18_ : mword 1 := + subrange_vec_dec v__348 12 12 in + (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0111011" + : mword (6 - 0 + 1)))))) then + returnm true else (and_boolM - (let _mappingpatterns_16_ : mword 3 := - subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_19_ : mword 1 := + subrange_vec_dec v__348 12 12 in (and_boolM - (returnm ((encdec_mul_op_backwards_matches - _mappingpatterns_16_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_19_) : bool)) - ((if ((encdec_mul_op_backwards_matches - _mappingpatterns_16_)) then - (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_19_ + then + (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => + returnm ((Z.eqb 32 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__348 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__50 : bool => - (if sumbool_of_bool (w__50) then - let _mappingpatterns_16_ : mword 3 := - subrange_vec_dec v__225 14 12 in - (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => - returnm (true - : bool) + (if sumbool_of_bool w__50 then + let _mappingpatterns_19_ : mword 1 := + subrange_vec_dec v__348 12 12 in + (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_17_ : mword 1 := - subrange_vec_dec v__225 12 12 in + (let _mappingpatterns_20_ : mword 1 := + subrange_vec_dec v__348 12 12 in (and_boolM (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_17_) + _mappingpatterns_20_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_17_)) then - (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches + _mappingpatterns_20_ then + (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => + returnm ((Z.eqb 32 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__348 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) + (eq_vec (subrange_vec_dec v__348 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__53 : bool => - (if sumbool_of_bool (w__53) then - let _mappingpatterns_17_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => - returnm (true - : bool) + (if sumbool_of_bool w__53 then + let _mappingpatterns_20_ : mword 1 := + subrange_vec_dec v__348 12 12 in + (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_18_ : mword 1 := - subrange_vec_dec v__225 12 12 in + (let _mappingpatterns_22_ : mword 2 := + subrange_vec_dec v__348 13 12 in + let _mappingpatterns_21_ : mword 1 := + subrange_vec_dec v__348 14 14 in (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_18_) + (returnm ((encdec_csrop_backwards_matches + _mappingpatterns_22_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_18_)) then - (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_csrop_backwards_matches + _mappingpatterns_22_ then + (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_21_) + : bool)) + ((if bool_bits_backwards_matches + _mappingpatterns_21_ then + (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => + returnm (true : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__56 : bool => - (if sumbool_of_bool (w__56) then - let _mappingpatterns_18_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => - returnm (true - : bool) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec - (subrange_vec_dec - v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec - v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec - (subrange_vec_dec - v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (returnm ((eq_vec (subrange_vec_dec v__348 6 0) + ('b"1110011" + : mword (6 - 0 + 1))) + : bool))) >>= fun w__58 : bool => + (if sumbool_of_bool w__58 then + let _mappingpatterns_22_ : mword 2 := + subrange_vec_dec v__348 13 12 in + let _mappingpatterns_21_ : mword 1 := + subrange_vec_dec v__348 14 14 in + (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => + (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => + returnm true + else if eq_vec v__348 (Ox"00200073" : mword 32) then + returnm true else - (and_boolM - (let _mappingpatterns_19_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_19_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_19_)) then - (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => - returnm (((Z.eqb 32 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__59 : bool => - (if sumbool_of_bool (w__59) then - let _mappingpatterns_19_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__348 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__348 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then returnm true else - (and_boolM - (let _mappingpatterns_20_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_20_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_20_)) then - (bool_not_bits_backwards - _mappingpatterns_20_) >>= fun s => - returnm (((Z.eqb 32 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32D_or_RV64D tt) : M (bool)) (returnm ((andb (eq_vec - (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) + (subrange_vec_dec v__348 14 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__348 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) : bool))) >>= fun w__62 : bool => - (if sumbool_of_bool (w__62) then - let _mappingpatterns_20_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => - returnm (true - : bool) + (if sumbool_of_bool w__62 then returnm true else - (and_boolM - (let _mappingpatterns_22_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_21_ : mword 1 := - subrange_vec_dec v__225 14 14 in + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__348 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__348 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__64 : bool => + (if sumbool_of_bool w__64 then returnm true + else (and_boolM - (returnm ((encdec_csrop_backwards_matches - _mappingpatterns_22_) - : bool)) - ((if ((encdec_csrop_backwards_matches - _mappingpatterns_22_)) then - (encdec_csrop_backwards - _mappingpatterns_22_) >>= fun op => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_21_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_21_)) then - (bool_bits_backwards - _mappingpatterns_21_) >>= fun is_imm => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__64 : bool => - returnm ((w__64 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) + ((is_RV32D_or_RV64D tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__348 14 + 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__348 6 + 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then returnm true + else + (and_boolM + (let _mappingpatterns_23_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_23_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_23_ then + (encdec_rounding_mode_backwards + _mappingpatterns_23_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__348 + 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec v__348 + 6 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__70 : bool => + (if sumbool_of_bool w__70 then + let _mappingpatterns_23_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_23_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_24_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_24_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_24_ then + (encdec_rounding_mode_backwards + _mappingpatterns_24_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 6 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__74 : bool => + (if sumbool_of_bool w__74 then + let _mappingpatterns_24_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_24_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_25_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_25_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_25_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_25_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 6 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + let _mappingpatterns_25_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_25_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_26_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_26_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_26_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_26_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 6 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__82 : bool => + (if sumbool_of_bool w__82 then + let _mappingpatterns_26_ : mword 3 := + subrange_vec_dec v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_26_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_27_ : mword 3 := + subrange_vec_dec v__348 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_27_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_27_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_27_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 31 + 25) + ('b"0000000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__86 : bool => + (if sumbool_of_bool w__86 then + let _mappingpatterns_27_ : mword 3 := + subrange_vec_dec v__348 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_27_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_28_ : mword 3 := + subrange_vec_dec v__348 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_28_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_28_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_28_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 25) + ('b"0000100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__90 : bool => + (if sumbool_of_bool + w__90 then + let _mappingpatterns_28_ : mword 3 := + subrange_vec_dec v__348 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_28_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_29_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_29_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_29_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_29_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0001000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__94 : bool => + (if sumbool_of_bool + w__94 then + let _mappingpatterns_29_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_29_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_30_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_30_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_30_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_30_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0001100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__98 : bool => + (if sumbool_of_bool + w__98 then + let _mappingpatterns_30_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_30_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_31_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_31_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_31_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_31_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"580" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__102 : bool => + (if sumbool_of_bool + w__102 then + let _mappingpatterns_31_ : mword 3 := + subrange_vec_dec + v__348 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_31_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_32_ : mword 3 := + subrange_vec_dec + v__348 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_32_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_32_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_32_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"C00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__106 : bool => + (if sumbool_of_bool + w__106 then + let _mappingpatterns_32_ : mword 3 := + subrange_vec_dec + v__348 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_32_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_33_ : mword 3 := + subrange_vec_dec + v__348 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_33_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_33_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_33_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"C01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__110 : bool => + (if sumbool_of_bool + w__110 + then + let _mappingpatterns_33_ : mword 3 := + subrange_vec_dec + v__348 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_33_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_34_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_34_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_34_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_34_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"D00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__114 : bool => + (if sumbool_of_bool + w__114 + then + let _mappingpatterns_34_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_34_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_35_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_35_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_35_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_35_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"D01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__118 : bool => + (if sumbool_of_bool + w__118 + then + let _mappingpatterns_35_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_35_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_36_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_36_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_36_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_36_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"C02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__122 : bool => + (if sumbool_of_bool + w__122 + then + let _mappingpatterns_36_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_36_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_37_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_37_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_37_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_37_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"C03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__126 : bool => + (if + sumbool_of_bool + w__126 + then + let _mappingpatterns_37_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_37_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_38_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_38_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_38_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_38_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"D02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__130 : bool => + (if + sumbool_of_bool + w__130 + then + let _mappingpatterns_38_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_38_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_39_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_39_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_39_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_39_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"D03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__134 : bool => + (if + sumbool_of_bool + w__134 + then + let _mappingpatterns_39_ : mword 3 := + subrange_vec_dec + v__348 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_39_) >>= fun rm => + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__136 : bool => + (if + sumbool_of_bool + w__136 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__138 : bool => + (if + sumbool_of_bool + w__138 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__140 : bool => + (if + sumbool_of_bool + w__140 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__142 : bool => + (if + sumbool_of_bool + w__142 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__144 : bool => + (if + sumbool_of_bool + w__144 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__146 : bool => + (if + sumbool_of_bool + w__146 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__148 : bool => + (if + sumbool_of_bool + w__148 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__150 : bool => + (if + sumbool_of_bool + w__150 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__152 : bool => + (if + sumbool_of_bool + w__152 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__154 : bool => + (if + sumbool_of_bool + w__154 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__348 + 31 + 20) + (Ox"F00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__348 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__348 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__156 : bool => + returnm (if + sumbool_of_bool + w__156 + then + true + else + true)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) : M (bool)) - (returnm ((eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))) - : bool))) >>= fun w__67 : bool => - (if sumbool_of_bool (w__67) then - let _mappingpatterns_22_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_21_ : mword 1 := - subrange_vec_dec v__225 14 14 in - (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => - (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => - returnm (true - : bool) - else - returnm ((if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - true - else true) - : bool)) : M (bool)) : M (bool)) : M (bool)) @@ -20307,1633 +22251,1535 @@ Definition encdec_backwards_matches (arg_ : mword 32) : M (bool)) : M (bool). -Definition encdec_compressed_forwards (arg_ : ast) -: M (mword 16) := - +Definition encdec_compressed_forwards (arg_ : ast) : M (mword 16) := (match arg_ with - | C_NOP (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B1] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) - | C_ADDI4SPN ((rd, v__438)) => - (if ((let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__438 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__438 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__438 0 0 in + | C_NOP tt => + returnm (concat_vec ('b"000" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"00000" : mword 5) ('b"01" : mword 2))))) + | C_ADDI4SPN (rd, v__680) => + (if let nz96 : bits 4 := subrange_vec_dec v__680 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__680 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__680 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__680 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__680 0 0 in neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1)))))) then - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__438 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__438 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__438 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nz54 : bits 2) - (concat_vec (nz96 : bits 4) - (concat_vec (nz2 : bits 1) - (concat_vec (nz3 : bits 1) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) + (Ox"00" + : mword (4 + (2 + (1 + 1)))) then + let nz96 : bits 4 := subrange_vec_dec v__680 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__680 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__680 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__680 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__680 0 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nz54 : bits 2) + (concat_vec (nz96 : bits 4) + (concat_vec (nz2 : bits 1) + (concat_vec (nz3 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LW ((v__439, rs1, rd)) => - let ui6 : bits 1 := subrange_vec_dec v__439 4 4 in - let ui6 : bits 1 := subrange_vec_dec v__439 4 4 in - let ui53 : bits 3 := subrange_vec_dec v__439 3 1 in - let ui2 : bits 1 := subrange_vec_dec v__439 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui2 : bits 1) - (concat_vec (ui6 : bits 1) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) - | C_LD ((v__440, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - let ui76 : bits 2 := subrange_vec_dec v__440 4 3 in - let ui76 : bits 2 := subrange_vec_dec v__440 4 3 in - let ui53 : bits 3 := subrange_vec_dec v__440 2 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui76 : bits 2) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2)))))) - : mword 16) + | C_LW (v__681, rs1, rd) => + let ui6 : bits 1 := subrange_vec_dec v__681 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__681 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__681 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__681 0 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) + | C_LD (v__682, rs1, rd) => + (if sumbool_of_bool (Z.eqb 32 64) then + let ui76 : bits 2 := subrange_vec_dec v__682 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__682 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__682 2 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui76 : bits 2) + (concat_vec (rd : cregidx) ('b"00" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SW ((v__441, rs1, rs2)) => - let ui6 : bits 1 := subrange_vec_dec v__441 4 4 in - let ui6 : bits 1 := subrange_vec_dec v__441 4 4 in - let ui53 : bits 3 := subrange_vec_dec v__441 3 1 in - let ui2 : bits 1 := subrange_vec_dec v__441 0 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui2 : bits 1) - (concat_vec (ui6 : bits 1) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) - | C_SD ((v__442, rs1, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - let ui76 : bits 2 := subrange_vec_dec v__442 4 3 in - let ui76 : bits 2 := subrange_vec_dec v__442 4 3 in - let ui53 : bits 3 := subrange_vec_dec v__442 2 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : bits 3) - (concat_vec (ui76 : bits 2) - (concat_vec (rs2 : bits 3) (vec_of_bits [B0;B0] : mword 2)))))) - : mword 16) + | C_SW (v__683, rs1, rs2) => + let ui6 : bits 1 := subrange_vec_dec v__683 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__683 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__683 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__683 0 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rs2 : cregidx) ('b"00" : mword 2))))))) + | C_SD (v__684, rs1, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then + let ui76 : bits 2 := subrange_vec_dec v__684 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__684 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__684 2 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : bits 3) + (concat_vec (ui76 : bits 2) + (concat_vec (rs2 : bits 3) ('b"00" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDI ((v__443, rsd)) => - (if ((let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__443 4 0 in - andb (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__443 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nzi5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (nzi40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_ADDI (v__685, rsd) => + (if let nzi5 : bits 1 := subrange_vec_dec v__685 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__685 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__685 4 0 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) (neq_vec rsd zreg) + then + let nzi5 : bits 1 := subrange_vec_dec v__685 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__685 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__685 4 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nzi5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (nzi40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JAL (v__444) => - (if sumbool_of_bool ((Z.eqb 32 32)) then - let i11 : bits 1 := subrange_vec_dec v__444 10 10 in - let i98 : bits 2 := subrange_vec_dec v__444 8 7 in - let i7 : bits 1 := subrange_vec_dec v__444 6 6 in - let i6 : bits 1 := subrange_vec_dec v__444 5 5 in - let i5 : bits 1 := subrange_vec_dec v__444 4 4 in - let i4 : bits 1 := subrange_vec_dec v__444 3 3 in - let i31 : bits 3 := subrange_vec_dec v__444 2 0 in - let i11 : bits 1 := subrange_vec_dec v__444 10 10 in - let i10 : bits 1 := subrange_vec_dec v__444 9 9 in - returnm ((concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (i11 : bits 1) - (concat_vec (i4 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i10 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i7 : bits 1) - (concat_vec (i31 : bits 3) - (concat_vec (i5 : bits 1) - (vec_of_bits [B0;B1] : mword 2)))))))))) - : mword 16) + | C_JAL v__686 => + (if sumbool_of_bool (Z.eqb 32 32) then + let i11 : bits 1 := subrange_vec_dec v__686 10 10 in + let i98 : bits 2 := subrange_vec_dec v__686 8 7 in + let i7 : bits 1 := subrange_vec_dec v__686 6 6 in + let i6 : bits 1 := subrange_vec_dec v__686 5 5 in + let i5 : bits 1 := subrange_vec_dec v__686 4 4 in + let i4 : bits 1 := subrange_vec_dec v__686 3 3 in + let i31 : bits 3 := subrange_vec_dec v__686 2 0 in + let i11 : bits 1 := subrange_vec_dec v__686 10 10 in + let i10 : bits 1 := subrange_vec_dec v__686 9 9 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (i11 : bits 1) + (concat_vec (i4 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i10 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i7 : bits 1) + (concat_vec (i31 : bits 3) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDIW ((v__445, rsd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64))) then - let imm5 : bits 1 := subrange_vec_dec v__445 5 5 in - let imm5 : bits 1 := subrange_vec_dec v__445 5 5 in - let imm40 : bits 5 := subrange_vec_dec v__445 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (imm5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (imm40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_ADDIW (v__687, rsd) => + (if sumbool_of_bool (andb (neq_vec rsd zreg) (Z.eqb 32 64)) then + let imm5 : bits 1 := subrange_vec_dec v__687 5 5 in + let imm5 : bits 1 := subrange_vec_dec v__687 5 5 in + let imm40 : bits 5 := subrange_vec_dec v__687 4 0 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (imm5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (imm40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LI ((v__446, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - let imm5 : bits 1 := subrange_vec_dec v__446 5 5 in - let imm5 : bits 1 := subrange_vec_dec v__446 5 5 in - let imm40 : bits 5 := subrange_vec_dec v__446 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (imm5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (imm40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_LI (v__688, rd) => + (if neq_vec rd zreg then + let imm5 : bits 1 := subrange_vec_dec v__688 5 5 in + let imm5 : bits 1 := subrange_vec_dec v__688 5 5 in + let imm40 : bits 5 := subrange_vec_dec v__688 4 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (imm5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (imm40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDI16SP (v__447) => - (if ((let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__447 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__447 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__447 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__447 0 0 in + | C_ADDI16SP v__689 => + (if let nzi9 : bits 1 := subrange_vec_dec v__689 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__689 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__689 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__689 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__689 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__689 0 0 in neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1))))))) then - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__447 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__447 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__447 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__447 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (nzi9 : bits 1) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (nzi4 : bits 1) - (concat_vec (nzi6 : bits 1) - (concat_vec (nzi87 : bits 2) - (concat_vec (nzi5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1))))) then + let nzi9 : bits 1 := subrange_vec_dec v__689 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__689 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__689 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__689 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__689 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__689 0 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (nzi9 : bits 1) + (concat_vec ('b"00010" : mword 5) + (concat_vec (nzi4 : bits 1) + (concat_vec (nzi6 : bits 1) + (concat_vec (nzi87 : bits 2) + (concat_vec (nzi5 : bits 1) ('b"01" : mword 2)))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LUI ((v__448, rd)) => - (if sumbool_of_bool ((let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__448 4 0 in - andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool))) then - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__448 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (imm17 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (imm1612 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_LUI (v__690, rd) => + (if let imm17 : bits 1 := subrange_vec_dec v__690 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__690 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__690 4 0 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5)))) + then + let imm17 : bits 1 := subrange_vec_dec v__690 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__690 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__690 4 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (imm17 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (imm1612 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SRLI ((v__449, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__449 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - then - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__449 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) + | C_SRLI (v__691, rsd) => + (if let nzui5 : bits 1 := subrange_vec_dec v__691 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__691 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__691 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + let nzui5 : bits 1 := subrange_vec_dec v__691 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__691 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__691 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec ('b"00" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (nzui40 : bits 5) ('b"01" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SRAI ((v__450, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__450 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - then - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__450 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) + | C_SRAI (v__692, rsd) => + (if let nzui5 : bits 1 := subrange_vec_dec v__692 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__692 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__692 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + let nzui5 : bits 1 := subrange_vec_dec v__692 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__692 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__692 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec ('b"01" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (nzui40 : bits 5) ('b"01" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ANDI ((v__451, rsd)) => - let i5 : bits 1 := subrange_vec_dec v__451 5 5 in - let i5 : bits 1 := subrange_vec_dec v__451 5 5 in - let i40 : bits 5 := subrange_vec_dec v__451 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (i5 : bits 1) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (i40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) - | C_SUB ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_XOR ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_OR ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_AND ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_SUBW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) + | C_ANDI (v__693, rsd) => + let i5 : bits 1 := subrange_vec_dec v__693 5 5 in + let i5 : bits 1 := subrange_vec_dec v__693 5 5 in + let i40 : bits 5 := subrange_vec_dec v__693 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (i5 : bits 1) + (concat_vec ('b"10" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (i40 : bits 5) ('b"01" : mword 2)))))) + | C_SUB (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_XOR (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_OR (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"10" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_AND (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"11" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_SUBW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) + | C_ADDW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_J (v__452) => - let i11 : bits 1 := subrange_vec_dec v__452 10 10 in - let i98 : bits 2 := subrange_vec_dec v__452 8 7 in - let i7 : bits 1 := subrange_vec_dec v__452 6 6 in - let i6 : bits 1 := subrange_vec_dec v__452 5 5 in - let i5 : bits 1 := subrange_vec_dec v__452 4 4 in - let i4 : bits 1 := subrange_vec_dec v__452 3 3 in - let i31 : bits 3 := subrange_vec_dec v__452 2 0 in - let i11 : bits 1 := subrange_vec_dec v__452 10 10 in - let i10 : bits 1 := subrange_vec_dec v__452 9 9 in - returnm ((concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (i11 : bits 1) - (concat_vec (i4 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i10 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i7 : bits 1) - (concat_vec (i31 : bits 3) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))))) - : mword 16) - | C_BEQZ ((v__453, rs)) => - let i8 : bits 1 := subrange_vec_dec v__453 7 7 in - let i8 : bits 1 := subrange_vec_dec v__453 7 7 in - let i76 : bits 2 := subrange_vec_dec v__453 6 5 in - let i5 : bits 1 := subrange_vec_dec v__453 4 4 in - let i43 : bits 2 := subrange_vec_dec v__453 3 2 in - let i21 : bits 2 := subrange_vec_dec v__453 1 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (i8 : bits 1) - (concat_vec (i43 : bits 2) - (concat_vec (rs : cregidx) - (concat_vec (i76 : bits 2) - (concat_vec (i21 : bits 2) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) - | C_BNEZ ((v__454, rs)) => - let i8 : bits 1 := subrange_vec_dec v__454 7 7 in - let i8 : bits 1 := subrange_vec_dec v__454 7 7 in - let i76 : bits 2 := subrange_vec_dec v__454 6 5 in - let i5 : bits 1 := subrange_vec_dec v__454 4 4 in - let i43 : bits 2 := subrange_vec_dec v__454 3 2 in - let i21 : bits 2 := subrange_vec_dec v__454 1 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (i8 : bits 1) - (concat_vec (i43 : bits 2) - (concat_vec (rs : cregidx) - (concat_vec (i76 : bits 2) - (concat_vec (i21 : bits 2) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) - | C_SLLI ((v__455, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__455 4 0 in - andb - (neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 32 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool))) then - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__455 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) + | C_J v__694 => + let i11 : bits 1 := subrange_vec_dec v__694 10 10 in + let i98 : bits 2 := subrange_vec_dec v__694 8 7 in + let i7 : bits 1 := subrange_vec_dec v__694 6 6 in + let i6 : bits 1 := subrange_vec_dec v__694 5 5 in + let i5 : bits 1 := subrange_vec_dec v__694 4 4 in + let i4 : bits 1 := subrange_vec_dec v__694 3 3 in + let i31 : bits 3 := subrange_vec_dec v__694 2 0 in + let i11 : bits 1 := subrange_vec_dec v__694 10 10 in + let i10 : bits 1 := subrange_vec_dec v__694 9 9 in + returnm (concat_vec ('b"101" : mword 3) + (concat_vec (i11 : bits 1) + (concat_vec (i4 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i10 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i7 : bits 1) + (concat_vec (i31 : bits 3) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))))) + | C_BEQZ (v__695, rs) => + let i8 : bits 1 := subrange_vec_dec v__695 7 7 in + let i8 : bits 1 := subrange_vec_dec v__695 7 7 in + let i76 : bits 2 := subrange_vec_dec v__695 6 5 in + let i5 : bits 1 := subrange_vec_dec v__695 4 4 in + let i43 : bits 2 := subrange_vec_dec v__695 3 2 in + let i21 : bits 2 := subrange_vec_dec v__695 1 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (i8 : bits 1) + (concat_vec (i43 : bits 2) + (concat_vec (rs : cregidx) + (concat_vec (i76 : bits 2) + (concat_vec (i21 : bits 2) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))) + | C_BNEZ (v__696, rs) => + let i8 : bits 1 := subrange_vec_dec v__696 7 7 in + let i8 : bits 1 := subrange_vec_dec v__696 7 7 in + let i76 : bits 2 := subrange_vec_dec v__696 6 5 in + let i5 : bits 1 := subrange_vec_dec v__696 4 4 in + let i43 : bits 2 := subrange_vec_dec v__696 3 2 in + let i21 : bits 2 := subrange_vec_dec v__696 1 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (i8 : bits 1) + (concat_vec (i43 : bits 2) + (concat_vec (rs : cregidx) + (concat_vec (i76 : bits 2) + (concat_vec (i21 : bits 2) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))) + | C_SLLI (v__697, rsd) => + (if sumbool_of_bool + (let nzui5 : bits 1 := subrange_vec_dec v__697 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__697 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__697 4 0 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 32 64) (eq_vec nzui5 ('b"0" : mword 1))))) then + let nzui5 : bits 1 := subrange_vec_dec v__697 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__697 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__697 4 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (nzui40 : bits 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LWSP ((v__456, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - let ui76 : bits 2 := subrange_vec_dec v__456 5 4 in - let ui76 : bits 2 := subrange_vec_dec v__456 5 4 in - let ui5 : bits 1 := subrange_vec_dec v__456 3 3 in - let ui42 : bits 3 := subrange_vec_dec v__456 2 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (ui5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (ui42 : bits 3) - (concat_vec (ui76 : bits 2) (vec_of_bits [B1;B0] : mword 2)))))) - : mword 16) + | C_LWSP (v__698, rd) => + (if neq_vec rd zreg then + let ui76 : bits 2 := subrange_vec_dec v__698 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__698 5 4 in + let ui5 : bits 1 := subrange_vec_dec v__698 3 3 in + let ui42 : bits 3 := subrange_vec_dec v__698 2 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui42 : bits 3) + (concat_vec (ui76 : bits 2) ('b"10" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LDSP ((v__457, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64))) then - let ui86 : bits 3 := subrange_vec_dec v__457 5 3 in - let ui86 : bits 3 := subrange_vec_dec v__457 5 3 in - let ui5 : bits 1 := subrange_vec_dec v__457 2 2 in - let ui43 : bits 2 := subrange_vec_dec v__457 1 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (ui5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (ui43 : bits 2) - (concat_vec (ui86 : bits 3) (vec_of_bits [B1;B0] : mword 2)))))) - : mword 16) + | C_LDSP (v__699, rd) => + (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 32 64)) then + let ui86 : bits 3 := subrange_vec_dec v__699 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__699 5 3 in + let ui5 : bits 1 := subrange_vec_dec v__699 2 2 in + let ui43 : bits 2 := subrange_vec_dec v__699 1 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui43 : bits 2) + (concat_vec (ui86 : bits 3) ('b"10" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SWSP ((v__458, rs2)) => - let ui76 : bits 2 := subrange_vec_dec v__458 5 4 in - let ui76 : bits 2 := subrange_vec_dec v__458 5 4 in - let ui52 : bits 4 := subrange_vec_dec v__458 3 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (ui52 : bits 4) - (concat_vec (ui76 : bits 2) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) - | C_SDSP ((v__459, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then - let ui86 : bits 3 := subrange_vec_dec v__459 5 3 in - let ui86 : bits 3 := subrange_vec_dec v__459 5 3 in - let ui53 : bits 3 := subrange_vec_dec v__459 2 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (ui86 : bits 3) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) + | C_SWSP (v__700, rs2) => + let ui76 : bits 2 := subrange_vec_dec v__700 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__700 5 4 in + let ui52 : bits 4 := subrange_vec_dec v__700 3 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (ui52 : bits 4) + (concat_vec (ui76 : bits 2) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + | C_SDSP (v__701, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then + let ui86 : bits 3 := subrange_vec_dec v__701 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__701 5 3 in + let ui53 : bits 3 := subrange_vec_dec v__701 2 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (ui86 : bits 3) + (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (rs1 : regidx) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_JR rs1 => + (if neq_vec rs1 zreg then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec (rs1 : regidx) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JALR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (rs1 : regidx) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_JALR rs1 => + (if neq_vec rs1 zreg then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec (rs1 : regidx) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_MV ((rd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (rd : regidx) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_MV (rd, rs2) => + (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec (rd : regidx) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_EBREAK (tt) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) - | C_ADD ((rsd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (rsd : regidx) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_EBREAK tt => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) + | C_ADD (rsd, rs2) => + (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec (rsd : regidx) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FLWSP (v__702, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__45 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__45 then + let ui76 : bits 2 := subrange_vec_dec v__702 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__702 5 4 in + let ui5 : bits 1 := subrange_vec_dec v__702 3 3 in + let ui42 : bits 3 := subrange_vec_dec v__702 2 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui42 : bits 3) + (concat_vec (ui76 : bits 2) ('b"10" : mword 2)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSWSP (v__703, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__51 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__51 then + let ui76 : bits 2 := subrange_vec_dec v__703 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__703 5 4 in + let ui52 : bits 4 := subrange_vec_dec v__703 3 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui52 : bits 4) + (concat_vec (ui76 : bits 2) + (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FLW (v__704, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__57 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__57 then + let ui6 : bits 1 := subrange_vec_dec v__704 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__704 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__704 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__704 0 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSW (v__705, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__63 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__63 then + let ui6 : bits 1 := subrange_vec_dec v__705 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__705 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__705 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__705 0 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rs2 : cregidx) ('b"00" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ILLEGAL (s) => returnm (s : mword 16) + | C_ILLEGAL s => returnm s | _ => assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt end) : M (mword 16). -Definition encdec_compressed_backwards (arg_ : mword 16) -: ast := - - let v__460 := arg_ in - if ((eq_vec v__460 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 16))) - then - C_NOP - (tt) - else if ((andb - (let nz96 : bits 4 := subrange_vec_dec v__460 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__460 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__460 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__460 6 6 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1))))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) - then - let rd : cregidx := subrange_vec_dec v__460 4 2 in - let nz96 : bits 4 := subrange_vec_dec v__460 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__460 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__460 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__460 6 6 in - C_ADDI4SPN - ((rd, concat_vec (nz96 : bits 4) - (concat_vec (nz54 : bits 2) (concat_vec (nz3 : bits 1) (nz2 : bits 1))))) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - let ui6 : bits 1 := subrange_vec_dec v__460 5 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let ui2 : bits 1 := subrange_vec_dec v__460 6 6 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - let rd : cregidx := subrange_vec_dec v__460 4 2 in - C_LW - ((concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 6 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - let rd : cregidx := subrange_vec_dec v__460 4 2 in - C_LD - ((concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - let ui6 : bits 1 := subrange_vec_dec v__460 5 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let ui2 : bits 1 := subrange_vec_dec v__460 6 6 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - C_SW - ((concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 6 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs2 : bits 3 := subrange_vec_dec v__460 4 2 in - let rs1 : bits 3 := subrange_vec_dec v__460 9 7 in - C_SD - ((concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rs2)) - else if ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ADDI - ((concat_vec (nzi5 : bits 1) (nzi40 : bits 5), rsd)) - else if sumbool_of_bool ((andb (Z.eqb 32 32) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let i98 : bits 2 := subrange_vec_dec v__460 10 9 in - let i7 : bits 1 := subrange_vec_dec v__460 6 6 in - let i6 : bits 1 := subrange_vec_dec v__460 7 7 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i4 : bits 1 := subrange_vec_dec v__460 11 11 in - let i31 : bits 3 := subrange_vec_dec v__460 5 3 in - let i11 : bits 1 := subrange_vec_dec v__460 12 12 in - let i10 : bits 1 := subrange_vec_dec v__460 8 8 in - C_JAL - (concat_vec (i11 : bits 1) - (concat_vec (i10 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i7 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i5 : bits 1) (concat_vec (i4 : bits 1) (i31 : bits 3)))))))) - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let imm5 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ADDIW - ((concat_vec (imm5 : bits 1) (imm40 : bits 5), rsd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm5 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_LI - ((concat_vec (imm5 : bits 1) (imm40 : bits 5), rd)) - else if ((andb - (let nzi9 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__460 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__460 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__460 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__460 6 6 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1)))))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 7) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (11 - 7 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let nzi9 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__460 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__460 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__460 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__460 6 6 in - C_ADDI16SP - (concat_vec (nzi9 : bits 1) - (concat_vec (nzi87 : bits 2) - (concat_vec (nzi6 : bits 1) (concat_vec (nzi5 : bits 1) (nzi4 : bits 1))))) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__460 6 2 in - C_LUI - ((concat_vec (imm17 : bits 1) (imm1612 : bits 5), rd)) - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B0;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SRLI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B0;B1] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SRAI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B1;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let i5 : bits 1 := subrange_vec_dec v__460 12 12 in - let i40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ANDI - ((concat_vec (i5 : bits 1) (i40 : bits 5), rsd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_SUB - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_XOR - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B1;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_OR - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B1;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_AND - ((rsd, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) - (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_SUBW - ((rsd, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) - (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_ADDW - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let i98 : bits 2 := subrange_vec_dec v__460 10 9 in - let i7 : bits 1 := subrange_vec_dec v__460 6 6 in - let i6 : bits 1 := subrange_vec_dec v__460 7 7 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i4 : bits 1 := subrange_vec_dec v__460 11 11 in - let i31 : bits 3 := subrange_vec_dec v__460 5 3 in - let i11 : bits 1 := subrange_vec_dec v__460 12 12 in - let i10 : bits 1 := subrange_vec_dec v__460 8 8 in - C_J - (concat_vec (i11 : bits 1) - (concat_vec (i10 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i7 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i5 : bits 1) (concat_vec (i4 : bits 1) (i31 : bits 3)))))))) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let rs : cregidx := subrange_vec_dec v__460 9 7 in - let i8 : bits 1 := subrange_vec_dec v__460 12 12 in - let i76 : bits 2 := subrange_vec_dec v__460 6 5 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i43 : bits 2 := subrange_vec_dec v__460 11 10 in - let i21 : bits 2 := subrange_vec_dec v__460 4 3 in - C_BEQZ - ((concat_vec (i8 : bits 1) - (concat_vec (i76 : bits 2) - (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let rs : cregidx := subrange_vec_dec v__460 9 7 in - let i8 : bits 1 := subrange_vec_dec v__460 12 12 in - let i76 : bits 2 := subrange_vec_dec v__460 6 5 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i43 : bits 2 := subrange_vec_dec v__460 11 10 in - let i21 : bits 2 := subrange_vec_dec v__460 4 3 in - C_BNEZ - ((concat_vec (i8 : bits 1) - (concat_vec (i76 : bits 2) - (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) - else if ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (neq_vec (concat_vec nzui5 nzui40) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 32 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) - then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SLLI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 3 2 in - let ui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let ui42 : bits 3 := subrange_vec_dec v__460 6 4 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_LWSP - ((concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui86 : bits 3 := subrange_vec_dec v__460 4 2 in - let ui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let ui43 : bits 2 := subrange_vec_dec v__460 6 5 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_LDSP - ((concat_vec (ui86 : bits 3) (concat_vec (ui5 : bits 1) (ui43 : bits 2)), rd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - let ui76 : bits 2 := subrange_vec_dec v__460 8 7 in - let ui52 : bits 4 := subrange_vec_dec v__460 12 9 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_SWSP - ((concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui86 : bits 3 := subrange_vec_dec v__460 9 7 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_SDSP - ((concat_vec (ui86 : bits 3) (ui53 : bits 3), rs2)) - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - let rs1 : regidx := subrange_vec_dec v__460 11 7 in - C_JR - (rs1) - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - let rs1 : regidx := subrange_vec_dec v__460 11 7 in - C_JALR - (rs1) - else if sumbool_of_bool ((andb - (let rs2 : regidx := subrange_vec_dec v__460 6 2 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_MV - ((rd, rs2)) - else if ((eq_vec v__460 - (vec_of_bits [B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 16))) then - C_EBREAK - (tt) - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_ADD - ((rsd, rs2)) - else C_ILLEGAL (v__460). - -Definition encdec_compressed_forwards_matches (arg_ : ast) -: bool := - - match arg_ with - | C_NOP (tt) => true - | C_ADDI4SPN ((rd, v__596)) => - if ((let nz96 : bits 4 := subrange_vec_dec v__596 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__596 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__596 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__596 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__596 0 0 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1)))))) then - true - else false - | C_LW ((v__597, rs1, rd)) => true - | C_LD ((v__598, rs1, rd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_SW ((v__599, rs1, rs2)) => true - | C_SD ((v__600, rs1, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_ADDI ((v__601, rsd)) => - if ((let nzi5 : bits 1 := subrange_vec_dec v__601 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__601 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__601 4 0 in - andb (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_JAL (v__602) => if sumbool_of_bool ((Z.eqb 32 32)) then true else false - | C_ADDIW ((v__603, rsd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64))) then - true - else false - | C_LI ((v__604, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_ADDI16SP (v__605) => - if ((let nzi9 : bits 1 := subrange_vec_dec v__605 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__605 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__605 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__605 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__605 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__605 0 0 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1))))))) then - true - else false - | C_LUI ((v__606, rd)) => - if sumbool_of_bool ((let imm17 : bits 1 := subrange_vec_dec v__606 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__606 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__606 4 0 in - andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool))) then - true - else false - | C_SRLI ((v__607, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__607 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__607 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__607 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) then - true - else false - | C_SRAI ((v__608, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__608 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__608 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__608 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) then - true - else false - | C_ANDI ((v__609, rsd)) => true - | C_SUB ((rsd, rs2)) => true - | C_XOR ((rsd, rs2)) => true - | C_OR ((rsd, rs2)) => true - | C_AND ((rsd, rs2)) => true - | C_SUBW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_ADDW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_J (v__610) => true - | C_BEQZ ((v__611, rs)) => true - | C_BNEZ ((v__612, rs)) => true - | C_SLLI ((v__613, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__613 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__613 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__613 4 0 in - andb (neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 32 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool))) then - true - else false - | C_LWSP ((v__614, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_LDSP ((v__615, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - (Z.eqb 32 64))) then - true - else false - | C_SWSP ((v__616, rs2)) => true - | C_SDSP ((v__617, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_JR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_JALR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_MV ((rd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_EBREAK (tt) => true - | C_ADD ((rsd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_ILLEGAL (s) => true - | _ => false - end. +Definition encdec_compressed_backwards (arg_ : mword 16) : M (ast) := + let v__706 := arg_ in + (if eq_vec v__706 (Ox"0001" : mword 16) then returnm (C_NOP tt) + else if andb + (let nz96 : bits 4 := subrange_vec_dec v__706 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__706 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__706 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__706 6 6 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1))))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1)))) then + let rd : cregidx := subrange_vec_dec v__706 4 2 in + let nz96 : bits 4 := subrange_vec_dec v__706 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__706 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__706 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__706 6 6 in + returnm (C_ADDI4SPN + (rd, concat_vec (nz96 : bits 4) + (concat_vec (nz54 : bits 2) (concat_vec (nz3 : bits 1) (nz2 : bits 1))))) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1))) then + let ui6 : bits 1 := subrange_vec_dec v__706 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__706 6 6 in + let rs1 : cregidx := subrange_vec_dec v__706 9 7 in + let rd : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_LW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1))))) then + let ui76 : bits 2 := subrange_vec_dec v__706 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let rs1 : cregidx := subrange_vec_dec v__706 9 7 in + let rd : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_LD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rd)) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1))) then + let ui6 : bits 1 := subrange_vec_dec v__706 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__706 6 6 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + let rs1 : cregidx := subrange_vec_dec v__706 9 7 in + returnm (C_SW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1))))) then + let ui76 : bits 2 := subrange_vec_dec v__706 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let rs2 : bits 3 := subrange_vec_dec v__706 4 2 in + let rs1 : bits 3 := subrange_vec_dec v__706 9 7 in + returnm (C_SD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rs2)) + else if andb + (let rsd : regidx := subrange_vec_dec v__706 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__706 6 2 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg)) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : regidx := subrange_vec_dec v__706 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_ADDI (concat_vec (nzi5 : bits 1) (nzi40 : bits 5), rsd)) + else if sumbool_of_bool + (andb (Z.eqb 32 32) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let i98 : bits 2 := subrange_vec_dec v__706 10 9 in + let i7 : bits 1 := subrange_vec_dec v__706 6 6 in + let i6 : bits 1 := subrange_vec_dec v__706 7 7 in + let i5 : bits 1 := subrange_vec_dec v__706 2 2 in + let i4 : bits 1 := subrange_vec_dec v__706 11 11 in + let i31 : bits 3 := subrange_vec_dec v__706 5 3 in + let i11 : bits 1 := subrange_vec_dec v__706 12 12 in + let i10 : bits 1 := subrange_vec_dec v__706 8 8 in + returnm (C_JAL + (concat_vec (i11 : bits 1) + (concat_vec (i10 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i7 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i5 : bits 1) + (concat_vec (i4 : bits 1) (i31 : bits 3))))))))) + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__706 11 7 in + andb (neq_vec rsd zreg) (Z.eqb 32 64)) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : regidx := subrange_vec_dec v__706 11 7 in + let imm5 : bits 1 := subrange_vec_dec v__706 12 12 in + let imm40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_ADDIW (concat_vec (imm5 : bits 1) (imm40 : bits 5), rsd)) + else if andb + (let rd : regidx := subrange_vec_dec v__706 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rd : regidx := subrange_vec_dec v__706 11 7 in + let imm5 : bits 1 := subrange_vec_dec v__706 12 12 in + let imm40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_LI (concat_vec (imm5 : bits 1) (imm40 : bits 5), rd)) + else if andb + (let nzi9 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__706 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__706 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__706 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__706 6 6 in + neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1)))))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 11 7) ('b"00010" : mword (11 - 7 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let nzi9 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__706 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__706 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__706 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__706 6 6 in + returnm (C_ADDI16SP + (concat_vec (nzi9 : bits 1) + (concat_vec (nzi87 : bits 2) + (concat_vec (nzi6 : bits 1) (concat_vec (nzi5 : bits 1) (nzi4 : bits 1)))))) + else if andb + (let rd : regidx := subrange_vec_dec v__706 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__706 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__706 6 2 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5))))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rd : regidx := subrange_vec_dec v__706 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__706 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_LUI (concat_vec (imm17 : bits 1) (imm1612 : bits 5), rd)) + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 11 10) ('b"00" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_SRLI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 11 10) ('b"01" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_SRAI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 11 10) ('b"10" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let i5 : bits 1 := subrange_vec_dec v__706 12 12 in + let i40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_ANDI (concat_vec (i5 : bits 1) (i40 : bits 5), rsd)) + else if andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_SUB (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_XOR (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"10" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_OR (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"11" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_AND (rsd, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_SUBW (rsd, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__706 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__706 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + let rsd : cregidx := subrange_vec_dec v__706 9 7 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_ADDW (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"101" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))) then + let i98 : bits 2 := subrange_vec_dec v__706 10 9 in + let i7 : bits 1 := subrange_vec_dec v__706 6 6 in + let i6 : bits 1 := subrange_vec_dec v__706 7 7 in + let i5 : bits 1 := subrange_vec_dec v__706 2 2 in + let i4 : bits 1 := subrange_vec_dec v__706 11 11 in + let i31 : bits 3 := subrange_vec_dec v__706 5 3 in + let i11 : bits 1 := subrange_vec_dec v__706 12 12 in + let i10 : bits 1 := subrange_vec_dec v__706 8 8 in + returnm (C_J + (concat_vec (i11 : bits 1) + (concat_vec (i10 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i7 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i5 : bits 1) + (concat_vec (i4 : bits 1) (i31 : bits 3))))))))) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))) then + let rs : cregidx := subrange_vec_dec v__706 9 7 in + let i8 : bits 1 := subrange_vec_dec v__706 12 12 in + let i76 : bits 2 := subrange_vec_dec v__706 6 5 in + let i5 : bits 1 := subrange_vec_dec v__706 2 2 in + let i43 : bits 2 := subrange_vec_dec v__706 11 10 in + let i21 : bits 2 := subrange_vec_dec v__706 4 3 in + returnm (C_BEQZ + (concat_vec (i8 : bits 1) + (concat_vec (i76 : bits 2) + (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"01" : mword (1 - 0 + 1))) then + let rs : cregidx := subrange_vec_dec v__706 9 7 in + let i8 : bits 1 := subrange_vec_dec v__706 12 12 in + let i76 : bits 2 := subrange_vec_dec v__706 6 5 in + let i5 : bits 1 := subrange_vec_dec v__706 2 2 in + let i43 : bits 2 := subrange_vec_dec v__706 11 10 in + let i21 : bits 2 := subrange_vec_dec v__706 4 3 in + returnm (C_BNEZ + (concat_vec (i8 : bits 1) + (concat_vec (i76 : bits 2) + (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__706 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 32 64) (eq_vec nzui5 ('b"0" : mword 1))))) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let rsd : regidx := subrange_vec_dec v__706 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__706 6 2 in + returnm (C_SLLI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb + (let rd : regidx := subrange_vec_dec v__706 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let ui76 : bits 2 := subrange_vec_dec v__706 3 2 in + let ui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let ui42 : bits 3 := subrange_vec_dec v__706 6 4 in + let rd : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_LWSP + (concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) + else if sumbool_of_bool + (andb + (let rd : regidx := subrange_vec_dec v__706 11 7 in + andb (neq_vec rd zreg) (Z.eqb 32 64)) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let ui86 : bits 3 := subrange_vec_dec v__706 4 2 in + let ui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let ui43 : bits 2 := subrange_vec_dec v__706 6 5 in + let rd : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_LDSP + (concat_vec (ui86 : bits 3) (concat_vec (ui5 : bits 1) (ui43 : bits 2)), rd)) + else if andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1))) then + let ui76 : bits 2 := subrange_vec_dec v__706 8 7 in + let ui52 : bits 4 := subrange_vec_dec v__706 12 9 in + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + returnm (C_SWSP (concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let ui86 : bits 3 := subrange_vec_dec v__706 9 7 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + returnm (C_SDSP (concat_vec (ui86 : bits 3) (ui53 : bits 3), rs2)) + else if andb + (let rs1 : regidx := subrange_vec_dec v__706 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__706 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__706 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + let rs1 : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_JR rs1) + else if andb + (let rs1 : regidx := subrange_vec_dec v__706 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__706 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__706 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + let rs1 : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_JALR rs1) + else if andb + (let rs2 : regidx := subrange_vec_dec v__706 6 2 in + let rd : regidx := subrange_vec_dec v__706 11 7 in + andb (neq_vec rd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__706 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + let rd : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_MV (rd, rs2)) + else if eq_vec v__706 (Ox"9002" : mword 16) then returnm (C_EBREAK tt) + else if andb + (let rsd : regidx := subrange_vec_dec v__706 11 7 in + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + andb (neq_vec rsd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__706 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let rsd : regidx := subrange_vec_dec v__706 11 7 in + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + returnm (C_ADD (rsd, rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__4 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__4 then + let ui76 : bits 2 := subrange_vec_dec v__706 3 2 in + let ui5 : bits 1 := subrange_vec_dec v__706 12 12 in + let ui42 : bits 3 := subrange_vec_dec v__706 6 4 in + let rd : regidx := subrange_vec_dec v__706 11 7 in + returnm (C_FLWSP + (concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__706 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__9 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__9 then + let ui76 : bits 2 := subrange_vec_dec v__706 8 7 in + let ui52 : bits 4 := subrange_vec_dec v__706 12 9 in + let rs2 : regidx := subrange_vec_dec v__706 6 2 in + returnm (C_FSWSP (concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__706 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__14 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__14 then + let ui6 : bits 1 := subrange_vec_dec v__706 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__706 6 6 in + let rs1 : cregidx := subrange_vec_dec v__706 9 7 in + let rd : cregidx := subrange_vec_dec v__706 4 2 in + returnm (C_FLW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__706 15 13) + ('b"111" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__706 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__19 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__19 then + let ui6 : bits 1 := subrange_vec_dec v__706 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__706 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__706 6 6 in + let rs2 : cregidx := subrange_vec_dec v__706 4 2 in + let rs1 : cregidx := subrange_vec_dec v__706 9 7 in + C_FSW + (concat_vec (ui6 : bits 1) + (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2) + else C_ILLEGAL v__706)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast). -Definition encdec_compressed_backwards_matches (arg_ : mword 16) -: bool := - - let v__618 := arg_ in - if ((eq_vec v__618 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 16))) - then - true - else if ((andb - (let nz96 : bits 4 := subrange_vec_dec v__618 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__618 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__618 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__618 6 6 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1))))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 32 32) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let nzi9 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__618 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__618 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__618 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__618 6 6 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1)))))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 7) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (11 - 7 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__618 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B0;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B0;B1] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B1;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B1;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B1;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) - (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) - (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (neq_vec (concat_vec nzui5 nzui40) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 32 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 32 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rs2 : regidx := subrange_vec_dec v__618 6 2 in - let rd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if ((eq_vec v__618 - (vec_of_bits [B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 16))) then - true - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let rs2 : regidx := subrange_vec_dec v__618 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else true. +Definition encdec_compressed_forwards_matches (arg_ : ast) : M (bool) := + (match arg_ with + | C_NOP tt => returnm true + | C_ADDI4SPN (rd, v__854) => + returnm (if let nz96 : bits 4 := subrange_vec_dec v__854 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__854 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__854 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__854 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__854 0 0 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1)))) then + true + else false) + | C_LW (v__855, rs1, rd) => returnm true + | C_LD (v__856, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | C_SW (v__857, rs1, rs2) => returnm true + | C_SD (v__858, rs1, rs2) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | C_ADDI (v__859, rsd) => + returnm (if let nzi5 : bits 1 := subrange_vec_dec v__859 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__859 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__859 4 0 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg) then + true + else false) + | C_JAL v__860 => returnm (if sumbool_of_bool (Z.eqb 32 32) then true else false) + | C_ADDIW (v__861, rsd) => + returnm (if sumbool_of_bool (andb (neq_vec rsd zreg) (Z.eqb 32 64)) then true else false) + | C_LI (v__862, rd) => returnm (if neq_vec rd zreg then true else false) + | C_ADDI16SP v__863 => + returnm (if let nzi9 : bits 1 := subrange_vec_dec v__863 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__863 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__863 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__863 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__863 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__863 0 0 in + neq_vec + (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1))))) then + true + else false) + | C_LUI (v__864, rd) => + returnm (if let imm17 : bits 1 := subrange_vec_dec v__864 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__864 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__864 4 0 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5)))) then + true + else false) + | C_SRLI (v__865, rsd) => + returnm (if let nzui5 : bits 1 := subrange_vec_dec v__865 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__865 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__865 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + true + else false) + | C_SRAI (v__866, rsd) => + returnm (if let nzui5 : bits 1 := subrange_vec_dec v__866 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__866 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__866 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + true + else false) + | C_ANDI (v__867, rsd) => returnm true + | C_SUB (rsd, rs2) => returnm true + | C_XOR (rsd, rs2) => returnm true + | C_OR (rsd, rs2) => returnm true + | C_AND (rsd, rs2) => returnm true + | C_SUBW (rsd, rs2) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | C_ADDW (rsd, rs2) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | C_J v__868 => returnm true + | C_BEQZ (v__869, rs) => returnm true + | C_BNEZ (v__870, rs) => returnm true + | C_SLLI (v__871, rsd) => + returnm (if sumbool_of_bool + (let nzui5 : bits 1 := subrange_vec_dec v__871 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__871 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__871 4 0 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 32 64) (eq_vec nzui5 ('b"0" : mword 1))))) + then + true + else false) + | C_LWSP (v__872, rd) => returnm (if neq_vec rd zreg then true else false) + | C_LDSP (v__873, rd) => + returnm (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 32 64)) then true else false) + | C_SWSP (v__874, rs2) => returnm true + | C_SDSP (v__875, rs2) => returnm (if sumbool_of_bool (Z.eqb 32 64) then true else false) + | C_JR rs1 => returnm (if neq_vec rs1 zreg then true else false) + | C_JALR rs1 => returnm (if neq_vec rs1 zreg then true else false) + | C_MV (rd, rs2) => returnm (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then true else false) + | C_EBREAK tt => returnm true + | C_ADD (rsd, rs2) => + returnm (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then true else false) + | C_FLWSP (v__876, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__3 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__3 then true else false) + | C_FSWSP (v__877, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__7 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__7 then true else false) + | C_FLW (v__878, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__11 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__11 then true else false) + | C_FSW (v__879, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__15 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__15 then true else false) + | C_ILLEGAL s => returnm true + | _ => returnm false + end) + : M (bool). -Definition execute_WFI '(tt : unit) -: M (Retired) := - +Definition encdec_compressed_backwards_matches (arg_ : mword 16) : M (bool) := + let v__880 := arg_ in + (if eq_vec v__880 (Ox"0001" : mword 16) then returnm true + else if andb + (let nz96 : bits 4 := subrange_vec_dec v__880 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__880 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__880 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__880 6 6 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1))))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rsd : regidx := subrange_vec_dec v__880 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__880 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__880 6 2 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg)) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 32) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__880 11 7 in + andb (neq_vec rsd zreg) (Z.eqb 32 64)) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__880 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb + (let nzi9 : bits 1 := subrange_vec_dec v__880 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__880 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__880 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__880 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__880 6 6 in + neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1)))))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 11 7) ('b"00010" : mword (11 - 7 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__880 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__880 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__880 6 2 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5))))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__880 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__880 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 11 10) ('b"00" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__880 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__880 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 11 10) ('b"01" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 11 10) ('b"10" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"10" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"11" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__880 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__880 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"101" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__880 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__880 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__880 6 2 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 32 64) (eq_vec nzui5 ('b"0" : mword 1))))) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__880 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb + (let rd : regidx := subrange_vec_dec v__880 11 7 in + andb (neq_vec rd zreg) (Z.eqb 32 64)) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 32 64) + (andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rs1 : regidx := subrange_vec_dec v__880 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__880 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__880 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + returnm true + else if andb + (let rs1 : regidx := subrange_vec_dec v__880 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__880 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__880 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + returnm true + else if andb + (let rs2 : regidx := subrange_vec_dec v__880 6 2 in + let rd : regidx := subrange_vec_dec v__880 11 7 in + andb (neq_vec rd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__880 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else if eq_vec v__880 (Ox"9002" : mword 16) then returnm true + else if andb + (let rsd : regidx := subrange_vec_dec v__880 11 7 in + let rs2 : regidx := subrange_vec_dec v__880 6 2 in + andb (neq_vec rsd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__880 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__4 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__4 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__880 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__9 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__9 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__880 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__14 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__14 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 32 32) + : {_bool : bool & ArithFact (Bool.eqb (32 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (32 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (32 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__880 15 13) + ('b"111" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__880 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)})) >>= fun '(existT _ w__19 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (32 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__19 then true else true)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool). + +Definition execute_WFI '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | Machine => (platform_wfi tt) >> returnm (RETIRE_SUCCESS : Retired) + | Machine => (platform_wfi tt) >> returnm RETIRE_SUCCESS | Supervisor => read_reg mstatus_ref >>= fun w__1 : Mstatus => - (if ((eq_vec (_get_Mstatus_TW w__1) ((bool_to_bits true) : mword 1))) then - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) - else (platform_wfi tt) >> returnm (RETIRE_SUCCESS : Retired)) + (if eq_vec (_get_Mstatus_TW w__1) ('b"1" : mword 1) then + (handle_illegal tt) >> returnm RETIRE_FAIL + else (platform_wfi tt) >> returnm RETIRE_SUCCESS) : M (Retired) - | User => (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + | User => (handle_illegal tt) >> returnm RETIRE_FAIL end) : M (Retired). -Definition execute_UTYPE (imm : mword 20) (rd : mword 5) (op : uop) -: M (Retired) := - - let off : xlenbits := - EXTS 32 (concat_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12)) in +Definition execute_UTYPE (imm : mword 20) (rd : mword 5) (op : uop) : M (Retired) := + let off : xlenbits := EXTS 32 (concat_vec imm (Ox"000" : mword 12)) in (match op with - | RISCV_LUI => returnm (off : mword 32) - | RISCV_AUIPC => - (get_arch_pc tt) >>= fun w__0 : mword 32 => returnm ((add_vec w__0 off) : mword 32) + | RISCV_LUI => returnm off + | RISCV_AUIPC => (get_arch_pc tt) >>= fun w__0 : mword 32 => returnm (add_vec w__0 off) end) >>= fun ret : xlenbits => - (wX (projT1 (regidx_to_regno rd)) ret) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd ret) >> returnm RETIRE_SUCCESS. -Definition execute_URET '(tt : unit) -: M (Retired) := - +Definition execute_URET '(tt : unit) : M (Retired) := (haveUsrMode tt) >>= fun w__0 : bool => - (if sumbool_of_bool ((negb w__0)) then (handle_illegal tt) : M (unit) + (if sumbool_of_bool (negb w__0) then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv User) then returnm (ext_fail_xret_priv tt) else read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 32)) >>= fun w__2 : mword 32 => - (exception_handler w__1 (CTL_URET (tt)) w__2) >>= fun w__3 : mword 32 => + (exception_handler w__1 (CTL_URET tt) w__2) >>= fun w__3 : mword 32 => (set_next_pc w__3) : M (unit)) >> - returnm (RETIRE_FAIL - : Retired). + returnm RETIRE_FAIL. + +Definition execute_STORE_FP (imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) +: M (Retired) := + let offset : xlenbits := EXTS 32 imm in + let '(aq, rl, con) := (false, false, false) in + (ext_data_get_addr rs1 offset (Write Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => + (match w__0 with + | Ext_DataAddr_Error e => + let '_ := (ext_handle_data_check_error e) : unit in + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL + else + (translateAddr vaddr (Write Data)) >>= fun w__1 : TR_Result (mword 32) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => + (match width with + | BYTE => returnm (MemValue tt) + | HALF => returnm (MemValue tt) + | WORD => (mem_write_ea addr 4 aq rl false) : M (MemoryOpResult unit) + | DOUBLE => (mem_write_ea addr 8 aq rl false) : M (MemoryOpResult unit) + end) >>= fun eares : MemoryOpResult unit => + (match eares with + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rF_bits rs2) >>= fun rs2_val => + (match (width, 32) with + | (BYTE, _) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (HALF, _) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (WORD, _) => + (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl con) >>= fun w__4 : MemoryOpResult bool => + (process_fstore vaddr w__4) + : M (Retired) + | _ => exit tt : M (Retired) + end) + : M (Retired) + end) + : M (Retired) + end) + : M (Retired)) + : M (Retired) + end) + : M (Retired). Definition execute_STORECON -(aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (rd : mword 5) +(aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (rd : mword 5) : M (Retired) := - (speculate_conditional tt) >>= fun w__0 : bool => - (if ((Bool.eqb w__0 false)) then - (wX (projT1 (regidx_to_regno rd)) (EXTZ 32 (vec_of_bits [B1] : mword 1))) >> - returnm (RETIRE_SUCCESS - : Retired) + (if Bool.eqb w__0 false then (wX_bits rd (EXTZ 32 ('b"1" : mword 1))) >> returnm RETIRE_SUCCESS else (haveAtomics tt) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (ext_data_get_addr rs1 (zeros_implicit 32) Write width) >>= fun w__2 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__1 then + (ext_data_get_addr rs1 (zeros_implicit 32) (Write Data) width) >>= fun w__2 : Ext_DataAddr_Check unit => (match w__2 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (match width with - | BYTE => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | HALF => - (cast_unit_vec (access_vec_dec vaddr 0)) >>= fun w__3 : mword 1 => - returnm ((eq_vec w__3 (vec_of_bits [B0] : mword 1)) - : bool) - | WORD => - returnm ((eq_vec (subrange_vec_dec vaddr 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - : bool) - | DOUBLE => - returnm ((eq_vec (subrange_vec_dec vaddr 2 0) - (vec_of_bits [B0;B0;B0] : mword (2 - 0 + 1))) - : bool) - end) >>= fun aligned : bool => - (if sumbool_of_bool ((negb aligned)) then - (handle_mem_exception vaddr E_SAMO_Addr_Align) >> returnm (RETIRE_FAIL : Retired) - else if ((Bool.eqb (match_reservation vaddr) false)) then - (wX (projT1 (regidx_to_regno rd)) (EXTZ 32 (vec_of_bits [B1] : mword 1))) >> + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + let aligned : bool := + match width with + | BYTE => true + | HALF => eq_vec (subrange_vec_dec vaddr 0 0) ('b"0" : mword (0 - 0 + 1)) + | WORD => eq_vec (subrange_vec_dec vaddr 1 0) ('b"00" : mword (1 - 0 + 1)) + | DOUBLE => eq_vec (subrange_vec_dec vaddr 2 0) ('b"000" : mword (2 - 0 + 1)) + end in + (if sumbool_of_bool (negb aligned) then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL + else if Bool.eqb (match_reservation vaddr) false then + (wX_bits rd (EXTZ 32 ('b"1" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) + returnm RETIRE_SUCCESS else - (translateAddr vaddr Write) >>= fun w__4 : TR_Result (mword 32) ExceptionType => - (match w__4 with - | TR_Failure (e) => - (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Write Data)) >>= fun w__3 : TR_Result (mword 32) ExceptionType => + (match w__3 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 32) with | (WORD, _) => (mem_write_ea addr 4 aq rl true) : M (MemoryOpResult unit) | _ => @@ -21941,10 +23787,9 @@ Definition execute_STORECON : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rX_bits rs2) >>= fun rs2_val => (match (width, 32) with | (WORD, _) => (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl true) @@ -21954,20 +23799,15 @@ Definition execute_STORECON : M (MemoryOpResult bool) end) >>= fun res : MemoryOpResult bool => (match res with - | MemValue (true) => - (wX (projT1 (regidx_to_regno rd)) - (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> + | MemValue true => + (wX_bits rd (EXTZ 32 ('b"0" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) - | MemValue (false) => - (wX (projT1 (regidx_to_regno rd)) - (EXTZ 32 (vec_of_bits [B1] : mword 1))) >> + returnm RETIRE_SUCCESS + | MemValue false => + (wX_bits rd (EXTZ 32 ('b"1" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -21977,59 +23817,54 @@ Definition execute_STORECON : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired)) : M (Retired). Definition execute_STORE -(imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (aq : bool) (rl : bool) +(imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (aq : bool) (rl : bool) : M (Retired) := - let offset : xlenbits := EXTS 32 imm in - (ext_data_get_addr rs1 offset Write width) >>= fun w__0 : Ext_DataAddr_Check unit => + (ext_data_get_addr rs1 offset (Write Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => (match w__0 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (check_misaligned vaddr width) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (handle_mem_exception vaddr E_SAMO_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Write) >>= fun w__2 : TR_Result (mword 32) ExceptionType => - (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Write Data)) >>= fun w__1 : TR_Result (mword 32) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (paddr, _) => (match width with - | BYTE => (mem_write_ea addr 1 aq rl false) : M (MemoryOpResult unit) - | HALF => (mem_write_ea addr 2 aq rl false) : M (MemoryOpResult unit) - | WORD => (mem_write_ea addr 4 aq rl false) : M (MemoryOpResult unit) - | DOUBLE => (mem_write_ea addr 8 aq rl false) : M (MemoryOpResult unit) + | BYTE => (mem_write_ea paddr 1 aq rl false) : M (MemoryOpResult unit) + | HALF => (mem_write_ea paddr 2 aq rl false) : M (MemoryOpResult unit) + | WORD => (mem_write_ea paddr 4 aq rl false) : M (MemoryOpResult unit) + | DOUBLE => (mem_write_ea paddr 8 aq rl false) : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rX_bits rs2) >>= fun rs2_val => (match (width, 32) with | (BYTE, _) => - (mem_write_value addr 1 (subrange_vec_dec rs2_val 7 0) aq rl false) + (mem_write_value paddr 1 (subrange_vec_dec rs2_val 7 0) aq rl false) : M (MemoryOpResult bool) | (HALF, _) => - (mem_write_value addr 2 (subrange_vec_dec rs2_val 15 0) aq rl false) + (mem_write_value paddr 2 (subrange_vec_dec rs2_val 15 0) aq rl false) : M (MemoryOpResult bool) | (WORD, _) => - (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl false) + (mem_write_value paddr 4 (subrange_vec_dec rs2_val 31 0) aq rl false) : M (MemoryOpResult bool) | _ => exit tt : M (MemoryOpResult bool) end) >>= fun res : MemoryOpResult bool => (match res with - | MemValue (true) => returnm (RETIRE_SUCCESS : Retired) - | MemValue (false) => + | MemValue true => returnm RETIRE_SUCCESS + | MemValue false => (internal_error "store got false from mem_write_value") : M (Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -22040,43 +23875,29 @@ Definition execute_STORE end) : M (Retired). -Definition execute_SRET '(tt : unit) -: M (Retired) := - +Definition execute_SRET '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | User => (handle_illegal tt) : M (unit) + | User => returnm true | Supervisor => (or_boolM ((haveSupMode tt) >>= fun w__1 : bool => returnm ((negb w__1) : bool)) (read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((eq_vec (_get_Mstatus_TSR w__2) ((bool_to_bits true) : mword 1)) - : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then (handle_illegal tt) : M (unit) - else - read_reg cur_privilege_ref >>= fun w__4 : Privilege => - ((read_reg PC_ref) : M (mword 32)) >>= fun w__5 : mword 32 => - (exception_handler w__4 (CTL_SRET (tt)) w__5) >>= fun w__6 : mword 32 => - (set_next_pc w__6) - : M (unit)) - : M (unit) - | Machine => - (haveSupMode tt) >>= fun w__7 : bool => - (if sumbool_of_bool ((negb w__7)) then (handle_illegal tt) : M (unit) - else - read_reg cur_privilege_ref >>= fun w__8 : Privilege => - ((read_reg PC_ref) : M (mword 32)) >>= fun w__9 : mword 32 => - (exception_handler w__8 (CTL_SRET (tt)) w__9) >>= fun w__10 : mword 32 => - (set_next_pc w__10) - : M (unit)) - : M (unit) - end) >> - returnm (RETIRE_FAIL - : Retired). + returnm ((eq_vec (_get_Mstatus_TSR w__2) ('b"1" : mword 1)) : bool))) + : M (bool) + | Machine => (haveSupMode tt) >>= fun w__4 : bool => returnm (negb w__4) + end) >>= fun sret_illegal : bool => + (if sumbool_of_bool sret_illegal then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv Supervisor) then returnm (ext_fail_xret_priv tt) + else + read_reg cur_privilege_ref >>= fun w__5 : Privilege => + ((read_reg PC_ref) : M (mword 32)) >>= fun w__6 : mword 32 => + (exception_handler w__5 (CTL_SRET tt) w__6) >>= fun w__7 : mword 32 => + (set_next_pc w__7) + : M (unit)) >> + returnm RETIRE_FAIL. -Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 32 => +Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sop) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 32 => let rs1_val := subrange_vec_dec w__0 31 0 in let result : bits 32 := match op with @@ -22084,67 +23905,49 @@ Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : | RISCV_SRLI => shift_bits_right rs1_val shamt | RISCV_SRAI => shift_right_arith32 rs1_val shamt end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 32 result)) >> returnm RETIRE_SUCCESS. -Definition execute_SHIFTIWOP (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sopw) +Definition execute_SHIFTIWOP (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sopw) : M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => + (rX_bits rs1) >>= fun rs1_val => let result : bits 32 := match op with | RISCV_SLLIW => shift_bits_left (subrange_vec_dec rs1_val 31 0) shamt | RISCV_SRLIW => shift_bits_right (subrange_vec_dec rs1_val 31 0) shamt | RISCV_SRAIW => shift_right_arith32 (subrange_vec_dec rs1_val 31 0) shamt end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 32 result)) >> returnm RETIRE_SUCCESS. -Definition execute_SHIFTIOP (shamt : mword 6) (rs1 : mword 5) (rd : mword 5) (op : sop) +Definition execute_SHIFTIOP (shamt : mword 6) (rs1 : mword 5) (rd : mword 5) (op : sop) : M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => + (rX_bits rs1) >>= fun rs1_val => let result : xlenbits := match op with | RISCV_SLLI => shift_bits_left rs1_val (subrange_vec_dec shamt 4 0) | RISCV_SRLI => shift_bits_right rs1_val (subrange_vec_dec shamt 4 0) | RISCV_SRAI => shift_right_arith32 rs1_val (subrange_vec_dec shamt 4 0) end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. -Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) -: M (Retired) := - - (if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then - returnm (None - : option (mword 32)) - else - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 32 => - returnm ((Some - (w__0)) - : option (mword 32))) >>= fun addr : option xlenbits => - (if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then - returnm (None - : option (mword 32)) - else - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__1 : mword 32 => - returnm ((Some - (w__1)) - : option (mword 32))) >>= fun asid : option xlenbits => +Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) : M (Retired) := + (if eq_vec rs1 ('b"00000" : mword 5) then returnm None + else (rX_bits rs1) >>= fun w__0 : mword 32 => returnm (Some w__0)) >>= fun addr : option xlenbits => + (if eq_vec rs2 ('b"00000" : mword 5) then returnm None + else (rX_bits rs2) >>= fun w__1 : mword 32 => returnm (Some w__1)) >>= fun asid : option xlenbits => read_reg cur_privilege_ref >>= fun w__2 : Privilege => (match w__2 with - | User => (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + | User => (handle_illegal tt) >> returnm RETIRE_FAIL | Supervisor => read_reg mstatus_ref >>= fun w__3 : Mstatus => read_reg mstatus_ref >>= fun w__4 : Mstatus => - let p__215 := (architecture (get_mstatus_SXL w__3), _get_Mstatus_TVM w__4) in - (match p__215 with - | (Some (g__214), v_0) => - (if ((eq_vec v_0 ((bool_to_bits true) : mword 1))) then - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) - else if ((eq_vec v_0 ((bool_to_bits false) : mword 1))) then - (flush_TLB asid addr) >> returnm (RETIRE_SUCCESS : Retired) + let p__309 := (architecture (get_mstatus_SXL w__3), _get_Mstatus_TVM w__4) in + (match p__309 with + | (Some g__308, b__0) => + (if eq_vec b__0 ('b"1" : mword 1) then (handle_illegal tt) >> returnm RETIRE_FAIL + else if eq_vec b__0 ('b"0" : mword 1) then + (flush_TLB asid addr) >> returnm RETIRE_SUCCESS else - (match (Some - (g__214), v_0) with + (match (Some g__308, b__0) with | (_, _) => (internal_error "unimplemented sfence architecture") : M (Retired) end) : M (Retired)) @@ -22152,16 +23955,14 @@ Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) | (_, _) => (internal_error "unimplemented sfence architecture") : M (Retired) end) : M (Retired) - | Machine => (flush_TLB asid addr) >> returnm (RETIRE_SUCCESS : Retired) + | Machine => (flush_TLB asid addr) >> returnm RETIRE_SUCCESS end) : M (Retired). -Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ropw) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 32 => +Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ropw) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 32 => let rs1_val := subrange_vec_dec w__0 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__1 : mword 32 => + (rX_bits rs2) >>= fun w__1 : mword 32 => let rs2_val := subrange_vec_dec w__1 31 0 in let result : bits 32 := match op with @@ -22171,13 +23972,11 @@ Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : r | RISCV_SRLW => shift_bits_right rs1_val (subrange_vec_dec rs2_val 4 0) | RISCV_SRAW => shift_right_arith32 rs1_val (subrange_vec_dec rs2_val 4 0) end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 32 result)) >> returnm RETIRE_SUCCESS. -Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : rop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => +Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : rop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let result : xlenbits := match op with | RISCV_ADD => add_vec rs1_val rs2_val @@ -22191,187 +23990,183 @@ Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ro | RISCV_SUB => sub_vec rs1_val rs2_val | RISCV_SRA => shift_right_arith32 rs1_val (subrange_vec_dec rs2_val 4 0) end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. -Definition execute_RISCV_JALR (imm : mword 12) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 32 => +Definition execute_RISCV_JALR (imm : mword 12) (rs1 : mword 5) (rd : mword 5) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 32 => let t : xlenbits := add_vec w__0 (EXTS 32 imm) in (match (ext_control_check_addr t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (addr) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK addr => let target := update_vec_dec addr 0 B0 in (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL else (get_next_pc tt) >>= fun w__4 : mword 32 => - (wX (projT1 (regidx_to_regno rd)) w__4) >> - (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (wX_bits rd w__4) >> (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired). -Definition execute_RISCV_JAL (imm : mword 21) (rd : mword 5) -: M (Retired) := - +Definition execute_RISCV_JAL (imm : mword 21) (rd : mword 5) : M (Retired) := ((read_reg PC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => let t : xlenbits := add_vec w__0 (EXTS 32 imm) in (match (ext_control_check_pc t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (target) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK target => (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL else (get_next_pc tt) >>= fun w__4 : mword 32 => - (wX (projT1 (regidx_to_regno rd)) w__4) >> - (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (wX_bits rd w__4) >> (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired). -Definition execute_REMW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_REMW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 32 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 32 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 32 => + (rX_bits rs2) >>= fun w__2 : mword 32 => let rs2_val := subrange_vec_dec w__2 31 0 in - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let r : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then rs1_int else Z.rem rs1_int rs2_int in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 (to_bits 32 r))) >> - returnm (RETIRE_SUCCESS - : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let r : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then rs1_int else Z.rem rs1_int rs2_int in + (wX_bits rd (EXTS 32 (to_bits 32 r))) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_REM (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_REM (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let r : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then rs1_int else Z.rem rs1_int rs2_int in - (wX (projT1 (regidx_to_regno rd)) (to_bits 32 r)) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let r : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then rs1_int else Z.rem rs1_int rs2_int in + (wX_bits rd (to_bits 32 r)) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_MULW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - +Definition execute_MULW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 32 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 32 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 32 => + (rX_bits rs2) >>= fun w__2 : mword 32 => let rs2_val := subrange_vec_dec w__2 31 0 in let rs1_int : Z := projT1 (sint rs1_val) in let rs2_int : Z := projT1 (sint rs2_val) in let result32 := subrange_vec_dec (to_bits 64 (Z.mul rs1_int rs2_int)) 31 0 in let result : xlenbits := EXTS 32 result32 in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). Definition execute_MUL -(rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (high : bool) (signed1 : bool) (signed2 : bool) +(rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (high : bool) (signed1 : bool) (signed2 : bool) : M (Retired) := - (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let rs1_int : Z := - if sumbool_of_bool (signed1) then projT1 (sint rs1_val) + if sumbool_of_bool signed1 then projT1 (sint rs1_val) else projT1 (uint rs1_val) in let rs2_int : Z := - if sumbool_of_bool (signed2) then projT1 (sint rs2_val) + if sumbool_of_bool signed2 then projT1 (sint rs2_val) else projT1 (uint rs2_val) in let result_wide := to_bits (Z.mul 2 32) (Z.mul rs1_int rs2_int) in let result := - if sumbool_of_bool (high) then subrange_vec_dec result_wide (Z.sub (Z.mul 2 32) 1) 32 + if sumbool_of_bool high then subrange_vec_dec result_wide (Z.sub (Z.mul 2 32) 1) 32 else subrange_vec_dec result_wide (Z.sub 32 1) 0 in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_MRET '(tt : unit) -: M (Retired) := - +Definition execute_MRET '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => - (if ((eq_vec (privLevel_to_bits w__0) ((privLevel_to_bits Machine) : mword 2))) then + (if generic_neq w__0 Machine then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv Machine) then returnm (ext_fail_xret_priv tt) + else read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 32)) >>= fun w__2 : mword 32 => - (exception_handler w__1 (CTL_MRET (tt)) w__2) >>= fun w__3 : mword 32 => + (exception_handler w__1 (CTL_MRET tt) w__2) >>= fun w__3 : mword 32 => (set_next_pc w__3) - : M (unit) - else (handle_illegal tt) : M (unit)) >> - returnm (RETIRE_FAIL - : Retired). + : M (unit)) >> + returnm RETIRE_FAIL. + +Definition execute_LOAD_FP (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (width : word_width) +: M (Retired) := + let offset : xlenbits := EXTS 32 imm in + (ext_data_get_addr rs1 offset (Read Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => + (match w__0 with + | Ext_DataAddr_Error e => + let '_ := (ext_handle_data_check_error e) : unit in + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL + else + (translateAddr vaddr (Read Data)) >>= fun w__1 : TR_Result (mword 32) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => + let '(aq, rl, res) := (false, false, false) in + (match (width, 32) with + | (BYTE, _) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (HALF, _) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (WORD, _) => + (mem_read (Read Data) addr 4 aq rl res) >>= fun w__2 : MemoryOpResult (mword (8 * 4)) => + (process_fload32 rd vaddr w__2) + : M (Retired) + | _ => exit tt : M (Retired) + end) + : M (Retired) + end) + : M (Retired)) + : M (Retired) + end) + : M (Retired). Definition execute_LOADRES -(aq : bool) (rl : bool) (rs1 : mword 5) (width : word_width) (rd : mword 5) +(aq : bool) (rl : bool) (rs1 : mword 5) (width : word_width) (rd : mword 5) : M (Retired) := - (haveAtomics tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (ext_data_get_addr rs1 (zeros_implicit 32) Read width) >>= fun w__1 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__0 then + (ext_data_get_addr rs1 (zeros_implicit 32) (Read Data) width) >>= fun w__1 : Ext_DataAddr_Check unit => (match w__1 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (match width with - | BYTE => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | HALF => - (cast_unit_vec (access_vec_dec vaddr 0)) >>= fun w__2 : mword 1 => - returnm ((eq_vec w__2 (vec_of_bits [B0] : mword 1)) - : bool) - | WORD => - returnm ((eq_vec (subrange_vec_dec vaddr 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - : bool) - | DOUBLE => - returnm ((eq_vec (subrange_vec_dec vaddr 2 0) - (vec_of_bits [B0;B0;B0] : mword (2 - 0 + 1))) - : bool) - end) >>= fun aligned : bool => - (if sumbool_of_bool ((negb aligned)) then - (handle_mem_exception vaddr E_Load_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + let aligned : bool := + match width with + | BYTE => true + | HALF => eq_vec (subrange_vec_dec vaddr 0 0) ('b"0" : mword (0 - 0 + 1)) + | WORD => eq_vec (subrange_vec_dec vaddr 1 0) ('b"00" : mword (1 - 0 + 1)) + | DOUBLE => eq_vec (subrange_vec_dec vaddr 2 0) ('b"000" : mword (2 - 0 + 1)) + end in + (if sumbool_of_bool (negb aligned) then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Read) >>= fun w__3 : TR_Result (mword 32) ExceptionType => - (match w__3 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Read Data)) >>= fun w__2 : TR_Result (mword 32) ExceptionType => + (match w__2 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 32) with | (WORD, _) => - (mem_read Read addr 4 aq rl true) >>= fun w__4 : MemoryOpResult (mword (8 * 4)) => - (process_loadres rd vaddr w__4 false) + (mem_read (Read Data) addr 4 aq rl true) >>= fun w__3 : MemoryOpResult (mword (8 * 4)) => + (process_loadres rd vaddr w__3 false) : M (Retired) | _ => (internal_error "LOADRES expected WORD or DOUBLE") : M (Retired) end) @@ -22381,42 +24176,39 @@ Definition execute_LOADRES : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). Definition execute_LOAD (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (is_unsigned : bool) (width : word_width) -(aq : bool) (rl : bool) +(aq : bool) (rl : bool) : M (Retired) := - let offset : xlenbits := EXTS 32 imm in - (ext_data_get_addr rs1 offset Read width) >>= fun w__0 : Ext_DataAddr_Check unit => + (ext_data_get_addr rs1 offset (Read Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => (match w__0 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (check_misaligned vaddr width) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (handle_mem_exception vaddr E_Load_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Read) >>= fun w__2 : TR_Result (mword 32) ExceptionType => - (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Read Data)) >>= fun w__1 : TR_Result (mword 32) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (paddr, _) => (match (width, 32) with | (BYTE, _) => - (mem_read Read addr 1 aq rl false) >>= fun w__3 : MemoryOpResult (mword (8 * 1)) => - (process_load rd vaddr w__3 is_unsigned) + (mem_read (Read Data) paddr 1 aq rl false) >>= fun w__2 : MemoryOpResult (mword (8 * 1)) => + (process_load rd vaddr w__2 is_unsigned) : M (Retired) | (HALF, _) => - (mem_read Read addr 2 aq rl false) >>= fun w__5 : MemoryOpResult (mword (8 * 2)) => - (process_load rd vaddr w__5 is_unsigned) + (mem_read (Read Data) paddr 2 aq rl false) >>= fun w__4 : MemoryOpResult (mword (8 * 2)) => + (process_load rd vaddr w__4 is_unsigned) : M (Retired) | (WORD, _) => - (mem_read Read addr 4 aq rl false) >>= fun w__7 : MemoryOpResult (mword (8 * 4)) => - (process_load rd vaddr w__7 is_unsigned) + (mem_read (Read Data) paddr 4 aq rl false) >>= fun w__6 : MemoryOpResult (mword (8 * 4)) => + (process_load rd vaddr w__6 is_unsigned) : M (Retired) | _ => exit tt : M (Retired) end) @@ -22427,10 +24219,8 @@ Definition execute_LOAD end) : M (Retired). -Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : iop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => +Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : iop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => let immext : xlenbits := EXTS 32 imm in let result : xlenbits := match op with @@ -22441,227 +24231,390 @@ Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : i | RISCV_ORI => or_vec rs1_val immext | RISCV_XORI => xor_vec rs1_val immext end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. + +Definition execute_ILLEGAL (s : mword 32) : M (Retired) := + (handle_illegal tt) >> returnm RETIRE_FAIL. + +Definition execute_F_UN_TYPE_S (arg0 : mword 5) (arg1 : mword 5) (arg2 : f_un_op_S) : M (Retired) := + let merge_var := (arg0, arg1, arg2) in + (match merge_var with + | (rs1, rd, FCLASS_S) => + (rF_bits rs1) >>= fun w__0 : mword 32 => + let rs1_val_S := nan_unbox w__0 in + let rd_val_10b : bits 10 := + if f_is_neg_inf_S rs1_val_S then 'b"0000000001" : mword 10 + else if f_is_neg_norm_S rs1_val_S then 'b"0000000010" : mword 10 + else if f_is_neg_subnorm_S rs1_val_S then 'b"0000000100" : mword 10 + else if f_is_neg_zero_S rs1_val_S then 'b"0000001000" : mword 10 + else if f_is_pos_zero_S rs1_val_S then 'b"0000010000" : mword 10 + else if f_is_pos_subnorm_S rs1_val_S then 'b"0000100000" : mword 10 + else if f_is_pos_norm_S rs1_val_S then 'b"0001000000" : mword 10 + else if f_is_pos_inf_S rs1_val_S then 'b"0010000000" : mword 10 + else if f_is_SNaN_S rs1_val_S then 'b"0100000000" : mword 10 + else if f_is_QNaN_S rs1_val_S then 'b"1000000000" : mword 10 + else zeros_implicit 10 in + (wX_bits rd (EXTZ 32 rd_val_10b)) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_X_W) => + (rF_bits rs1) >>= fun w__1 : mword 32 => + let rs1_val_S := subrange_vec_dec w__1 31 0 in + let rd_val_X : xlenbits := EXTS 32 rs1_val_S in + (wX_bits rd rd_val_X) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_W_X) => + (rX_bits rs1) >>= fun rs1_val_X => + let rd_val_S := subrange_vec_dec rs1_val_X 31 0 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + end) + : M (Retired). + +Definition execute_F_UN_RM_TYPE_S +(arg0 : mword 5) (arg1 : rounding_mode) (arg2 : mword 5) (arg3 : f_un_rm_op_S) +: M (Retired) := + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs1, rm, rd, FSQRT_S) => + (rF_bits rs1) >>= fun w__0 : mword 32 => + let rs1_val_S := nan_unbox w__0 in + (select_instr_or_fcsr_rm rm) >>= fun w__1 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__1 in + (riscv_f32Sqrt rm_3b rs1_val_S) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_W_S) => + (rF_bits rs1) >>= fun w__2 : mword 32 => + let rs1_val_S := nan_unbox w__2 in + (select_instr_or_fcsr_rm rm) >>= fun w__3 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__3 in + (riscv_f32ToI32 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_W) => + (write_fflags fflags) >> (wX_bits rd (EXTS 32 rd_val_W)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_WU_S) => + (rF_bits rs1) >>= fun w__4 : mword 32 => + let rs1_val_S := nan_unbox w__4 in + (select_instr_or_fcsr_rm rm) >>= fun w__5 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__5 in + (riscv_f32ToUi32 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_WU) => + (write_fflags fflags) >> (wX_bits rd (EXTS 32 rd_val_WU)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_W) => + (rX_bits rs1) >>= fun w__6 : mword 32 => + let rs1_val_W := subrange_vec_dec w__6 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__7 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__7 in + (riscv_i32ToF32 rm_3b rs1_val_W) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_WU) => + (rX_bits rs1) >>= fun w__8 : mword 32 => + let rs1_val_WU := subrange_vec_dec w__8 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__9 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__9 in + (riscv_ui32ToF32 rm_3b rs1_val_WU) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_L_S) => returnm RETIRE_FAIL + | (rs1, rm, rd, FCVT_LU_S) => returnm RETIRE_FAIL + | (rs1, rm, rd, FCVT_S_L) => returnm RETIRE_FAIL + | (rs1, rm, rd, FCVT_S_LU) => returnm RETIRE_FAIL + end) + : M (Retired). -Definition execute_ILLEGAL (s : mword 32) +Definition execute_F_MADD_TYPE_S +(rs3 : mword 5) (rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) +(op : f_madd_op_S) : M (Retired) := - - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired). + (rF_bits rs1) >>= fun w__0 : mword 32 => + let rs1_val_32b := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 32 => + let rs2_val_32b := nan_unbox w__1 in + (rF_bits rs3) >>= fun w__2 : mword 32 => + let rs3_val_32b := nan_unbox w__2 in + (select_instr_or_fcsr_rm rm) >>= fun w__3 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__3 in + (match op with + | FMADD_S => + (riscv_f32MulAdd rm_3b rs1_val_32b rs2_val_32b rs3_val_32b) : M ((mword 5 * mword 32)) + | FMSUB_S => + (riscv_f32MulAdd rm_3b rs1_val_32b rs2_val_32b (negate_S rs3_val_32b)) + : M ((mword 5 * mword 32)) + | FNMSUB_S => + (riscv_f32MulAdd rm_3b (negate_S rs1_val_32b) rs2_val_32b rs3_val_32b) + : M ((mword 5 * mword 32)) + | FNMADD_S => + (riscv_f32MulAdd rm_3b (negate_S rs1_val_32b) rs2_val_32b (negate_S rs3_val_32b)) + : M ((mword 5 * mword 32)) + end) >>= fun '((fflags, rd_val_32b) + : (bits 5 * bits 32)) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_32b)) >> returnm RETIRE_SUCCESS. + +Definition execute_F_BIN_TYPE_S +(arg0 : mword 5) (arg1 : mword 5) (arg2 : mword 5) (arg3 : f_bin_op_S) +: M (Retired) := + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs2, rs1, rd, FSGNJ_S) => + (rF_bits rs1) >>= fun w__0 : mword 32 => + let rs1_val_S := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 32 => + let rs2_val_S := nan_unbox w__1 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S s2 e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJN_S) => + (rF_bits rs1) >>= fun w__2 : mword 32 => + let rs1_val_S := nan_unbox w__2 in + (rF_bits rs2) >>= fun w__3 : mword 32 => + let rs2_val_S := nan_unbox w__3 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S (xor_vec ('b"1" : mword 1) s2) e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJX_S) => + (rF_bits rs1) >>= fun w__4 : mword 32 => + let rs1_val_S := nan_unbox w__4 in + (rF_bits rs2) >>= fun w__5 : mword 32 => + let rs2_val_S := nan_unbox w__5 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S (xor_vec s1 s2) e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMIN_S) => + (rF_bits rs1) >>= fun w__6 : mword 32 => + let rs1_val_S := nan_unbox w__6 in + (rF_bits rs2) >>= fun w__7 : mword 32 => + let rs2_val_S := nan_unbox w__7 in + let is_quiet := true in + let '(rs1_lt_rs2, fflags) := fle_S rs1_val_S rs2_val_S is_quiet in + let rd_val_S := + if andb (f_is_NaN_S rs1_val_S) (f_is_NaN_S rs2_val_S) then canonical_NaN_S tt + else if f_is_NaN_S rs1_val_S then rs2_val_S + else if f_is_NaN_S rs2_val_S then rs1_val_S + else if andb (f_is_neg_zero_S rs1_val_S) (f_is_pos_zero_S rs2_val_S) then rs1_val_S + else if andb (f_is_neg_zero_S rs2_val_S) (f_is_pos_zero_S rs1_val_S) then rs2_val_S + else if sumbool_of_bool rs1_lt_rs2 then rs1_val_S + else rs2_val_S in + (accrue_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMAX_S) => + (rF_bits rs1) >>= fun w__8 : mword 32 => + let rs1_val_S := nan_unbox w__8 in + (rF_bits rs2) >>= fun w__9 : mword 32 => + let rs2_val_S := nan_unbox w__9 in + let is_quiet := true in + let '(rs2_lt_rs1, fflags) := fle_S rs2_val_S rs1_val_S is_quiet in + let rd_val_S := + if andb (f_is_NaN_S rs1_val_S) (f_is_NaN_S rs2_val_S) then canonical_NaN_S tt + else if f_is_NaN_S rs1_val_S then rs2_val_S + else if f_is_NaN_S rs2_val_S then rs1_val_S + else if andb (f_is_neg_zero_S rs1_val_S) (f_is_pos_zero_S rs2_val_S) then rs2_val_S + else if andb (f_is_neg_zero_S rs2_val_S) (f_is_pos_zero_S rs1_val_S) then rs1_val_S + else if sumbool_of_bool rs2_lt_rs1 then rs1_val_S + else rs2_val_S in + (accrue_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FEQ_S) => + (rF_bits rs1) >>= fun w__10 : mword 32 => + let rs1_val_S := nan_unbox w__10 in + (rF_bits rs2) >>= fun w__11 : mword 32 => + let rs2_val_S := nan_unbox w__11 in + (riscv_f32Eq rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 32 rd_val)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLT_S) => + (rF_bits rs1) >>= fun w__12 : mword 32 => + let rs1_val_S := nan_unbox w__12 in + (rF_bits rs2) >>= fun w__13 : mword 32 => + let rs2_val_S := nan_unbox w__13 in + (riscv_f32Lt rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 32 rd_val)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLE_S) => + (rF_bits rs1) >>= fun w__14 : mword 32 => + let rs1_val_S := nan_unbox w__14 in + (rF_bits rs2) >>= fun w__15 : mword 32 => + let rs2_val_S := nan_unbox w__15 in + (riscv_f32Le rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 32 rd_val)) >> returnm RETIRE_SUCCESS + end) + : M (Retired). -Definition execute_FENCE_TSO (pred : mword 4) (succ : mword 4) +Definition execute_F_BIN_RM_TYPE_S +(rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) (op : f_bin_rm_op_S) : M (Retired) := - + (rF_bits rs1) >>= fun w__0 : mword 32 => + let rs1_val_32b := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 32 => + let rs2_val_32b := nan_unbox w__1 in + (select_instr_or_fcsr_rm rm) >>= fun w__2 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__2 in + (match op with + | FADD_S => (riscv_f32Add rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FSUB_S => (riscv_f32Sub rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FMUL_S => (riscv_f32Mul rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FDIV_S => (riscv_f32Div rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + end) >>= fun '((fflags, rd_val_32b) + : (bits 5 * bits 32)) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_32b)) >> returnm RETIRE_SUCCESS. + +Definition execute_FENCE_TSO (pred : mword 4) (succ : mword 4) : M (Retired) := (match (pred, succ) with - | (v__794, v__795) => - (if ((andb (eq_vec (subrange_vec_dec v__794 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__795 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_tso (tt))) + | (v__1068, v__1069) => + (if andb (eq_vec (subrange_vec_dec v__1068 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1069 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_tso tt)) : M (unit) else - returnm ((if ((andb - (eq_vec (subrange_vec_dec v__794 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__795 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) then - tt - else - let '_ := (print_endline "FIXME: unsupported fence") : unit in - tt) - : unit)) + returnm (if andb (eq_vec (subrange_vec_dec v__1068 1 0) ('b"00" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1069 1 0) ('b"00" : mword (1 - 0 + 1))) then + tt + else + let '_ := (print_endline "FIXME: unsupported fence") : unit in + tt)) : M (unit) end) >> - returnm (RETIRE_SUCCESS - : Retired). + returnm RETIRE_SUCCESS. -Definition execute_FENCEI '(tt : unit) : Retired := RETIRE_SUCCESS. +Definition execute_FENCEI '(tt : unit) : Retired := RETIRE_SUCCESS. -Definition execute_FENCE (pred : mword 4) (succ : mword 4) -: M (Retired) := - +Definition execute_FENCE (pred : mword 4) (succ : mword 4) : M (Retired) := (match (pred, succ) with - | (v__754, v__755) => - (if ((andb (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_rw (tt))) + | (v__1028, v__1029) => + (if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_rw (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_r tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_rw (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_r tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_r tt)) : M (unit) else - returnm ((if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) then - tt - else - let '_ := (print_endline "FIXME: unsupported fence") : unit in - tt) - : unit)) + returnm (if andb (eq_vec (subrange_vec_dec v__1028 1 0) ('b"00" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1029 1 0) ('b"00" : mword (1 - 0 + 1))) then + tt + else + let '_ := (print_endline "FIXME: unsupported fence") : unit in + tt)) : M (unit) end) >> - returnm (RETIRE_SUCCESS - : Retired). + returnm RETIRE_SUCCESS. -Definition execute_ECALL '(tt : unit) -: M (Retired) := - +Definition execute_ECALL '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => let t : sync_exception := {| sync_exception_trap := (match w__0 with - | User => E_U_EnvCall - | Supervisor => E_S_EnvCall - | Machine => E_M_EnvCall + | User => E_U_EnvCall tt + | Supervisor => E_S_EnvCall tt + | Machine => E_M_EnvCall tt end); sync_exception_excinfo := (None : option xlenbits); sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 32)) >>= fun w__2 : mword 32 => - (exception_handler w__1 (CTL_TRAP (t)) w__2) >>= fun w__3 : mword 32 => - (set_next_pc w__3) >> returnm (RETIRE_FAIL : Retired). + (exception_handler w__1 (CTL_TRAP t) w__2) >>= fun w__3 : mword 32 => + (set_next_pc w__3) >> returnm RETIRE_FAIL. -Definition execute_EBREAK '(tt : unit) -: M (Retired) := - - ((read_reg PC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - (handle_mem_exception w__0 E_Breakpoint) >> returnm (RETIRE_FAIL : Retired). +Definition execute_EBREAK '(tt : unit) : M (Retired) := + (handle_exception (E_Breakpoint tt)) >> returnm RETIRE_FAIL. -Definition execute_DIVW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_DIVW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 32 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 32 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 32 => + (rX_bits rs2) >>= fun w__2 : mword 32 => let rs2_val := subrange_vec_dec w__2 31 0 in - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let q : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then (-1) else Z.quot rs1_int rs2_int in + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let q : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then (-1) else Z.quot rs1_int rs2_int in let q' : Z := - if sumbool_of_bool ((andb s (Z.gtb q (Z.sub (projT1 (pow2 31)) 1)))) then Z.sub 0 (pow 2 31) + if sumbool_of_bool (andb s (Z.gtb q (Z.sub (projT1 (pow2 31)) 1))) then Z.sub 0 (pow 2 31) else q in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 (to_bits 32 q'))) >> - returnm (RETIRE_SUCCESS - : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd (EXTS 32 (to_bits 32 q'))) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_DIV (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_DIV (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let q : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then (-1) else Z.quot rs1_int rs2_int in + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let q : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then (-1) else Z.quot rs1_int rs2_int in let q' : Z := - if sumbool_of_bool ((andb s (Z.gtb q xlen_max_signed))) then xlen_min_signed + if sumbool_of_bool (andb s (Z.gtb q xlen_max_signed)) then xlen_min_signed else q in - (wX (projT1 (regidx_to_regno rd)) (to_bits 32 q')) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd (to_bits 32 q')) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_C_NOP '(tt : unit) : Retired := RETIRE_SUCCESS. +Definition execute_C_NOP '(tt : unit) : Retired := RETIRE_SUCCESS. -Definition execute_C_ILLEGAL (s : mword 16) -: M (Retired) := - - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired). +Definition execute_C_ILLEGAL (s : mword 16) : M (Retired) := + (handle_illegal tt) >> returnm RETIRE_FAIL. -Definition execute_CSR (csr : mword 12) (rs1 : mword 5) (rd : mword 5) (is_imm : bool) (op : csrop) +Definition execute_CSR (csr : mword 12) (rs1 : mword 5) (rd : mword 5) (is_imm : bool) (op : csrop) : M (Retired) := - - (if sumbool_of_bool (is_imm) then returnm ((EXTZ 32 rs1) : mword 32) - else (rX (projT1 (regidx_to_regno rs1))) : M (mword 32)) >>= fun rs1_val : xlenbits => + (if sumbool_of_bool is_imm then returnm (EXTZ 32 rs1) + else (rX_bits rs1) : M (mword 32)) >>= fun rs1_val : xlenbits => let isWrite : bool := match op with | CSRRW => true | _ => - if sumbool_of_bool (is_imm) then projT1 (neq_int (projT1 (uint rs1_val)) 0) + if sumbool_of_bool is_imm then projT1 (neq_int (projT1 (uint rs1_val)) 0) else projT1 (neq_int (projT1 (uint rs1)) 0) end in read_reg cur_privilege_ref >>= fun w__1 : Privilege => (check_CSR csr w__1 isWrite) >>= fun w__2 : bool => - (if sumbool_of_bool ((negb w__2)) then (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool (negb w__2) then (handle_illegal tt) >> returnm RETIRE_FAIL else - (readCSR csr) >>= fun csr_val => - (if sumbool_of_bool (isWrite) then - let new_val : xlenbits := - match op with - | CSRRW => rs1_val - | CSRRS => or_vec csr_val rs1_val - | CSRRC => and_vec csr_val (not_vec rs1_val) - end in - (writeCSR csr new_val) - : M (unit) - else returnm (tt : unit)) >> - (wX (projT1 (regidx_to_regno rd)) csr_val) >> returnm (RETIRE_SUCCESS : Retired)) + read_reg cur_privilege_ref >>= fun w__3 : Privilege => + (if negb (ext_check_CSR csr w__3 isWrite) then + let '_ := (ext_check_CSR_fail tt) : unit in + returnm RETIRE_FAIL + else + (readCSR csr) >>= fun csr_val => + (if sumbool_of_bool isWrite then + let new_val : xlenbits := + match op with + | CSRRW => rs1_val + | CSRRS => or_vec csr_val rs1_val + | CSRRC => and_vec csr_val (not_vec rs1_val) + end in + (writeCSR csr new_val) + : M (unit) + else returnm tt) >> + (wX_bits rd csr_val) >> returnm RETIRE_SUCCESS) + : M (Retired)) : M (Retired). -Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : bop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => +Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : bop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let taken : bool := match op with | RISCV_BEQ => eq_vec rs1_val rs2_val @@ -22673,64 +24626,71 @@ Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : end in ((read_reg PC_ref) : M (mword 32)) >>= fun w__0 : mword 32 => let t : xlenbits := add_vec w__0 (EXTS 32 imm) in - (if sumbool_of_bool (taken) then + (if sumbool_of_bool taken then (match (ext_control_check_pc t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (target) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK target => (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) - else (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL + else (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired) - else returnm (RETIRE_SUCCESS : Retired)) + else returnm RETIRE_SUCCESS) : M (Retired). Definition execute_AMO (op : amoop) (aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) -(rd : mword 5) +(rd : mword 5) : M (Retired) := - (haveAtomics tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (ext_data_get_addr rs1 (zeros_implicit 32) ReadWrite width) >>= fun w__1 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__0 then + (ext_data_get_addr rs1 (zeros_implicit 32) (ReadWrite Data) width) >>= fun w__1 : Ext_DataAddr_Check unit => (match w__1 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (translateAddr vaddr ReadWrite) >>= fun w__2 : TR_Result (mword 32) ExceptionType => + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (translateAddr vaddr (ReadWrite Data)) >>= fun w__2 : TR_Result (mword 32) ExceptionType => (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 32) with | (WORD, _) => (mem_write_ea addr 4 (andb aq rl) rl true) : M (MemoryOpResult unit) | _ => (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val : xlenbits => + let is_unsigned : bool := + match op with | AMOMINU => true | AMOMAXU => true | _ => false end in + (match width with + | WORD => + (if sumbool_of_bool is_unsigned then + (rX_bits rs2) >>= fun w__5 : mword 32 => + returnm (EXTZ 32 (subrange_vec_dec w__5 31 0)) + else + (rX_bits rs2) >>= fun w__6 : mword 32 => + returnm (EXTS 32 (subrange_vec_dec w__6 31 0))) + : M (mword 32) + | DOUBLE => (rX_bits rs2) : M (mword 32) + | _ => (internal_error "AMO expected WORD or DOUBLE") : M (mword 32) + end) >>= fun rs2_val : xlenbits => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => (match (width, 32) with | (WORD, _) => - (mem_read ReadWrite addr 4 aq (andb aq rl) true) >>= fun w__5 : MemoryOpResult (mword (8 * 4)) => - returnm ((extend_value false w__5) - : MemoryOpResult (mword 32)) + (mem_read (ReadWrite Data) addr 4 aq (andb aq rl) true) >>= fun w__10 : MemoryOpResult (mword (8 * 4)) => + returnm (extend_value is_unsigned w__10) | _ => (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult (mword 32)) - end) >>= fun rval : MemoryOpResult xlenbits => - (match rval with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (loaded) => + end) >>= fun mval : MemoryOpResult xlenbits => + (match mval with + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue loaded => let result : xlenbits := match op with | AMOSWAP => rs2_val @@ -22739,18 +24699,27 @@ Definition execute_AMO | AMOAND => and_vec rs2_val loaded | AMOOR => or_vec rs2_val loaded | AMOMIN => - to_bits 32 (Z.min (projT1 (sint rs2_val)) (projT1 (sint loaded))) + to_bits 32 + (projT1 + (min_atom (projT1 (sint rs2_val)) (projT1 (sint loaded)))) | AMOMAX => - to_bits 32 (Z.max (projT1 (sint rs2_val)) (projT1 (sint loaded))) + to_bits 32 + (projT1 + (max_atom (projT1 (sint rs2_val)) (projT1 (sint loaded)))) | AMOMINU => to_bits 32 (projT1 - (min_nat (projT1 (uint rs2_val)) (projT1 (uint loaded)))) + (min_atom (projT1 (uint rs2_val)) (projT1 (uint loaded)))) | AMOMAXU => to_bits 32 (projT1 - (max_nat (projT1 (uint rs2_val)) (projT1 (uint loaded)))) + (max_atom (projT1 (uint rs2_val)) (projT1 (uint loaded)))) end in + (match width with + | WORD => returnm (EXTS 32 (subrange_vec_dec loaded 31 0)) + | DOUBLE => returnm loaded + | _ => (internal_error "AMO expected WORD or DOUBLE") : M (mword 32) + end) >>= fun rval : xlenbits => (match (width, 32) with | (WORD, _) => (mem_write_value addr 4 (subrange_vec_dec result 31 0) (andb aq rl) rl @@ -22760,14 +24729,10 @@ Definition execute_AMO (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult bool) end) >>= fun wval : MemoryOpResult bool => (match wval with - | MemValue (true) => - (wX (projT1 (regidx_to_regno rd)) loaded) >> - returnm (RETIRE_SUCCESS - : Retired) - | MemValue (false) => + | MemValue true => (wX_bits rd rval) >> returnm RETIRE_SUCCESS + | MemValue false => (internal_error "AMO got false from mem_write_value") : M (Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -22778,6752 +24743,9536 @@ Definition execute_AMO : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_ADDIW (imm : mword 12) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 32 => +Definition execute_ADDIW (imm : mword 12) (rs1 : mword 5) (rd : mword 5) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 32 => let result : xlenbits := add_vec (EXTS 32 imm) w__0 in - (wX (projT1 (regidx_to_regno rd)) (EXTS 32 (subrange_vec_dec result 31 0))) >> - returnm (RETIRE_SUCCESS - : Retired). + (wX_bits rd (EXTS 32 (subrange_vec_dec result 31 0))) >> returnm RETIRE_SUCCESS. -Definition compressed_measure (instr : ast) -: Z := - +Definition compressed_measure (instr : ast) : Z := match instr with - | C_ADDI4SPN ((rdc, nzimm)) => 1 - | C_LW ((uimm, rsc, rdc)) => 1 - | C_LD ((uimm, rsc, rdc)) => 1 - | C_SW ((uimm, rsc1, rsc2)) => 1 - | C_SD ((uimm, rsc1, rsc2)) => 1 - | C_ADDI ((nzi, rsd)) => 1 - | C_JAL (imm) => 1 - | C_LI ((imm, rd)) => 1 - | C_ADDI16SP (imm) => 1 - | C_LUI ((imm, rd)) => 1 - | C_SRLI ((shamt, rsd)) => 1 - | C_SRAI ((shamt, rsd)) => 1 - | C_ANDI ((imm, rsd)) => 1 - | C_SUB ((rsd, rs2)) => 1 - | C_XOR ((rsd, rs2)) => 1 - | C_OR ((rsd, rs2)) => 1 - | C_AND ((rsd, rs2)) => 1 - | C_SUBW ((rsd, rs2)) => 1 - | C_ADDW ((rsd, rs2)) => 1 - | C_J (imm) => 1 - | C_BEQZ ((imm, rs)) => 1 - | C_BNEZ ((imm, rs)) => 1 - | C_SLLI ((shamt, rsd)) => 1 - | C_LWSP ((uimm, rd)) => 1 - | C_LDSP ((uimm, rd)) => 1 - | C_SWSP ((uimm, rs2)) => 1 - | C_SDSP ((uimm, rs2)) => 1 - | C_JR (rs1) => 1 - | C_JALR (rs1) => 1 - | C_MV ((rd, rs2)) => 1 - | C_EBREAK (tt') => 1 - | C_ADD ((rsd, rs2)) => 1 + | C_ADDI4SPN (rdc, nzimm) => 1 + | C_LW (uimm, rsc, rdc) => 1 + | C_LD (uimm, rsc, rdc) => 1 + | C_SW (uimm, rsc1, rsc2) => 1 + | C_SD (uimm, rsc1, rsc2) => 1 + | C_ADDI (nzi, rsd) => 1 + | C_JAL imm => 1 + | C_LI (imm, rd) => 1 + | C_ADDI16SP imm => 1 + | C_LUI (imm, rd) => 1 + | C_SRLI (shamt, rsd) => 1 + | C_SRAI (shamt, rsd) => 1 + | C_ANDI (imm, rsd) => 1 + | C_SUB (rsd, rs2) => 1 + | C_XOR (rsd, rs2) => 1 + | C_OR (rsd, rs2) => 1 + | C_AND (rsd, rs2) => 1 + | C_SUBW (rsd, rs2) => 1 + | C_ADDW (rsd, rs2) => 1 + | C_J imm => 1 + | C_BEQZ (imm, rs) => 1 + | C_BNEZ (imm, rs) => 1 + | C_SLLI (shamt, rsd) => 1 + | C_LWSP (uimm, rd) => 1 + | C_LDSP (uimm, rd) => 1 + | C_SWSP (uimm, rs2) => 1 + | C_SDSP (uimm, rs2) => 1 + | C_JR rs1 => 1 + | C_JALR rs1 => 1 + | C_MV (rd, rs2) => 1 + | C_EBREAK tt' => 1 + | C_ADD (rsd, rs2) => 1 | _ => 0 end. -Fixpoint _rec_execute (merge_var : ast) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M (Retired) := - +Fixpoint _rec_execute (merge_var : ast) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M (Retired). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => (match merge_var with - | C_ADDI4SPN ((rdc, nzimm)) => - let imm : bits 12 := - concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec nzimm (vec_of_bits [B0;B0] : mword 2)) in + | C_ADDI4SPN (rdc, nzimm) => + let imm : bits 12 := concat_vec ('b"00" : mword 2) (concat_vec nzimm ('b"00" : mword 2)) in let rd := creg2reg_idx rdc in - (_rec_execute (ITYPE ((imm, sp, rd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, sp, rd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LW ((uimm, rsc, rdc)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in + | C_LW (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in let rd := creg2reg_idx rdc in let rs := creg2reg_idx rsc in - (_rec_execute (LOAD ((imm, rs, rd, false, WORD, false, false))) (Z.sub _reclimit 1) + (_rec_execute (LOAD (imm, rs, rd, false, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LD ((uimm, rsc, rdc)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in + | C_LD (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in let rd := creg2reg_idx rdc in let rs := creg2reg_idx rsc in - (_rec_execute (LOAD ((imm, rs, rd, false, DOUBLE, false, false))) (Z.sub _reclimit 1) + (_rec_execute (LOAD (imm, rs, rd, false, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SW ((uimm, rsc1, rsc2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in + | C_SW (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in let rs1 := creg2reg_idx rsc1 in let rs2 := creg2reg_idx rsc2 in - (_rec_execute (STORE ((imm, rs2, rs1, WORD, false, false))) (Z.sub _reclimit 1) + (_rec_execute (STORE (imm, rs2, rs1, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SD ((uimm, rsc1, rsc2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in + | C_SD (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in let rs1 := creg2reg_idx rsc1 in let rs2 := creg2reg_idx rsc2 in - (_rec_execute (STORE ((imm, rs2, rs1, DOUBLE, false, false))) (Z.sub _reclimit 1) + (_rec_execute (STORE (imm, rs2, rs1, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDI ((nzi, rsd)) => + | C_ADDI (nzi, rsd) => let imm : bits 12 := EXTS 12 nzi in - (_rec_execute (ITYPE ((imm, rsd, rsd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, rsd, rsd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_JAL (imm) => - (_rec_execute (RISCV_JAL ((EXTS 21 (concat_vec imm (vec_of_bits [B0] : mword 1)), ra))) + | C_JAL imm => + (_rec_execute (RISCV_JAL (EXTS 21 (concat_vec imm ('b"0" : mword 1)), ra)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDIW ((imm, rsd)) => - (_rec_execute (ADDIW ((EXTS 12 imm, rsd, rsd))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_ADDIW (imm, rsd) => + (_rec_execute (ADDIW (EXTS 12 imm, rsd, rsd)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LI ((imm, rd)) => + | C_LI (imm, rd) => let imm : bits 12 := EXTS 12 imm in - (_rec_execute (ITYPE ((imm, zreg, rd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, zreg, rd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDI16SP (imm) => - let imm : bits 12 := EXTS 12 (concat_vec imm (vec_of_bits [B0;B0;B0;B0] : mword 4)) in - (_rec_execute (ITYPE ((imm, sp, sp, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_ADDI16SP imm => + let imm : bits 12 := EXTS 12 (concat_vec imm (Ox"0" : mword 4)) in + (_rec_execute (ITYPE (imm, sp, sp, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LUI ((imm, rd)) => + | C_LUI (imm, rd) => let res : bits 20 := EXTS 20 imm in - (_rec_execute (UTYPE ((res, rd, RISCV_LUI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (UTYPE (res, rd, RISCV_LUI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SRLI ((shamt, rsd)) => + | C_SRLI (shamt, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SRLI))) (Z.sub _reclimit 1) + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SRLI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SRAI ((shamt, rsd)) => + | C_SRAI (shamt, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SRAI))) (Z.sub _reclimit 1) + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SRAI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ANDI ((imm, rsd)) => + | C_ANDI (imm, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (ITYPE ((EXTS 12 imm, rsd, rsd, RISCV_ANDI))) (Z.sub _reclimit 1) + (_rec_execute (ITYPE (EXTS 12 imm, rsd, rsd, RISCV_ANDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SUB ((rsd, rs2)) => + | C_SUB (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_SUB))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_SUB)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_XOR ((rsd, rs2)) => + | C_XOR (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_XOR))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_XOR)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_OR ((rsd, rs2)) => + | C_OR (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_OR))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_OR)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_AND ((rsd, rs2)) => + | C_AND (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_AND))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_AND)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SUBW ((rsd, rs2)) => + | C_SUBW (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPEW ((rs2, rsd, rsd, RISCV_SUBW))) (Z.sub _reclimit 1) - (_limit_reduces _acc)) + (_rec_execute (RTYPEW (rs2, rsd, rsd, RISCV_SUBW)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDW ((rsd, rs2)) => + | C_ADDW (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPEW ((rs2, rsd, rsd, RISCV_ADDW))) (Z.sub _reclimit 1) - (_limit_reduces _acc)) + (_rec_execute (RTYPEW (rs2, rsd, rsd, RISCV_ADDW)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_J (imm) => - (_rec_execute (RISCV_JAL ((EXTS 21 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg))) + | C_J imm => + (_rec_execute (RISCV_JAL (EXTS 21 (concat_vec imm ('b"0" : mword 1)), zreg)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_BEQZ ((imm, rs)) => + | C_BEQZ (imm, rs) => (_rec_execute - (BTYPE - ((EXTS 13 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg, creg2reg_idx rs, RISCV_BEQ))) + (BTYPE (EXTS 13 (concat_vec imm ('b"0" : mword 1)), zreg, creg2reg_idx rs, RISCV_BEQ)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_BNEZ ((imm, rs)) => + | C_BNEZ (imm, rs) => (_rec_execute - (BTYPE - ((EXTS 13 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg, creg2reg_idx rs, RISCV_BNE))) + (BTYPE (EXTS 13 (concat_vec imm ('b"0" : mword 1)), zreg, creg2reg_idx rs, RISCV_BNE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SLLI ((shamt, rsd)) => - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SLLI))) (Z.sub _reclimit 1) + | C_SLLI (shamt, rsd) => + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SLLI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LWSP ((uimm, rd)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in - (_rec_execute (LOAD ((imm, sp, rd, false, WORD, false, false))) (Z.sub _reclimit 1) + | C_LWSP (uimm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (LOAD (imm, sp, rd, false, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LDSP ((uimm, rd)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in - (_rec_execute (LOAD ((imm, sp, rd, false, DOUBLE, false, false))) (Z.sub _reclimit 1) + | C_LDSP (uimm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (LOAD (imm, sp, rd, false, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SWSP ((uimm, rs2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in - (_rec_execute (STORE ((imm, rs2, sp, WORD, false, false))) (Z.sub _reclimit 1) + | C_SWSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (STORE (imm, rs2, sp, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SDSP ((uimm, rs2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in - (_rec_execute (STORE ((imm, rs2, sp, DOUBLE, false, false))) (Z.sub _reclimit 1) + | C_SDSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (STORE (imm, rs2, sp, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_JR (rs1) => - (_rec_execute (RISCV_JALR ((EXTZ 12 (vec_of_bits [B0] : mword 1), rs1, zreg))) - (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_JR rs1 => + (_rec_execute (RISCV_JALR (EXTZ 12 ('b"0" : mword 1), rs1, zreg)) (Z.sub _reclimit 1) + (_limit_reduces _acc)) : M (Retired) - | C_JALR (rs1) => - (_rec_execute (RISCV_JALR ((EXTZ 12 (vec_of_bits [B0] : mword 1), rs1, ra))) - (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_JALR rs1 => + (_rec_execute (RISCV_JALR (EXTZ 12 ('b"0" : mword 1), rs1, ra)) (Z.sub _reclimit 1) + (_limit_reduces _acc)) + : M (Retired) + | C_MV (rd, rs2) => + (_rec_execute (RTYPE (rs2, zreg, rd, RISCV_ADD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_EBREAK tt => + (_rec_execute (EBREAK tt) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) + | C_ADD (rsd, rs2) => + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_ADD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_MV ((rd, rs2)) => - (_rec_execute (RTYPE ((rs2, zreg, rd, RISCV_ADD))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_FLWSP (imm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec imm ('b"00" : mword 2)) in + (_rec_execute (LOAD_FP (imm, sp, rd, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_EBREAK (tt) => - (_rec_execute (EBREAK (tt)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADD ((rsd, rs2)) => - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_ADD))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_FSWSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (STORE_FP (imm, rs2, sp, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FLW (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + let rd := creg2reg_idx rdc in + let rs := creg2reg_idx rsc in + (_rec_execute (LOAD_FP (imm, rs, rd, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | UTYPE ((imm, rd, op)) => (execute_UTYPE imm rd op) : M (Retired) - | RISCV_JAL ((imm, rd)) => (execute_RISCV_JAL imm rd) : M (Retired) - | BTYPE ((imm, rs2, rs1, op)) => (execute_BTYPE imm rs2 rs1 op) : M (Retired) - | ITYPE ((imm, rs1, rd, op)) => (execute_ITYPE imm rs1 rd op) : M (Retired) - | SHIFTIOP ((shamt, rs1, rd, op)) => (execute_SHIFTIOP shamt rs1 rd op) : M (Retired) - | RTYPE ((rs2, rs1, rd, op)) => (execute_RTYPE rs2 rs1 rd op) : M (Retired) - | LOAD ((imm, rs1, rd, is_unsigned, width, aq, rl)) => + | C_FSW (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + let rs1 := creg2reg_idx rsc1 in + let rs2 := creg2reg_idx rsc2 in + (_rec_execute (STORE_FP (imm, rs2, rs1, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | UTYPE (imm, rd, op) => (execute_UTYPE imm rd op) : M (Retired) + | RISCV_JAL (imm, rd) => (execute_RISCV_JAL imm rd) : M (Retired) + | BTYPE (imm, rs2, rs1, op) => (execute_BTYPE imm rs2 rs1 op) : M (Retired) + | ITYPE (imm, rs1, rd, op) => (execute_ITYPE imm rs1 rd op) : M (Retired) + | SHIFTIOP (shamt, rs1, rd, op) => (execute_SHIFTIOP shamt rs1 rd op) : M (Retired) + | RTYPE (rs2, rs1, rd, op) => (execute_RTYPE rs2 rs1 rd op) : M (Retired) + | LOAD (imm, rs1, rd, is_unsigned, width, aq, rl) => (execute_LOAD imm rs1 rd is_unsigned width aq rl) : M (Retired) - | STORE ((imm, rs2, rs1, width, aq, rl)) => - (execute_STORE imm rs2 rs1 width aq rl) : M (Retired) - | ADDIW ((imm, rs1, rd)) => (execute_ADDIW imm rs1 rd) : M (Retired) - | SHIFTW ((shamt, rs1, rd, op)) => (execute_SHIFTW shamt rs1 rd op) : M (Retired) - | RTYPEW ((rs2, rs1, rd, op)) => (execute_RTYPEW rs2 rs1 rd op) : M (Retired) - | SHIFTIWOP ((shamt, rs1, rd, op)) => (execute_SHIFTIWOP shamt rs1 rd op) : M (Retired) - | FENCE ((pred, succ)) => (execute_FENCE pred succ) : M (Retired) - | FENCE_TSO ((pred, succ)) => (execute_FENCE_TSO pred succ) : M (Retired) - | FENCEI (arg0) => returnm ((execute_FENCEI arg0) : Retired) - | ECALL (arg0) => (execute_ECALL arg0) : M (Retired) - | MRET (arg0) => (execute_MRET arg0) : M (Retired) - | SRET (arg0) => (execute_SRET arg0) : M (Retired) - | EBREAK (arg0) => (execute_EBREAK arg0) : M (Retired) - | WFI (arg0) => (execute_WFI arg0) : M (Retired) - | SFENCE_VMA ((rs1, rs2)) => (execute_SFENCE_VMA rs1 rs2) : M (Retired) - | LOADRES ((aq, rl, rs1, width, rd)) => (execute_LOADRES aq rl rs1 width rd) : M (Retired) - | STORECON ((aq, rl, rs2, rs1, width, rd)) => + | STORE (imm, rs2, rs1, width, aq, rl) => (execute_STORE imm rs2 rs1 width aq rl) : M (Retired) + | ADDIW (imm, rs1, rd) => (execute_ADDIW imm rs1 rd) : M (Retired) + | SHIFTW (shamt, rs1, rd, op) => (execute_SHIFTW shamt rs1 rd op) : M (Retired) + | RTYPEW (rs2, rs1, rd, op) => (execute_RTYPEW rs2 rs1 rd op) : M (Retired) + | SHIFTIWOP (shamt, rs1, rd, op) => (execute_SHIFTIWOP shamt rs1 rd op) : M (Retired) + | FENCE (pred, succ) => (execute_FENCE pred succ) : M (Retired) + | FENCE_TSO (pred, succ) => (execute_FENCE_TSO pred succ) : M (Retired) + | FENCEI arg0 => returnm (execute_FENCEI arg0) + | ECALL arg0 => (execute_ECALL arg0) : M (Retired) + | MRET arg0 => (execute_MRET arg0) : M (Retired) + | SRET arg0 => (execute_SRET arg0) : M (Retired) + | EBREAK arg0 => (execute_EBREAK arg0) : M (Retired) + | WFI arg0 => (execute_WFI arg0) : M (Retired) + | SFENCE_VMA (rs1, rs2) => (execute_SFENCE_VMA rs1 rs2) : M (Retired) + | LOADRES (aq, rl, rs1, width, rd) => (execute_LOADRES aq rl rs1 width rd) : M (Retired) + | STORECON (aq, rl, rs2, rs1, width, rd) => (execute_STORECON aq rl rs2 rs1 width rd) : M (Retired) - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => + | AMO (op, aq, rl, rs2, rs1, width, rd) => (execute_AMO op aq rl rs2 rs1 width rd) : M (Retired) - | C_NOP (arg0) => returnm ((execute_C_NOP arg0) : Retired) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | C_NOP arg0 => returnm (execute_C_NOP arg0) + | MUL (rs2, rs1, rd, high, signed1, signed2) => (execute_MUL rs2 rs1 rd high signed1 signed2) : M (Retired) - | DIV ((rs2, rs1, rd, s)) => (execute_DIV rs2 rs1 rd s) : M (Retired) - | REM ((rs2, rs1, rd, s)) => (execute_REM rs2 rs1 rd s) : M (Retired) - | MULW ((rs2, rs1, rd)) => (execute_MULW rs2 rs1 rd) : M (Retired) - | DIVW ((rs2, rs1, rd, s)) => (execute_DIVW rs2 rs1 rd s) : M (Retired) - | REMW ((rs2, rs1, rd, s)) => (execute_REMW rs2 rs1 rd s) : M (Retired) - | CSR ((csr, rs1, rd, is_imm, op)) => (execute_CSR csr rs1 rd is_imm op) : M (Retired) - | URET (arg0) => (execute_URET arg0) : M (Retired) - | RISCV_JALR ((imm, rs1, rd)) => (execute_RISCV_JALR imm rs1 rd) : M (Retired) - | ILLEGAL (s) => (execute_ILLEGAL s) : M (Retired) - | C_ILLEGAL (s) => (execute_C_ILLEGAL s) : M (Retired) + | DIV (rs2, rs1, rd, s) => (execute_DIV rs2 rs1 rd s) : M (Retired) + | REM (rs2, rs1, rd, s) => (execute_REM rs2 rs1 rd s) : M (Retired) + | MULW (rs2, rs1, rd) => (execute_MULW rs2 rs1 rd) : M (Retired) + | DIVW (rs2, rs1, rd, s) => (execute_DIVW rs2 rs1 rd s) : M (Retired) + | REMW (rs2, rs1, rd, s) => (execute_REMW rs2 rs1 rd s) : M (Retired) + | CSR (csr, rs1, rd, is_imm, op) => (execute_CSR csr rs1 rd is_imm op) : M (Retired) + | URET arg0 => (execute_URET arg0) : M (Retired) + | LOAD_FP (imm, rs1, rd, width) => (execute_LOAD_FP imm rs1 rd width) : M (Retired) + | STORE_FP (imm, rs2, rs1, width) => (execute_STORE_FP imm rs2 rs1 width) : M (Retired) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => + (execute_F_MADD_TYPE_S rs3 rs2 rs1 rm rd op) : M (Retired) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => + (execute_F_BIN_RM_TYPE_S rs2 rs1 rm rd op) : M (Retired) + | F_UN_RM_TYPE_S (rs1, rm, rd, arg3) => (execute_F_UN_RM_TYPE_S rs1 rm rd arg3) : M (Retired) + | F_BIN_TYPE_S (rs2, rs1, rd, arg3) => (execute_F_BIN_TYPE_S rs2 rs1 rd arg3) : M (Retired) + | F_UN_TYPE_S (rs1, rd, arg2) => (execute_F_UN_TYPE_S rs1 rd arg2) : M (Retired) + | RISCV_JALR (imm, rs1, rd) => (execute_RISCV_JALR imm rs1 rd) : M (Retired) + | ILLEGAL s => (execute_ILLEGAL s) : M (Retired) + | C_ILLEGAL s => (execute_C_ILLEGAL s) : M (Retired) end) - : M (Retired). + : M (Retired) +). +Defined. -Definition execute (i : ast) -: M (Retired) := - - (_rec_execute i ((compressed_measure i) : Z) (Zwf_guarded _)) - : M (Retired). -Definition assembly_forwards (arg_ : ast) -: M (string) := - +Definition execute (i : ast) : M (Retired) := + (_rec_execute i ((compressed_measure i) : Z) (Zwf_guarded _)) : M (Retired). + +Definition assembly_forwards (arg_ : ast) : M (string) := (match arg_ with - | UTYPE ((imm, rd, op)) => + | UTYPE (imm, rd, op) => (reg_name_forwards rd) >>= fun w__0 : string => - returnm ((string_append (utype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__0 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | RISCV_JAL ((imm, rd)) => + returnm (string_append (utype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__0 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | RISCV_JAL (imm, rd) => (reg_name_forwards rd) >>= fun w__1 : string => - returnm ((string_append "jal" - (string_append (spc_forwards tt) - (string_append w__1 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | RISCV_JALR ((imm, rs1, rd)) => + returnm (string_append "jal" + (string_append (spc_forwards tt) + (string_append w__1 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | RISCV_JALR (imm, rs1, rd) => (reg_name_forwards rd) >>= fun w__2 : string => (reg_name_forwards rs1) >>= fun w__3 : string => - returnm ((string_append "jalr" - (string_append (spc_forwards tt) - (string_append w__2 - (string_append (sep_forwards tt) - (string_append w__3 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | BTYPE ((imm, rs2, rs1, op)) => + returnm (string_append "jalr" + (string_append (spc_forwards tt) + (string_append w__2 + (string_append (sep_forwards tt) + (string_append w__3 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | BTYPE (imm, rs2, rs1, op) => (reg_name_forwards rs1) >>= fun w__4 : string => (reg_name_forwards rs2) >>= fun w__5 : string => - returnm ((string_append (btype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__4 - (string_append (sep_forwards tt) - (string_append w__5 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | ITYPE ((imm, rs1, rd, op)) => + returnm (string_append (btype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__4 + (string_append (sep_forwards tt) + (string_append w__5 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | ITYPE (imm, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__6 : string => (reg_name_forwards rs1) >>= fun w__7 : string => - returnm ((string_append (itype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__6 - (string_append (sep_forwards tt) - (string_append w__7 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | SHIFTIOP ((shamt, rs1, rd, op)) => + returnm (string_append (itype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__6 + (string_append (sep_forwards tt) + (string_append w__7 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | SHIFTIOP (shamt, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__8 : string => (reg_name_forwards rs1) >>= fun w__9 : string => - returnm ((string_append (shiftiop_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__8 - (string_append (sep_forwards tt) - (string_append w__9 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) - | RTYPE ((rs2, rs1, rd, op)) => + returnm (string_append (shiftiop_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__8 + (string_append (sep_forwards tt) + (string_append w__9 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) + | RTYPE (rs2, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__10 : string => (reg_name_forwards rs1) >>= fun w__11 : string => (reg_name_forwards rs2) >>= fun w__12 : string => - returnm ((string_append (rtype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__10 - (string_append (sep_forwards tt) - (string_append w__11 - (string_append (sep_forwards tt) (string_append w__12 ""))))))) - : string) - | LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl)) => + returnm (string_append (rtype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__10 + (string_append (sep_forwards tt) + (string_append w__11 + (string_append (sep_forwards tt) (string_append w__12 ""))))))) + | LOAD (imm, rs1, rd, is_unsigned, size, aq, rl) => (reg_name_forwards rd) >>= fun w__13 : string => (reg_name_forwards rs1) >>= fun w__14 : string => - returnm ((string_append "l" - (string_append (size_mnemonic_forwards size) - (string_append (maybe_u_forwards is_unsigned) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__13 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) - (string_append (opt_spc_forwards tt) - (string_append "(" - (string_append (opt_spc_forwards tt) - (string_append w__14 - (string_append (opt_spc_forwards tt) - (string_append ")" ""))))))))))))))) - : string) - | STORE ((imm, rs2, rs1, size, aq, rl)) => + returnm (string_append "l" + (string_append (size_mnemonic_forwards size) + (string_append (maybe_u_forwards is_unsigned) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__13 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__14 + (string_append (opt_spc_forwards tt) + (string_append ")" ""))))))))))))))) + | STORE (imm, rs2, rs1, size, aq, rl) => (reg_name_forwards rs2) >>= fun w__15 : string => (reg_name_forwards rs1) >>= fun w__16 : string => - returnm ((string_append "s" - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__15 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) - (string_append (opt_spc_forwards tt) - (string_append "(" - (string_append (opt_spc_forwards tt) - (string_append w__16 - (string_append (opt_spc_forwards tt) - (string_append ")" "")))))))))))))) - : string) - | ADDIW ((imm, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "s" + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__15 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__16 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))))) + | ADDIW (imm, rs1, rd) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__17 : string => (reg_name_forwards rs1) >>= fun w__18 : string => - returnm ((string_append "addiw" - (string_append (spc_forwards tt) - (string_append w__17 - (string_append (sep_forwards tt) - (string_append w__18 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) + returnm (string_append "addiw" + (string_append (spc_forwards tt) + (string_append w__17 + (string_append (sep_forwards tt) + (string_append w__18 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | SHIFTW ((shamt, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | SHIFTW (shamt, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__21 : string => (reg_name_forwards rs1) >>= fun w__22 : string => - returnm ((string_append (shiftw_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__21 - (string_append (sep_forwards tt) - (string_append w__22 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) + returnm (string_append (shiftw_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__21 + (string_append (sep_forwards tt) + (string_append w__22 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | RTYPEW ((rs2, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | RTYPEW (rs2, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__25 : string => (reg_name_forwards rs1) >>= fun w__26 : string => (reg_name_forwards rs2) >>= fun w__27 : string => - returnm ((string_append (rtypew_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__25 - (string_append (sep_forwards tt) - (string_append w__26 - (string_append (sep_forwards tt) (string_append w__27 ""))))))) - : string) + returnm (string_append (rtypew_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__25 + (string_append (sep_forwards tt) + (string_append w__26 + (string_append (sep_forwards tt) (string_append w__27 ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | SHIFTIWOP ((shamt, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | SHIFTIWOP (shamt, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__30 : string => (reg_name_forwards rs1) >>= fun w__31 : string => - returnm ((string_append (shiftiwop_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__30 - (string_append (sep_forwards tt) - (string_append w__31 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) + returnm (string_append (shiftiwop_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__30 + (string_append (sep_forwards tt) + (string_append w__31 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | FENCE ((pred, succ)) => + | FENCE (pred, succ) => (fence_bits_forwards pred) >>= fun w__34 : string => (fence_bits_forwards succ) >>= fun w__35 : string => - returnm ((string_append "fence" - (string_append (spc_forwards tt) - (string_append w__34 - (string_append (sep_forwards tt) (string_append w__35 ""))))) - : string) - | FENCE_TSO ((pred, succ)) => + returnm (string_append "fence" + (string_append (spc_forwards tt) + (string_append w__34 (string_append (sep_forwards tt) (string_append w__35 ""))))) + | FENCE_TSO (pred, succ) => (fence_bits_forwards pred) >>= fun w__36 : string => (fence_bits_forwards succ) >>= fun w__37 : string => - returnm ((string_append "fence.tso" - (string_append (spc_forwards tt) - (string_append w__36 - (string_append (sep_forwards tt) (string_append w__37 ""))))) - : string) - | FENCEI (tt) => returnm ("fence.i" : string) - | ECALL (tt) => returnm ("ecall" : string) - | MRET (tt) => returnm ("mret" : string) - | SRET (tt) => returnm ("sret" : string) - | EBREAK (tt) => returnm ("ebreak" : string) - | WFI (tt) => returnm ("wfi" : string) - | SFENCE_VMA ((rs1, rs2)) => + returnm (string_append "fence.tso" + (string_append (spc_forwards tt) + (string_append w__36 (string_append (sep_forwards tt) (string_append w__37 ""))))) + | FENCEI tt => returnm "fence.i" + | ECALL tt => returnm "ecall" + | MRET tt => returnm "mret" + | SRET tt => returnm "sret" + | EBREAK tt => returnm "ebreak" + | WFI tt => returnm "wfi" + | SFENCE_VMA (rs1, rs2) => (reg_name_forwards rs1) >>= fun w__38 : string => (reg_name_forwards rs2) >>= fun w__39 : string => - returnm ((string_append "sfence.vma" - (string_append (spc_forwards tt) - (string_append w__38 - (string_append (sep_forwards tt) (string_append w__39 ""))))) - : string) - | LOADRES ((aq, rl, rs1, size, rd)) => + returnm (string_append "sfence.vma" + (string_append (spc_forwards tt) + (string_append w__38 (string_append (sep_forwards tt) (string_append w__39 ""))))) + | LOADRES (aq, rl, rs1, size, rd) => (reg_name_forwards rd) >>= fun w__40 : string => (reg_name_forwards rs1) >>= fun w__41 : string => - returnm ((string_append "lr." - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__40 - (string_append (sep_forwards tt) (string_append w__41 "")))))))) - : string) - | STORECON ((aq, rl, rs2, rs1, size, rd)) => + returnm (string_append "lr." + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__40 + (string_append (sep_forwards tt) (string_append w__41 "")))))))) + | STORECON (aq, rl, rs2, rs1, size, rd) => (reg_name_forwards rd) >>= fun w__42 : string => (reg_name_forwards rs1) >>= fun w__43 : string => (reg_name_forwards rs2) >>= fun w__44 : string => - returnm ((string_append "sc." - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__42 - (string_append (sep_forwards tt) - (string_append w__43 - (string_append (sep_forwards tt) (string_append w__44 "")))))))))) - : string) - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => + returnm (string_append "sc." + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__42 + (string_append (sep_forwards tt) + (string_append w__43 + (string_append (sep_forwards tt) (string_append w__44 "")))))))))) + | AMO (op, aq, rl, rs2, rs1, width, rd) => (reg_name_forwards rd) >>= fun w__45 : string => - (reg_name_forwards rs1) >>= fun w__46 : string => - (reg_name_forwards rs2) >>= fun w__47 : string => - returnm ((string_append (amo_mnemonic_forwards op) - (string_append "." - (string_append (size_mnemonic_forwards width) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__45 - (string_append (sep_forwards tt) - (string_append w__46 - (string_append (sep_forwards tt) (string_append w__47 ""))))))))))) - : string) - | C_NOP (tt) => returnm ("c.nop" : string) - | C_ADDI4SPN ((rdc, nzimm)) => - (if ((neq_vec nzimm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then + (reg_name_forwards rs2) >>= fun w__46 : string => + (reg_name_forwards rs1) >>= fun w__47 : string => + returnm (string_append (amo_mnemonic_forwards op) + (string_append "." + (string_append (size_mnemonic_forwards width) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__45 + (string_append (sep_forwards tt) + (string_append w__46 + (string_append (sep_forwards tt) + (string_append "(" + (string_append w__47 (string_append ")" ""))))))))))))) + | C_NOP tt => returnm "c.nop" + | C_ADDI4SPN (rdc, nzimm) => + (if neq_vec nzimm (Ox"00" : mword 8) then (creg_name_forwards rdc) >>= fun w__48 : string => - returnm ((string_append "c.addi4spn" - (string_append (spc_forwards tt) - (string_append w__48 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (nzimm : mword 8) (vec_of_bits [B0;B0] : mword 2))) - ""))))) - : string) + returnm (string_append "c.addi4spn" + (string_append (spc_forwards tt) + (string_append w__48 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (nzimm : mword 8) ('b"00" : mword 2))) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LW ((uimm, rsc, rdc)) => + | C_LW (uimm, rsc, rdc) => (creg_name_forwards rdc) >>= fun w__51 : string => (creg_name_forwards rsc) >>= fun w__52 : string => - returnm ((string_append "c.lw" - (string_append (spc_forwards tt) - (string_append w__51 - (string_append (sep_forwards tt) - (string_append w__52 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0] : mword 2))) ""))))))) - : string) - | C_LD ((uimm, rsc, rdc)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "c.lw" + (string_append (spc_forwards tt) + (string_append w__51 + (string_append (sep_forwards tt) + (string_append w__52 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + | C_LD (uimm, rsc, rdc) => + (if sumbool_of_bool (Z.eqb 32 64) then (creg_name_forwards rdc) >>= fun w__53 : string => (creg_name_forwards rsc) >>= fun w__54 : string => - returnm ((string_append "c.ld" - (string_append (spc_forwards tt) - (string_append w__53 - (string_append (sep_forwards tt) - (string_append w__54 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0;B0] : mword 3))) ""))))))) - : string) + returnm (string_append "c.ld" + (string_append (spc_forwards tt) + (string_append w__53 + (string_append (sep_forwards tt) + (string_append w__54 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SW ((uimm, rsc1, rsc2)) => + | C_SW (uimm, rsc1, rsc2) => (creg_name_forwards rsc1) >>= fun w__57 : string => (creg_name_forwards rsc2) >>= fun w__58 : string => - returnm ((string_append "c.sw" - (string_append (spc_forwards tt) - (string_append w__57 - (string_append (sep_forwards tt) - (string_append w__58 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0] : mword 2))) ""))))))) - : string) - | C_SD ((uimm, rsc1, rsc2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "c.sw" + (string_append (spc_forwards tt) + (string_append w__57 + (string_append (sep_forwards tt) + (string_append w__58 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + | C_SD (uimm, rsc1, rsc2) => + (if sumbool_of_bool (Z.eqb 32 64) then (creg_name_forwards rsc1) >>= fun w__59 : string => (creg_name_forwards rsc2) >>= fun w__60 : string => - returnm ((string_append "c.sd" - (string_append (spc_forwards tt) - (string_append w__59 - (string_append (sep_forwards tt) - (string_append w__60 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0;B0] : mword 3))) ""))))))) - : string) + returnm (string_append "c.sd" + (string_append (spc_forwards tt) + (string_append w__59 + (string_append (sep_forwards tt) + (string_append w__60 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDI ((nzi, rsd)) => - (if ((andb (neq_vec nzi (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then + | C_ADDI (nzi, rsd) => + (if andb (neq_vec nzi ('b"000000" : mword 6)) (neq_vec rsd zreg) then (reg_name_forwards rsd) >>= fun w__63 : string => - returnm ((string_append "c.addi" - (string_append (spc_forwards tt) - (string_append w__63 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits nzi) ""))))) - : string) + returnm (string_append "c.addi" + (string_append (spc_forwards tt) + (string_append w__63 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits nzi) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JAL (imm) => - (if sumbool_of_bool ((Z.eqb 32 32)) then - returnm ((string_append "c.jal" - (string_append (spc_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (imm : mword 11) (vec_of_bits [B0] : mword 1))) ""))) - : string) + | C_JAL imm => + (if sumbool_of_bool (Z.eqb 32 32) then + returnm (string_append "c.jal" + (string_append (spc_forwards tt) + (string_append + (decimal_string_of_bits (concat_vec (imm : mword 11) ('b"0" : mword 1))) + ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDIW ((imm, rsd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | C_ADDIW (imm, rsd) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rsd) >>= fun w__68 : string => - returnm ((string_append "c.addiw" - (string_append (spc_forwards tt) - (string_append w__68 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.addiw" + (string_append (spc_forwards tt) + (string_append w__68 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LI ((imm, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then + | C_LI (imm, rd) => + (if neq_vec rd zreg then (reg_name_forwards rd) >>= fun w__71 : string => - returnm ((string_append "c.li" - (string_append (spc_forwards tt) - (string_append w__71 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.li" + (string_append (spc_forwards tt) + (string_append w__71 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDI16SP (imm) => - (if ((neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then - returnm ((string_append "c.addi16sp" - (string_append (spc_forwards tt) - (string_append (decimal_string_of_bits imm) ""))) - : string) + | C_ADDI16SP imm => + (if neq_vec imm ('b"000000" : mword 6) then + returnm (string_append "c.addi16sp" + (string_append (spc_forwards tt) + (string_append (decimal_string_of_bits imm) ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LUI ((imm, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) - : bool))) then + | C_LUI (imm, rd) => + (if andb (neq_vec rd zreg) (andb (neq_vec rd sp) (neq_vec imm ('b"000000" : mword 6))) then (reg_name_forwards rd) >>= fun w__76 : string => - returnm ((string_append "c.lui" - (string_append (spc_forwards tt) - (string_append w__76 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.lui" + (string_append (spc_forwards tt) + (string_append w__76 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SRLI ((shamt, rsd)) => - (if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then + | C_SRLI (shamt, rsd) => + (if neq_vec shamt ('b"000000" : mword 6) then (creg_name_forwards rsd) >>= fun w__79 : string => - returnm ((string_append "c.srli" - (string_append (spc_forwards tt) - (string_append w__79 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.srli" + (string_append (spc_forwards tt) + (string_append w__79 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SRAI ((shamt, rsd)) => - (if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then + | C_SRAI (shamt, rsd) => + (if neq_vec shamt ('b"000000" : mword 6) then (creg_name_forwards rsd) >>= fun w__82 : string => - returnm ((string_append "c.srai" - (string_append (spc_forwards tt) - (string_append w__82 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.srai" + (string_append (spc_forwards tt) + (string_append w__82 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ANDI ((imm, rsd)) => + | C_ANDI (imm, rsd) => (creg_name_forwards rsd) >>= fun w__85 : string => - returnm ((string_append "c.andi" - (string_append (spc_forwards tt) - (string_append w__85 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_SUB ((rsd, rs2)) => + returnm (string_append "c.andi" + (string_append (spc_forwards tt) + (string_append w__85 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_SUB (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__86 : string => (creg_name_forwards rs2) >>= fun w__87 : string => - returnm ((string_append "c.sub" - (string_append (spc_forwards tt) - (string_append w__86 - (string_append (sep_forwards tt) (string_append w__87 ""))))) - : string) - | C_XOR ((rsd, rs2)) => + returnm (string_append "c.sub" + (string_append (spc_forwards tt) + (string_append w__86 (string_append (sep_forwards tt) (string_append w__87 ""))))) + | C_XOR (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__88 : string => (creg_name_forwards rs2) >>= fun w__89 : string => - returnm ((string_append "c.xor" - (string_append (spc_forwards tt) - (string_append w__88 - (string_append (sep_forwards tt) (string_append w__89 ""))))) - : string) - | C_OR ((rsd, rs2)) => + returnm (string_append "c.xor" + (string_append (spc_forwards tt) + (string_append w__88 (string_append (sep_forwards tt) (string_append w__89 ""))))) + | C_OR (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__90 : string => (creg_name_forwards rs2) >>= fun w__91 : string => - returnm ((string_append "c.or" - (string_append (spc_forwards tt) - (string_append w__90 - (string_append (sep_forwards tt) (string_append w__91 ""))))) - : string) - | C_AND ((rsd, rs2)) => + returnm (string_append "c.or" + (string_append (spc_forwards tt) + (string_append w__90 (string_append (sep_forwards tt) (string_append w__91 ""))))) + | C_AND (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__92 : string => (creg_name_forwards rs2) >>= fun w__93 : string => - returnm ((string_append "c.and" - (string_append (spc_forwards tt) - (string_append w__92 - (string_append (sep_forwards tt) (string_append w__93 ""))))) - : string) - | C_SUBW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "c.and" + (string_append (spc_forwards tt) + (string_append w__92 (string_append (sep_forwards tt) (string_append w__93 ""))))) + | C_SUBW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then (creg_name_forwards rsd) >>= fun w__94 : string => (creg_name_forwards rs2) >>= fun w__95 : string => - returnm ((string_append "c.subw" - (string_append (spc_forwards tt) - (string_append w__94 - (string_append (sep_forwards tt) (string_append w__95 ""))))) - : string) + returnm (string_append "c.subw" + (string_append (spc_forwards tt) + (string_append w__94 + (string_append (sep_forwards tt) (string_append w__95 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | C_ADDW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then (creg_name_forwards rsd) >>= fun w__98 : string => (creg_name_forwards rs2) >>= fun w__99 : string => - returnm ((string_append "c.addw" - (string_append (spc_forwards tt) - (string_append w__98 - (string_append (sep_forwards tt) (string_append w__99 ""))))) - : string) + returnm (string_append "c.addw" + (string_append (spc_forwards tt) + (string_append w__98 + (string_append (sep_forwards tt) (string_append w__99 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_J (imm) => - returnm ((string_append "c.j" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits imm) ""))) - : string) - | C_BEQZ ((imm, rs)) => + | C_J imm => + returnm (string_append "c.j" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits imm) ""))) + | C_BEQZ (imm, rs) => (creg_name_forwards rs) >>= fun w__102 : string => - returnm ((string_append "c.beqz" - (string_append (spc_forwards tt) - (string_append w__102 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_BNEZ ((imm, rs)) => + returnm (string_append "c.beqz" + (string_append (spc_forwards tt) + (string_append w__102 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_BNEZ (imm, rs) => (creg_name_forwards rs) >>= fun w__103 : string => - returnm ((string_append "c.bnez" - (string_append (spc_forwards tt) - (string_append w__103 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_SLLI ((shamt, rsd)) => - (if ((andb (neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then + returnm (string_append "c.bnez" + (string_append (spc_forwards tt) + (string_append w__103 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_SLLI (shamt, rsd) => + (if andb (neq_vec shamt ('b"000000" : mword 6)) (neq_vec rsd zreg) then (reg_name_forwards rsd) >>= fun w__104 : string => - returnm ((string_append "c.slli" - (string_append (spc_forwards tt) - (string_append w__104 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.slli" + (string_append (spc_forwards tt) + (string_append w__104 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LWSP ((uimm, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then + | C_LWSP (uimm, rd) => + (if neq_vec rd zreg then (reg_name_forwards rd) >>= fun w__107 : string => - returnm ((string_append "c.lwsp" - (string_append (spc_forwards tt) - (string_append w__107 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.lwsp" + (string_append (spc_forwards tt) + (string_append w__107 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LDSP ((uimm, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 32 64))) then + | C_LDSP (uimm, rd) => + (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 32 64)) then (reg_name_forwards rd) >>= fun w__110 : string => - returnm ((string_append "c.ldsp" - (string_append (spc_forwards tt) - (string_append w__110 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.ldsp" + (string_append (spc_forwards tt) + (string_append w__110 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SWSP ((uimm, rd)) => + | C_SWSP (uimm, rd) => (reg_name_forwards rd) >>= fun w__113 : string => - returnm ((string_append "c.swsp" - (string_append (spc_forwards tt) - (string_append w__113 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) - | C_SDSP ((uimm, rs2)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "c.swsp" + (string_append (spc_forwards tt) + (string_append w__113 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + | C_SDSP (uimm, rs2) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rs2) >>= fun w__114 : string => - returnm ((string_append "c.sdsp" - (string_append (spc_forwards tt) - (string_append w__114 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.sdsp" + (string_append (spc_forwards tt) + (string_append w__114 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then + | C_JR rs1 => + (if neq_vec rs1 zreg then (reg_name_forwards rs1) >>= fun w__117 : string => - returnm ((string_append "c.jr" (string_append (spc_forwards tt) (string_append w__117 ""))) - : string) + returnm (string_append "c.jr" (string_append (spc_forwards tt) (string_append w__117 ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JALR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then + | C_JALR rs1 => + (if neq_vec rs1 zreg then (reg_name_forwards rs1) >>= fun w__120 : string => - returnm ((string_append "c.jalr" - (string_append (spc_forwards tt) (string_append w__120 ""))) - : string) + returnm (string_append "c.jalr" + (string_append (spc_forwards tt) (string_append w__120 ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_MV ((rd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then + | C_MV (rd, rs2) => + (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then (reg_name_forwards rd) >>= fun w__123 : string => (reg_name_forwards rs2) >>= fun w__124 : string => - returnm ((string_append "c.mv" - (string_append (spc_forwards tt) - (string_append w__123 - (string_append (sep_forwards tt) (string_append w__124 ""))))) - : string) + returnm (string_append "c.mv" + (string_append (spc_forwards tt) + (string_append w__123 + (string_append (sep_forwards tt) (string_append w__124 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_EBREAK (tt) => returnm ("c.ebreak" : string) - | C_ADD ((rsd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then + | C_EBREAK tt => returnm "c.ebreak" + | C_ADD (rsd, rs2) => + (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then (reg_name_forwards rsd) >>= fun w__127 : string => (reg_name_forwards rs2) >>= fun w__128 : string => - returnm ((string_append "c.add" - (string_append (spc_forwards tt) - (string_append w__127 - (string_append (sep_forwards tt) (string_append w__128 ""))))) - : string) + returnm (string_append "c.add" + (string_append (spc_forwards tt) + (string_append w__127 + (string_append (sep_forwards tt) (string_append w__128 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | MUL (rs2, rs1, rd, high, signed1, signed2) => (mul_mnemonic_forwards (high, signed1, signed2)) >>= fun w__131 : string => (reg_name_forwards rd) >>= fun w__132 : string => (reg_name_forwards rs1) >>= fun w__133 : string => (reg_name_forwards rs2) >>= fun w__134 : string => - returnm ((string_append w__131 - (string_append (spc_forwards tt) - (string_append w__132 - (string_append (sep_forwards tt) - (string_append w__133 - (string_append (sep_forwards tt) (string_append w__134 ""))))))) - : string) - | DIV ((rs2, rs1, rd, s)) => + returnm (string_append w__131 + (string_append (spc_forwards tt) + (string_append w__132 + (string_append (sep_forwards tt) + (string_append w__133 + (string_append (sep_forwards tt) (string_append w__134 ""))))))) + | DIV (rs2, rs1, rd, s) => (reg_name_forwards rd) >>= fun w__135 : string => (reg_name_forwards rs1) >>= fun w__136 : string => (reg_name_forwards rs2) >>= fun w__137 : string => - returnm ((string_append "div" - (string_append (maybe_not_u_forwards s) - (string_append (spc_forwards tt) - (string_append w__135 - (string_append (sep_forwards tt) - (string_append w__136 - (string_append (sep_forwards tt) (string_append w__137 "")))))))) - : string) - | REM ((rs2, rs1, rd, s)) => + returnm (string_append "div" + (string_append (maybe_not_u_forwards s) + (string_append (spc_forwards tt) + (string_append w__135 + (string_append (sep_forwards tt) + (string_append w__136 + (string_append (sep_forwards tt) (string_append w__137 "")))))))) + | REM (rs2, rs1, rd, s) => (reg_name_forwards rd) >>= fun w__138 : string => (reg_name_forwards rs1) >>= fun w__139 : string => (reg_name_forwards rs2) >>= fun w__140 : string => - returnm ((string_append "rem" - (string_append (maybe_not_u_forwards s) - (string_append (spc_forwards tt) - (string_append w__138 - (string_append (sep_forwards tt) - (string_append w__139 - (string_append (sep_forwards tt) (string_append w__140 "")))))))) - : string) - | MULW ((rs2, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + returnm (string_append "rem" + (string_append (maybe_not_u_forwards s) + (string_append (spc_forwards tt) + (string_append w__138 + (string_append (sep_forwards tt) + (string_append w__139 + (string_append (sep_forwards tt) (string_append w__140 "")))))))) + | MULW (rs2, rs1, rd) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__141 : string => (reg_name_forwards rs1) >>= fun w__142 : string => (reg_name_forwards rs2) >>= fun w__143 : string => - returnm ((string_append "mulw" - (string_append (spc_forwards tt) - (string_append w__141 - (string_append (sep_forwards tt) - (string_append w__142 - (string_append (sep_forwards tt) (string_append w__143 ""))))))) - : string) + returnm (string_append "mulw" + (string_append (spc_forwards tt) + (string_append w__141 + (string_append (sep_forwards tt) + (string_append w__142 + (string_append (sep_forwards tt) (string_append w__143 ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | DIVW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | DIVW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__146 : string => (reg_name_forwards rs1) >>= fun w__147 : string => (reg_name_forwards rs2) >>= fun w__148 : string => - returnm ((string_append "div" - (string_append (maybe_not_u_forwards s) - (string_append "w" - (string_append (spc_forwards tt) - (string_append w__146 - (string_append (sep_forwards tt) - (string_append w__147 - (string_append (sep_forwards tt) (string_append w__148 ""))))))))) - : string) + returnm (string_append "div" + (string_append (maybe_not_u_forwards s) + (string_append "w" + (string_append (spc_forwards tt) + (string_append w__146 + (string_append (sep_forwards tt) + (string_append w__147 + (string_append (sep_forwards tt) (string_append w__148 ""))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | REMW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 32 64)) then + | REMW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 32 64) then (reg_name_forwards rd) >>= fun w__151 : string => (reg_name_forwards rs1) >>= fun w__152 : string => (reg_name_forwards rs2) >>= fun w__153 : string => - returnm ((string_append "rem" - (string_append (maybe_not_u_forwards s) - (string_append "w" - (string_append (spc_forwards tt) - (string_append w__151 - (string_append (sep_forwards tt) - (string_append w__152 - (string_append (sep_forwards tt) (string_append w__153 ""))))))))) - : string) + returnm (string_append "rem" + (string_append (maybe_not_u_forwards s) + (string_append "w" + (string_append (spc_forwards tt) + (string_append w__151 + (string_append (sep_forwards tt) + (string_append w__152 + (string_append (sep_forwards tt) (string_append w__153 ""))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | CSR ((csr, rs1, rd, true, op)) => + | CSR (csr, rs1, rd, true, op) => (reg_name_forwards rd) >>= fun w__156 : string => - (csr_name_map_forwards csr) >>= fun w__157 : string => - returnm ((string_append (csr_mnemonic_forwards op) - (string_append "i" - (string_append (spc_forwards tt) - (string_append w__156 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits rs1) - (string_append (sep_forwards tt) (string_append w__157 "")))))))) - : string) - | CSR ((csr, rs1, rd, false, op)) => - (reg_name_forwards rd) >>= fun w__158 : string => - (reg_name_forwards rs1) >>= fun w__159 : string => - (csr_name_map_forwards csr) >>= fun w__160 : string => - returnm ((string_append (csr_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__158 - (string_append (sep_forwards tt) - (string_append w__159 - (string_append (sep_forwards tt) (string_append w__160 ""))))))) - : string) - | URET (tt) => returnm ("uret" : string) - | ILLEGAL (s) => - returnm ((string_append "illegal" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) - : string) - | C_ILLEGAL (s) => - returnm ((string_append "c.illegal" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) - : string) + returnm (string_append (csr_mnemonic_forwards op) + (string_append "i" + (string_append (spc_forwards tt) + (string_append w__156 + (string_append (sep_forwards tt) + (string_append (csr_name_map_forwards csr) + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits rs1) "")))))))) + | CSR (csr, rs1, rd, false, op) => + (reg_name_forwards rd) >>= fun w__157 : string => + (reg_name_forwards rs1) >>= fun w__158 : string => + returnm (string_append (csr_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__157 + (string_append (sep_forwards tt) + (string_append (csr_name_map_forwards csr) + (string_append (sep_forwards tt) (string_append w__158 ""))))))) + | URET tt => returnm "uret" + | LOAD_FP (imm, rs1, rd, width) => + (freg_name_forwards rd) >>= fun w__159 : string => + (reg_name_forwards rs1) >>= fun w__160 : string => + returnm (string_append "fl" + (string_append (size_mnemonic_forwards width) + (string_append (spc_forwards tt) + (string_append w__159 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__160 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))) + | STORE_FP (imm, rs2, rs1, width) => + (freg_name_forwards rs2) >>= fun w__161 : string => + (reg_name_forwards rs1) >>= fun w__162 : string => + returnm (string_append "fs" + (string_append (size_mnemonic_forwards width) + (string_append (spc_forwards tt) + (string_append w__161 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__162 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__163 : string => + (freg_name_forwards rs1) >>= fun w__164 : string => + (freg_name_forwards rs2) >>= fun w__165 : string => + (freg_name_forwards rs3) >>= fun w__166 : string => + returnm (string_append (f_madd_type_mnemonic_S_forwards op) + (string_append (spc_forwards tt) + (string_append w__163 + (string_append (sep_forwards tt) + (string_append w__164 + (string_append (sep_forwards tt) + (string_append w__165 + (string_append (sep_forwards tt) + (string_append w__166 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))))) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__167 : string => + (freg_name_forwards rs1) >>= fun w__168 : string => + (freg_name_forwards rs2) >>= fun w__169 : string => + returnm (string_append (f_bin_rm_type_mnemonic_S_forwards op) + (string_append (spc_forwards tt) + (string_append w__167 + (string_append (sep_forwards tt) + (string_append w__168 + (string_append (sep_forwards tt) + (string_append w__169 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (freg_name_forwards rd) >>= fun w__170 : string => + (freg_name_forwards rs1) >>= fun w__171 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FSQRT_S) + (string_append (spc_forwards tt) + (string_append w__170 + (string_append (sep_forwards tt) + (string_append w__171 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (reg_name_forwards rd) >>= fun w__172 : string => + (freg_name_forwards rs1) >>= fun w__173 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_W_S) + (string_append (spc_forwards tt) + (string_append w__172 + (string_append (sep_forwards tt) + (string_append w__173 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (reg_name_forwards rd) >>= fun w__174 : string => + (freg_name_forwards rs1) >>= fun w__175 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_WU_S) + (string_append (spc_forwards tt) + (string_append w__174 + (string_append (sep_forwards tt) + (string_append w__175 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (freg_name_forwards rd) >>= fun w__176 : string => + (reg_name_forwards rs1) >>= fun w__177 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_W) + (string_append (spc_forwards tt) + (string_append w__176 + (string_append (sep_forwards tt) + (string_append w__177 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (freg_name_forwards rd) >>= fun w__178 : string => + (reg_name_forwards rs1) >>= fun w__179 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_WU) + (string_append (spc_forwards tt) + (string_append w__178 + (string_append (sep_forwards tt) + (string_append w__179 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (reg_name_forwards rd) >>= fun w__180 : string => + (freg_name_forwards rs1) >>= fun w__181 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_L_S) + (string_append (spc_forwards tt) + (string_append w__180 + (string_append (sep_forwards tt) + (string_append w__181 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (reg_name_forwards rd) >>= fun w__182 : string => + (freg_name_forwards rs1) >>= fun w__183 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_LU_S) + (string_append (spc_forwards tt) + (string_append w__182 + (string_append (sep_forwards tt) + (string_append w__183 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (freg_name_forwards rd) >>= fun w__184 : string => + (reg_name_forwards rs1) >>= fun w__185 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_L) + (string_append (spc_forwards tt) + (string_append w__184 + (string_append (sep_forwards tt) + (string_append w__185 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (freg_name_forwards rd) >>= fun w__186 : string => + (reg_name_forwards rs1) >>= fun w__187 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_LU) + (string_append (spc_forwards tt) + (string_append w__186 + (string_append (sep_forwards tt) + (string_append w__187 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (freg_name_forwards rd) >>= fun w__188 : string => + (freg_name_forwards rs1) >>= fun w__189 : string => + (freg_name_forwards rs2) >>= fun w__190 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJ_S) + (string_append (spc_forwards tt) + (string_append w__188 + (string_append (sep_forwards tt) + (string_append w__189 + (string_append (sep_forwards tt) (string_append w__190 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (freg_name_forwards rd) >>= fun w__191 : string => + (freg_name_forwards rs1) >>= fun w__192 : string => + (freg_name_forwards rs2) >>= fun w__193 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJN_S) + (string_append (spc_forwards tt) + (string_append w__191 + (string_append (sep_forwards tt) + (string_append w__192 + (string_append (sep_forwards tt) (string_append w__193 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (freg_name_forwards rd) >>= fun w__194 : string => + (freg_name_forwards rs1) >>= fun w__195 : string => + (freg_name_forwards rs2) >>= fun w__196 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJX_S) + (string_append (spc_forwards tt) + (string_append w__194 + (string_append (sep_forwards tt) + (string_append w__195 + (string_append (sep_forwards tt) (string_append w__196 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (freg_name_forwards rd) >>= fun w__197 : string => + (freg_name_forwards rs1) >>= fun w__198 : string => + (freg_name_forwards rs2) >>= fun w__199 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FMIN_S) + (string_append (spc_forwards tt) + (string_append w__197 + (string_append (sep_forwards tt) + (string_append w__198 + (string_append (sep_forwards tt) (string_append w__199 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (freg_name_forwards rd) >>= fun w__200 : string => + (freg_name_forwards rs1) >>= fun w__201 : string => + (freg_name_forwards rs2) >>= fun w__202 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FMAX_S) + (string_append (spc_forwards tt) + (string_append w__200 + (string_append (sep_forwards tt) + (string_append w__201 + (string_append (sep_forwards tt) (string_append w__202 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (reg_name_forwards rd) >>= fun w__203 : string => + (freg_name_forwards rs1) >>= fun w__204 : string => + (freg_name_forwards rs2) >>= fun w__205 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FEQ_S) + (string_append (spc_forwards tt) + (string_append w__203 + (string_append (sep_forwards tt) + (string_append w__204 + (string_append (sep_forwards tt) (string_append w__205 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (reg_name_forwards rd) >>= fun w__206 : string => + (freg_name_forwards rs1) >>= fun w__207 : string => + (freg_name_forwards rs2) >>= fun w__208 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FLT_S) + (string_append (spc_forwards tt) + (string_append w__206 + (string_append (sep_forwards tt) + (string_append w__207 + (string_append (sep_forwards tt) (string_append w__208 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (reg_name_forwards rd) >>= fun w__209 : string => + (freg_name_forwards rs1) >>= fun w__210 : string => + (freg_name_forwards rs2) >>= fun w__211 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FLE_S) + (string_append (spc_forwards tt) + (string_append w__209 + (string_append (sep_forwards tt) + (string_append w__210 + (string_append (sep_forwards tt) (string_append w__211 ""))))))) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (reg_name_forwards rd) >>= fun w__212 : string => + (freg_name_forwards rs1) >>= fun w__213 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FMV_X_W) + (string_append (spc_forwards tt) + (string_append w__212 + (string_append (sep_forwards tt) (string_append w__213 ""))))) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (freg_name_forwards rd) >>= fun w__214 : string => + (reg_name_forwards rs1) >>= fun w__215 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FMV_W_X) + (string_append (spc_forwards tt) + (string_append w__214 + (string_append (sep_forwards tt) (string_append w__215 ""))))) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (reg_name_forwards rd) >>= fun w__216 : string => + (freg_name_forwards rs1) >>= fun w__217 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FCLASS_S) + (string_append (spc_forwards tt) + (string_append w__216 + (string_append (sep_forwards tt) (string_append w__217 ""))))) + | C_FLWSP (imm, rd) => + (if sumbool_of_bool (Z.eqb 32 32) then + (reg_name_forwards rd) >>= fun w__218 : string => + returnm (string_append "c.flwsp" + (string_append (spc_forwards tt) + (string_append w__218 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSWSP (uimm, rd) => + (if sumbool_of_bool (Z.eqb 32 32) then + (reg_name_forwards rd) >>= fun w__221 : string => + returnm (string_append "c.fswsp" + (string_append (spc_forwards tt) + (string_append w__221 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FLW (uimm, rsc, rdc) => + (if sumbool_of_bool (Z.eqb 32 32) then + (creg_name_forwards rdc) >>= fun w__224 : string => + (creg_name_forwards rsc) >>= fun w__225 : string => + returnm (string_append "c.flw" + (string_append (spc_forwards tt) + (string_append w__224 + (string_append (sep_forwards tt) + (string_append w__225 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSW (uimm, rsc1, rsc2) => + (if sumbool_of_bool (Z.eqb 32 32) then + (creg_name_forwards rsc1) >>= fun w__228 : string => + (creg_name_forwards rsc2) >>= fun w__229 : string => + returnm (string_append "c.fsw" + (string_append (spc_forwards tt) + (string_append w__228 + (string_append (sep_forwards tt) + (string_append w__229 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | ILLEGAL s => + returnm (string_append "illegal" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) + | C_ILLEGAL s => + returnm (string_append "c.illegal" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) end) : M (string). -Definition _s1677_ (_s1678_ : string) -: M (option (mword 16)) := - - let _s1679_ := _s1678_ in - (if ((string_startswith _s1679_ "c.illegal")) then - (match (string_drop _s1679_ (projT1 (string_length "c.illegal"))) with - | _s1680_ => - (spc_matches_prefix _s1680_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1681_ _)) => - match (string_drop _s1680_ _s1681_) with - | _s1682_ => - match (hex_bits_16_matches_prefix _s1682_) with - | Some ((s, existT _ _s1683_ _)) => - let p0_ := string_drop _s1682_ _s1683_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 16)) +Definition _s2554_ (_s2555_ : string) : M (option (mword 16)) := + let _s2556_ := _s2555_ in + (if string_startswith _s2556_ "c.illegal" then + (match (string_drop _s2556_ (projT1 (string_length "c.illegal"))) with + | _s2557_ => + (spc_matches_prefix _s2557_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s2558_ _) => + match (string_drop _s2557_ _s2558_) with + | _s2559_ => + match (hex_bits_16_matches_prefix _s2559_) with + | Some (s, existT _ _s2560_ _) => + let p0_ := string_drop _s2559_ _s2560_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 16)) - else returnm (None : option (mword 16))) + else returnm None) : M (option (mword 16)). -Definition _s1669_ (_s1670_ : string) -: M (option (mword 32)) := - - let _s1671_ := _s1670_ in - (if ((string_startswith _s1671_ "illegal")) then - (match (string_drop _s1671_ (projT1 (string_length "illegal"))) with - | _s1672_ => - (spc_matches_prefix _s1672_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1673_ _)) => - match (string_drop _s1672_ _s1673_) with - | _s1674_ => - match (hex_bits_32_matches_prefix _s1674_) with - | Some ((s, existT _ _s1675_ _)) => - let p0_ := string_drop _s1674_ _s1675_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 32)) +Definition _s2546_ (_s2547_ : string) : M (option (mword 32)) := + let _s2548_ := _s2547_ in + (if string_startswith _s2548_ "illegal" then + (match (string_drop _s2548_ (projT1 (string_length "illegal"))) with + | _s2549_ => + (spc_matches_prefix _s2549_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s2550_ _) => + match (string_drop _s2549_ _s2550_) with + | _s2551_ => + match (hex_bits_32_matches_prefix _s2551_) with + | Some (s, existT _ _s2552_ _) => + let p0_ := string_drop _s2551_ _s2552_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 32)) - else returnm (None : option (mword 32))) + else returnm None) : M (option (mword 32)). -Definition _s1652_ (_s1653_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s1653_ with - | _s1654_ => - (csr_mnemonic_matches_prefix _s1654_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s2530_ (_s2531_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2532_ := _s2531_ in + (if string_startswith _s2532_ "c.fsw" then + (match (string_drop _s2532_ (projT1 (string_length "c.fsw"))) with + | _s2533_ => + (spc_matches_prefix _s2533_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2534_ _) => + (match (string_drop _s2533_ _s2534_) with + | _s2535_ => + (creg_name_matches_prefix _s2535_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s2536_ _) => + (match (string_drop _s2535_ _s2536_) with + | _s2537_ => + (sep_matches_prefix _s2537_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s2538_ _) => + (match (string_drop _s2537_ _s2538_) with + | _s2539_ => + (creg_name_matches_prefix _s2539_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s2540_ _) => + (match (string_drop _s2539_ _s2540_) with + | _s2541_ => + (sep_matches_prefix _s2541_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s2542_ _) => + match (string_drop _s2541_ _s2542_) with + | _s2543_ => + match (hex_bits_7_matches_prefix _s2543_) with + | Some (v__1076, existT _ _s2544_ _) => + if eq_vec (subrange_vec_dec v__1076 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1076 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1076 6 2 in + let p0_ := string_drop _s2543_ _s2544_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s2514_ (_s2515_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2516_ := _s2515_ in + (if string_startswith _s2516_ "c.flw" then + (match (string_drop _s2516_ (projT1 (string_length "c.flw"))) with + | _s2517_ => + (spc_matches_prefix _s2517_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2518_ _) => + (match (string_drop _s2517_ _s2518_) with + | _s2519_ => + (creg_name_matches_prefix _s2519_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s2520_ _) => + (match (string_drop _s2519_ _s2520_) with + | _s2521_ => + (sep_matches_prefix _s2521_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s2522_ _) => + (match (string_drop _s2521_ _s2522_) with + | _s2523_ => + (creg_name_matches_prefix _s2523_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s2524_ _) => + (match (string_drop _s2523_ _s2524_) with + | _s2525_ => + (sep_matches_prefix _s2525_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s2526_ _) => + match (string_drop _s2525_ _s2526_) with + | _s2527_ => + match (hex_bits_7_matches_prefix _s2527_) with + | Some (v__1078, existT _ _s2528_ _) => + if eq_vec (subrange_vec_dec v__1078 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1078 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1078 6 2 in + let p0_ := string_drop _s2527_ _s2528_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s2502_ (_s2503_ : string) : M (option ((mword 5 * mword 6))) := + let _s2504_ := _s2503_ in + (if string_startswith _s2504_ "c.fswsp" then + (match (string_drop _s2504_ (projT1 (string_length "c.fswsp"))) with + | _s2505_ => + (spc_matches_prefix _s2505_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2506_ _) => + (match (string_drop _s2505_ _s2506_) with + | _s2507_ => + (reg_name_matches_prefix _s2507_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s2508_ _) => + (match (string_drop _s2507_ _s2508_) with + | _s2509_ => + (sep_matches_prefix _s2509_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s2510_ _) => + match (string_drop _s2509_ _s2510_) with + | _s2511_ => + match (hex_bits_6_matches_prefix _s2511_) with + | Some (uimm, existT _ _s2512_ _) => + let p0_ := string_drop _s2511_ _s2512_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s2490_ (_s2491_ : string) : M (option ((mword 5 * mword 6))) := + let _s2492_ := _s2491_ in + (if string_startswith _s2492_ "c.flwsp" then + (match (string_drop _s2492_ (projT1 (string_length "c.flwsp"))) with + | _s2493_ => + (spc_matches_prefix _s2493_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2494_ _) => + (match (string_drop _s2493_ _s2494_) with + | _s2495_ => + (reg_name_matches_prefix _s2495_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s2496_ _) => + (match (string_drop _s2495_ _s2496_) with + | _s2497_ => + (sep_matches_prefix _s2497_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s2498_ _) => + match (string_drop _s2497_ _s2498_) with + | _s2499_ => + match (hex_bits_6_matches_prefix _s2499_) with + | Some (imm, existT _ _s2500_ _) => + let p0_ := string_drop _s2499_ _s2500_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s2477_ (_s2478_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2478_ with + | _s2479_ => + (f_un_type_mnemonic_S_matches_prefix _s2479_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s2480_ _) => + (match (string_drop _s2479_ _s2480_) with + | _s2481_ => + (spc_matches_prefix _s2481_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2482_ _) => + (match (string_drop _s2481_ _s2482_) with + | _s2483_ => + (reg_name_matches_prefix _s2483_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2484_ _) => + (match (string_drop _s2483_ _s2484_) with + | _s2485_ => + (sep_matches_prefix _s2485_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2486_ _) => + (match (string_drop _s2485_ _s2486_) with + | _s2487_ => + (freg_name_matches_prefix _s2487_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2488_ _) => + let p0_ := string_drop _s2487_ _s2488_ in + if generic_eq p0_ "" then + Some (FCLASS_S, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2464_ (_s2465_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2465_ with + | _s2466_ => + (f_un_type_mnemonic_S_matches_prefix _s2466_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1655_ _)) => - (match (string_drop _s1654_ _s1655_) with - | _s1656_ => - (spc_matches_prefix _s1656_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FMV_W_X, existT _ _s2467_ _) => + (match (string_drop _s2466_ _s2467_) with + | _s2468_ => + (spc_matches_prefix _s2468_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1657_ _)) => - (match (string_drop _s1656_ _s1657_) with - | _s1658_ => - (reg_name_matches_prefix _s1658_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2469_ _) => + (match (string_drop _s2468_ _s2469_) with + | _s2470_ => + (freg_name_matches_prefix _s2470_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1659_ _)) => - (match (string_drop _s1658_ _s1659_) with - | _s1660_ => - (sep_matches_prefix _s1660_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2471_ _) => + (match (string_drop _s2470_ _s2471_) with + | _s2472_ => + (sep_matches_prefix _s2472_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1661_ _)) => - (match (string_drop _s1660_ _s1661_) with - | _s1662_ => - (reg_name_matches_prefix _s1662_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2473_ _) => + (match (string_drop _s2472_ _s2473_) with + | _s2474_ => + (reg_name_matches_prefix _s2474_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2475_ _) => + let p0_ := string_drop _s2474_ _s2475_ in + if generic_eq p0_ "" then Some (FMV_W_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2451_ (_s2452_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2452_ with + | _s2453_ => + (f_un_type_mnemonic_S_matches_prefix _s2453_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_W, existT _ _s2454_ _) => + (match (string_drop _s2453_ _s2454_) with + | _s2455_ => + (spc_matches_prefix _s2455_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2456_ _) => + (match (string_drop _s2455_ _s2456_) with + | _s2457_ => + (reg_name_matches_prefix _s2457_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2458_ _) => + (match (string_drop _s2457_ _s2458_) with + | _s2459_ => + (sep_matches_prefix _s2459_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2460_ _) => + (match (string_drop _s2459_ _s2460_) with + | _s2461_ => + (freg_name_matches_prefix _s2461_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2462_ _) => + let p0_ := string_drop _s2461_ _s2462_ in + if generic_eq p0_ "" then Some (FMV_X_W, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2434_ (_s2435_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2435_ with + | _s2436_ => + (f_bin_type_mnemonic_S_matches_prefix _s2436_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_S, existT _ _s2437_ _) => + (match (string_drop _s2436_ _s2437_) with + | _s2438_ => + (spc_matches_prefix _s2438_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2439_ _) => + (match (string_drop _s2438_ _s2439_) with + | _s2440_ => + (reg_name_matches_prefix _s2440_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2441_ _) => + (match (string_drop _s2440_ _s2441_) with + | _s2442_ => + (sep_matches_prefix _s2442_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2443_ _) => + (match (string_drop _s2442_ _s2443_) with + | _s2444_ => + (freg_name_matches_prefix _s2444_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1663_ _)) => - (match (string_drop _s1662_ _s1663_) with - | _s1664_ => - (sep_matches_prefix _s1664_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2445_ _) => + (match (string_drop _s2444_ _s2445_) with + | _s2446_ => + (sep_matches_prefix _s2446_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1665_ _)) => - (match (string_drop _s1664_ _s1665_) with - | _s1666_ => - (csr_name_map_matches_prefix _s1666_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2447_ _) => + (match (string_drop _s2446_ _s2447_) with + | _s2448_ => + (freg_name_matches_prefix _s2448_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s1667_ _)) => - let p0_ := - string_drop _s1666_ _s1667_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) + returnm (match w__6 with + | Some (rs2, existT _ _s2449_ _) => + let p0_ := + string_drop _s2448_ _s2449_ in + if generic_eq p0_ "" then + Some (FLE_S, rd, rs1, rs2) + else None + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2417_ (_s2418_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2418_ with + | _s2419_ => + (f_bin_type_mnemonic_S_matches_prefix _s2419_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s2420_ _) => + (match (string_drop _s2419_ _s2420_) with + | _s2421_ => + (spc_matches_prefix _s2421_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2422_ _) => + (match (string_drop _s2421_ _s2422_) with + | _s2423_ => + (reg_name_matches_prefix _s2423_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2424_ _) => + (match (string_drop _s2423_ _s2424_) with + | _s2425_ => + (sep_matches_prefix _s2425_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2426_ _) => + (match (string_drop _s2425_ _s2426_) with + | _s2427_ => + (freg_name_matches_prefix _s2427_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2428_ _) => + (match (string_drop _s2427_ _s2428_) with + | _s2429_ => + (sep_matches_prefix _s2429_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2430_ _) => + (match (string_drop _s2429_ _s2430_) with + | _s2431_ => + (freg_name_matches_prefix _s2431_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2432_ _) => + let p0_ := + string_drop _s2431_ _s2432_ in + if generic_eq p0_ "" then + Some (FLT_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2400_ (_s2401_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2401_ with + | _s2402_ => + (f_bin_type_mnemonic_S_matches_prefix _s2402_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_S, existT _ _s2403_ _) => + (match (string_drop _s2402_ _s2403_) with + | _s2404_ => + (spc_matches_prefix _s2404_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2405_ _) => + (match (string_drop _s2404_ _s2405_) with + | _s2406_ => + (reg_name_matches_prefix _s2406_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2407_ _) => + (match (string_drop _s2406_ _s2407_) with + | _s2408_ => + (sep_matches_prefix _s2408_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2409_ _) => + (match (string_drop _s2408_ _s2409_) with + | _s2410_ => + (freg_name_matches_prefix _s2410_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2411_ _) => + (match (string_drop _s2410_ _s2411_) with + | _s2412_ => + (sep_matches_prefix _s2412_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2413_ _) => + (match (string_drop _s2412_ _s2413_) with + | _s2414_ => + (freg_name_matches_prefix _s2414_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2415_ _) => + let p0_ := + string_drop _s2414_ _s2415_ in + if generic_eq p0_ "" then + Some (FEQ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2383_ (_s2384_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2384_ with + | _s2385_ => + (f_bin_type_mnemonic_S_matches_prefix _s2385_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s2386_ _) => + (match (string_drop _s2385_ _s2386_) with + | _s2387_ => + (spc_matches_prefix _s2387_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2388_ _) => + (match (string_drop _s2387_ _s2388_) with + | _s2389_ => + (freg_name_matches_prefix _s2389_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2390_ _) => + (match (string_drop _s2389_ _s2390_) with + | _s2391_ => + (sep_matches_prefix _s2391_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2392_ _) => + (match (string_drop _s2391_ _s2392_) with + | _s2393_ => + (freg_name_matches_prefix _s2393_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2394_ _) => + (match (string_drop _s2393_ _s2394_) with + | _s2395_ => + (sep_matches_prefix _s2395_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2396_ _) => + (match (string_drop _s2395_ _s2396_) with + | _s2397_ => + (freg_name_matches_prefix _s2397_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2398_ _) => + let p0_ := + string_drop _s2397_ _s2398_ in + if generic_eq p0_ "" then + Some (FMAX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2366_ (_s2367_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2367_ with + | _s2368_ => + (f_bin_type_mnemonic_S_matches_prefix _s2368_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s2369_ _) => + (match (string_drop _s2368_ _s2369_) with + | _s2370_ => + (spc_matches_prefix _s2370_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2371_ _) => + (match (string_drop _s2370_ _s2371_) with + | _s2372_ => + (freg_name_matches_prefix _s2372_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2373_ _) => + (match (string_drop _s2372_ _s2373_) with + | _s2374_ => + (sep_matches_prefix _s2374_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2375_ _) => + (match (string_drop _s2374_ _s2375_) with + | _s2376_ => + (freg_name_matches_prefix _s2376_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2377_ _) => + (match (string_drop _s2376_ _s2377_) with + | _s2378_ => + (sep_matches_prefix _s2378_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2379_ _) => + (match (string_drop _s2378_ _s2379_) with + | _s2380_ => + (freg_name_matches_prefix _s2380_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2381_ _) => + let p0_ := + string_drop _s2380_ _s2381_ in + if generic_eq p0_ "" then + Some (FMIN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2349_ (_s2350_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2350_ with + | _s2351_ => + (f_bin_type_mnemonic_S_matches_prefix _s2351_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s2352_ _) => + (match (string_drop _s2351_ _s2352_) with + | _s2353_ => + (spc_matches_prefix _s2353_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2354_ _) => + (match (string_drop _s2353_ _s2354_) with + | _s2355_ => + (freg_name_matches_prefix _s2355_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2356_ _) => + (match (string_drop _s2355_ _s2356_) with + | _s2357_ => + (sep_matches_prefix _s2357_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2358_ _) => + (match (string_drop _s2357_ _s2358_) with + | _s2359_ => + (freg_name_matches_prefix _s2359_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2360_ _) => + (match (string_drop _s2359_ _s2360_) with + | _s2361_ => + (sep_matches_prefix _s2361_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2362_ _) => + (match (string_drop _s2361_ _s2362_) with + | _s2363_ => + (freg_name_matches_prefix _s2363_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2364_ _) => + let p0_ := + string_drop _s2363_ _s2364_ in + if generic_eq p0_ "" then + Some (FSGNJX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2332_ (_s2333_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2333_ with + | _s2334_ => + (f_bin_type_mnemonic_S_matches_prefix _s2334_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s2335_ _) => + (match (string_drop _s2334_ _s2335_) with + | _s2336_ => + (spc_matches_prefix _s2336_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2337_ _) => + (match (string_drop _s2336_ _s2337_) with + | _s2338_ => + (freg_name_matches_prefix _s2338_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2339_ _) => + (match (string_drop _s2338_ _s2339_) with + | _s2340_ => + (sep_matches_prefix _s2340_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2341_ _) => + (match (string_drop _s2340_ _s2341_) with + | _s2342_ => + (freg_name_matches_prefix _s2342_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2343_ _) => + (match (string_drop _s2342_ _s2343_) with + | _s2344_ => + (sep_matches_prefix _s2344_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2345_ _) => + (match (string_drop _s2344_ _s2345_) with + | _s2346_ => + (freg_name_matches_prefix _s2346_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2347_ _) => + let p0_ := + string_drop _s2346_ _s2347_ in + if generic_eq p0_ "" then + Some (FSGNJN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s1634_ (_s1635_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s1635_ with - | _s1636_ => - (csr_mnemonic_matches_prefix _s1636_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2315_ (_s2316_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2316_ with + | _s2317_ => + (f_bin_type_mnemonic_S_matches_prefix _s2317_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1637_ _)) => - let _s1638_ := string_drop _s1636_ _s1637_ in - (if ((string_startswith _s1638_ "i")) then - (match (string_drop _s1638_ (projT1 (string_length "i"))) with - | _s1639_ => - (spc_matches_prefix _s1639_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FSGNJ_S, existT _ _s2318_ _) => + (match (string_drop _s2317_ _s2318_) with + | _s2319_ => + (spc_matches_prefix _s2319_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2320_ _) => + (match (string_drop _s2319_ _s2320_) with + | _s2321_ => + (freg_name_matches_prefix _s2321_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2322_ _) => + (match (string_drop _s2321_ _s2322_) with + | _s2323_ => + (sep_matches_prefix _s2323_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2324_ _) => + (match (string_drop _s2323_ _s2324_) with + | _s2325_ => + (freg_name_matches_prefix _s2325_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2326_ _) => + (match (string_drop _s2325_ _s2326_) with + | _s2327_ => + (sep_matches_prefix _s2327_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2328_ _) => + (match (string_drop _s2327_ _s2328_) with + | _s2329_ => + (freg_name_matches_prefix _s2329_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2330_ _) => + let p0_ := + string_drop _s2329_ _s2330_ in + if generic_eq p0_ "" then + Some (FSGNJ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2298_ (_s2299_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2299_ with + | _s2300_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2300_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s2301_ _) => + (match (string_drop _s2300_ _s2301_) with + | _s2302_ => + (spc_matches_prefix _s2302_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2303_ _) => + (match (string_drop _s2302_ _s2303_) with + | _s2304_ => + (freg_name_matches_prefix _s2304_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2305_ _) => + (match (string_drop _s2304_ _s2305_) with + | _s2306_ => + (sep_matches_prefix _s2306_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2307_ _) => + (match (string_drop _s2306_ _s2307_) with + | _s2308_ => + (reg_name_matches_prefix _s2308_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2309_ _) => + (match (string_drop _s2308_ _s2309_) with + | _s2310_ => + (sep_matches_prefix _s2310_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2311_ _) => + (match (string_drop _s2310_ _s2311_) with + | _s2312_ => + (frm_mnemonic_matches_prefix _s2312_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2313_ _) => + let p0_ := + string_drop _s2312_ _s2313_ in + if generic_eq p0_ "" then + Some (FCVT_S_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2281_ (_s2282_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2282_ with + | _s2283_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2283_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s2284_ _) => + (match (string_drop _s2283_ _s2284_) with + | _s2285_ => + (spc_matches_prefix _s2285_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2286_ _) => + (match (string_drop _s2285_ _s2286_) with + | _s2287_ => + (freg_name_matches_prefix _s2287_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2288_ _) => + (match (string_drop _s2287_ _s2288_) with + | _s2289_ => + (sep_matches_prefix _s2289_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2290_ _) => + (match (string_drop _s2289_ _s2290_) with + | _s2291_ => + (reg_name_matches_prefix _s2291_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2292_ _) => + (match (string_drop _s2291_ _s2292_) with + | _s2293_ => + (sep_matches_prefix _s2293_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2294_ _) => + (match (string_drop _s2293_ _s2294_) with + | _s2295_ => + (frm_mnemonic_matches_prefix _s2295_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2296_ _) => + let p0_ := + string_drop _s2295_ _s2296_ in + if generic_eq p0_ "" then + Some (FCVT_S_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2264_ (_s2265_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2265_ with + | _s2266_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2266_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s2267_ _) => + (match (string_drop _s2266_ _s2267_) with + | _s2268_ => + (spc_matches_prefix _s2268_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2269_ _) => + (match (string_drop _s2268_ _s2269_) with + | _s2270_ => + (reg_name_matches_prefix _s2270_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2271_ _) => + (match (string_drop _s2270_ _s2271_) with + | _s2272_ => + (sep_matches_prefix _s2272_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2273_ _) => + (match (string_drop _s2272_ _s2273_) with + | _s2274_ => + (freg_name_matches_prefix _s2274_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2275_ _) => + (match (string_drop _s2274_ _s2275_) with + | _s2276_ => + (sep_matches_prefix _s2276_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2277_ _) => + (match (string_drop _s2276_ _s2277_) with + | _s2278_ => + (frm_mnemonic_matches_prefix _s2278_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2279_ _) => + let p0_ := + string_drop _s2278_ _s2279_ in + if generic_eq p0_ "" then + Some (FCVT_LU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2247_ (_s2248_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2248_ with + | _s2249_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2249_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s2250_ _) => + (match (string_drop _s2249_ _s2250_) with + | _s2251_ => + (spc_matches_prefix _s2251_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2252_ _) => + (match (string_drop _s2251_ _s2252_) with + | _s2253_ => + (reg_name_matches_prefix _s2253_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2254_ _) => + (match (string_drop _s2253_ _s2254_) with + | _s2255_ => + (sep_matches_prefix _s2255_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2256_ _) => + (match (string_drop _s2255_ _s2256_) with + | _s2257_ => + (freg_name_matches_prefix _s2257_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2258_ _) => + (match (string_drop _s2257_ _s2258_) with + | _s2259_ => + (sep_matches_prefix _s2259_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2260_ _) => + (match (string_drop _s2259_ _s2260_) with + | _s2261_ => + (frm_mnemonic_matches_prefix _s2261_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2262_ _) => + let p0_ := + string_drop _s2261_ _s2262_ in + if generic_eq p0_ "" then + Some (FCVT_L_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2230_ (_s2231_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2231_ with + | _s2232_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2232_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_WU, existT _ _s2233_ _) => + (match (string_drop _s2232_ _s2233_) with + | _s2234_ => + (spc_matches_prefix _s2234_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2235_ _) => + (match (string_drop _s2234_ _s2235_) with + | _s2236_ => + (freg_name_matches_prefix _s2236_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2237_ _) => + (match (string_drop _s2236_ _s2237_) with + | _s2238_ => + (sep_matches_prefix _s2238_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2239_ _) => + (match (string_drop _s2238_ _s2239_) with + | _s2240_ => + (reg_name_matches_prefix _s2240_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2241_ _) => + (match (string_drop _s2240_ _s2241_) with + | _s2242_ => + (sep_matches_prefix _s2242_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2243_ _) => + (match (string_drop _s2242_ _s2243_) with + | _s2244_ => + (frm_mnemonic_matches_prefix _s2244_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2245_ _) => + let p0_ := + string_drop _s2244_ _s2245_ in + if generic_eq p0_ "" then + Some (FCVT_S_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2213_ (_s2214_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2214_ with + | _s2215_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2215_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s2216_ _) => + (match (string_drop _s2215_ _s2216_) with + | _s2217_ => + (spc_matches_prefix _s2217_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2218_ _) => + (match (string_drop _s2217_ _s2218_) with + | _s2219_ => + (freg_name_matches_prefix _s2219_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2220_ _) => + (match (string_drop _s2219_ _s2220_) with + | _s2221_ => + (sep_matches_prefix _s2221_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2222_ _) => + (match (string_drop _s2221_ _s2222_) with + | _s2223_ => + (reg_name_matches_prefix _s2223_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2224_ _) => + (match (string_drop _s2223_ _s2224_) with + | _s2225_ => + (sep_matches_prefix _s2225_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2226_ _) => + (match (string_drop _s2225_ _s2226_) with + | _s2227_ => + (frm_mnemonic_matches_prefix _s2227_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2228_ _) => + let p0_ := + string_drop _s2227_ _s2228_ in + if generic_eq p0_ "" then + Some (FCVT_S_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2196_ (_s2197_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2197_ with + | _s2198_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2198_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s2199_ _) => + (match (string_drop _s2198_ _s2199_) with + | _s2200_ => + (spc_matches_prefix _s2200_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2201_ _) => + (match (string_drop _s2200_ _s2201_) with + | _s2202_ => + (reg_name_matches_prefix _s2202_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2203_ _) => + (match (string_drop _s2202_ _s2203_) with + | _s2204_ => + (sep_matches_prefix _s2204_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2205_ _) => + (match (string_drop _s2204_ _s2205_) with + | _s2206_ => + (freg_name_matches_prefix _s2206_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2207_ _) => + (match (string_drop _s2206_ _s2207_) with + | _s2208_ => + (sep_matches_prefix _s2208_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2209_ _) => + (match (string_drop _s2208_ _s2209_) with + | _s2210_ => + (frm_mnemonic_matches_prefix _s2210_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2211_ _) => + let p0_ := + string_drop _s2210_ _s2211_ in + if generic_eq p0_ "" then + Some (FCVT_WU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2179_ (_s2180_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2180_ with + | _s2181_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2181_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s2182_ _) => + (match (string_drop _s2181_ _s2182_) with + | _s2183_ => + (spc_matches_prefix _s2183_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2184_ _) => + (match (string_drop _s2183_ _s2184_) with + | _s2185_ => + (reg_name_matches_prefix _s2185_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2186_ _) => + (match (string_drop _s2185_ _s2186_) with + | _s2187_ => + (sep_matches_prefix _s2187_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2188_ _) => + (match (string_drop _s2187_ _s2188_) with + | _s2189_ => + (freg_name_matches_prefix _s2189_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2190_ _) => + (match (string_drop _s2189_ _s2190_) with + | _s2191_ => + (sep_matches_prefix _s2191_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2192_ _) => + (match (string_drop _s2191_ _s2192_) with + | _s2193_ => + (frm_mnemonic_matches_prefix _s2193_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2194_ _) => + let p0_ := + string_drop _s2193_ _s2194_ in + if generic_eq p0_ "" then + Some (FCVT_W_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2162_ (_s2163_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2163_ with + | _s2164_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2164_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s2165_ _) => + (match (string_drop _s2164_ _s2165_) with + | _s2166_ => + (spc_matches_prefix _s2166_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2167_ _) => + (match (string_drop _s2166_ _s2167_) with + | _s2168_ => + (freg_name_matches_prefix _s2168_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2169_ _) => + (match (string_drop _s2168_ _s2169_) with + | _s2170_ => + (sep_matches_prefix _s2170_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2171_ _) => + (match (string_drop _s2170_ _s2171_) with + | _s2172_ => + (freg_name_matches_prefix _s2172_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2173_ _) => + (match (string_drop _s2172_ _s2173_) with + | _s2174_ => + (sep_matches_prefix _s2174_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2175_ _) => + (match (string_drop _s2174_ _s2175_) with + | _s2176_ => + (frm_mnemonic_matches_prefix _s2176_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2177_ _) => + let p0_ := + string_drop _s2176_ _s2177_ in + if generic_eq p0_ "" then + Some (FSQRT_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2141_ (_s2142_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2142_ with + | _s2143_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s2143_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2144_ _) => + (match (string_drop _s2143_ _s2144_) with + | _s2145_ => + (spc_matches_prefix _s2145_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2146_ _) => + (match (string_drop _s2145_ _s2146_) with + | _s2147_ => + (freg_name_matches_prefix _s2147_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2148_ _) => + (match (string_drop _s2147_ _s2148_) with + | _s2149_ => + (sep_matches_prefix _s2149_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2150_ _) => + (match (string_drop _s2149_ _s2150_) with + | _s2151_ => + (freg_name_matches_prefix _s2151_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2152_ _) => + (match (string_drop _s2151_ _s2152_) with + | _s2153_ => + (sep_matches_prefix _s2153_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2154_ _) => + (match (string_drop _s2153_ _s2154_) with + | _s2155_ => + (freg_name_matches_prefix _s2155_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2156_ _) => + (match (string_drop _s2155_ _s2156_) with + | _s2157_ => + (sep_matches_prefix _s2157_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2158_ _) => + (match (string_drop _s2157_ + _s2158_) with + | _s2159_ => + (frm_mnemonic_matches_prefix + _s2159_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s2160_ _) => + let p0_ := + string_drop + _s2159_ + _s2160_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s2116_ (_s2117_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2117_ with + | _s2118_ => + (f_madd_type_mnemonic_S_matches_prefix _s2118_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2119_ _) => + (match (string_drop _s2118_ _s2119_) with + | _s2120_ => + (spc_matches_prefix _s2120_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2121_ _) => + (match (string_drop _s2120_ _s2121_) with + | _s2122_ => + (freg_name_matches_prefix _s2122_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2123_ _) => + (match (string_drop _s2122_ _s2123_) with + | _s2124_ => + (sep_matches_prefix _s2124_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2125_ _) => + (match (string_drop _s2124_ _s2125_) with + | _s2126_ => + (freg_name_matches_prefix _s2126_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2127_ _) => + (match (string_drop _s2126_ _s2127_) with + | _s2128_ => + (sep_matches_prefix _s2128_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2129_ _) => + (match (string_drop _s2128_ _s2129_) with + | _s2130_ => + (freg_name_matches_prefix _s2130_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2131_ _) => + (match (string_drop _s2130_ _s2131_) with + | _s2132_ => + (sep_matches_prefix _s2132_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2133_ _) => + (match (string_drop _s2132_ + _s2133_) with + | _s2134_ => + (freg_name_matches_prefix + _s2134_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s2135_ _) => + (match (string_drop + _s2134_ _s2135_) with + | _s2136_ => + (sep_matches_prefix + _s2136_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s2137_ _) => + (match (string_drop + _s2136_ + _s2137_) with + | _s2138_ => + (frm_mnemonic_matches_prefix + _s2138_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s2139_ _) => + let p0_ := + string_drop + _s2138_ + _s2139_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s2092_ (_s2093_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s2094_ := _s2093_ in + (if string_startswith _s2094_ "fs" then + (match (string_drop _s2094_ (projT1 (string_length "fs"))) with + | _s2095_ => + (size_mnemonic_matches_prefix _s2095_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s2096_ _) => + (match (string_drop _s2095_ _s2096_) with + | _s2097_ => + (spc_matches_prefix _s2097_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1640_ _)) => - (match (string_drop _s1639_ _s1640_) with - | _s1641_ => - (reg_name_matches_prefix _s1641_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2098_ _) => + (match (string_drop _s2097_ _s2098_) with + | _s2099_ => + (freg_name_matches_prefix _s2099_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1642_ _)) => - (match (string_drop _s1641_ _s1642_) with - | _s1643_ => - (sep_matches_prefix _s1643_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s2100_ _) => + (match (string_drop _s2099_ _s2100_) with + | _s2101_ => + (sep_matches_prefix _s2101_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1644_ _)) => - (match (string_drop _s1643_ _s1644_) with - | _s1645_ => - (match (hex_bits_5_matches_prefix _s1645_) with - | Some ((rs1, existT _ _s1646_ _)) => - (match (string_drop _s1645_ _s1646_) with - | _s1647_ => - (sep_matches_prefix _s1647_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2102_ _) => + (match (string_drop _s2101_ _s2102_) with + | _s2103_ => + (match (hex_bits_12_matches_prefix _s2103_) with + | Some (imm, existT _ _s2104_ _) => + (match (string_drop _s2103_ _s2104_) with + | _s2105_ => + (opt_spc_matches_prefix _s2105_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1648_ _)) => - (match (string_drop _s1647_ _s1648_) with - | _s1649_ => - (csr_name_map_matches_prefix _s1649_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s1650_ _)) => - let p0_ := - string_drop _s1649_ _s1650_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + | Some (tt, existT _ _s2106_ _) => + let _s2107_ := string_drop _s2105_ _s2106_ in + (if string_startswith _s2107_ "(" then + (match (string_drop _s2107_ + (projT1 + (string_length "("))) with + | _s2108_ => + (opt_spc_matches_prefix _s2108_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2109_ _) => + (match (string_drop _s2108_ _s2109_) with + | _s2110_ => + (reg_name_matches_prefix + _s2110_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s2111_ _) => + (match (string_drop _s2110_ + _s2111_) with + | _s2112_ => + (opt_spc_matches_prefix + _s2112_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s2113_ _) => + let _s2114_ := + string_drop + _s2112_ + _s2113_ in + if string_startswith + _s2114_ + ")" + then + let p0_ := + string_drop + _s2114_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rs2, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s2068_ (_s2069_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s2070_ := _s2069_ in + (if string_startswith _s2070_ "fl" then + (match (string_drop _s2070_ (projT1 (string_length "fl"))) with + | _s2071_ => + (size_mnemonic_matches_prefix _s2071_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s2072_ _) => + (match (string_drop _s2071_ _s2072_) with + | _s2073_ => + (spc_matches_prefix _s2073_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2074_ _) => + (match (string_drop _s2073_ _s2074_) with + | _s2075_ => + (freg_name_matches_prefix _s2075_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2076_ _) => + (match (string_drop _s2075_ _s2076_) with + | _s2077_ => + (sep_matches_prefix _s2077_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2078_ _) => + (match (string_drop _s2077_ _s2078_) with + | _s2079_ => + (match (hex_bits_12_matches_prefix _s2079_) with + | Some (imm, existT _ _s2080_ _) => + (match (string_drop _s2079_ _s2080_) with + | _s2081_ => + (opt_spc_matches_prefix _s2081_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s2082_ _) => + let _s2083_ := string_drop _s2081_ _s2082_ in + (if string_startswith _s2083_ "(" then + (match (string_drop _s2083_ + (projT1 + (string_length "("))) with + | _s2084_ => + (opt_spc_matches_prefix _s2084_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2085_ _) => + (match (string_drop _s2084_ _s2085_) with + | _s2086_ => + (reg_name_matches_prefix + _s2086_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s2087_ _) => + (match (string_drop _s2086_ + _s2087_) with + | _s2088_ => + (opt_spc_matches_prefix + _s2088_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s2089_ _) => + let _s2090_ := + string_drop + _s2088_ + _s2089_ in + if string_startswith + _s2090_ + ")" + then + let p0_ := + string_drop + _s2090_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rd, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s2051_ (_s2052_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s2052_ with + | _s2053_ => + (csr_mnemonic_matches_prefix _s2053_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2054_ _) => + (match (string_drop _s2053_ _s2054_) with + | _s2055_ => + (spc_matches_prefix _s2055_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2056_ _) => + (match (string_drop _s2055_ _s2056_) with + | _s2057_ => + (reg_name_matches_prefix _s2057_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2058_ _) => + (match (string_drop _s2057_ _s2058_) with + | _s2059_ => + (sep_matches_prefix _s2059_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2060_ _) => + (match (string_drop _s2059_ _s2060_) with + | _s2061_ => + (csr_name_map_matches_prefix _s2061_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s2062_ _) => + (match (string_drop _s2061_ _s2062_) with + | _s2063_ => + (sep_matches_prefix _s2063_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2064_ _) => + (match (string_drop _s2063_ _s2064_) with + | _s2065_ => + (reg_name_matches_prefix _s2065_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s2066_ _) => + let p0_ := + string_drop _s2065_ _s2066_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s2033_ (_s2034_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s2034_ with + | _s2035_ => + (csr_mnemonic_matches_prefix _s2035_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2036_ _) => + let _s2037_ := string_drop _s2035_ _s2036_ in + (if string_startswith _s2037_ "i" then + (match (string_drop _s2037_ (projT1 (string_length "i"))) with + | _s2038_ => + (spc_matches_prefix _s2038_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2039_ _) => + (match (string_drop _s2038_ _s2039_) with + | _s2040_ => + (reg_name_matches_prefix _s2040_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2041_ _) => + (match (string_drop _s2040_ _s2041_) with + | _s2042_ => + (sep_matches_prefix _s2042_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2043_ _) => + (match (string_drop _s2042_ _s2043_) with + | _s2044_ => + (csr_name_map_matches_prefix _s2044_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s2045_ _) => + (match (string_drop _s2044_ _s2045_) with + | _s2046_ => + (sep_matches_prefix _s2046_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s2047_ _) => + match (string_drop _s2046_ _s2047_) with + | _s2048_ => + match (hex_bits_5_matches_prefix + _s2048_) with + | Some (rs1, existT _ _s2049_ _) => + let p0_ := + string_drop _s2048_ _s2049_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s1615_ (_s1616_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1617_ := _s1616_ in - (if ((string_startswith _s1617_ "rem")) then - (match (string_drop _s1617_ (projT1 (string_length "rem"))) with - | _s1618_ => - (maybe_not_u_matches_prefix _s1618_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s2014_ (_s2015_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s2016_ := _s2015_ in + (if string_startswith _s2016_ "rem" then + (match (string_drop _s2016_ (projT1 (string_length "rem"))) with + | _s2017_ => + (maybe_not_u_matches_prefix _s2017_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1619_ _)) => - let _s1620_ := string_drop _s1618_ _s1619_ in - (if ((string_startswith _s1620_ "w")) then - (match (string_drop _s1620_ (projT1 (string_length "w"))) with - | _s1621_ => - (spc_matches_prefix _s1621_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s2018_ _) => + let _s2019_ := string_drop _s2017_ _s2018_ in + (if string_startswith _s2019_ "w" then + (match (string_drop _s2019_ (projT1 (string_length "w"))) with + | _s2020_ => + (spc_matches_prefix _s2020_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1622_ _)) => - (match (string_drop _s1621_ _s1622_) with - | _s1623_ => - (reg_name_matches_prefix _s1623_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2021_ _) => + (match (string_drop _s2020_ _s2021_) with + | _s2022_ => + (reg_name_matches_prefix _s2022_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1624_ _)) => - (match (string_drop _s1623_ _s1624_) with - | _s1625_ => - (sep_matches_prefix _s1625_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2023_ _) => + (match (string_drop _s2022_ _s2023_) with + | _s2024_ => + (sep_matches_prefix _s2024_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1626_ _)) => - (match (string_drop _s1625_ _s1626_) with - | _s1627_ => - (reg_name_matches_prefix _s1627_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2025_ _) => + (match (string_drop _s2024_ _s2025_) with + | _s2026_ => + (reg_name_matches_prefix _s2026_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1628_ _)) => - (match (string_drop _s1627_ _s1628_) with - | _s1629_ => - (sep_matches_prefix _s1629_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2027_ _) => + (match (string_drop _s2026_ _s2027_) with + | _s2028_ => + (sep_matches_prefix _s2028_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1630_ _)) => - (match (string_drop _s1629_ _s1630_) with - | _s1631_ => - (reg_name_matches_prefix _s1631_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2029_ _) => + (match (string_drop _s2028_ _s2029_) with + | _s2030_ => + (reg_name_matches_prefix _s2030_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1632_ _)) => - let p0_ := - string_drop _s1631_ - _s1632_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s2031_ _) => + let p0_ := + string_drop _s2030_ + _s2031_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1596_ (_s1597_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1598_ := _s1597_ in - (if ((string_startswith _s1598_ "div")) then - (match (string_drop _s1598_ (projT1 (string_length "div"))) with - | _s1599_ => - (maybe_not_u_matches_prefix _s1599_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s1995_ (_s1996_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s1997_ := _s1996_ in + (if string_startswith _s1997_ "div" then + (match (string_drop _s1997_ (projT1 (string_length "div"))) with + | _s1998_ => + (maybe_not_u_matches_prefix _s1998_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1600_ _)) => - let _s1601_ := string_drop _s1599_ _s1600_ in - (if ((string_startswith _s1601_ "w")) then - (match (string_drop _s1601_ (projT1 (string_length "w"))) with - | _s1602_ => - (spc_matches_prefix _s1602_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s1999_ _) => + let _s2000_ := string_drop _s1998_ _s1999_ in + (if string_startswith _s2000_ "w" then + (match (string_drop _s2000_ (projT1 (string_length "w"))) with + | _s2001_ => + (spc_matches_prefix _s2001_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1603_ _)) => - (match (string_drop _s1602_ _s1603_) with - | _s1604_ => - (reg_name_matches_prefix _s1604_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2002_ _) => + (match (string_drop _s2001_ _s2002_) with + | _s2003_ => + (reg_name_matches_prefix _s2003_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1605_ _)) => - (match (string_drop _s1604_ _s1605_) with - | _s1606_ => - (sep_matches_prefix _s1606_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2004_ _) => + (match (string_drop _s2003_ _s2004_) with + | _s2005_ => + (sep_matches_prefix _s2005_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1607_ _)) => - (match (string_drop _s1606_ _s1607_) with - | _s1608_ => - (reg_name_matches_prefix _s1608_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2006_ _) => + (match (string_drop _s2005_ _s2006_) with + | _s2007_ => + (reg_name_matches_prefix _s2007_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1609_ _)) => - (match (string_drop _s1608_ _s1609_) with - | _s1610_ => - (sep_matches_prefix _s1610_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2008_ _) => + (match (string_drop _s2007_ _s2008_) with + | _s2009_ => + (sep_matches_prefix _s2009_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1611_ _)) => - (match (string_drop _s1610_ _s1611_) with - | _s1612_ => - (reg_name_matches_prefix _s1612_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2010_ _) => + (match (string_drop _s2009_ _s2010_) with + | _s2011_ => + (reg_name_matches_prefix _s2011_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1613_ _)) => - let p0_ := - string_drop _s1612_ - _s1613_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s2012_ _) => + let p0_ := + string_drop _s2011_ + _s2012_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1580_ (_s1581_ : string) -: M (option ((mword 5 * mword 5 * mword 5))) := - - let _s1582_ := _s1581_ in - (if ((string_startswith _s1582_ "mulw")) then - (match (string_drop _s1582_ (projT1 (string_length "mulw"))) with - | _s1583_ => - (spc_matches_prefix _s1583_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1979_ (_s1980_ : string) : M (option ((mword 5 * mword 5 * mword 5))) := + let _s1981_ := _s1980_ in + (if string_startswith _s1981_ "mulw" then + (match (string_drop _s1981_ (projT1 (string_length "mulw"))) with + | _s1982_ => + (spc_matches_prefix _s1982_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1584_ _)) => - (match (string_drop _s1583_ _s1584_) with - | _s1585_ => - (reg_name_matches_prefix _s1585_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1983_ _) => + (match (string_drop _s1982_ _s1983_) with + | _s1984_ => + (reg_name_matches_prefix _s1984_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1586_ _)) => - (match (string_drop _s1585_ _s1586_) with - | _s1587_ => - (sep_matches_prefix _s1587_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1985_ _) => + (match (string_drop _s1984_ _s1985_) with + | _s1986_ => + (sep_matches_prefix _s1986_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1588_ _)) => - (match (string_drop _s1587_ _s1588_) with - | _s1589_ => - (reg_name_matches_prefix _s1589_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1987_ _) => + (match (string_drop _s1986_ _s1987_) with + | _s1988_ => + (reg_name_matches_prefix _s1988_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1590_ _)) => - (match (string_drop _s1589_ _s1590_) with - | _s1591_ => - (sep_matches_prefix _s1591_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1989_ _) => + (match (string_drop _s1988_ _s1989_) with + | _s1990_ => + (sep_matches_prefix _s1990_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1592_ _)) => - (match (string_drop _s1591_ _s1592_) with - | _s1593_ => - (reg_name_matches_prefix _s1593_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1991_ _) => + (match (string_drop _s1990_ _s1991_) with + | _s1992_ => + (reg_name_matches_prefix _s1992_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s1594_ _)) => - let p0_ := - string_drop _s1593_ _s1594_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (rs2, existT _ _s1993_ _) => + let p0_ := string_drop _s1992_ _s1993_ in + if generic_eq p0_ "" then + Some (rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5))). -Definition _s1562_ (_s1563_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1564_ := _s1563_ in - (if ((string_startswith _s1564_ "rem")) then - (match (string_drop _s1564_ (projT1 (string_length "rem"))) with - | _s1565_ => - (maybe_not_u_matches_prefix _s1565_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s1961_ (_s1962_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s1963_ := _s1962_ in + (if string_startswith _s1963_ "rem" then + (match (string_drop _s1963_ (projT1 (string_length "rem"))) with + | _s1964_ => + (maybe_not_u_matches_prefix _s1964_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1566_ _)) => - (match (string_drop _s1565_ _s1566_) with - | _s1567_ => - (spc_matches_prefix _s1567_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s1965_ _) => + (match (string_drop _s1964_ _s1965_) with + | _s1966_ => + (spc_matches_prefix _s1966_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1568_ _)) => - (match (string_drop _s1567_ _s1568_) with - | _s1569_ => - (reg_name_matches_prefix _s1569_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1967_ _) => + (match (string_drop _s1966_ _s1967_) with + | _s1968_ => + (reg_name_matches_prefix _s1968_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1570_ _)) => - (match (string_drop _s1569_ _s1570_) with - | _s1571_ => - (sep_matches_prefix _s1571_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1969_ _) => + (match (string_drop _s1968_ _s1969_) with + | _s1970_ => + (sep_matches_prefix _s1970_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1572_ _)) => - (match (string_drop _s1571_ _s1572_) with - | _s1573_ => - (reg_name_matches_prefix _s1573_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1971_ _) => + (match (string_drop _s1970_ _s1971_) with + | _s1972_ => + (reg_name_matches_prefix _s1972_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1574_ _)) => - (match (string_drop _s1573_ _s1574_) with - | _s1575_ => - (sep_matches_prefix _s1575_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1973_ _) => + (match (string_drop _s1972_ _s1973_) with + | _s1974_ => + (sep_matches_prefix _s1974_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1576_ _)) => - (match (string_drop _s1575_ _s1576_) with - | _s1577_ => - (reg_name_matches_prefix _s1577_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1975_ _) => + (match (string_drop _s1974_ _s1975_) with + | _s1976_ => + (reg_name_matches_prefix _s1976_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1578_ _)) => - let p0_ := - string_drop _s1577_ _s1578_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1977_ _) => + let p0_ := + string_drop _s1976_ _s1977_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1544_ (_s1545_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1546_ := _s1545_ in - (if ((string_startswith _s1546_ "div")) then - (match (string_drop _s1546_ (projT1 (string_length "div"))) with - | _s1547_ => - (maybe_not_u_matches_prefix _s1547_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s1943_ (_s1944_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s1945_ := _s1944_ in + (if string_startswith _s1945_ "div" then + (match (string_drop _s1945_ (projT1 (string_length "div"))) with + | _s1946_ => + (maybe_not_u_matches_prefix _s1946_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1548_ _)) => - (match (string_drop _s1547_ _s1548_) with - | _s1549_ => - (spc_matches_prefix _s1549_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s1947_ _) => + (match (string_drop _s1946_ _s1947_) with + | _s1948_ => + (spc_matches_prefix _s1948_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1550_ _)) => - (match (string_drop _s1549_ _s1550_) with - | _s1551_ => - (reg_name_matches_prefix _s1551_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1949_ _) => + (match (string_drop _s1948_ _s1949_) with + | _s1950_ => + (reg_name_matches_prefix _s1950_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1552_ _)) => - (match (string_drop _s1551_ _s1552_) with - | _s1553_ => - (sep_matches_prefix _s1553_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1951_ _) => + (match (string_drop _s1950_ _s1951_) with + | _s1952_ => + (sep_matches_prefix _s1952_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1554_ _)) => - (match (string_drop _s1553_ _s1554_) with - | _s1555_ => - (reg_name_matches_prefix _s1555_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1953_ _) => + (match (string_drop _s1952_ _s1953_) with + | _s1954_ => + (reg_name_matches_prefix _s1954_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1556_ _)) => - (match (string_drop _s1555_ _s1556_) with - | _s1557_ => - (sep_matches_prefix _s1557_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1955_ _) => + (match (string_drop _s1954_ _s1955_) with + | _s1956_ => + (sep_matches_prefix _s1956_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1558_ _)) => - (match (string_drop _s1557_ _s1558_) with - | _s1559_ => - (reg_name_matches_prefix _s1559_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1957_ _) => + (match (string_drop _s1956_ _s1957_) with + | _s1958_ => + (reg_name_matches_prefix _s1958_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1560_ _)) => - let p0_ := - string_drop _s1559_ _s1560_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1959_ _) => + let p0_ := + string_drop _s1958_ _s1959_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1527_ (_s1528_ : string) +Definition _s1926_ (_s1927_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1528_ with - | _s1529_ => - (mul_mnemonic_matches_prefix _s1529_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s1927_ with + | _s1928_ => + (mul_mnemonic_matches_prefix _s1928_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s1530_ _)) => - (match (string_drop _s1529_ _s1530_) with - | _s1531_ => - (spc_matches_prefix _s1531_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s1929_ _) => + (match (string_drop _s1928_ _s1929_) with + | _s1930_ => + (spc_matches_prefix _s1930_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1532_ _)) => - (match (string_drop _s1531_ _s1532_) with - | _s1533_ => - (reg_name_matches_prefix _s1533_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1931_ _) => + (match (string_drop _s1930_ _s1931_) with + | _s1932_ => + (reg_name_matches_prefix _s1932_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1534_ _)) => - (match (string_drop _s1533_ _s1534_) with - | _s1535_ => - (sep_matches_prefix _s1535_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1933_ _) => + (match (string_drop _s1932_ _s1933_) with + | _s1934_ => + (sep_matches_prefix _s1934_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1536_ _)) => - (match (string_drop _s1535_ _s1536_) with - | _s1537_ => - (reg_name_matches_prefix _s1537_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1935_ _) => + (match (string_drop _s1934_ _s1935_) with + | _s1936_ => + (reg_name_matches_prefix _s1936_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1538_ _)) => - (match (string_drop _s1537_ _s1538_) with - | _s1539_ => - (sep_matches_prefix _s1539_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1937_ _) => + (match (string_drop _s1936_ _s1937_) with + | _s1938_ => + (sep_matches_prefix _s1938_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1540_ _)) => - (match (string_drop _s1539_ _s1540_) with - | _s1541_ => - (reg_name_matches_prefix _s1541_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1939_ _) => + (match (string_drop _s1938_ _s1939_) with + | _s1940_ => + (reg_name_matches_prefix _s1940_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1542_ _)) => - let p0_ := - string_drop _s1541_ _s1542_ in - if ((generic_eq p0_ "")) then - Some - ((high, signed1, signed2, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1941_ _) => + let p0_ := + string_drop _s1940_ _s1941_ in + if generic_eq p0_ "" then + Some + (high, signed1, signed2, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1515_ (_s1516_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1517_ := _s1516_ in - (if ((string_startswith _s1517_ "c.add")) then - (match (string_drop _s1517_ (projT1 (string_length "c.add"))) with - | _s1518_ => - (spc_matches_prefix _s1518_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1914_ (_s1915_ : string) : M (option ((mword 5 * mword 5))) := + let _s1916_ := _s1915_ in + (if string_startswith _s1916_ "c.add" then + (match (string_drop _s1916_ (projT1 (string_length "c.add"))) with + | _s1917_ => + (spc_matches_prefix _s1917_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1519_ _)) => - (match (string_drop _s1518_ _s1519_) with - | _s1520_ => - (reg_name_matches_prefix _s1520_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1918_ _) => + (match (string_drop _s1917_ _s1918_) with + | _s1919_ => + (reg_name_matches_prefix _s1919_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1521_ _)) => - (match (string_drop _s1520_ _s1521_) with - | _s1522_ => - (sep_matches_prefix _s1522_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1920_ _) => + (match (string_drop _s1919_ _s1920_) with + | _s1921_ => + (sep_matches_prefix _s1921_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1523_ _)) => - (match (string_drop _s1522_ _s1523_) with - | _s1524_ => - (reg_name_matches_prefix _s1524_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1922_ _) => + (match (string_drop _s1921_ _s1922_) with + | _s1923_ => + (reg_name_matches_prefix _s1923_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1525_ _)) => - let p0_ := string_drop _s1524_ _s1525_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s1924_ _) => + let p0_ := string_drop _s1923_ _s1924_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1503_ (_s1504_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1505_ := _s1504_ in - (if ((string_startswith _s1505_ "c.mv")) then - (match (string_drop _s1505_ (projT1 (string_length "c.mv"))) with - | _s1506_ => - (spc_matches_prefix _s1506_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1902_ (_s1903_ : string) : M (option ((mword 5 * mword 5))) := + let _s1904_ := _s1903_ in + (if string_startswith _s1904_ "c.mv" then + (match (string_drop _s1904_ (projT1 (string_length "c.mv"))) with + | _s1905_ => + (spc_matches_prefix _s1905_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1507_ _)) => - (match (string_drop _s1506_ _s1507_) with - | _s1508_ => - (reg_name_matches_prefix _s1508_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1906_ _) => + (match (string_drop _s1905_ _s1906_) with + | _s1907_ => + (reg_name_matches_prefix _s1907_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1509_ _)) => - (match (string_drop _s1508_ _s1509_) with - | _s1510_ => - (sep_matches_prefix _s1510_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1908_ _) => + (match (string_drop _s1907_ _s1908_) with + | _s1909_ => + (sep_matches_prefix _s1909_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1511_ _)) => - (match (string_drop _s1510_ _s1511_) with - | _s1512_ => - (reg_name_matches_prefix _s1512_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1910_ _) => + (match (string_drop _s1909_ _s1910_) with + | _s1911_ => + (reg_name_matches_prefix _s1911_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1513_ _)) => - let p0_ := string_drop _s1512_ _s1513_ in - if ((generic_eq p0_ "")) then Some ((rd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s1912_ _) => + let p0_ := string_drop _s1911_ _s1912_ in + if generic_eq p0_ "" then Some (rd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1495_ (_s1496_ : string) -: M (option (mword 5)) := - - let _s1497_ := _s1496_ in - (if ((string_startswith _s1497_ "c.jalr")) then - (match (string_drop _s1497_ (projT1 (string_length "c.jalr"))) with - | _s1498_ => - (spc_matches_prefix _s1498_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1894_ (_s1895_ : string) : M (option (mword 5)) := + let _s1896_ := _s1895_ in + (if string_startswith _s1896_ "c.jalr" then + (match (string_drop _s1896_ (projT1 (string_length "c.jalr"))) with + | _s1897_ => + (spc_matches_prefix _s1897_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1499_ _)) => - (match (string_drop _s1498_ _s1499_) with - | _s1500_ => - (reg_name_matches_prefix _s1500_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1898_ _) => + (match (string_drop _s1897_ _s1898_) with + | _s1899_ => + (reg_name_matches_prefix _s1899_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s1501_ _)) => - let p0_ := string_drop _s1500_ _s1501_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s1900_ _) => + let p0_ := string_drop _s1899_ _s1900_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s1487_ (_s1488_ : string) -: M (option (mword 5)) := - - let _s1489_ := _s1488_ in - (if ((string_startswith _s1489_ "c.jr")) then - (match (string_drop _s1489_ (projT1 (string_length "c.jr"))) with - | _s1490_ => - (spc_matches_prefix _s1490_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1886_ (_s1887_ : string) : M (option (mword 5)) := + let _s1888_ := _s1887_ in + (if string_startswith _s1888_ "c.jr" then + (match (string_drop _s1888_ (projT1 (string_length "c.jr"))) with + | _s1889_ => + (spc_matches_prefix _s1889_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1491_ _)) => - (match (string_drop _s1490_ _s1491_) with - | _s1492_ => - (reg_name_matches_prefix _s1492_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1890_ _) => + (match (string_drop _s1889_ _s1890_) with + | _s1891_ => + (reg_name_matches_prefix _s1891_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s1493_ _)) => - let p0_ := string_drop _s1492_ _s1493_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s1892_ _) => + let p0_ := string_drop _s1891_ _s1892_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s1475_ (_s1476_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1477_ := _s1476_ in - (if ((string_startswith _s1477_ "c.sdsp")) then - (match (string_drop _s1477_ (projT1 (string_length "c.sdsp"))) with - | _s1478_ => - (spc_matches_prefix _s1478_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1874_ (_s1875_ : string) : M (option ((mword 5 * mword 6))) := + let _s1876_ := _s1875_ in + (if string_startswith _s1876_ "c.sdsp" then + (match (string_drop _s1876_ (projT1 (string_length "c.sdsp"))) with + | _s1877_ => + (spc_matches_prefix _s1877_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1479_ _)) => - (match (string_drop _s1478_ _s1479_) with - | _s1480_ => - (reg_name_matches_prefix _s1480_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1878_ _) => + (match (string_drop _s1877_ _s1878_) with + | _s1879_ => + (reg_name_matches_prefix _s1879_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s1481_ _)) => - (match (string_drop _s1480_ _s1481_) with - | _s1482_ => - (sep_matches_prefix _s1482_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s1880_ _) => + (match (string_drop _s1879_ _s1880_) with + | _s1881_ => + (sep_matches_prefix _s1881_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1483_ _)) => - match (string_drop _s1482_ _s1483_) with - | _s1484_ => - match (hex_bits_6_matches_prefix _s1484_) with - | Some ((uimm, existT _ _s1485_ _)) => - let p0_ := string_drop _s1484_ _s1485_ in - if ((generic_eq p0_ "")) then Some ((rs2, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1882_ _) => + match (string_drop _s1881_ _s1882_) with + | _s1883_ => + match (hex_bits_6_matches_prefix _s1883_) with + | Some (uimm, existT _ _s1884_ _) => + let p0_ := string_drop _s1883_ _s1884_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1463_ (_s1464_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1465_ := _s1464_ in - (if ((string_startswith _s1465_ "c.swsp")) then - (match (string_drop _s1465_ (projT1 (string_length "c.swsp"))) with - | _s1466_ => - (spc_matches_prefix _s1466_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1862_ (_s1863_ : string) : M (option ((mword 5 * mword 6))) := + let _s1864_ := _s1863_ in + (if string_startswith _s1864_ "c.swsp" then + (match (string_drop _s1864_ (projT1 (string_length "c.swsp"))) with + | _s1865_ => + (spc_matches_prefix _s1865_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1467_ _)) => - (match (string_drop _s1466_ _s1467_) with - | _s1468_ => - (reg_name_matches_prefix _s1468_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1866_ _) => + (match (string_drop _s1865_ _s1866_) with + | _s1867_ => + (reg_name_matches_prefix _s1867_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1469_ _)) => - (match (string_drop _s1468_ _s1469_) with - | _s1470_ => - (sep_matches_prefix _s1470_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1868_ _) => + (match (string_drop _s1867_ _s1868_) with + | _s1869_ => + (sep_matches_prefix _s1869_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1471_ _)) => - match (string_drop _s1470_ _s1471_) with - | _s1472_ => - match (hex_bits_6_matches_prefix _s1472_) with - | Some ((uimm, existT _ _s1473_ _)) => - let p0_ := string_drop _s1472_ _s1473_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1870_ _) => + match (string_drop _s1869_ _s1870_) with + | _s1871_ => + match (hex_bits_6_matches_prefix _s1871_) with + | Some (uimm, existT _ _s1872_ _) => + let p0_ := string_drop _s1871_ _s1872_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1451_ (_s1452_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1453_ := _s1452_ in - (if ((string_startswith _s1453_ "c.ldsp")) then - (match (string_drop _s1453_ (projT1 (string_length "c.ldsp"))) with - | _s1454_ => - (spc_matches_prefix _s1454_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1850_ (_s1851_ : string) : M (option ((mword 5 * mword 6))) := + let _s1852_ := _s1851_ in + (if string_startswith _s1852_ "c.ldsp" then + (match (string_drop _s1852_ (projT1 (string_length "c.ldsp"))) with + | _s1853_ => + (spc_matches_prefix _s1853_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1455_ _)) => - (match (string_drop _s1454_ _s1455_) with - | _s1456_ => - (reg_name_matches_prefix _s1456_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1854_ _) => + (match (string_drop _s1853_ _s1854_) with + | _s1855_ => + (reg_name_matches_prefix _s1855_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1457_ _)) => - (match (string_drop _s1456_ _s1457_) with - | _s1458_ => - (sep_matches_prefix _s1458_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1856_ _) => + (match (string_drop _s1855_ _s1856_) with + | _s1857_ => + (sep_matches_prefix _s1857_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1459_ _)) => - match (string_drop _s1458_ _s1459_) with - | _s1460_ => - match (hex_bits_6_matches_prefix _s1460_) with - | Some ((uimm, existT _ _s1461_ _)) => - let p0_ := string_drop _s1460_ _s1461_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1858_ _) => + match (string_drop _s1857_ _s1858_) with + | _s1859_ => + match (hex_bits_6_matches_prefix _s1859_) with + | Some (uimm, existT _ _s1860_ _) => + let p0_ := string_drop _s1859_ _s1860_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1439_ (_s1440_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1441_ := _s1440_ in - (if ((string_startswith _s1441_ "c.lwsp")) then - (match (string_drop _s1441_ (projT1 (string_length "c.lwsp"))) with - | _s1442_ => - (spc_matches_prefix _s1442_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1838_ (_s1839_ : string) : M (option ((mword 5 * mword 6))) := + let _s1840_ := _s1839_ in + (if string_startswith _s1840_ "c.lwsp" then + (match (string_drop _s1840_ (projT1 (string_length "c.lwsp"))) with + | _s1841_ => + (spc_matches_prefix _s1841_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1443_ _)) => - (match (string_drop _s1442_ _s1443_) with - | _s1444_ => - (reg_name_matches_prefix _s1444_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1842_ _) => + (match (string_drop _s1841_ _s1842_) with + | _s1843_ => + (reg_name_matches_prefix _s1843_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1445_ _)) => - (match (string_drop _s1444_ _s1445_) with - | _s1446_ => - (sep_matches_prefix _s1446_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1844_ _) => + (match (string_drop _s1843_ _s1844_) with + | _s1845_ => + (sep_matches_prefix _s1845_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1447_ _)) => - match (string_drop _s1446_ _s1447_) with - | _s1448_ => - match (hex_bits_6_matches_prefix _s1448_) with - | Some ((uimm, existT _ _s1449_ _)) => - let p0_ := string_drop _s1448_ _s1449_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1846_ _) => + match (string_drop _s1845_ _s1846_) with + | _s1847_ => + match (hex_bits_6_matches_prefix _s1847_) with + | Some (uimm, existT _ _s1848_ _) => + let p0_ := string_drop _s1847_ _s1848_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1427_ (_s1428_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1429_ := _s1428_ in - (if ((string_startswith _s1429_ "c.slli")) then - (match (string_drop _s1429_ (projT1 (string_length "c.slli"))) with - | _s1430_ => - (spc_matches_prefix _s1430_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1826_ (_s1827_ : string) : M (option ((mword 5 * mword 6))) := + let _s1828_ := _s1827_ in + (if string_startswith _s1828_ "c.slli" then + (match (string_drop _s1828_ (projT1 (string_length "c.slli"))) with + | _s1829_ => + (spc_matches_prefix _s1829_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1431_ _)) => - (match (string_drop _s1430_ _s1431_) with - | _s1432_ => - (reg_name_matches_prefix _s1432_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1830_ _) => + (match (string_drop _s1829_ _s1830_) with + | _s1831_ => + (reg_name_matches_prefix _s1831_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1433_ _)) => - (match (string_drop _s1432_ _s1433_) with - | _s1434_ => - (sep_matches_prefix _s1434_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1832_ _) => + (match (string_drop _s1831_ _s1832_) with + | _s1833_ => + (sep_matches_prefix _s1833_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1435_ _)) => - match (string_drop _s1434_ _s1435_) with - | _s1436_ => - match (hex_bits_6_matches_prefix _s1436_) with - | Some ((shamt, existT _ _s1437_ _)) => - let p0_ := string_drop _s1436_ _s1437_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1834_ _) => + match (string_drop _s1833_ _s1834_) with + | _s1835_ => + match (hex_bits_6_matches_prefix _s1835_) with + | Some (shamt, existT _ _s1836_ _) => + let p0_ := string_drop _s1835_ _s1836_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1415_ (_s1416_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1417_ := _s1416_ in - (if ((string_startswith _s1417_ "c.bnez")) then - (match (string_drop _s1417_ (projT1 (string_length "c.bnez"))) with - | _s1418_ => - (spc_matches_prefix _s1418_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1814_ (_s1815_ : string) : M (option ((mword 3 * mword 8))) := + let _s1816_ := _s1815_ in + (if string_startswith _s1816_ "c.bnez" then + (match (string_drop _s1816_ (projT1 (string_length "c.bnez"))) with + | _s1817_ => + (spc_matches_prefix _s1817_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1419_ _)) => - (match (string_drop _s1418_ _s1419_) with - | _s1420_ => - (creg_name_matches_prefix _s1420_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1818_ _) => + (match (string_drop _s1817_ _s1818_) with + | _s1819_ => + (creg_name_matches_prefix _s1819_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s1421_ _)) => - (match (string_drop _s1420_ _s1421_) with - | _s1422_ => - (sep_matches_prefix _s1422_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s1820_ _) => + (match (string_drop _s1819_ _s1820_) with + | _s1821_ => + (sep_matches_prefix _s1821_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1423_ _)) => - match (string_drop _s1422_ _s1423_) with - | _s1424_ => - match (hex_bits_8_matches_prefix _s1424_) with - | Some ((imm, existT _ _s1425_ _)) => - let p0_ := string_drop _s1424_ _s1425_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1822_ _) => + match (string_drop _s1821_ _s1822_) with + | _s1823_ => + match (hex_bits_8_matches_prefix _s1823_) with + | Some (imm, existT _ _s1824_ _) => + let p0_ := string_drop _s1823_ _s1824_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1403_ (_s1404_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1405_ := _s1404_ in - (if ((string_startswith _s1405_ "c.beqz")) then - (match (string_drop _s1405_ (projT1 (string_length "c.beqz"))) with - | _s1406_ => - (spc_matches_prefix _s1406_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1802_ (_s1803_ : string) : M (option ((mword 3 * mword 8))) := + let _s1804_ := _s1803_ in + (if string_startswith _s1804_ "c.beqz" then + (match (string_drop _s1804_ (projT1 (string_length "c.beqz"))) with + | _s1805_ => + (spc_matches_prefix _s1805_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1407_ _)) => - (match (string_drop _s1406_ _s1407_) with - | _s1408_ => - (creg_name_matches_prefix _s1408_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1806_ _) => + (match (string_drop _s1805_ _s1806_) with + | _s1807_ => + (creg_name_matches_prefix _s1807_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s1409_ _)) => - (match (string_drop _s1408_ _s1409_) with - | _s1410_ => - (sep_matches_prefix _s1410_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s1808_ _) => + (match (string_drop _s1807_ _s1808_) with + | _s1809_ => + (sep_matches_prefix _s1809_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1411_ _)) => - match (string_drop _s1410_ _s1411_) with - | _s1412_ => - match (hex_bits_8_matches_prefix _s1412_) with - | Some ((imm, existT _ _s1413_ _)) => - let p0_ := string_drop _s1412_ _s1413_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1810_ _) => + match (string_drop _s1809_ _s1810_) with + | _s1811_ => + match (hex_bits_8_matches_prefix _s1811_) with + | Some (imm, existT _ _s1812_ _) => + let p0_ := string_drop _s1811_ _s1812_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1395_ (_s1396_ : string) -: M (option (mword 11)) := - - let _s1397_ := _s1396_ in - (if ((string_startswith _s1397_ "c.j")) then - (match (string_drop _s1397_ (projT1 (string_length "c.j"))) with - | _s1398_ => - (spc_matches_prefix _s1398_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1399_ _)) => - match (string_drop _s1398_ _s1399_) with - | _s1400_ => - match (hex_bits_11_matches_prefix _s1400_) with - | Some ((imm, existT _ _s1401_ _)) => - let p0_ := string_drop _s1400_ _s1401_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s1794_ (_s1795_ : string) : M (option (mword 11)) := + let _s1796_ := _s1795_ in + (if string_startswith _s1796_ "c.j" then + (match (string_drop _s1796_ (projT1 (string_length "c.j"))) with + | _s1797_ => + (spc_matches_prefix _s1797_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1798_ _) => + match (string_drop _s1797_ _s1798_) with + | _s1799_ => + match (hex_bits_11_matches_prefix _s1799_) with + | Some (imm, existT _ _s1800_ _) => + let p0_ := string_drop _s1799_ _s1800_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s1383_ (_s1384_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1385_ := _s1384_ in - (if ((string_startswith _s1385_ "c.addw")) then - (match (string_drop _s1385_ (projT1 (string_length "c.addw"))) with - | _s1386_ => - (spc_matches_prefix _s1386_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1782_ (_s1783_ : string) : M (option ((mword 3 * mword 3))) := + let _s1784_ := _s1783_ in + (if string_startswith _s1784_ "c.addw" then + (match (string_drop _s1784_ (projT1 (string_length "c.addw"))) with + | _s1785_ => + (spc_matches_prefix _s1785_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1387_ _)) => - (match (string_drop _s1386_ _s1387_) with - | _s1388_ => - (creg_name_matches_prefix _s1388_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1786_ _) => + (match (string_drop _s1785_ _s1786_) with + | _s1787_ => + (creg_name_matches_prefix _s1787_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1389_ _)) => - (match (string_drop _s1388_ _s1389_) with - | _s1390_ => - (sep_matches_prefix _s1390_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1788_ _) => + (match (string_drop _s1787_ _s1788_) with + | _s1789_ => + (sep_matches_prefix _s1789_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1391_ _)) => - (match (string_drop _s1390_ _s1391_) with - | _s1392_ => - (creg_name_matches_prefix _s1392_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1790_ _) => + (match (string_drop _s1789_ _s1790_) with + | _s1791_ => + (creg_name_matches_prefix _s1791_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1393_ _)) => - let p0_ := string_drop _s1392_ _s1393_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1792_ _) => + let p0_ := string_drop _s1791_ _s1792_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1371_ (_s1372_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1373_ := _s1372_ in - (if ((string_startswith _s1373_ "c.subw")) then - (match (string_drop _s1373_ (projT1 (string_length "c.subw"))) with - | _s1374_ => - (spc_matches_prefix _s1374_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1770_ (_s1771_ : string) : M (option ((mword 3 * mword 3))) := + let _s1772_ := _s1771_ in + (if string_startswith _s1772_ "c.subw" then + (match (string_drop _s1772_ (projT1 (string_length "c.subw"))) with + | _s1773_ => + (spc_matches_prefix _s1773_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1375_ _)) => - (match (string_drop _s1374_ _s1375_) with - | _s1376_ => - (creg_name_matches_prefix _s1376_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1774_ _) => + (match (string_drop _s1773_ _s1774_) with + | _s1775_ => + (creg_name_matches_prefix _s1775_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1377_ _)) => - (match (string_drop _s1376_ _s1377_) with - | _s1378_ => - (sep_matches_prefix _s1378_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1776_ _) => + (match (string_drop _s1775_ _s1776_) with + | _s1777_ => + (sep_matches_prefix _s1777_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1379_ _)) => - (match (string_drop _s1378_ _s1379_) with - | _s1380_ => - (creg_name_matches_prefix _s1380_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1778_ _) => + (match (string_drop _s1777_ _s1778_) with + | _s1779_ => + (creg_name_matches_prefix _s1779_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1381_ _)) => - let p0_ := string_drop _s1380_ _s1381_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1780_ _) => + let p0_ := string_drop _s1779_ _s1780_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1359_ (_s1360_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1361_ := _s1360_ in - (if ((string_startswith _s1361_ "c.and")) then - (match (string_drop _s1361_ (projT1 (string_length "c.and"))) with - | _s1362_ => - (spc_matches_prefix _s1362_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1758_ (_s1759_ : string) : M (option ((mword 3 * mword 3))) := + let _s1760_ := _s1759_ in + (if string_startswith _s1760_ "c.and" then + (match (string_drop _s1760_ (projT1 (string_length "c.and"))) with + | _s1761_ => + (spc_matches_prefix _s1761_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1363_ _)) => - (match (string_drop _s1362_ _s1363_) with - | _s1364_ => - (creg_name_matches_prefix _s1364_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1762_ _) => + (match (string_drop _s1761_ _s1762_) with + | _s1763_ => + (creg_name_matches_prefix _s1763_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1365_ _)) => - (match (string_drop _s1364_ _s1365_) with - | _s1366_ => - (sep_matches_prefix _s1366_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1764_ _) => + (match (string_drop _s1763_ _s1764_) with + | _s1765_ => + (sep_matches_prefix _s1765_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1367_ _)) => - (match (string_drop _s1366_ _s1367_) with - | _s1368_ => - (creg_name_matches_prefix _s1368_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1766_ _) => + (match (string_drop _s1765_ _s1766_) with + | _s1767_ => + (creg_name_matches_prefix _s1767_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1369_ _)) => - let p0_ := string_drop _s1368_ _s1369_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1768_ _) => + let p0_ := string_drop _s1767_ _s1768_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1347_ (_s1348_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1349_ := _s1348_ in - (if ((string_startswith _s1349_ "c.or")) then - (match (string_drop _s1349_ (projT1 (string_length "c.or"))) with - | _s1350_ => - (spc_matches_prefix _s1350_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1746_ (_s1747_ : string) : M (option ((mword 3 * mword 3))) := + let _s1748_ := _s1747_ in + (if string_startswith _s1748_ "c.or" then + (match (string_drop _s1748_ (projT1 (string_length "c.or"))) with + | _s1749_ => + (spc_matches_prefix _s1749_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1351_ _)) => - (match (string_drop _s1350_ _s1351_) with - | _s1352_ => - (creg_name_matches_prefix _s1352_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1750_ _) => + (match (string_drop _s1749_ _s1750_) with + | _s1751_ => + (creg_name_matches_prefix _s1751_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1353_ _)) => - (match (string_drop _s1352_ _s1353_) with - | _s1354_ => - (sep_matches_prefix _s1354_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1752_ _) => + (match (string_drop _s1751_ _s1752_) with + | _s1753_ => + (sep_matches_prefix _s1753_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1355_ _)) => - (match (string_drop _s1354_ _s1355_) with - | _s1356_ => - (creg_name_matches_prefix _s1356_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1754_ _) => + (match (string_drop _s1753_ _s1754_) with + | _s1755_ => + (creg_name_matches_prefix _s1755_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1357_ _)) => - let p0_ := string_drop _s1356_ _s1357_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1756_ _) => + let p0_ := string_drop _s1755_ _s1756_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1335_ (_s1336_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1337_ := _s1336_ in - (if ((string_startswith _s1337_ "c.xor")) then - (match (string_drop _s1337_ (projT1 (string_length "c.xor"))) with - | _s1338_ => - (spc_matches_prefix _s1338_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1734_ (_s1735_ : string) : M (option ((mword 3 * mword 3))) := + let _s1736_ := _s1735_ in + (if string_startswith _s1736_ "c.xor" then + (match (string_drop _s1736_ (projT1 (string_length "c.xor"))) with + | _s1737_ => + (spc_matches_prefix _s1737_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1339_ _)) => - (match (string_drop _s1338_ _s1339_) with - | _s1340_ => - (creg_name_matches_prefix _s1340_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1738_ _) => + (match (string_drop _s1737_ _s1738_) with + | _s1739_ => + (creg_name_matches_prefix _s1739_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1341_ _)) => - (match (string_drop _s1340_ _s1341_) with - | _s1342_ => - (sep_matches_prefix _s1342_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1740_ _) => + (match (string_drop _s1739_ _s1740_) with + | _s1741_ => + (sep_matches_prefix _s1741_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1343_ _)) => - (match (string_drop _s1342_ _s1343_) with - | _s1344_ => - (creg_name_matches_prefix _s1344_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1742_ _) => + (match (string_drop _s1741_ _s1742_) with + | _s1743_ => + (creg_name_matches_prefix _s1743_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1345_ _)) => - let p0_ := string_drop _s1344_ _s1345_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1744_ _) => + let p0_ := string_drop _s1743_ _s1744_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1323_ (_s1324_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1325_ := _s1324_ in - (if ((string_startswith _s1325_ "c.sub")) then - (match (string_drop _s1325_ (projT1 (string_length "c.sub"))) with - | _s1326_ => - (spc_matches_prefix _s1326_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1722_ (_s1723_ : string) : M (option ((mword 3 * mword 3))) := + let _s1724_ := _s1723_ in + (if string_startswith _s1724_ "c.sub" then + (match (string_drop _s1724_ (projT1 (string_length "c.sub"))) with + | _s1725_ => + (spc_matches_prefix _s1725_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1327_ _)) => - (match (string_drop _s1326_ _s1327_) with - | _s1328_ => - (creg_name_matches_prefix _s1328_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1726_ _) => + (match (string_drop _s1725_ _s1726_) with + | _s1727_ => + (creg_name_matches_prefix _s1727_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1329_ _)) => - (match (string_drop _s1328_ _s1329_) with - | _s1330_ => - (sep_matches_prefix _s1330_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1728_ _) => + (match (string_drop _s1727_ _s1728_) with + | _s1729_ => + (sep_matches_prefix _s1729_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1331_ _)) => - (match (string_drop _s1330_ _s1331_) with - | _s1332_ => - (creg_name_matches_prefix _s1332_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1730_ _) => + (match (string_drop _s1729_ _s1730_) with + | _s1731_ => + (creg_name_matches_prefix _s1731_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1333_ _)) => - let p0_ := string_drop _s1332_ _s1333_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1732_ _) => + let p0_ := string_drop _s1731_ _s1732_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1311_ (_s1312_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1313_ := _s1312_ in - (if ((string_startswith _s1313_ "c.andi")) then - (match (string_drop _s1313_ (projT1 (string_length "c.andi"))) with - | _s1314_ => - (spc_matches_prefix _s1314_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1710_ (_s1711_ : string) : M (option ((mword 3 * mword 6))) := + let _s1712_ := _s1711_ in + (if string_startswith _s1712_ "c.andi" then + (match (string_drop _s1712_ (projT1 (string_length "c.andi"))) with + | _s1713_ => + (spc_matches_prefix _s1713_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1315_ _)) => - (match (string_drop _s1314_ _s1315_) with - | _s1316_ => - (creg_name_matches_prefix _s1316_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1714_ _) => + (match (string_drop _s1713_ _s1714_) with + | _s1715_ => + (creg_name_matches_prefix _s1715_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1317_ _)) => - (match (string_drop _s1316_ _s1317_) with - | _s1318_ => - (sep_matches_prefix _s1318_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1716_ _) => + (match (string_drop _s1715_ _s1716_) with + | _s1717_ => + (sep_matches_prefix _s1717_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1319_ _)) => - match (string_drop _s1318_ _s1319_) with - | _s1320_ => - match (hex_bits_6_matches_prefix _s1320_) with - | Some ((imm, existT _ _s1321_ _)) => - let p0_ := string_drop _s1320_ _s1321_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1718_ _) => + match (string_drop _s1717_ _s1718_) with + | _s1719_ => + match (hex_bits_6_matches_prefix _s1719_) with + | Some (imm, existT _ _s1720_ _) => + let p0_ := string_drop _s1719_ _s1720_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1299_ (_s1300_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1301_ := _s1300_ in - (if ((string_startswith _s1301_ "c.srai")) then - (match (string_drop _s1301_ (projT1 (string_length "c.srai"))) with - | _s1302_ => - (spc_matches_prefix _s1302_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1698_ (_s1699_ : string) : M (option ((mword 3 * mword 6))) := + let _s1700_ := _s1699_ in + (if string_startswith _s1700_ "c.srai" then + (match (string_drop _s1700_ (projT1 (string_length "c.srai"))) with + | _s1701_ => + (spc_matches_prefix _s1701_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1303_ _)) => - (match (string_drop _s1302_ _s1303_) with - | _s1304_ => - (creg_name_matches_prefix _s1304_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1702_ _) => + (match (string_drop _s1701_ _s1702_) with + | _s1703_ => + (creg_name_matches_prefix _s1703_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1305_ _)) => - (match (string_drop _s1304_ _s1305_) with - | _s1306_ => - (sep_matches_prefix _s1306_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1704_ _) => + (match (string_drop _s1703_ _s1704_) with + | _s1705_ => + (sep_matches_prefix _s1705_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1307_ _)) => - match (string_drop _s1306_ _s1307_) with - | _s1308_ => - match (hex_bits_6_matches_prefix _s1308_) with - | Some ((shamt, existT _ _s1309_ _)) => - let p0_ := string_drop _s1308_ _s1309_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1706_ _) => + match (string_drop _s1705_ _s1706_) with + | _s1707_ => + match (hex_bits_6_matches_prefix _s1707_) with + | Some (shamt, existT _ _s1708_ _) => + let p0_ := string_drop _s1707_ _s1708_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1287_ (_s1288_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1289_ := _s1288_ in - (if ((string_startswith _s1289_ "c.srli")) then - (match (string_drop _s1289_ (projT1 (string_length "c.srli"))) with - | _s1290_ => - (spc_matches_prefix _s1290_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1686_ (_s1687_ : string) : M (option ((mword 3 * mword 6))) := + let _s1688_ := _s1687_ in + (if string_startswith _s1688_ "c.srli" then + (match (string_drop _s1688_ (projT1 (string_length "c.srli"))) with + | _s1689_ => + (spc_matches_prefix _s1689_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1291_ _)) => - (match (string_drop _s1290_ _s1291_) with - | _s1292_ => - (creg_name_matches_prefix _s1292_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1690_ _) => + (match (string_drop _s1689_ _s1690_) with + | _s1691_ => + (creg_name_matches_prefix _s1691_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1293_ _)) => - (match (string_drop _s1292_ _s1293_) with - | _s1294_ => - (sep_matches_prefix _s1294_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1692_ _) => + (match (string_drop _s1691_ _s1692_) with + | _s1693_ => + (sep_matches_prefix _s1693_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1295_ _)) => - match (string_drop _s1294_ _s1295_) with - | _s1296_ => - match (hex_bits_6_matches_prefix _s1296_) with - | Some ((shamt, existT _ _s1297_ _)) => - let p0_ := string_drop _s1296_ _s1297_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1694_ _) => + match (string_drop _s1693_ _s1694_) with + | _s1695_ => + match (hex_bits_6_matches_prefix _s1695_) with + | Some (shamt, existT _ _s1696_ _) => + let p0_ := string_drop _s1695_ _s1696_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1275_ (_s1276_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1277_ := _s1276_ in - (if ((string_startswith _s1277_ "c.lui")) then - (match (string_drop _s1277_ (projT1 (string_length "c.lui"))) with - | _s1278_ => - (spc_matches_prefix _s1278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1674_ (_s1675_ : string) : M (option ((mword 5 * mword 6))) := + let _s1676_ := _s1675_ in + (if string_startswith _s1676_ "c.lui" then + (match (string_drop _s1676_ (projT1 (string_length "c.lui"))) with + | _s1677_ => + (spc_matches_prefix _s1677_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1279_ _)) => - (match (string_drop _s1278_ _s1279_) with - | _s1280_ => - (reg_name_matches_prefix _s1280_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1678_ _) => + (match (string_drop _s1677_ _s1678_) with + | _s1679_ => + (reg_name_matches_prefix _s1679_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1281_ _)) => - (match (string_drop _s1280_ _s1281_) with - | _s1282_ => - (sep_matches_prefix _s1282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1680_ _) => + (match (string_drop _s1679_ _s1680_) with + | _s1681_ => + (sep_matches_prefix _s1681_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1283_ _)) => - match (string_drop _s1282_ _s1283_) with - | _s1284_ => - match (hex_bits_6_matches_prefix _s1284_) with - | Some ((imm, existT _ _s1285_ _)) => - let p0_ := string_drop _s1284_ _s1285_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1682_ _) => + match (string_drop _s1681_ _s1682_) with + | _s1683_ => + match (hex_bits_6_matches_prefix _s1683_) with + | Some (imm, existT _ _s1684_ _) => + let p0_ := string_drop _s1683_ _s1684_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1267_ (_s1268_ : string) -: M (option (mword 6)) := - - let _s1269_ := _s1268_ in - (if ((string_startswith _s1269_ "c.addi16sp")) then - (match (string_drop _s1269_ (projT1 (string_length "c.addi16sp"))) with - | _s1270_ => - (spc_matches_prefix _s1270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1271_ _)) => - match (string_drop _s1270_ _s1271_) with - | _s1272_ => - match (hex_bits_6_matches_prefix _s1272_) with - | Some ((imm, existT _ _s1273_ _)) => - let p0_ := string_drop _s1272_ _s1273_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 6)) +Definition _s1666_ (_s1667_ : string) : M (option (mword 6)) := + let _s1668_ := _s1667_ in + (if string_startswith _s1668_ "c.addi16sp" then + (match (string_drop _s1668_ (projT1 (string_length "c.addi16sp"))) with + | _s1669_ => + (spc_matches_prefix _s1669_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1670_ _) => + match (string_drop _s1669_ _s1670_) with + | _s1671_ => + match (hex_bits_6_matches_prefix _s1671_) with + | Some (imm, existT _ _s1672_ _) => + let p0_ := string_drop _s1671_ _s1672_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 6)) - else returnm (None : option (mword 6))) + else returnm None) : M (option (mword 6)). -Definition _s1255_ (_s1256_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1257_ := _s1256_ in - (if ((string_startswith _s1257_ "c.li")) then - (match (string_drop _s1257_ (projT1 (string_length "c.li"))) with - | _s1258_ => - (spc_matches_prefix _s1258_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1654_ (_s1655_ : string) : M (option ((mword 5 * mword 6))) := + let _s1656_ := _s1655_ in + (if string_startswith _s1656_ "c.li" then + (match (string_drop _s1656_ (projT1 (string_length "c.li"))) with + | _s1657_ => + (spc_matches_prefix _s1657_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1259_ _)) => - (match (string_drop _s1258_ _s1259_) with - | _s1260_ => - (reg_name_matches_prefix _s1260_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1658_ _) => + (match (string_drop _s1657_ _s1658_) with + | _s1659_ => + (reg_name_matches_prefix _s1659_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1261_ _)) => - (match (string_drop _s1260_ _s1261_) with - | _s1262_ => - (sep_matches_prefix _s1262_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1660_ _) => + (match (string_drop _s1659_ _s1660_) with + | _s1661_ => + (sep_matches_prefix _s1661_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1263_ _)) => - match (string_drop _s1262_ _s1263_) with - | _s1264_ => - match (hex_bits_6_matches_prefix _s1264_) with - | Some ((imm, existT _ _s1265_ _)) => - let p0_ := string_drop _s1264_ _s1265_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1662_ _) => + match (string_drop _s1661_ _s1662_) with + | _s1663_ => + match (hex_bits_6_matches_prefix _s1663_) with + | Some (imm, existT _ _s1664_ _) => + let p0_ := string_drop _s1663_ _s1664_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1243_ (_s1244_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1245_ := _s1244_ in - (if ((string_startswith _s1245_ "c.addiw")) then - (match (string_drop _s1245_ (projT1 (string_length "c.addiw"))) with - | _s1246_ => - (spc_matches_prefix _s1246_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1642_ (_s1643_ : string) : M (option ((mword 5 * mword 6))) := + let _s1644_ := _s1643_ in + (if string_startswith _s1644_ "c.addiw" then + (match (string_drop _s1644_ (projT1 (string_length "c.addiw"))) with + | _s1645_ => + (spc_matches_prefix _s1645_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1247_ _)) => - (match (string_drop _s1246_ _s1247_) with - | _s1248_ => - (reg_name_matches_prefix _s1248_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1646_ _) => + (match (string_drop _s1645_ _s1646_) with + | _s1647_ => + (reg_name_matches_prefix _s1647_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1249_ _)) => - (match (string_drop _s1248_ _s1249_) with - | _s1250_ => - (sep_matches_prefix _s1250_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1648_ _) => + (match (string_drop _s1647_ _s1648_) with + | _s1649_ => + (sep_matches_prefix _s1649_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1251_ _)) => - match (string_drop _s1250_ _s1251_) with - | _s1252_ => - match (hex_bits_6_matches_prefix _s1252_) with - | Some ((imm, existT _ _s1253_ _)) => - let p0_ := string_drop _s1252_ _s1253_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1650_ _) => + match (string_drop _s1649_ _s1650_) with + | _s1651_ => + match (hex_bits_6_matches_prefix _s1651_) with + | Some (imm, existT _ _s1652_ _) => + let p0_ := string_drop _s1651_ _s1652_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1235_ (_s1236_ : string) -: M (option (mword 11)) := - - let _s1237_ := _s1236_ in - (if ((string_startswith _s1237_ "c.jal")) then - (match (string_drop _s1237_ (projT1 (string_length "c.jal"))) with - | _s1238_ => - (spc_matches_prefix _s1238_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1239_ _)) => - match (string_drop _s1238_ _s1239_) with - | _s1240_ => - match (hex_bits_12_matches_prefix _s1240_) with - | Some ((v__802, existT _ _s1241_ _)) => - if ((eq_vec (subrange_vec_dec v__802 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__802 11 1 in - let imm : mword 11 := subrange_vec_dec v__802 11 1 in - let p0_ := string_drop _s1240_ _s1241_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s1634_ (_s1635_ : string) : M (option (mword 11)) := + let _s1636_ := _s1635_ in + (if string_startswith _s1636_ "c.jal" then + (match (string_drop _s1636_ (projT1 (string_length "c.jal"))) with + | _s1637_ => + (spc_matches_prefix _s1637_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1638_ _) => + match (string_drop _s1637_ _s1638_) with + | _s1639_ => + match (hex_bits_12_matches_prefix _s1639_) with + | Some (v__1080, existT _ _s1640_ _) => + if eq_vec (subrange_vec_dec v__1080 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1080 11 1 in + let imm : mword 11 := subrange_vec_dec v__1080 11 1 in + let p0_ := string_drop _s1639_ _s1640_ in + if generic_eq p0_ "" then Some imm + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s1223_ (_s1224_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1225_ := _s1224_ in - (if ((string_startswith _s1225_ "c.addi")) then - (match (string_drop _s1225_ (projT1 (string_length "c.addi"))) with - | _s1226_ => - (spc_matches_prefix _s1226_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1622_ (_s1623_ : string) : M (option ((mword 5 * mword 6))) := + let _s1624_ := _s1623_ in + (if string_startswith _s1624_ "c.addi" then + (match (string_drop _s1624_ (projT1 (string_length "c.addi"))) with + | _s1625_ => + (spc_matches_prefix _s1625_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1227_ _)) => - (match (string_drop _s1226_ _s1227_) with - | _s1228_ => - (reg_name_matches_prefix _s1228_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1626_ _) => + (match (string_drop _s1625_ _s1626_) with + | _s1627_ => + (reg_name_matches_prefix _s1627_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1229_ _)) => - (match (string_drop _s1228_ _s1229_) with - | _s1230_ => - (sep_matches_prefix _s1230_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1628_ _) => + (match (string_drop _s1627_ _s1628_) with + | _s1629_ => + (sep_matches_prefix _s1629_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1231_ _)) => - match (string_drop _s1230_ _s1231_) with - | _s1232_ => - match (hex_bits_6_matches_prefix _s1232_) with - | Some ((nzi, existT _ _s1233_ _)) => - let p0_ := string_drop _s1232_ _s1233_ in - if ((generic_eq p0_ "")) then Some ((rsd, nzi)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1630_ _) => + match (string_drop _s1629_ _s1630_) with + | _s1631_ => + match (hex_bits_6_matches_prefix _s1631_) with + | Some (nzi, existT _ _s1632_ _) => + let p0_ := string_drop _s1631_ _s1632_ in + if generic_eq p0_ "" then Some (rsd, nzi) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1207_ (_s1208_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1209_ := _s1208_ in - (if ((string_startswith _s1209_ "c.sd")) then - (match (string_drop _s1209_ (projT1 (string_length "c.sd"))) with - | _s1210_ => - (spc_matches_prefix _s1210_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1606_ (_s1607_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1608_ := _s1607_ in + (if string_startswith _s1608_ "c.sd" then + (match (string_drop _s1608_ (projT1 (string_length "c.sd"))) with + | _s1609_ => + (spc_matches_prefix _s1609_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1211_ _)) => - (match (string_drop _s1210_ _s1211_) with - | _s1212_ => - (creg_name_matches_prefix _s1212_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1610_ _) => + (match (string_drop _s1609_ _s1610_) with + | _s1611_ => + (creg_name_matches_prefix _s1611_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s1213_ _)) => - (match (string_drop _s1212_ _s1213_) with - | _s1214_ => - (sep_matches_prefix _s1214_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s1612_ _) => + (match (string_drop _s1611_ _s1612_) with + | _s1613_ => + (sep_matches_prefix _s1613_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1215_ _)) => - (match (string_drop _s1214_ _s1215_) with - | _s1216_ => - (creg_name_matches_prefix _s1216_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1614_ _) => + (match (string_drop _s1613_ _s1614_) with + | _s1615_ => + (creg_name_matches_prefix _s1615_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s1217_ _)) => - (match (string_drop _s1216_ _s1217_) with - | _s1218_ => - (sep_matches_prefix _s1218_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s1616_ _) => + (match (string_drop _s1615_ _s1616_) with + | _s1617_ => + (sep_matches_prefix _s1617_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1219_ _)) => - match (string_drop _s1218_ _s1219_) with - | _s1220_ => - match (hex_bits_8_matches_prefix _s1220_) with - | Some ((v__804, existT _ _s1221_ _)) => - if ((eq_vec - (subrange_vec_dec v__804 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__804 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__804 7 3 in - let p0_ := - string_drop _s1220_ _s1221_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1618_ _) => + match (string_drop _s1617_ _s1618_) with + | _s1619_ => + match (hex_bits_8_matches_prefix _s1619_) with + | Some (v__1082, existT _ _s1620_ _) => + if eq_vec (subrange_vec_dec v__1082 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1082 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1082 7 3 in + let p0_ := string_drop _s1619_ _s1620_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1191_ (_s1192_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1193_ := _s1192_ in - (if ((string_startswith _s1193_ "c.sw")) then - (match (string_drop _s1193_ (projT1 (string_length "c.sw"))) with - | _s1194_ => - (spc_matches_prefix _s1194_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1590_ (_s1591_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1592_ := _s1591_ in + (if string_startswith _s1592_ "c.sw" then + (match (string_drop _s1592_ (projT1 (string_length "c.sw"))) with + | _s1593_ => + (spc_matches_prefix _s1593_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1195_ _)) => - (match (string_drop _s1194_ _s1195_) with - | _s1196_ => - (creg_name_matches_prefix _s1196_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1594_ _) => + (match (string_drop _s1593_ _s1594_) with + | _s1595_ => + (creg_name_matches_prefix _s1595_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s1197_ _)) => - (match (string_drop _s1196_ _s1197_) with - | _s1198_ => - (sep_matches_prefix _s1198_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s1596_ _) => + (match (string_drop _s1595_ _s1596_) with + | _s1597_ => + (sep_matches_prefix _s1597_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1199_ _)) => - (match (string_drop _s1198_ _s1199_) with - | _s1200_ => - (creg_name_matches_prefix _s1200_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1598_ _) => + (match (string_drop _s1597_ _s1598_) with + | _s1599_ => + (creg_name_matches_prefix _s1599_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s1201_ _)) => - (match (string_drop _s1200_ _s1201_) with - | _s1202_ => - (sep_matches_prefix _s1202_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s1600_ _) => + (match (string_drop _s1599_ _s1600_) with + | _s1601_ => + (sep_matches_prefix _s1601_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1203_ _)) => - match (string_drop _s1202_ _s1203_) with - | _s1204_ => - match (hex_bits_7_matches_prefix _s1204_) with - | Some ((v__806, existT _ _s1205_ _)) => - if ((eq_vec - (subrange_vec_dec v__806 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__806 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__806 6 2 in - let p0_ := - string_drop _s1204_ _s1205_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1602_ _) => + match (string_drop _s1601_ _s1602_) with + | _s1603_ => + match (hex_bits_7_matches_prefix _s1603_) with + | Some (v__1084, existT _ _s1604_ _) => + if eq_vec (subrange_vec_dec v__1084 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1084 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1084 6 2 in + let p0_ := string_drop _s1603_ _s1604_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1175_ (_s1176_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1177_ := _s1176_ in - (if ((string_startswith _s1177_ "c.ld")) then - (match (string_drop _s1177_ (projT1 (string_length "c.ld"))) with - | _s1178_ => - (spc_matches_prefix _s1178_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1574_ (_s1575_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1576_ := _s1575_ in + (if string_startswith _s1576_ "c.ld" then + (match (string_drop _s1576_ (projT1 (string_length "c.ld"))) with + | _s1577_ => + (spc_matches_prefix _s1577_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1179_ _)) => - (match (string_drop _s1178_ _s1179_) with - | _s1180_ => - (creg_name_matches_prefix _s1180_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1578_ _) => + (match (string_drop _s1577_ _s1578_) with + | _s1579_ => + (creg_name_matches_prefix _s1579_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1181_ _)) => - (match (string_drop _s1180_ _s1181_) with - | _s1182_ => - (sep_matches_prefix _s1182_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1580_ _) => + (match (string_drop _s1579_ _s1580_) with + | _s1581_ => + (sep_matches_prefix _s1581_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1183_ _)) => - (match (string_drop _s1182_ _s1183_) with - | _s1184_ => - (creg_name_matches_prefix _s1184_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1582_ _) => + (match (string_drop _s1581_ _s1582_) with + | _s1583_ => + (creg_name_matches_prefix _s1583_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s1185_ _)) => - (match (string_drop _s1184_ _s1185_) with - | _s1186_ => - (sep_matches_prefix _s1186_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s1584_ _) => + (match (string_drop _s1583_ _s1584_) with + | _s1585_ => + (sep_matches_prefix _s1585_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1187_ _)) => - match (string_drop _s1186_ _s1187_) with - | _s1188_ => - match (hex_bits_8_matches_prefix _s1188_) with - | Some ((v__808, existT _ _s1189_ _)) => - if ((eq_vec - (subrange_vec_dec v__808 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__808 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__808 7 3 in - let p0_ := - string_drop _s1188_ _s1189_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1586_ _) => + match (string_drop _s1585_ _s1586_) with + | _s1587_ => + match (hex_bits_8_matches_prefix _s1587_) with + | Some (v__1086, existT _ _s1588_ _) => + if eq_vec (subrange_vec_dec v__1086 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1086 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1086 7 3 in + let p0_ := string_drop _s1587_ _s1588_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1159_ (_s1160_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1161_ := _s1160_ in - (if ((string_startswith _s1161_ "c.lw")) then - (match (string_drop _s1161_ (projT1 (string_length "c.lw"))) with - | _s1162_ => - (spc_matches_prefix _s1162_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1558_ (_s1559_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1560_ := _s1559_ in + (if string_startswith _s1560_ "c.lw" then + (match (string_drop _s1560_ (projT1 (string_length "c.lw"))) with + | _s1561_ => + (spc_matches_prefix _s1561_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1163_ _)) => - (match (string_drop _s1162_ _s1163_) with - | _s1164_ => - (creg_name_matches_prefix _s1164_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1562_ _) => + (match (string_drop _s1561_ _s1562_) with + | _s1563_ => + (creg_name_matches_prefix _s1563_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1165_ _)) => - (match (string_drop _s1164_ _s1165_) with - | _s1166_ => - (sep_matches_prefix _s1166_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1564_ _) => + (match (string_drop _s1563_ _s1564_) with + | _s1565_ => + (sep_matches_prefix _s1565_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1167_ _)) => - (match (string_drop _s1166_ _s1167_) with - | _s1168_ => - (creg_name_matches_prefix _s1168_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1566_ _) => + (match (string_drop _s1565_ _s1566_) with + | _s1567_ => + (creg_name_matches_prefix _s1567_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s1169_ _)) => - (match (string_drop _s1168_ _s1169_) with - | _s1170_ => - (sep_matches_prefix _s1170_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s1568_ _) => + (match (string_drop _s1567_ _s1568_) with + | _s1569_ => + (sep_matches_prefix _s1569_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1171_ _)) => - match (string_drop _s1170_ _s1171_) with - | _s1172_ => - match (hex_bits_7_matches_prefix _s1172_) with - | Some ((v__810, existT _ _s1173_ _)) => - if ((eq_vec - (subrange_vec_dec v__810 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__810 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__810 6 2 in - let p0_ := - string_drop _s1172_ _s1173_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1570_ _) => + match (string_drop _s1569_ _s1570_) with + | _s1571_ => + match (hex_bits_7_matches_prefix _s1571_) with + | Some (v__1088, existT _ _s1572_ _) => + if eq_vec (subrange_vec_dec v__1088 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1088 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1088 6 2 in + let p0_ := string_drop _s1571_ _s1572_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1147_ (_s1148_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1149_ := _s1148_ in - (if ((string_startswith _s1149_ "c.addi4spn")) then - (match (string_drop _s1149_ (projT1 (string_length "c.addi4spn"))) with - | _s1150_ => - (spc_matches_prefix _s1150_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1546_ (_s1547_ : string) : M (option ((mword 3 * mword 8))) := + let _s1548_ := _s1547_ in + (if string_startswith _s1548_ "c.addi4spn" then + (match (string_drop _s1548_ (projT1 (string_length "c.addi4spn"))) with + | _s1549_ => + (spc_matches_prefix _s1549_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1151_ _)) => - (match (string_drop _s1150_ _s1151_) with - | _s1152_ => - (creg_name_matches_prefix _s1152_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1550_ _) => + (match (string_drop _s1549_ _s1550_) with + | _s1551_ => + (creg_name_matches_prefix _s1551_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1153_ _)) => - (match (string_drop _s1152_ _s1153_) with - | _s1154_ => - (sep_matches_prefix _s1154_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1552_ _) => + (match (string_drop _s1551_ _s1552_) with + | _s1553_ => + (sep_matches_prefix _s1553_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1155_ _)) => - match (string_drop _s1154_ _s1155_) with - | _s1156_ => - match (hex_bits_10_matches_prefix _s1156_) with - | Some ((v__812, existT _ _s1157_ _)) => - if ((eq_vec (subrange_vec_dec v__812 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__812 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__812 9 2 in - let p0_ := string_drop _s1156_ _s1157_ in - if ((generic_eq p0_ "")) then Some ((rdc, nzimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1554_ _) => + match (string_drop _s1553_ _s1554_) with + | _s1555_ => + match (hex_bits_10_matches_prefix _s1555_) with + | Some (v__1090, existT _ _s1556_ _) => + if eq_vec (subrange_vec_dec v__1090 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1090 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1090 9 2 in + let p0_ := string_drop _s1555_ _s1556_ in + if generic_eq p0_ "" then Some (rdc, nzimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1123_ (_s1124_ : string) +Definition _s1520_ (_s1521_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1124_ with - | _s1125_ => - (amo_mnemonic_matches_prefix _s1125_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s1521_ with + | _s1522_ => + (amo_mnemonic_matches_prefix _s1522_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1126_ _)) => - let _s1127_ := string_drop _s1125_ _s1126_ in - (if ((string_startswith _s1127_ ".")) then - (match (string_drop _s1127_ (projT1 (string_length "."))) with - | _s1128_ => - (size_mnemonic_matches_prefix _s1128_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1523_ _) => + let _s1524_ := string_drop _s1522_ _s1523_ in + (if string_startswith _s1524_ "." then + (match (string_drop _s1524_ (projT1 (string_length "."))) with + | _s1525_ => + (size_mnemonic_matches_prefix _s1525_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s1129_ _)) => - (match (string_drop _s1128_ _s1129_) with - | _s1130_ => - (maybe_aq_matches_prefix _s1130_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s1526_ _) => + (match (string_drop _s1525_ _s1526_) with + | _s1527_ => + (maybe_aq_matches_prefix _s1527_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s1131_ _)) => - (match (string_drop _s1130_ _s1131_) with - | _s1132_ => - (maybe_rl_matches_prefix _s1132_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1528_ _) => + (match (string_drop _s1527_ _s1528_) with + | _s1529_ => + (maybe_rl_matches_prefix _s1529_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s1133_ _)) => - (match (string_drop _s1132_ _s1133_) with - | _s1134_ => - (spc_matches_prefix _s1134_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1530_ _) => + (match (string_drop _s1529_ _s1530_) with + | _s1531_ => + (spc_matches_prefix _s1531_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1135_ _)) => - (match (string_drop _s1134_ _s1135_) with - | _s1136_ => - (reg_name_matches_prefix _s1136_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1532_ _) => + (match (string_drop _s1531_ _s1532_) with + | _s1533_ => + (reg_name_matches_prefix _s1533_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s1137_ _)) => - (match (string_drop _s1136_ _s1137_) with - | _s1138_ => - (sep_matches_prefix _s1138_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1534_ _) => + (match (string_drop _s1533_ _s1534_) with + | _s1535_ => + (sep_matches_prefix _s1535_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1139_ _)) => - (match (string_drop _s1138_ _s1139_) with - | _s1140_ => - (reg_name_matches_prefix _s1140_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1536_ _) => + (match (string_drop _s1535_ _s1536_) with + | _s1537_ => + (reg_name_matches_prefix _s1537_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s1141_ _)) => - (match (string_drop _s1140_ - _s1141_) with - | _s1142_ => + | Some (rs2, existT _ _s1538_ _) => + (match (string_drop _s1537_ + _s1538_) with + | _s1539_ => (sep_matches_prefix - _s1142_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s1539_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s1143_ _)) => - (match (string_drop - _s1142_ - _s1143_) with - | _s1144_ => - (reg_name_matches_prefix - _s1144_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s1145_ _)) => - let p0_ := - string_drop - _s1144_ - _s1145_ in - if ((generic_eq - p0_ - "")) - then - Some - ((op, width, aq, rl, rd, rs1, rs2)) - else + (tt, existT _ _s1540_ _) => + let _s1541_ := + string_drop _s1539_ + _s1540_ in + (if string_startswith + _s1541_ "(" then + (match (string_drop + _s1541_ + (projT1 + (string_length + "("))) with + | _s1542_ => + (reg_name_matches_prefix + _s1542_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s1543_ _) => + let _s1544_ := + string_drop + _s1542_ + _s1543_ in + if string_startswith + _s1544_ + ")" + then + let p0_ := + string_drop + _s1544_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (op, width, aq, rl, rd, rs2, rs1) + else + None + else + None + | _ => None - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - end) + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1101_ (_s1102_ : string) +Definition _s1498_ (_s1499_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - let _s1103_ := _s1102_ in - (if ((string_startswith _s1103_ "sc.")) then - (match (string_drop _s1103_ (projT1 (string_length "sc."))) with - | _s1104_ => - (size_mnemonic_matches_prefix _s1104_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1500_ := _s1499_ in + (if string_startswith _s1500_ "sc." then + (match (string_drop _s1500_ (projT1 (string_length "sc."))) with + | _s1501_ => + (size_mnemonic_matches_prefix _s1501_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1105_ _)) => - (match (string_drop _s1104_ _s1105_) with - | _s1106_ => - (maybe_aq_matches_prefix _s1106_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1502_ _) => + (match (string_drop _s1501_ _s1502_) with + | _s1503_ => + (maybe_aq_matches_prefix _s1503_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1107_ _)) => - (match (string_drop _s1106_ _s1107_) with - | _s1108_ => - (maybe_rl_matches_prefix _s1108_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1504_ _) => + (match (string_drop _s1503_ _s1504_) with + | _s1505_ => + (maybe_rl_matches_prefix _s1505_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1109_ _)) => - (match (string_drop _s1108_ _s1109_) with - | _s1110_ => - (spc_matches_prefix _s1110_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1506_ _) => + (match (string_drop _s1505_ _s1506_) with + | _s1507_ => + (spc_matches_prefix _s1507_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1111_ _)) => - (match (string_drop _s1110_ _s1111_) with - | _s1112_ => - (reg_name_matches_prefix _s1112_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1508_ _) => + (match (string_drop _s1507_ _s1508_) with + | _s1509_ => + (reg_name_matches_prefix _s1509_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1113_ _)) => - (match (string_drop _s1112_ _s1113_) with - | _s1114_ => - (sep_matches_prefix _s1114_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1510_ _) => + (match (string_drop _s1509_ _s1510_) with + | _s1511_ => + (sep_matches_prefix _s1511_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1115_ _)) => - (match (string_drop _s1114_ _s1115_) with - | _s1116_ => - (reg_name_matches_prefix _s1116_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1512_ _) => + (match (string_drop _s1511_ _s1512_) with + | _s1513_ => + (reg_name_matches_prefix _s1513_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s1117_ _)) => - (match (string_drop _s1116_ _s1117_) with - | _s1118_ => - (sep_matches_prefix _s1118_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1514_ _) => + (match (string_drop _s1513_ _s1514_) with + | _s1515_ => + (sep_matches_prefix _s1515_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s1119_ _)) => - (match (string_drop _s1118_ - _s1119_) with - | _s1120_ => + | Some (tt, existT _ _s1516_ _) => + (match (string_drop _s1515_ + _s1516_) with + | _s1517_ => (reg_name_matches_prefix - _s1120_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1517_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s1121_ _)) => - let p0_ := - string_drop - _s1120_ - _s1121_ in - if ((generic_eq - p0_ "")) - then - Some - ((size, aq, rl, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__8 with + | Some + (rs2, existT _ _s1518_ _) => + let p0_ := + string_drop + _s1517_ + _s1518_ in + if generic_eq + p0_ "" + then + Some + (size, aq, rl, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1083_ (_s1084_ : string) -: M (option ((word_width * bool * bool * mword 5 * mword 5))) := - - let _s1085_ := _s1084_ in - (if ((string_startswith _s1085_ "lr.")) then - (match (string_drop _s1085_ (projT1 (string_length "lr."))) with - | _s1086_ => - (size_mnemonic_matches_prefix _s1086_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= +Definition _s1480_ (_s1481_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5))) := + let _s1482_ := _s1481_ in + (if string_startswith _s1482_ "lr." then + (match (string_drop _s1482_ (projT1 (string_length "lr."))) with + | _s1483_ => + (size_mnemonic_matches_prefix _s1483_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1087_ _)) => - (match (string_drop _s1086_ _s1087_) with - | _s1088_ => - (maybe_aq_matches_prefix _s1088_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1484_ _) => + (match (string_drop _s1483_ _s1484_) with + | _s1485_ => + (maybe_aq_matches_prefix _s1485_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1089_ _)) => - (match (string_drop _s1088_ _s1089_) with - | _s1090_ => - (maybe_rl_matches_prefix _s1090_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1486_ _) => + (match (string_drop _s1485_ _s1486_) with + | _s1487_ => + (maybe_rl_matches_prefix _s1487_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1091_ _)) => - (match (string_drop _s1090_ _s1091_) with - | _s1092_ => - (spc_matches_prefix _s1092_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1488_ _) => + (match (string_drop _s1487_ _s1488_) with + | _s1489_ => + (spc_matches_prefix _s1489_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1093_ _)) => - (match (string_drop _s1092_ _s1093_) with - | _s1094_ => - (reg_name_matches_prefix _s1094_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1490_ _) => + (match (string_drop _s1489_ _s1490_) with + | _s1491_ => + (reg_name_matches_prefix _s1491_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1095_ _)) => - (match (string_drop _s1094_ _s1095_) with - | _s1096_ => - (sep_matches_prefix _s1096_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1492_ _) => + (match (string_drop _s1491_ _s1492_) with + | _s1493_ => + (sep_matches_prefix _s1493_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1097_ _)) => - (match (string_drop _s1096_ _s1097_) with - | _s1098_ => - (reg_name_matches_prefix _s1098_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1494_ _) => + (match (string_drop _s1493_ _s1494_) with + | _s1495_ => + (reg_name_matches_prefix _s1495_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s1099_ _)) => - let p0_ := - string_drop _s1098_ _s1099_ in - if ((generic_eq p0_ "")) then - Some - ((size, aq, rl, rd, rs1)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs1, existT _ _s1496_ _) => + let p0_ := + string_drop _s1495_ _s1496_ in + if generic_eq p0_ "" then + Some (size, aq, rl, rd, rs1) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5))). -Definition _s1071_ (_s1072_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1073_ := _s1072_ in - (if ((string_startswith _s1073_ "sfence.vma")) then - (match (string_drop _s1073_ (projT1 (string_length "sfence.vma"))) with - | _s1074_ => - (spc_matches_prefix _s1074_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1468_ (_s1469_ : string) : M (option ((mword 5 * mword 5))) := + let _s1470_ := _s1469_ in + (if string_startswith _s1470_ "sfence.vma" then + (match (string_drop _s1470_ (projT1 (string_length "sfence.vma"))) with + | _s1471_ => + (spc_matches_prefix _s1471_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1075_ _)) => - (match (string_drop _s1074_ _s1075_) with - | _s1076_ => - (reg_name_matches_prefix _s1076_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1472_ _) => + (match (string_drop _s1471_ _s1472_) with + | _s1473_ => + (reg_name_matches_prefix _s1473_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s1077_ _)) => - (match (string_drop _s1076_ _s1077_) with - | _s1078_ => - (sep_matches_prefix _s1078_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1474_ _) => + (match (string_drop _s1473_ _s1474_) with + | _s1475_ => + (sep_matches_prefix _s1475_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1079_ _)) => - (match (string_drop _s1078_ _s1079_) with - | _s1080_ => - (reg_name_matches_prefix _s1080_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1476_ _) => + (match (string_drop _s1475_ _s1476_) with + | _s1477_ => + (reg_name_matches_prefix _s1477_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1081_ _)) => - let p0_ := string_drop _s1080_ _s1081_ in - if ((generic_eq p0_ "")) then Some ((rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s1478_ _) => + let p0_ := string_drop _s1477_ _s1478_ in + if generic_eq p0_ "" then Some (rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1059_ (_s1060_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1061_ := _s1060_ in - (if ((string_startswith _s1061_ "fence.tso")) then - (match (string_drop _s1061_ (projT1 (string_length "fence.tso"))) with - | _s1062_ => - (spc_matches_prefix _s1062_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1456_ (_s1457_ : string) : M (option ((mword 4 * mword 4))) := + let _s1458_ := _s1457_ in + (if string_startswith _s1458_ "fence.tso" then + (match (string_drop _s1458_ (projT1 (string_length "fence.tso"))) with + | _s1459_ => + (spc_matches_prefix _s1459_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1063_ _)) => - (match (string_drop _s1062_ _s1063_) with - | _s1064_ => - (fence_bits_matches_prefix _s1064_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1460_ _) => + (match (string_drop _s1459_ _s1460_) with + | _s1461_ => + (fence_bits_matches_prefix _s1461_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1065_ _)) => - (match (string_drop _s1064_ _s1065_) with - | _s1066_ => - (sep_matches_prefix _s1066_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s1462_ _) => + (match (string_drop _s1461_ _s1462_) with + | _s1463_ => + (sep_matches_prefix _s1463_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1067_ _)) => - (match (string_drop _s1066_ _s1067_) with - | _s1068_ => - (fence_bits_matches_prefix _s1068_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1464_ _) => + (match (string_drop _s1463_ _s1464_) with + | _s1465_ => + (fence_bits_matches_prefix _s1465_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1069_ _)) => - let p0_ := string_drop _s1068_ _s1069_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s1466_ _) => + let p0_ := string_drop _s1465_ _s1466_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1047_ (_s1048_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1049_ := _s1048_ in - (if ((string_startswith _s1049_ "fence")) then - (match (string_drop _s1049_ (projT1 (string_length "fence"))) with - | _s1050_ => - (spc_matches_prefix _s1050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1444_ (_s1445_ : string) : M (option ((mword 4 * mword 4))) := + let _s1446_ := _s1445_ in + (if string_startswith _s1446_ "fence" then + (match (string_drop _s1446_ (projT1 (string_length "fence"))) with + | _s1447_ => + (spc_matches_prefix _s1447_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1051_ _)) => - (match (string_drop _s1050_ _s1051_) with - | _s1052_ => - (fence_bits_matches_prefix _s1052_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1448_ _) => + (match (string_drop _s1447_ _s1448_) with + | _s1449_ => + (fence_bits_matches_prefix _s1449_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1053_ _)) => - (match (string_drop _s1052_ _s1053_) with - | _s1054_ => - (sep_matches_prefix _s1054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s1450_ _) => + (match (string_drop _s1449_ _s1450_) with + | _s1451_ => + (sep_matches_prefix _s1451_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1055_ _)) => - (match (string_drop _s1054_ _s1055_) with - | _s1056_ => - (fence_bits_matches_prefix _s1056_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1452_ _) => + (match (string_drop _s1451_ _s1452_) with + | _s1453_ => + (fence_bits_matches_prefix _s1453_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1057_ _)) => - let p0_ := string_drop _s1056_ _s1057_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s1454_ _) => + let p0_ := string_drop _s1453_ _s1454_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1030_ (_s1031_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5))) := - - (match _s1031_ with - | _s1032_ => - (shiftiwop_mnemonic_matches_prefix _s1032_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s1427_ (_s1428_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5))) := + (match _s1428_ with + | _s1429_ => + (shiftiwop_mnemonic_matches_prefix _s1429_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1033_ _)) => - (match (string_drop _s1032_ _s1033_) with - | _s1034_ => - (spc_matches_prefix _s1034_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1430_ _) => + (match (string_drop _s1429_ _s1430_) with + | _s1431_ => + (spc_matches_prefix _s1431_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1035_ _)) => - (match (string_drop _s1034_ _s1035_) with - | _s1036_ => - (reg_name_matches_prefix _s1036_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1432_ _) => + (match (string_drop _s1431_ _s1432_) with + | _s1433_ => + (reg_name_matches_prefix _s1433_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1037_ _)) => - (match (string_drop _s1036_ _s1037_) with - | _s1038_ => - (sep_matches_prefix _s1038_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1434_ _) => + (match (string_drop _s1433_ _s1434_) with + | _s1435_ => + (sep_matches_prefix _s1435_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1039_ _)) => - (match (string_drop _s1038_ _s1039_) with - | _s1040_ => - (reg_name_matches_prefix _s1040_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1436_ _) => + (match (string_drop _s1435_ _s1436_) with + | _s1437_ => + (reg_name_matches_prefix _s1437_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1041_ _)) => - (match (string_drop _s1040_ _s1041_) with - | _s1042_ => - (sep_matches_prefix _s1042_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1438_ _) => + (match (string_drop _s1437_ _s1438_) with + | _s1439_ => + (sep_matches_prefix _s1439_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1043_ _)) => - match (string_drop _s1042_ _s1043_) with - | _s1044_ => - match (hex_bits_5_matches_prefix - _s1044_) with - | Some ((shamt, existT _ _s1045_ _)) => - let p0_ := - string_drop _s1044_ _s1045_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s1440_ _) => + match (string_drop _s1439_ _s1440_) with + | _s1441_ => + match (hex_bits_5_matches_prefix + _s1441_) with + | Some (shamt, existT _ _s1442_ _) => + let p0_ := + string_drop _s1441_ _s1442_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))). -Definition _s1013_ (_s1014_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5))) := - - (match _s1014_ with - | _s1015_ => - (rtypew_mnemonic_matches_prefix _s1015_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s1410_ (_s1411_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5))) := + (match _s1411_ with + | _s1412_ => + (rtypew_mnemonic_matches_prefix _s1412_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1016_ _)) => - (match (string_drop _s1015_ _s1016_) with - | _s1017_ => - (spc_matches_prefix _s1017_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1413_ _) => + (match (string_drop _s1412_ _s1413_) with + | _s1414_ => + (spc_matches_prefix _s1414_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1018_ _)) => - (match (string_drop _s1017_ _s1018_) with - | _s1019_ => - (reg_name_matches_prefix _s1019_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1415_ _) => + (match (string_drop _s1414_ _s1415_) with + | _s1416_ => + (reg_name_matches_prefix _s1416_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1020_ _)) => - (match (string_drop _s1019_ _s1020_) with - | _s1021_ => - (sep_matches_prefix _s1021_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1417_ _) => + (match (string_drop _s1416_ _s1417_) with + | _s1418_ => + (sep_matches_prefix _s1418_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1022_ _)) => - (match (string_drop _s1021_ _s1022_) with - | _s1023_ => - (reg_name_matches_prefix _s1023_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1419_ _) => + (match (string_drop _s1418_ _s1419_) with + | _s1420_ => + (reg_name_matches_prefix _s1420_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1024_ _)) => - (match (string_drop _s1023_ _s1024_) with - | _s1025_ => - (sep_matches_prefix _s1025_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1421_ _) => + (match (string_drop _s1420_ _s1421_) with + | _s1422_ => + (sep_matches_prefix _s1422_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1026_ _)) => - (match (string_drop _s1025_ _s1026_) with - | _s1027_ => - (reg_name_matches_prefix _s1027_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1423_ _) => + (match (string_drop _s1422_ _s1423_) with + | _s1424_ => + (reg_name_matches_prefix _s1424_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1028_ _)) => - let p0_ := - string_drop _s1027_ _s1028_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1425_ _) => + let p0_ := + string_drop _s1424_ _s1425_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))). -Definition _s996_ (_s997_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5))) := - - (match _s997_ with - | _s998_ => - (shiftw_mnemonic_matches_prefix _s998_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s1393_ (_s1394_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5))) := + (match _s1394_ with + | _s1395_ => + (shiftw_mnemonic_matches_prefix _s1395_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s999_ _)) => - (match (string_drop _s998_ _s999_) with - | _s1000_ => - (spc_matches_prefix _s1000_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1396_ _) => + (match (string_drop _s1395_ _s1396_) with + | _s1397_ => + (spc_matches_prefix _s1397_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1001_ _)) => - (match (string_drop _s1000_ _s1001_) with - | _s1002_ => - (reg_name_matches_prefix _s1002_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1398_ _) => + (match (string_drop _s1397_ _s1398_) with + | _s1399_ => + (reg_name_matches_prefix _s1399_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1003_ _)) => - (match (string_drop _s1002_ _s1003_) with - | _s1004_ => - (sep_matches_prefix _s1004_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1400_ _) => + (match (string_drop _s1399_ _s1400_) with + | _s1401_ => + (sep_matches_prefix _s1401_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1005_ _)) => - (match (string_drop _s1004_ _s1005_) with - | _s1006_ => - (reg_name_matches_prefix _s1006_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1402_ _) => + (match (string_drop _s1401_ _s1402_) with + | _s1403_ => + (reg_name_matches_prefix _s1403_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1007_ _)) => - (match (string_drop _s1006_ _s1007_) with - | _s1008_ => - (sep_matches_prefix _s1008_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1404_ _) => + (match (string_drop _s1403_ _s1404_) with + | _s1405_ => + (sep_matches_prefix _s1405_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1009_ _)) => - match (string_drop _s1008_ _s1009_) with - | _s1010_ => - match (hex_bits_5_matches_prefix - _s1010_) with - | Some ((shamt, existT _ _s1011_ _)) => - let p0_ := - string_drop _s1010_ _s1011_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s1406_ _) => + match (string_drop _s1405_ _s1406_) with + | _s1407_ => + match (hex_bits_5_matches_prefix + _s1407_) with + | Some (shamt, existT _ _s1408_ _) => + let p0_ := + string_drop _s1407_ _s1408_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))). -Definition _s980_ (_s981_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s982_ := _s981_ in - (if ((string_startswith _s982_ "addiw")) then - (match (string_drop _s982_ (projT1 (string_length "addiw"))) with - | _s983_ => - (spc_matches_prefix _s983_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1377_ (_s1378_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s1379_ := _s1378_ in + (if string_startswith _s1379_ "addiw" then + (match (string_drop _s1379_ (projT1 (string_length "addiw"))) with + | _s1380_ => + (spc_matches_prefix _s1380_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s984_ _)) => - (match (string_drop _s983_ _s984_) with - | _s985_ => - (reg_name_matches_prefix _s985_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1381_ _) => + (match (string_drop _s1380_ _s1381_) with + | _s1382_ => + (reg_name_matches_prefix _s1382_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s986_ _)) => - (match (string_drop _s985_ _s986_) with - | _s987_ => - (sep_matches_prefix _s987_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1383_ _) => + (match (string_drop _s1382_ _s1383_) with + | _s1384_ => + (sep_matches_prefix _s1384_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s988_ _)) => - (match (string_drop _s987_ _s988_) with - | _s989_ => - (reg_name_matches_prefix _s989_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1385_ _) => + (match (string_drop _s1384_ _s1385_) with + | _s1386_ => + (reg_name_matches_prefix _s1386_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s990_ _)) => - (match (string_drop _s989_ _s990_) with - | _s991_ => - (sep_matches_prefix _s991_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1387_ _) => + (match (string_drop _s1386_ _s1387_) with + | _s1388_ => + (sep_matches_prefix _s1388_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s992_ _)) => - match (string_drop _s991_ _s992_) with - | _s993_ => - match (hex_bits_12_matches_prefix _s993_) with - | Some ((imm, existT _ _s994_ _)) => - let p0_ := string_drop _s993_ _s994_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s1389_ _) => + match (string_drop _s1388_ _s1389_) with + | _s1390_ => + match (hex_bits_12_matches_prefix _s1390_) with + | Some (imm, existT _ _s1391_ _) => + let p0_ := string_drop _s1390_ _s1391_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s952_ (_s953_ : string) +Definition _s1349_ (_s1350_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s954_ := _s953_ in - (if ((string_startswith _s954_ "s")) then - (match (string_drop _s954_ (projT1 (string_length "s"))) with - | _s955_ => - (size_mnemonic_matches_prefix _s955_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1351_ := _s1350_ in + (if string_startswith _s1351_ "s" then + (match (string_drop _s1351_ (projT1 (string_length "s"))) with + | _s1352_ => + (size_mnemonic_matches_prefix _s1352_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s956_ _)) => - (match (string_drop _s955_ _s956_) with - | _s957_ => - (maybe_aq_matches_prefix _s957_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1353_ _) => + (match (string_drop _s1352_ _s1353_) with + | _s1354_ => + (maybe_aq_matches_prefix _s1354_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s958_ _)) => - (match (string_drop _s957_ _s958_) with - | _s959_ => - (maybe_rl_matches_prefix _s959_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1355_ _) => + (match (string_drop _s1354_ _s1355_) with + | _s1356_ => + (maybe_rl_matches_prefix _s1356_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s960_ _)) => - (match (string_drop _s959_ _s960_) with - | _s961_ => - (spc_matches_prefix _s961_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1357_ _) => + (match (string_drop _s1356_ _s1357_) with + | _s1358_ => + (spc_matches_prefix _s1358_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s962_ _)) => - (match (string_drop _s961_ _s962_) with - | _s963_ => - (reg_name_matches_prefix _s963_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1359_ _) => + (match (string_drop _s1358_ _s1359_) with + | _s1360_ => + (reg_name_matches_prefix _s1360_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s964_ _)) => - (match (string_drop _s963_ _s964_) with - | _s965_ => - (sep_matches_prefix _s965_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s1361_ _) => + (match (string_drop _s1360_ _s1361_) with + | _s1362_ => + (sep_matches_prefix _s1362_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s966_ _)) => - (match (string_drop _s965_ _s966_) with - | _s967_ => - (match (hex_bits_12_matches_prefix _s967_) with - | Some ((imm, existT _ _s968_ _)) => - (match (string_drop _s967_ _s968_) with - | _s969_ => - (opt_spc_matches_prefix _s969_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1363_ _) => + (match (string_drop _s1362_ _s1363_) with + | _s1364_ => + (match (hex_bits_12_matches_prefix _s1364_) with + | Some (imm, existT _ _s1365_ _) => + (match (string_drop _s1364_ _s1365_) with + | _s1366_ => + (opt_spc_matches_prefix _s1366_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s970_ _)) => - let _s971_ := - string_drop _s969_ _s970_ in - (if ((string_startswith _s971_ - "(")) then - (match (string_drop _s971_ + | Some (tt, existT _ _s1367_ _) => + let _s1368_ := + string_drop _s1366_ _s1367_ in + (if string_startswith _s1368_ + "(" then + (match (string_drop _s1368_ (projT1 (string_length "("))) with - | _s972_ => + | _s1369_ => (opt_spc_matches_prefix - _s972_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s1369_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s973_ _)) => + (tt, existT _ _s1370_ _) => (match (string_drop - _s972_ - _s973_) with - | _s974_ => + _s1369_ + _s1370_) with + | _s1371_ => (reg_name_matches_prefix - _s974_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1371_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s975_ _)) => + (rs1, existT _ _s1372_ _) => (match (string_drop - _s974_ - _s975_) with - | _s976_ => + _s1371_ + _s1372_) with + | _s1373_ => (opt_spc_matches_prefix - _s976_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s1373_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s977_ _)) => - let _s978_ := - string_drop - _s976_ - _s977_ in - if - ((string_startswith - _s978_ - ")")) - then - let p0_ := - string_drop - _s978_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, aq, rl, rs2, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__9 with + | Some + (tt, existT _ _s1374_ _) => + let _s1375_ := + string_drop + _s1373_ + _s1374_ in + if + string_startswith + _s1375_ + ")" + then + let p0_ := + string_drop + _s1375_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, aq, rl, rs2, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s922_ (_s923_ : string) +Definition _s1319_ (_s1320_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s924_ := _s923_ in - (if ((string_startswith _s924_ "l")) then - (match (string_drop _s924_ (projT1 (string_length "l"))) with - | _s925_ => - (size_mnemonic_matches_prefix _s925_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1321_ := _s1320_ in + (if string_startswith _s1321_ "l" then + (match (string_drop _s1321_ (projT1 (string_length "l"))) with + | _s1322_ => + (size_mnemonic_matches_prefix _s1322_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s926_ _)) => - (match (string_drop _s925_ _s926_) with - | _s927_ => - (maybe_u_matches_prefix _s927_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1323_ _) => + (match (string_drop _s1322_ _s1323_) with + | _s1324_ => + (maybe_u_matches_prefix _s1324_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s928_ _)) => - (match (string_drop _s927_ _s928_) with - | _s929_ => - (maybe_aq_matches_prefix _s929_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s1325_ _) => + (match (string_drop _s1324_ _s1325_) with + | _s1326_ => + (maybe_aq_matches_prefix _s1326_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s930_ _)) => - (match (string_drop _s929_ _s930_) with - | _s931_ => - (maybe_rl_matches_prefix _s931_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1327_ _) => + (match (string_drop _s1326_ _s1327_) with + | _s1328_ => + (maybe_rl_matches_prefix _s1328_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s932_ _)) => - (match (string_drop _s931_ _s932_) with - | _s933_ => - (spc_matches_prefix _s933_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1329_ _) => + (match (string_drop _s1328_ _s1329_) with + | _s1330_ => + (spc_matches_prefix _s1330_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s934_ _)) => - (match (string_drop _s933_ _s934_) with - | _s935_ => - (reg_name_matches_prefix _s935_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1331_ _) => + (match (string_drop _s1330_ _s1331_) with + | _s1332_ => + (reg_name_matches_prefix _s1332_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s936_ _)) => - (match (string_drop _s935_ _s936_) with - | _s937_ => - (sep_matches_prefix _s937_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1333_ _) => + (match (string_drop _s1332_ _s1333_) with + | _s1334_ => + (sep_matches_prefix _s1334_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s938_ _)) => - (match (string_drop _s937_ _s938_) with - | _s939_ => + | Some (tt, existT _ _s1335_ _) => + (match (string_drop _s1334_ _s1335_) with + | _s1336_ => (match (hex_bits_12_matches_prefix - _s939_) with - | Some ((imm, existT _ _s940_ _)) => - (match (string_drop _s939_ - _s940_) with - | _s941_ => + _s1336_) with + | Some (imm, existT _ _s1337_ _) => + (match (string_drop _s1336_ + _s1337_) with + | _s1338_ => (opt_spc_matches_prefix - _s941_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s1338_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s942_ _)) => - let _s943_ := - string_drop _s941_ - _s942_ in - (if ((string_startswith - _s943_ "(")) - then + (tt, existT _ _s1339_ _) => + let _s1340_ := + string_drop _s1338_ + _s1339_ in + (if string_startswith + _s1340_ "(" then (match (string_drop - _s943_ + _s1340_ (projT1 (string_length "("))) with - | _s944_ => + | _s1341_ => (opt_spc_matches_prefix - _s944_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s1341_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s945_ _)) => + (tt, existT _ _s1342_ _) => (match (string_drop - _s944_ - _s945_) with - | _s946_ => + _s1341_ + _s1342_) with + | _s1343_ => (reg_name_matches_prefix - _s946_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1343_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s947_ _)) => + (rs1, existT _ _s1344_ _) => (match (string_drop - _s946_ - _s947_) with - | _s948_ => + _s1343_ + _s1344_) with + | _s1345_ => (opt_spc_matches_prefix - _s948_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s1345_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s949_ _)) => - let _s950_ := - string_drop - _s948_ - _s949_ in - if - ((string_startswith - _s950_ - ")")) - then - let p0_ := - string_drop - _s950_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__10 with + | Some + (tt, existT _ _s1346_ _) => + let _s1347_ := + string_drop + _s1345_ + _s1346_ in + if + string_startswith + _s1347_ + ")" + then + let p0_ := + string_drop + _s1347_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, is_unsigned, aq, rl, rd, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s905_ (_s906_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5))) := - - (match _s906_ with - | _s907_ => - (rtype_mnemonic_matches_prefix _s907_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s1302_ (_s1303_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5))) := + (match _s1303_ with + | _s1304_ => + (rtype_mnemonic_matches_prefix _s1304_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s908_ _)) => - (match (string_drop _s907_ _s908_) with - | _s909_ => - (spc_matches_prefix _s909_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1305_ _) => + (match (string_drop _s1304_ _s1305_) with + | _s1306_ => + (spc_matches_prefix _s1306_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s910_ _)) => - (match (string_drop _s909_ _s910_) with - | _s911_ => - (reg_name_matches_prefix _s911_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1307_ _) => + (match (string_drop _s1306_ _s1307_) with + | _s1308_ => + (reg_name_matches_prefix _s1308_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s912_ _)) => - (match (string_drop _s911_ _s912_) with - | _s913_ => - (sep_matches_prefix _s913_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1309_ _) => + (match (string_drop _s1308_ _s1309_) with + | _s1310_ => + (sep_matches_prefix _s1310_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s914_ _)) => - (match (string_drop _s913_ _s914_) with - | _s915_ => - (reg_name_matches_prefix _s915_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1311_ _) => + (match (string_drop _s1310_ _s1311_) with + | _s1312_ => + (reg_name_matches_prefix _s1312_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s916_ _)) => - (match (string_drop _s915_ _s916_) with - | _s917_ => - (sep_matches_prefix _s917_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1313_ _) => + (match (string_drop _s1312_ _s1313_) with + | _s1314_ => + (sep_matches_prefix _s1314_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s918_ _)) => - (match (string_drop _s917_ _s918_) with - | _s919_ => - (reg_name_matches_prefix _s919_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1315_ _) => + (match (string_drop _s1314_ _s1315_) with + | _s1316_ => + (reg_name_matches_prefix _s1316_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s920_ _)) => - let p0_ := - string_drop _s919_ _s920_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1317_ _) => + let p0_ := + string_drop _s1316_ _s1317_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))). -Definition _s888_ (_s889_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6))) := - - (match _s889_ with - | _s890_ => - (shiftiop_mnemonic_matches_prefix _s890_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s1285_ (_s1286_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6))) := + (match _s1286_ with + | _s1287_ => + (shiftiop_mnemonic_matches_prefix _s1287_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s891_ _)) => - (match (string_drop _s890_ _s891_) with - | _s892_ => - (spc_matches_prefix _s892_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1288_ _) => + (match (string_drop _s1287_ _s1288_) with + | _s1289_ => + (spc_matches_prefix _s1289_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s893_ _)) => - (match (string_drop _s892_ _s893_) with - | _s894_ => - (reg_name_matches_prefix _s894_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1290_ _) => + (match (string_drop _s1289_ _s1290_) with + | _s1291_ => + (reg_name_matches_prefix _s1291_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s895_ _)) => - (match (string_drop _s894_ _s895_) with - | _s896_ => - (sep_matches_prefix _s896_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1292_ _) => + (match (string_drop _s1291_ _s1292_) with + | _s1293_ => + (sep_matches_prefix _s1293_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s897_ _)) => - (match (string_drop _s896_ _s897_) with - | _s898_ => - (reg_name_matches_prefix _s898_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1294_ _) => + (match (string_drop _s1293_ _s1294_) with + | _s1295_ => + (reg_name_matches_prefix _s1295_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s899_ _)) => - (match (string_drop _s898_ _s899_) with - | _s900_ => - (sep_matches_prefix _s900_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1296_ _) => + (match (string_drop _s1295_ _s1296_) with + | _s1297_ => + (sep_matches_prefix _s1297_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s901_ _)) => - match (string_drop _s900_ _s901_) with - | _s902_ => - match (hex_bits_6_matches_prefix - _s902_) with - | Some ((shamt, existT _ _s903_ _)) => - let p0_ := - string_drop _s902_ _s903_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6))) + returnm (match w__5 with + | Some (tt, existT _ _s1298_ _) => + match (string_drop _s1297_ _s1298_) with + | _s1299_ => + match (hex_bits_6_matches_prefix + _s1299_) with + | Some (shamt, existT _ _s1300_ _) => + let p0_ := + string_drop _s1299_ _s1300_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))). -Definition _s871_ (_s872_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12))) := - - (match _s872_ with - | _s873_ => - (itype_mnemonic_matches_prefix _s873_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s1268_ (_s1269_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12))) := + (match _s1269_ with + | _s1270_ => + (itype_mnemonic_matches_prefix _s1270_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s874_ _)) => - (match (string_drop _s873_ _s874_) with - | _s875_ => - (spc_matches_prefix _s875_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1271_ _) => + (match (string_drop _s1270_ _s1271_) with + | _s1272_ => + (spc_matches_prefix _s1272_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s876_ _)) => - (match (string_drop _s875_ _s876_) with - | _s877_ => - (reg_name_matches_prefix _s877_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1273_ _) => + (match (string_drop _s1272_ _s1273_) with + | _s1274_ => + (reg_name_matches_prefix _s1274_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s878_ _)) => - (match (string_drop _s877_ _s878_) with - | _s879_ => - (sep_matches_prefix _s879_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1275_ _) => + (match (string_drop _s1274_ _s1275_) with + | _s1276_ => + (sep_matches_prefix _s1276_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s880_ _)) => - (match (string_drop _s879_ _s880_) with - | _s881_ => - (reg_name_matches_prefix _s881_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1277_ _) => + (match (string_drop _s1276_ _s1277_) with + | _s1278_ => + (reg_name_matches_prefix _s1278_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s882_ _)) => - (match (string_drop _s881_ _s882_) with - | _s883_ => - (sep_matches_prefix _s883_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1279_ _) => + (match (string_drop _s1278_ _s1279_) with + | _s1280_ => + (sep_matches_prefix _s1280_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s884_ _)) => - match (string_drop _s883_ _s884_) with - | _s885_ => - match (hex_bits_12_matches_prefix - _s885_) with - | Some ((imm, existT _ _s886_ _)) => - let p0_ := - string_drop _s885_ _s886_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12))) + returnm (match w__5 with + | Some (tt, existT _ _s1281_ _) => + match (string_drop _s1280_ _s1281_) with + | _s1282_ => + match (hex_bits_12_matches_prefix + _s1282_) with + | Some (imm, existT _ _s1283_ _) => + let p0_ := + string_drop _s1282_ _s1283_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))). -Definition _s854_ (_s855_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13))) := - - (match _s855_ with - | _s856_ => - (btype_mnemonic_matches_prefix _s856_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s1251_ (_s1252_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13))) := + (match _s1252_ with + | _s1253_ => + (btype_mnemonic_matches_prefix _s1253_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s857_ _)) => - (match (string_drop _s856_ _s857_) with - | _s858_ => - (spc_matches_prefix _s858_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1254_ _) => + (match (string_drop _s1253_ _s1254_) with + | _s1255_ => + (spc_matches_prefix _s1255_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s859_ _)) => - (match (string_drop _s858_ _s859_) with - | _s860_ => - (reg_name_matches_prefix _s860_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1256_ _) => + (match (string_drop _s1255_ _s1256_) with + | _s1257_ => + (reg_name_matches_prefix _s1257_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s861_ _)) => - (match (string_drop _s860_ _s861_) with - | _s862_ => - (sep_matches_prefix _s862_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1258_ _) => + (match (string_drop _s1257_ _s1258_) with + | _s1259_ => + (sep_matches_prefix _s1259_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s863_ _)) => - (match (string_drop _s862_ _s863_) with - | _s864_ => - (reg_name_matches_prefix _s864_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1260_ _) => + (match (string_drop _s1259_ _s1260_) with + | _s1261_ => + (reg_name_matches_prefix _s1261_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s865_ _)) => - (match (string_drop _s864_ _s865_) with - | _s866_ => - (sep_matches_prefix _s866_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s1262_ _) => + (match (string_drop _s1261_ _s1262_) with + | _s1263_ => + (sep_matches_prefix _s1263_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s867_ _)) => - match (string_drop _s866_ _s867_) with - | _s868_ => - match (hex_bits_13_matches_prefix - _s868_) with - | Some ((imm, existT _ _s869_ _)) => - let p0_ := - string_drop _s868_ _s869_ in - if ((generic_eq p0_ "")) then - Some - ((op, rs1, rs2, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13))) + returnm (match w__5 with + | Some (tt, existT _ _s1264_ _) => + match (string_drop _s1263_ _s1264_) with + | _s1265_ => + match (hex_bits_13_matches_prefix + _s1265_) with + | Some (imm, existT _ _s1266_ _) => + let p0_ := + string_drop _s1265_ _s1266_ in + if generic_eq p0_ "" then + Some (op, rs1, rs2, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))). -Definition _s838_ (_s839_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s840_ := _s839_ in - (if ((string_startswith _s840_ "jalr")) then - (match (string_drop _s840_ (projT1 (string_length "jalr"))) with - | _s841_ => - (spc_matches_prefix _s841_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1235_ (_s1236_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s1237_ := _s1236_ in + (if string_startswith _s1237_ "jalr" then + (match (string_drop _s1237_ (projT1 (string_length "jalr"))) with + | _s1238_ => + (spc_matches_prefix _s1238_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s842_ _)) => - (match (string_drop _s841_ _s842_) with - | _s843_ => - (reg_name_matches_prefix _s843_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1239_ _) => + (match (string_drop _s1238_ _s1239_) with + | _s1240_ => + (reg_name_matches_prefix _s1240_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s844_ _)) => - (match (string_drop _s843_ _s844_) with - | _s845_ => - (sep_matches_prefix _s845_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1241_ _) => + (match (string_drop _s1240_ _s1241_) with + | _s1242_ => + (sep_matches_prefix _s1242_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s846_ _)) => - (match (string_drop _s845_ _s846_) with - | _s847_ => - (reg_name_matches_prefix _s847_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1243_ _) => + (match (string_drop _s1242_ _s1243_) with + | _s1244_ => + (reg_name_matches_prefix _s1244_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s848_ _)) => - (match (string_drop _s847_ _s848_) with - | _s849_ => - (sep_matches_prefix _s849_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1245_ _) => + (match (string_drop _s1244_ _s1245_) with + | _s1246_ => + (sep_matches_prefix _s1246_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s850_ _)) => - match (string_drop _s849_ _s850_) with - | _s851_ => - match (hex_bits_12_matches_prefix _s851_) with - | Some ((imm, existT _ _s852_ _)) => - let p0_ := string_drop _s851_ _s852_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s1247_ _) => + match (string_drop _s1246_ _s1247_) with + | _s1248_ => + match (hex_bits_12_matches_prefix _s1248_) with + | Some (imm, existT _ _s1249_ _) => + let p0_ := string_drop _s1248_ _s1249_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s826_ (_s827_ : string) -: M (option ((mword 5 * mword 21))) := - - let _s828_ := _s827_ in - (if ((string_startswith _s828_ "jal")) then - (match (string_drop _s828_ (projT1 (string_length "jal"))) with - | _s829_ => - (spc_matches_prefix _s829_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1223_ (_s1224_ : string) : M (option ((mword 5 * mword 21))) := + let _s1225_ := _s1224_ in + (if string_startswith _s1225_ "jal" then + (match (string_drop _s1225_ (projT1 (string_length "jal"))) with + | _s1226_ => + (spc_matches_prefix _s1226_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s830_ _)) => - (match (string_drop _s829_ _s830_) with - | _s831_ => - (reg_name_matches_prefix _s831_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1227_ _) => + (match (string_drop _s1226_ _s1227_) with + | _s1228_ => + (reg_name_matches_prefix _s1228_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s832_ _)) => - (match (string_drop _s831_ _s832_) with - | _s833_ => - (sep_matches_prefix _s833_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1229_ _) => + (match (string_drop _s1228_ _s1229_) with + | _s1230_ => + (sep_matches_prefix _s1230_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s834_ _)) => - match (string_drop _s833_ _s834_) with - | _s835_ => - match (hex_bits_21_matches_prefix _s835_) with - | Some ((imm, existT _ _s836_ _)) => - let p0_ := string_drop _s835_ _s836_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21))) + returnm (match w__2 with + | Some (tt, existT _ _s1231_ _) => + match (string_drop _s1230_ _s1231_) with + | _s1232_ => + match (hex_bits_21_matches_prefix _s1232_) with + | Some (imm, existT _ _s1233_ _) => + let p0_ := string_drop _s1232_ _s1233_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - else returnm (None : option ((mword 5 * mword 21)))) + else returnm None) : M (option ((mword 5 * mword 21))). -Definition _s813_ (_s814_ : string) -: M (option ((uop * mword 5 * mword 20))) := - - (match _s814_ with - | _s815_ => - (utype_mnemonic_matches_prefix _s815_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s1210_ (_s1211_ : string) : M (option ((uop * mword 5 * mword 20))) := + (match _s1211_ with + | _s1212_ => + (utype_mnemonic_matches_prefix _s1212_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s816_ _)) => - (match (string_drop _s815_ _s816_) with - | _s817_ => - (spc_matches_prefix _s817_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1213_ _) => + (match (string_drop _s1212_ _s1213_) with + | _s1214_ => + (spc_matches_prefix _s1214_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s818_ _)) => - (match (string_drop _s817_ _s818_) with - | _s819_ => - (reg_name_matches_prefix _s819_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1215_ _) => + (match (string_drop _s1214_ _s1215_) with + | _s1216_ => + (reg_name_matches_prefix _s1216_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s820_ _)) => - (match (string_drop _s819_ _s820_) with - | _s821_ => - (sep_matches_prefix _s821_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1217_ _) => + (match (string_drop _s1216_ _s1217_) with + | _s1218_ => + (sep_matches_prefix _s1218_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s822_ _)) => - match (string_drop _s821_ _s822_) with - | _s823_ => - match (hex_bits_20_matches_prefix _s823_) with - | Some ((imm, existT _ _s824_ _)) => - let p0_ := string_drop _s823_ _s824_ in - if ((generic_eq p0_ "")) then Some ((op, rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20))) + returnm (match w__3 with + | Some (tt, existT _ _s1219_ _) => + match (string_drop _s1218_ _s1219_) with + | _s1220_ => + match (hex_bits_20_matches_prefix _s1220_) with + | Some (imm, existT _ _s1221_ _) => + let p0_ := string_drop _s1220_ _s1221_ in + if generic_eq p0_ "" then Some (op, rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))). -Definition assembly_backwards (arg_ : string) -: M (ast) := - - let _s825_ := arg_ in - (_s813_ _s825_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => - (if ((match w__0 with | Some ((op, rd, imm)) => true | _ => false end)) then - (_s813_ _s825_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => +Definition assembly_backwards (arg_ : string) : M (ast) := + let _s1222_ := arg_ in + (_s1210_ _s1222_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => + (if match w__0 with | Some (op, rd, imm) => true | _ => false end then + (_s1210_ _s1222_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => (match w__1 with - | Some ((op, rd, imm)) => returnm ((UTYPE ((imm, rd, op))) : ast ) + | Some (op, rd, imm) => returnm (UTYPE (imm, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s826_ _s825_) >>= fun w__4 : option ((mword 5 * mword 21)) => - (if ((match w__4 with | Some ((rd, imm)) => true | _ => false end)) then - (_s826_ _s825_) >>= fun w__5 : option ((mword 5 * mword 21)) => + (_s1223_ _s1222_) >>= fun w__4 : option ((mword 5 * mword 21)) => + (if match w__4 with | Some (rd, imm) => true | _ => false end then + (_s1223_ _s1222_) >>= fun w__5 : option ((mword 5 * mword 21)) => (match w__5 with - | Some ((rd, imm)) => returnm ((RISCV_JAL ((imm, rd))) : ast ) + | Some (rd, imm) => returnm (RISCV_JAL (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s838_ _s825_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__8 with | Some ((rd, rs1, imm)) => true | _ => false end)) then - (_s838_ _s825_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => + (_s1235_ _s1222_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__8 with | Some (rd, rs1, imm) => true | _ => false end then + (_s1235_ _s1222_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => (match w__9 with - | Some ((rd, rs1, imm)) => returnm ((RISCV_JALR ((imm, rs1, rd))) : ast ) + | Some (rd, rs1, imm) => returnm (RISCV_JALR (imm, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s854_ _s825_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm)) => true | _ => false end)) then - (_s854_ _s825_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => + (_s1251_ _s1222_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => + (if match w__12 with | Some (op, rs1, rs2, imm) => true | _ => false end then + (_s1251_ _s1222_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => (match w__13 with - | Some ((op, rs1, rs2, imm)) => returnm ((BTYPE ((imm, rs2, rs1, op))) : ast ) + | Some (op, rs1, rs2, imm) => returnm (BTYPE (imm, rs2, rs1, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s871_ _s825_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm)) => true | _ => false end)) then - (_s871_ _s825_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => + (_s1268_ _s1222_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => + (if match w__16 with | Some (op, rd, rs1, imm) => true | _ => false end then + (_s1268_ _s1222_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => (match w__17 with - | Some ((op, rd, rs1, imm)) => returnm ((ITYPE ((imm, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, imm) => returnm (ITYPE (imm, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s888_ _s825_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt)) => true | _ => false end)) - then - (_s888_ _s825_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => + (_s1285_ _s1222_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => + (if match w__20 with | Some (op, rd, rs1, shamt) => true | _ => false end then + (_s1285_ _s1222_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => (match w__21 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTIOP ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => returnm (SHIFTIOP (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s905_ _s825_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2)) => true | _ => false end)) - then - (_s905_ _s825_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => + (_s1302_ _s1222_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => + (if match w__24 with | Some (op, rd, rs1, rs2) => true | _ => false end then + (_s1302_ _s1222_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => (match w__25 with - | Some ((op, rd, rs1, rs2)) => - returnm ((RTYPE ((rs2, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, rs2) => returnm (RTYPE (rs2, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s922_ _s825_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => true - | _ => false - end)) then - (_s922_ _s825_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s1319_ _s1222_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => true + | _ => false + end then + (_s1319_ _s1222_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => - returnm ((LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl))) : ast ) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => + returnm (LOAD (imm, rs1, rd, is_unsigned, size, aq, rl)) | _ => exit tt : M (ast) end) : M (ast) else - (_s952_ _s825_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1)) => true - | _ => false - end)) then - (_s952_ _s825_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s1349_ _s1222_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1) => true + | _ => false + end then + (_s1349_ _s1222_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1)) => - returnm ((STORE ((imm, rs2, rs1, size, aq, rl))) : ast ) + | Some (size, aq, rl, rs2, imm, rs1) => + returnm (STORE (imm, rs2, rs1, size, aq, rl)) | _ => exit tt : M (ast) end) : M (ast) else - (_s980_ _s825_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__36 with - | Some ((rd, rs1, imm)) => Z.eqb 32 64 - | _ => false - end)) then - (_s980_ _s825_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => + (_s1377_ _s1222_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__36 with + | Some (rd, rs1, imm) => Z.eqb 32 64 + | _ => false + end then + (_s1377_ _s1222_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => (match w__37 with - | Some ((rd, rs1, imm)) => - returnm ((ADDIW ((imm, rs1, rd))) : ast ) + | Some (rd, rs1, imm) => returnm (ADDIW (imm, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s996_ _s825_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 32 64 - | _ => false - end)) then - (_s996_ _s825_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => + (_s1393_ _s1222_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => + (if match w__40 with + | Some (op, rd, rs1, shamt) => Z.eqb 32 64 + | _ => false + end then + (_s1393_ _s1222_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => (match w__41 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTW ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => + returnm (SHIFTW (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1013_ _s825_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1013_ _s825_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (_s1410_ _s1222_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (if match w__44 with + | Some (op, rd, rs1, rs2) => Z.eqb 32 64 + | _ => false + end then + (_s1410_ _s1222_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => (match w__45 with - | Some ((op, rd, rs1, rs2)) => - returnm ((RTYPEW ((rs2, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, rs2) => + returnm (RTYPEW (rs2, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1030_ _s825_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1030_ _s825_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (_s1427_ _s1222_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (if match w__48 with + | Some (op, rd, rs1, shamt) => Z.eqb 32 64 + | _ => false + end then + (_s1427_ _s1222_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => (match w__49 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTIWOP ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => + returnm (SHIFTIWOP (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1047_ _s825_) >>= fun w__52 : option ((mword 4 * mword 4)) => - (if ((match w__52 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1047_ _s825_) >>= fun w__53 : option ((mword 4 * mword 4)) => + (_s1444_ _s1222_) >>= fun w__52 : option ((mword 4 * mword 4)) => + (if match w__52 with + | Some (pred, succ) => true + | _ => false + end then + (_s1444_ _s1222_) >>= fun w__53 : option ((mword 4 * mword 4)) => (match w__53 with - | Some ((pred, succ)) => - returnm ((FENCE ((pred, succ))) : ast ) + | Some (pred, succ) => returnm (FENCE (pred, succ)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1059_ _s825_) >>= fun w__56 : option ((mword 4 * mword 4)) => - (if ((match w__56 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1059_ _s825_) >>= fun w__57 : option ((mword 4 * mword 4)) => + (_s1456_ _s1222_) >>= fun w__56 : option ((mword 4 * mword 4)) => + (if match w__56 with + | Some (pred, succ) => true + | _ => false + end then + (_s1456_ _s1222_) >>= fun w__57 : option ((mword 4 * mword 4)) => (match w__57 with - | Some ((pred, succ)) => - returnm ((FENCE_TSO ((pred, succ))) : ast ) + | Some (pred, succ) => + returnm (FENCE_TSO (pred, succ)) | _ => exit tt : M (ast) end) : M (ast) - else if ((generic_eq _s825_ "fence.i")) then - returnm ((FENCEI - (tt)) - : ast ) - else if ((generic_eq _s825_ "ecall")) then - returnm ((ECALL - (tt)) - : ast ) - else if ((generic_eq _s825_ "mret")) then - returnm ((MRET - (tt)) - : ast ) - else if ((generic_eq _s825_ "sret")) then - returnm ((SRET - (tt)) - : ast ) - else if ((generic_eq _s825_ "ebreak")) then - returnm ((EBREAK - (tt)) - : ast ) - else if ((generic_eq _s825_ "wfi")) then - returnm ((WFI - (tt)) - : ast ) + else if generic_eq _s1222_ "fence.i" then + returnm (FENCEI tt) + else if generic_eq _s1222_ "ecall" then + returnm (ECALL tt) + else if generic_eq _s1222_ "mret" then + returnm (MRET tt) + else if generic_eq _s1222_ "sret" then + returnm (SRET tt) + else if generic_eq _s1222_ "ebreak" then + returnm (EBREAK tt) + else if generic_eq _s1222_ "wfi" then returnm (WFI tt) else - (_s1071_ _s825_) >>= fun w__60 : option ((mword 5 * mword 5)) => - (if ((match w__60 with - | Some ((rs1, rs2)) => true - | _ => false - end)) then - (_s1071_ _s825_) >>= fun w__61 : option ((mword 5 * mword 5)) => + (_s1468_ _s1222_) >>= fun w__60 : option ((mword 5 * mword 5)) => + (if match w__60 with + | Some (rs1, rs2) => true + | _ => false + end then + (_s1468_ _s1222_) >>= fun w__61 : option ((mword 5 * mword 5)) => (match w__61 with - | Some ((rs1, rs2)) => - returnm ((SFENCE_VMA ((rs1, rs2))) : ast ) + | Some (rs1, rs2) => + returnm (SFENCE_VMA (rs1, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1083_ _s825_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => - (if ((match w__64 with - | Some ((size, aq, rl, rd, rs1)) => true - | _ => false - end)) then - (_s1083_ _s825_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (_s1480_ _s1222_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (if match w__64 with + | Some (size, aq, rl, rd, rs1) => true + | _ => false + end then + (_s1480_ _s1222_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => (match w__65 with - | Some ((size, aq, rl, rd, rs1)) => - returnm ((LOADRES - ((aq, rl, rs1, size, rd))) - : ast ) + | Some (size, aq, rl, rd, rs1) => + returnm (LOADRES (aq, rl, rs1, size, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1101_ _s825_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__68 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1101_ _s825_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1498_ _s1222_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__68 with + | Some (size, aq, rl, rd, rs1, rs2) => + true + | _ => false + end then + (_s1498_ _s1222_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__69 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - returnm ((STORECON - ((aq, rl, rs2, rs1, size, rd))) - : ast ) + | Some (size, aq, rl, rd, rs1, rs2) => + returnm (STORECON + (aq, rl, rs2, rs1, size, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1123_ _s825_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__72 with - | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1123_ _s825_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1520_ _s1222_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__72 with + | Some + (op, width, aq, rl, rd, rs2, rs1) => + true + | _ => false + end then + (_s1520_ _s1222_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__73 with | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - returnm ((AMO - ((op, aq, rl, rs2, rs1, width, rd))) - : ast ) + (op, width, aq, rl, rd, rs2, rs1) => + returnm (AMO + (op, aq, rl, rs2, rs1, width, rd)) | _ => exit tt : M (ast) end) : M (ast) - else if ((generic_eq _s825_ "c.nop")) then - returnm ((C_NOP - (tt)) - : ast ) + else if generic_eq _s1222_ "c.nop" then + returnm (C_NOP tt) else - (_s1147_ _s825_) >>= fun w__76 : option ((mword 3 * mword 8)) => - (if ((match w__76 with - | Some ((rdc, nzimm)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s1147_ _s825_) >>= fun w__77 : option ((mword 3 * mword 8)) => + (_s1546_ _s1222_) >>= fun w__76 : option ((mword 3 * mword 8)) => + (if match w__76 with + | Some (rdc, nzimm) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s1546_ _s1222_) >>= fun w__77 : option ((mword 3 * mword 8)) => (match w__77 with - | Some ((rdc, nzimm)) => - returnm ((C_ADDI4SPN - ((rdc, nzimm))) - : ast ) + | Some (rdc, nzimm) => + returnm (C_ADDI4SPN (rdc, nzimm)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1159_ _s825_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__80 with - | Some ((rdc, rsc, uimm)) => - true - | _ => false - end)) then - (_s1159_ _s825_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => + (_s1558_ _s1222_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__80 with + | Some (rdc, rsc, uimm) => true + | _ => false + end then + (_s1558_ _s1222_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => (match w__81 with - | Some ((rdc, rsc, uimm)) => - returnm ((C_LW - ((uimm, rsc, rdc))) - : ast ) + | Some (rdc, rsc, uimm) => + returnm (C_LW (uimm, rsc, rdc)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1175_ _s825_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__84 with - | Some ((rdc, rsc, uimm)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s1175_ _s825_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => + (_s1574_ _s1222_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__84 with + | Some (rdc, rsc, uimm) => + Z.eqb 32 64 + | _ => false + end then + (_s1574_ _s1222_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => (match w__85 with - | Some ((rdc, rsc, uimm)) => - returnm ((C_LD - ((uimm, rsc, rdc))) - : ast ) + | Some (rdc, rsc, uimm) => + returnm (C_LD + (uimm, rsc, rdc)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1191_ _s825_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__88 with - | Some - ((rsc1, rsc2, uimm)) => - true - | _ => false - end)) then - (_s1191_ _s825_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => + (_s1590_ _s1222_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__88 with + | Some (rsc1, rsc2, uimm) => + true + | _ => false + end then + (_s1590_ _s1222_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => (match w__89 with - | Some ((rsc1, rsc2, uimm)) => - returnm ((C_SW - ((uimm, rsc1, rsc2))) - : ast ) + | Some (rsc1, rsc2, uimm) => + returnm (C_SW + (uimm, rsc1, rsc2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1207_ _s825_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__92 with - | Some - ((rsc1, rsc2, uimm)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s1207_ _s825_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => + (_s1606_ _s1222_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__92 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb 32 64 + | _ => false + end then + (_s1606_ _s1222_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => (match w__93 with | Some - ((rsc1, rsc2, uimm)) => - returnm ((C_SD - ((uimm, rsc1, rsc2))) - : ast ) + (rsc1, rsc2, uimm) => + returnm (C_SD + (uimm, rsc1, rsc2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1223_ _s825_) >>= fun w__96 : option ((mword 5 * mword 6)) => - (if ((match w__96 with - | Some ((rsd, nzi)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s1223_ _s825_) >>= fun w__97 : option ((mword 5 * mword 6)) => + (_s1622_ _s1222_) >>= fun w__96 : option ((mword 5 * mword 6)) => + (if match w__96 with + | Some (rsd, nzi) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s1622_ _s1222_) >>= fun w__97 : option ((mword 5 * mword 6)) => (match w__97 with - | Some ((rsd, nzi)) => - returnm ((C_ADDI - ((nzi, rsd))) - : ast ) + | Some (rsd, nzi) => + returnm (C_ADDI + (nzi, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1235_ _s825_) >>= fun w__100 : option (mword 11) => - (if ((match w__100 with - | Some (imm) => - Z.eqb 32 32 - | _ => false - end)) then - (_s1235_ _s825_) >>= fun w__101 : option (mword 11) => + (_s1634_ _s1222_) >>= fun w__100 : option (mword 11) => + (if match w__100 with + | Some imm => + Z.eqb 32 32 + | _ => false + end then + (_s1634_ _s1222_) >>= fun w__101 : option (mword 11) => (match w__101 with - | Some (imm) => - returnm ((C_JAL - (imm)) - : ast ) + | Some imm => + returnm (C_JAL + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1243_ _s825_) >>= fun w__104 : option ((mword 5 * mword 6)) => - (if ((match w__104 with - | Some - ((rsd, imm)) => - Z.eqb 32 - 64 - | _ => false - end)) then - (_s1243_ _s825_) >>= fun w__105 : option ((mword 5 * mword 6)) => + (_s1642_ _s1222_) >>= fun w__104 : option ((mword 5 * mword 6)) => + (if match w__104 with + | Some + (rsd, imm) => + Z.eqb 32 64 + | _ => false + end then + (_s1642_ _s1222_) >>= fun w__105 : option ((mword 5 * mword 6)) => (match w__105 with | Some - ((rsd, imm)) => - returnm ((C_ADDIW - ((imm, rsd))) - : ast ) + (rsd, imm) => + returnm (C_ADDIW + (imm, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1255_ _s825_) >>= fun w__108 : option ((mword 5 * mword 6)) => - (if ((match w__108 with - | Some - ((rd, imm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s1255_ - _s825_) >>= fun w__109 : option ((mword 5 * mword 6)) => + (_s1654_ _s1222_) >>= fun w__108 : option ((mword 5 * mword 6)) => + (if match w__108 with + | Some + (rd, imm) => + neq_vec + rd zreg + | _ => false + end then + (_s1654_ + _s1222_) >>= fun w__109 : option ((mword 5 * mword 6)) => (match w__109 with | Some - ((rd, imm)) => - returnm ((C_LI - ((imm, rd))) - : ast ) + (rd, imm) => + returnm (C_LI + (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1267_ - _s825_) >>= fun w__112 : option (mword 6) => - (if ((match w__112 with - | Some - (imm) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s1267_ - _s825_) >>= fun w__113 : option (mword 6) => + (_s1666_ + _s1222_) >>= fun w__112 : option (mword 6) => + (if match w__112 with + | Some + imm => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s1666_ + _s1222_) >>= fun w__113 : option (mword 6) => (match w__113 with | Some - (imm) => - returnm ((C_ADDI16SP - (imm)) - : ast ) + imm => + returnm (C_ADDI16SP + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1275_ - _s825_) >>= fun w__116 : option ((mword 5 * mword 6)) => - (if ((match w__116 with - | Some - ((rd, imm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s1674_ + _s1222_) >>= fun w__116 : option ((mword 5 * mword 6)) => + (if match w__116 with + | Some + (rd, imm) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s1275_ - _s825_) >>= fun w__117 : option ((mword 5 * mword 6)) => + (_s1674_ + _s1222_) >>= fun w__117 : option ((mword 5 * mword 6)) => (match w__117 with | Some - ((rd, imm)) => - returnm ((C_LUI - ((imm, rd))) - : ast ) + (rd, imm) => + returnm (C_LUI + (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1287_ - _s825_) >>= fun w__120 : option ((mword 3 * mword 6)) => - (if ((match w__120 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s1686_ + _s1222_) >>= fun w__120 : option ((mword 3 * mword 6)) => + (if match w__120 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s1287_ - _s825_) >>= fun w__121 : option ((mword 3 * mword 6)) => + (_s1686_ + _s1222_) >>= fun w__121 : option ((mword 3 * mword 6)) => (match w__121 with | Some - ((rsd, shamt)) => - returnm ((C_SRLI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SRLI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1299_ - _s825_) >>= fun w__124 : option ((mword 3 * mword 6)) => - (if ((match w__124 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s1698_ + _s1222_) >>= fun w__124 : option ((mword 3 * mword 6)) => + (if match w__124 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s1299_ - _s825_) >>= fun w__125 : option ((mword 3 * mword 6)) => + (_s1698_ + _s1222_) >>= fun w__125 : option ((mword 3 * mword 6)) => (match w__125 with | Some - ((rsd, shamt)) => - returnm ((C_SRAI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SRAI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1311_ - _s825_) >>= fun w__128 : option ((mword 3 * mword 6)) => + (_s1710_ + _s1222_) >>= fun w__128 : option ((mword 3 * mword 6)) => (if - ((match w__128 with - | Some - ((rsd, imm)) => - true - | _ => - false - end)) + match w__128 with + | Some + (rsd, imm) => + true + | _ => + false + end then - (_s1311_ - _s825_) >>= fun w__129 : option ((mword 3 * mword 6)) => + (_s1710_ + _s1222_) >>= fun w__129 : option ((mword 3 * mword 6)) => (match w__129 with | Some - ((rsd, imm)) => - returnm ((C_ANDI - ((imm, rsd))) - : ast ) + (rsd, imm) => + returnm (C_ANDI + (imm, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1323_ - _s825_) >>= fun w__132 : option ((mword 3 * mword 3)) => + (_s1722_ + _s1222_) >>= fun w__132 : option ((mword 3 * mword 3)) => (if - ((match w__132 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__132 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1323_ - _s825_) >>= fun w__133 : option ((mword 3 * mword 3)) => + (_s1722_ + _s1222_) >>= fun w__133 : option ((mword 3 * mword 3)) => (match w__133 with | Some - ((rsd, rs2)) => - returnm ((C_SUB - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_SUB + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1335_ - _s825_) >>= fun w__136 : option ((mword 3 * mword 3)) => + (_s1734_ + _s1222_) >>= fun w__136 : option ((mword 3 * mword 3)) => (if - ((match w__136 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__136 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1335_ - _s825_) >>= fun w__137 : option ((mword 3 * mword 3)) => + (_s1734_ + _s1222_) >>= fun w__137 : option ((mword 3 * mword 3)) => (match w__137 with | Some - ((rsd, rs2)) => - returnm ((C_XOR - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_XOR + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1347_ - _s825_) >>= fun w__140 : option ((mword 3 * mword 3)) => + (_s1746_ + _s1222_) >>= fun w__140 : option ((mword 3 * mword 3)) => (if - ((match w__140 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__140 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1347_ - _s825_) >>= fun w__141 : option ((mword 3 * mword 3)) => + (_s1746_ + _s1222_) >>= fun w__141 : option ((mword 3 * mword 3)) => (match w__141 with | Some - ((rsd, rs2)) => - returnm ((C_OR - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_OR + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1359_ - _s825_) >>= fun w__144 : option ((mword 3 * mword 3)) => + (_s1758_ + _s1222_) >>= fun w__144 : option ((mword 3 * mword 3)) => (if - ((match w__144 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__144 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1359_ - _s825_) >>= fun w__145 : option ((mword 3 * mword 3)) => + (_s1758_ + _s1222_) >>= fun w__145 : option ((mword 3 * mword 3)) => (match w__145 with | Some - ((rsd, rs2)) => - returnm ((C_AND - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_AND + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1371_ - _s825_) >>= fun w__148 : option ((mword 3 * mword 3)) => + (_s1770_ + _s1222_) >>= fun w__148 : option ((mword 3 * mword 3)) => (if - ((match w__148 with - | Some - ((rsd, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__148 with + | Some + (rsd, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1371_ - _s825_) >>= fun w__149 : option ((mword 3 * mword 3)) => + (_s1770_ + _s1222_) >>= fun w__149 : option ((mword 3 * mword 3)) => (match w__149 with | Some - ((rsd, rs2)) => - returnm ((C_SUBW - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_SUBW + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1383_ - _s825_) >>= fun w__152 : option ((mword 3 * mword 3)) => + (_s1782_ + _s1222_) >>= fun w__152 : option ((mword 3 * mword 3)) => (if - ((match w__152 with - | Some - ((rsd, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__152 with + | Some + (rsd, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1383_ - _s825_) >>= fun w__153 : option ((mword 3 * mword 3)) => + (_s1782_ + _s1222_) >>= fun w__153 : option ((mword 3 * mword 3)) => (match w__153 with | Some - ((rsd, rs2)) => - returnm ((C_ADDW - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_ADDW + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1395_ - _s825_) >>= fun w__156 : option (mword 11) => + (_s1794_ + _s1222_) >>= fun w__156 : option (mword 11) => (if - ((match w__156 with - | Some - (imm) => - true - | _ => - false - end)) + match w__156 with + | Some + imm => + true + | _ => + false + end then - (_s1395_ - _s825_) >>= fun w__157 : option (mword 11) => + (_s1794_ + _s1222_) >>= fun w__157 : option (mword 11) => (match w__157 with | Some - (imm) => - returnm ((C_J - (imm)) - : ast ) + imm => + returnm (C_J + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1403_ - _s825_) >>= fun w__160 : option ((mword 3 * mword 8)) => + (_s1802_ + _s1222_) >>= fun w__160 : option ((mword 3 * mword 8)) => (if - ((match w__160 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__160 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s1403_ - _s825_) >>= fun w__161 : option ((mword 3 * mword 8)) => + (_s1802_ + _s1222_) >>= fun w__161 : option ((mword 3 * mword 8)) => (match w__161 with | Some - ((rs, imm)) => - returnm ((C_BEQZ - ((imm, rs))) - : ast ) + (rs, imm) => + returnm (C_BEQZ + (imm, rs)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1415_ - _s825_) >>= fun w__164 : option ((mword 3 * mword 8)) => + (_s1814_ + _s1222_) >>= fun w__164 : option ((mword 3 * mword 8)) => (if - ((match w__164 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__164 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s1415_ - _s825_) >>= fun w__165 : option ((mword 3 * mword 8)) => + (_s1814_ + _s1222_) >>= fun w__165 : option ((mword 3 * mword 8)) => (match w__165 with | Some - ((rs, imm)) => - returnm ((C_BNEZ - ((imm, rs))) - : ast ) + (rs, imm) => + returnm (C_BNEZ + (imm, rs)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1427_ - _s825_) >>= fun w__168 : option ((mword 5 * mword 6)) => + (_s1826_ + _s1222_) >>= fun w__168 : option ((mword 5 * mword 6)) => (if - ((match w__168 with - | Some - ((rsd, shamt)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__168 with + | Some + (rsd, shamt) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s1427_ - _s825_) >>= fun w__169 : option ((mword 5 * mword 6)) => + (_s1826_ + _s1222_) >>= fun w__169 : option ((mword 5 * mword 6)) => (match w__169 with | Some - ((rsd, shamt)) => - returnm ((C_SLLI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SLLI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1439_ - _s825_) >>= fun w__172 : option ((mword 5 * mword 6)) => + (_s1838_ + _s1222_) >>= fun w__172 : option ((mword 5 * mword 6)) => (if - ((match w__172 with - | Some - ((rd, uimm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__172 with + | Some + (rd, uimm) => + neq_vec + rd + zreg + | _ => + false + end then - (_s1439_ - _s825_) >>= fun w__173 : option ((mword 5 * mword 6)) => + (_s1838_ + _s1222_) >>= fun w__173 : option ((mword 5 * mword 6)) => (match w__173 with | Some - ((rd, uimm)) => - returnm ((C_LWSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_LWSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1451_ - _s825_) >>= fun w__176 : option ((mword 5 * mword 6)) => + (_s1850_ + _s1222_) >>= fun w__176 : option ((mword 5 * mword 6)) => (if - ((match w__176 with - | Some - ((rd, uimm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 32 - 64) - | _ => - false - end)) + match w__176 with + | Some + (rd, uimm) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 32 + 64) + | _ => + false + end then - (_s1451_ - _s825_) >>= fun w__177 : option ((mword 5 * mword 6)) => + (_s1850_ + _s1222_) >>= fun w__177 : option ((mword 5 * mword 6)) => (match w__177 with | Some - ((rd, uimm)) => - returnm ((C_LDSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_LDSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1463_ - _s825_) >>= fun w__180 : option ((mword 5 * mword 6)) => + (_s1862_ + _s1222_) >>= fun w__180 : option ((mword 5 * mword 6)) => (if - ((match w__180 with - | Some - ((rd, uimm)) => - true - | _ => - false - end)) + match w__180 with + | Some + (rd, uimm) => + true + | _ => + false + end then - (_s1463_ - _s825_) >>= fun w__181 : option ((mword 5 * mword 6)) => + (_s1862_ + _s1222_) >>= fun w__181 : option ((mword 5 * mword 6)) => (match w__181 with | Some - ((rd, uimm)) => - returnm ((C_SWSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_SWSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1475_ - _s825_) >>= fun w__184 : option ((mword 5 * mword 6)) => + (_s1874_ + _s1222_) >>= fun w__184 : option ((mword 5 * mword 6)) => (if - ((match w__184 with - | Some - ((rs2, uimm)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__184 with + | Some + (rs2, uimm) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1475_ - _s825_) >>= fun w__185 : option ((mword 5 * mword 6)) => + (_s1874_ + _s1222_) >>= fun w__185 : option ((mword 5 * mword 6)) => (match w__185 with | Some - ((rs2, uimm)) => - returnm ((C_SDSP - ((uimm, rs2))) - : ast ) + (rs2, uimm) => + returnm (C_SDSP + (uimm, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1487_ - _s825_) >>= fun w__188 : option (mword 5) => + (_s1886_ + _s1222_) >>= fun w__188 : option (mword 5) => (if - ((match w__188 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__188 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s1487_ - _s825_) >>= fun w__189 : option (mword 5) => + (_s1886_ + _s1222_) >>= fun w__189 : option (mword 5) => (match w__189 with | Some - (rs1) => - returnm ((C_JR - (rs1)) - : ast ) + rs1 => + returnm (C_JR + rs1) | _ => exit tt : M (ast) end) : M (ast) else - (_s1495_ - _s825_) >>= fun w__192 : option (mword 5) => + (_s1894_ + _s1222_) >>= fun w__192 : option (mword 5) => (if - ((match w__192 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__192 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s1495_ - _s825_) >>= fun w__193 : option (mword 5) => + (_s1894_ + _s1222_) >>= fun w__193 : option (mword 5) => (match w__193 with | Some - (rs1) => - returnm ((C_JALR - (rs1)) - : ast ) + rs1 => + returnm (C_JALR + rs1) | _ => exit tt : M (ast) end) : M (ast) else - (_s1503_ - _s825_) >>= fun w__196 : option ((mword 5 * mword 5)) => + (_s1902_ + _s1222_) >>= fun w__196 : option ((mword 5 * mword 5)) => (if - ((match w__196 with - | Some - ((rd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__196 with + | Some + (rd, rs2) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s1503_ - _s825_) >>= fun w__197 : option ((mword 5 * mword 5)) => + (_s1902_ + _s1222_) >>= fun w__197 : option ((mword 5 * mword 5)) => (match w__197 with | Some - ((rd, rs2)) => - returnm ((C_MV - ((rd, rs2))) - : ast ) + (rd, rs2) => + returnm (C_MV + (rd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else if - ((generic_eq - _s825_ - "c.ebreak")) + generic_eq + _s1222_ + "c.ebreak" then - returnm ((C_EBREAK - (tt)) - : ast ) + returnm (C_EBREAK + tt) else - (_s1515_ - _s825_) >>= fun w__200 : option ((mword 5 * mword 5)) => + (_s1914_ + _s1222_) >>= fun w__200 : option ((mword 5 * mword 5)) => (if - ((match w__200 with - | Some - ((rsd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__200 with + | Some + (rsd, rs2) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s1515_ - _s825_) >>= fun w__201 : option ((mword 5 * mword 5)) => + (_s1914_ + _s1222_) >>= fun w__201 : option ((mword 5 * mword 5)) => (match w__201 with | Some - ((rsd, rs2)) => - returnm ((C_ADD - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_ADD + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1527_ - _s825_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1926_ + _s1222_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__204 with - | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__204 with + | Some + (high, signed1, signed2, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1527_ - _s825_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1926_ + _s1222_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__205 with | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - returnm ((MUL - ((rs2, rs1, rd, high, signed1, signed2))) - : ast ) + (high, signed1, signed2, rd, rs1, rs2) => + returnm (MUL + (rs2, rs1, rd, high, signed1, signed2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1544_ - _s825_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1943_ + _s1222_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__208 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__208 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1544_ - _s825_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1943_ + _s1222_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__209 with | Some - ((s, rd, rs1, rs2)) => - returnm ((DIV - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (DIV + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1562_ - _s825_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1961_ + _s1222_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__212 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__212 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1562_ - _s825_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1961_ + _s1222_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__213 with | Some - ((s, rd, rs1, rs2)) => - returnm ((REM - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (REM + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1580_ - _s825_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => + (_s1979_ + _s1222_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => (if - ((match w__216 with - | Some - ((rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__216 with + | Some + (rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1580_ - _s825_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => + (_s1979_ + _s1222_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => (match w__217 with | Some - ((rd, rs1, rs2)) => - returnm ((MULW - ((rs2, rs1, rd))) - : ast ) + (rd, rs1, rs2) => + returnm (MULW + (rs2, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1596_ - _s825_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1995_ + _s1222_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__220 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__220 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1596_ - _s825_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s1995_ + _s1222_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__221 with | Some - ((s, rd, rs1, rs2)) => - returnm ((DIVW - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (DIVW + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1615_ - _s825_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2014_ + _s1222_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s1615_ - _s825_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2014_ + _s1222_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__225 with | Some - ((s, rd, rs1, rs2)) => - returnm ((REMW - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (REMW + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1634_ - _s825_) >>= fun w__228 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2033_ + _s1222_) >>= fun w__228 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__228 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__228 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s1634_ - _s825_) >>= fun w__229 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2033_ + _s1222_) >>= fun w__229 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__229 with | Some - ((op, rd, rs1, csr)) => - returnm ((CSR - ((csr, rs1, rd, true, op))) - : ast ) + (op, rd, csr, rs1) => + returnm (CSR + (csr, rs1, rd, true, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1652_ - _s825_) >>= fun w__232 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2051_ + _s1222_) >>= fun w__232 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__232 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__232 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s1652_ - _s825_) >>= fun w__233 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2051_ + _s1222_) >>= fun w__233 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__233 with | Some - ((op, rd, rs1, csr)) => - returnm ((CSR - ((csr, rs1, rd, false, op))) - : ast ) + (op, rd, csr, rs1) => + returnm (CSR + (csr, rs1, rd, false, op)) | _ => exit tt : M (ast) end) : M (ast) else if - ((generic_eq - _s825_ - "uret")) + generic_eq + _s1222_ + "uret" then - returnm ((URET - (tt)) - : ast ) + returnm (URET + tt) else - (_s1669_ - _s825_) >>= fun w__236 : option (mword 32) => + (_s2068_ + _s1222_) >>= fun w__236 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__236 with - | Some - (s) => - true - | _ => - false - end)) + match w__236 with + | Some + (width, rd, imm, rs1) => + true + | _ => + false + end then - (_s1669_ - _s825_) >>= fun w__237 : option (mword 32) => + (_s2068_ + _s1222_) >>= fun w__237 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__237 with | Some - (s) => - returnm ((ILLEGAL - (s)) - : ast ) + (width, rd, imm, rs1) => + returnm (LOAD_FP + (imm, rs1, rd, width)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1677_ - _s825_) >>= fun w__240 : option (mword 16) => + (_s2092_ + _s1222_) >>= fun w__240 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__240 with - | Some - (s) => - true - | _ => - false - end)) + match w__240 with + | Some + (width, rs2, imm, rs1) => + true + | _ => + false + end then - (_s1677_ - _s825_) >>= fun w__241 : option (mword 16) => + (_s2092_ + _s1222_) >>= fun w__241 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__241 with | Some - (s) => - returnm ((C_ILLEGAL - (s)) - : ast ) + (width, rs2, imm, rs1) => + returnm (STORE_FP + (imm, rs2, rs1, width)) | _ => exit tt : M (ast) end) : M (ast) else - assert_exp' false "Pattern match failure at unknown location" >>= fun _ => - exit tt) + (_s2116_ + _s1222_) >>= fun w__244 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__244 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s2116_ + _s1222_) >>= fun w__245 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__245 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2141_ + _s1222_) >>= fun w__248 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__248 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s2141_ + _s1222_) >>= fun w__249 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__249 with + | Some + (op, rd, rs1, rs2, rm) => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2162_ + _s1222_) >>= fun w__252 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__252 with + | Some + (FSQRT_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2162_ + _s1222_) >>= fun w__253 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__253 with + | Some + (FSQRT_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2179_ + _s1222_) >>= fun w__256 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__256 with + | Some + (FCVT_W_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2179_ + _s1222_) >>= fun w__257 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__257 with + | Some + (FCVT_W_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2196_ + _s1222_) >>= fun w__260 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__260 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2196_ + _s1222_) >>= fun w__261 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__261 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2213_ + _s1222_) >>= fun w__264 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__264 with + | Some + (FCVT_S_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2213_ + _s1222_) >>= fun w__265 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__265 with + | Some + (FCVT_S_W, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2230_ + _s1222_) >>= fun w__268 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__268 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2230_ + _s1222_) >>= fun w__269 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__269 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2247_ + _s1222_) >>= fun w__272 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__272 with + | Some + (FCVT_L_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2247_ + _s1222_) >>= fun w__273 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__273 with + | Some + (FCVT_L_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2264_ + _s1222_) >>= fun w__276 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__276 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2264_ + _s1222_) >>= fun w__277 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__277 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2281_ + _s1222_) >>= fun w__280 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__280 with + | Some + (FCVT_S_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2281_ + _s1222_) >>= fun w__281 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__281 with + | Some + (FCVT_S_L, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2298_ + _s1222_) >>= fun w__284 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__284 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2298_ + _s1222_) >>= fun w__285 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__285 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2315_ + _s1222_) >>= fun w__288 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__288 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2315_ + _s1222_) >>= fun w__289 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__289 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2332_ + _s1222_) >>= fun w__292 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__292 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2332_ + _s1222_) >>= fun w__293 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__293 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2349_ + _s1222_) >>= fun w__296 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__296 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2349_ + _s1222_) >>= fun w__297 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__297 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2366_ + _s1222_) >>= fun w__300 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__300 with + | Some + (FMIN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2366_ + _s1222_) >>= fun w__301 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__301 with + | Some + (FMIN_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2383_ + _s1222_) >>= fun w__304 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__304 with + | Some + (FMAX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2383_ + _s1222_) >>= fun w__305 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__305 with + | Some + (FMAX_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2400_ + _s1222_) >>= fun w__308 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__308 with + | Some + (FEQ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2400_ + _s1222_) >>= fun w__309 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__309 with + | Some + (FEQ_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2417_ + _s1222_) >>= fun w__312 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__312 with + | Some + (FLT_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2417_ + _s1222_) >>= fun w__313 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__313 with + | Some + (FLT_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2434_ + _s1222_) >>= fun w__316 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__316 with + | Some + (FLE_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2434_ + _s1222_) >>= fun w__317 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__317 with + | Some + (FLE_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2451_ + _s1222_) >>= fun w__320 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__320 with + | Some + (FMV_X_W, rd, rs1) => + true + | _ => + false + end + then + (_s2451_ + _s1222_) >>= fun w__321 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__321 with + | Some + (FMV_X_W, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FMV_X_W)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2464_ + _s1222_) >>= fun w__324 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__324 with + | Some + (FMV_W_X, rd, rs1) => + true + | _ => + false + end + then + (_s2464_ + _s1222_) >>= fun w__325 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__325 with + | Some + (FMV_W_X, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FMV_W_X)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2477_ + _s1222_) >>= fun w__328 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__328 with + | Some + (FCLASS_S, rd, rs1) => + true + | _ => + false + end + then + (_s2477_ + _s1222_) >>= fun w__329 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__329 with + | Some + (FCLASS_S, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FCLASS_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2490_ + _s1222_) >>= fun w__332 : option ((mword 5 * mword 6)) => + (if + match w__332 with + | Some + (rd, imm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s2490_ + _s1222_) >>= fun w__333 : option ((mword 5 * mword 6)) => + (match w__333 with + | Some + (rd, imm) => + returnm (C_FLWSP + (imm, rd)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2502_ + _s1222_) >>= fun w__336 : option ((mword 5 * mword 6)) => + (if + match w__336 with + | Some + (rd, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s2502_ + _s1222_) >>= fun w__337 : option ((mword 5 * mword 6)) => + (match w__337 with + | Some + (rd, uimm) => + returnm (C_FSWSP + (uimm, rd)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2514_ + _s1222_) >>= fun w__340 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__340 with + | Some + (rdc, rsc, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s2514_ + _s1222_) >>= fun w__341 : option ((mword 3 * mword 3 * mword 5)) => + (match w__341 with + | Some + (rdc, rsc, uimm) => + returnm (C_FLW + (uimm, rsc, rdc)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2530_ + _s1222_) >>= fun w__344 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__344 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s2530_ + _s1222_) >>= fun w__345 : option ((mword 3 * mword 3 * mword 5)) => + (match w__345 with + | Some + (rsc1, rsc2, uimm) => + returnm (C_FSW + (uimm, rsc1, rsc2)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2546_ + _s1222_) >>= fun w__348 : option (mword 32) => + (if + match w__348 with + | Some + s => + true + | _ => + false + end + then + (_s2546_ + _s1222_) >>= fun w__349 : option (mword 32) => + (match w__349 with + | Some + s => + returnm (ILLEGAL + s) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2554_ + _s1222_) >>= fun w__352 : option (mword 16) => + (if + match w__352 with + | Some + s => + true + | _ => + false + end + then + (_s2554_ + _s1222_) >>= fun w__353 : option (mword 16) => + (match w__353 with + | Some + s => + returnm (C_ILLEGAL + s) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + assert_exp' false "Pattern match failure at unknown location" >>= fun _ => + exit tt) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) : M (ast)) : M (ast)) : M (ast)) @@ -29586,6053 +34335,8354 @@ Definition assembly_backwards (arg_ : string) : M (ast)) : M (ast). -Definition assembly_forwards_matches (arg_ : ast) -: bool := - +Definition assembly_forwards_matches (arg_ : ast) : bool := match arg_ with - | UTYPE ((imm, rd, op)) => true - | RISCV_JAL ((imm, rd)) => true - | RISCV_JALR ((imm, rs1, rd)) => true - | BTYPE ((imm, rs2, rs1, op)) => true - | ITYPE ((imm, rs1, rd, op)) => true - | SHIFTIOP ((shamt, rs1, rd, op)) => true - | RTYPE ((rs2, rs1, rd, op)) => true - | LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl)) => true - | STORE ((imm, rs2, rs1, size, aq, rl)) => true - | ADDIW ((imm, rs1, rd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTW ((shamt, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | RTYPEW ((rs2, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | FENCE ((pred, succ)) => true - | FENCE_TSO ((pred, succ)) => true - | FENCEI (tt) => true - | ECALL (tt) => true - | MRET (tt) => true - | SRET (tt) => true - | EBREAK (tt) => true - | WFI (tt) => true - | SFENCE_VMA ((rs1, rs2)) => true - | LOADRES ((aq, rl, rs1, size, rd)) => true - | STORECON ((aq, rl, rs2, rs1, size, rd)) => true - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => true - | C_NOP (tt) => true - | C_ADDI4SPN ((rdc, nzimm)) => - if ((neq_vec nzimm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then true else false - | C_LW ((uimm, rsc, rdc)) => true - | C_LD ((uimm, rsc, rdc)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_SW ((uimm, rsc1, rsc2)) => true - | C_SD ((uimm, rsc1, rsc2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_ADDI ((nzi, rsd)) => - if ((andb (neq_vec nzi (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_JAL (imm) => if sumbool_of_bool ((Z.eqb 32 32)) then true else false - | C_ADDIW ((imm, rsd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_LI ((imm, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_ADDI16SP (imm) => - if ((neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_LUI ((imm, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) - : bool))) then - true - else false - | C_SRLI ((shamt, rsd)) => - if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_SRAI ((shamt, rsd)) => - if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_ANDI ((imm, rsd)) => true - | C_SUB ((rsd, rs2)) => true - | C_XOR ((rsd, rs2)) => true - | C_OR ((rsd, rs2)) => true - | C_AND ((rsd, rs2)) => true - | C_SUBW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_ADDW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_J (imm) => true - | C_BEQZ ((imm, rs)) => true - | C_BNEZ ((imm, rs)) => true - | C_SLLI ((shamt, rsd)) => - if ((andb (neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_LWSP ((uimm, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_LDSP ((uimm, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - (Z.eqb 32 64))) then - true - else false - | C_SWSP ((uimm, rd)) => true - | C_SDSP ((uimm, rs2)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | C_JR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then + | UTYPE (imm, rd, op) => true + | RISCV_JAL (imm, rd) => true + | RISCV_JALR (imm, rs1, rd) => true + | BTYPE (imm, rs2, rs1, op) => true + | ITYPE (imm, rs1, rd, op) => true + | SHIFTIOP (shamt, rs1, rd, op) => true + | RTYPE (rs2, rs1, rd, op) => true + | LOAD (imm, rs1, rd, is_unsigned, size, aq, rl) => true + | STORE (imm, rs2, rs1, size, aq, rl) => true + | ADDIW (imm, rs1, rd) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | SHIFTW (shamt, rs1, rd, op) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | RTYPEW (rs2, rs1, rd, op) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | SHIFTIWOP (shamt, rs1, rd, op) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | FENCE (pred, succ) => true + | FENCE_TSO (pred, succ) => true + | FENCEI tt => true + | ECALL tt => true + | MRET tt => true + | SRET tt => true + | EBREAK tt => true + | WFI tt => true + | SFENCE_VMA (rs1, rs2) => true + | LOADRES (aq, rl, rs1, size, rd) => true + | STORECON (aq, rl, rs2, rs1, size, rd) => true + | AMO (op, aq, rl, rs2, rs1, width, rd) => true + | C_NOP tt => true + | C_ADDI4SPN (rdc, nzimm) => if neq_vec nzimm (Ox"00" : mword 8) then true else false + | C_LW (uimm, rsc, rdc) => true + | C_LD (uimm, rsc, rdc) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_SW (uimm, rsc1, rsc2) => true + | C_SD (uimm, rsc1, rsc2) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_ADDI (nzi, rsd) => + if andb (neq_vec nzi ('b"000000" : mword 6)) (neq_vec rsd zreg) then true else false + | C_JAL imm => if sumbool_of_bool (Z.eqb 32 32) then true else false + | C_ADDIW (imm, rsd) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_LI (imm, rd) => if neq_vec rd zreg then true else false + | C_ADDI16SP imm => if neq_vec imm ('b"000000" : mword 6) then true else false + | C_LUI (imm, rd) => + if andb (neq_vec rd zreg) (andb (neq_vec rd sp) (neq_vec imm ('b"000000" : mword 6))) then true else false - | C_JALR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_MV ((rd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_EBREAK (tt) => true - | C_ADD ((rsd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => true - | DIV ((rs2, rs1, rd, s)) => true - | REM ((rs2, rs1, rd, s)) => true - | MULW ((rs2, rs1, rd)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | DIVW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | REMW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 32 64)) then true else false - | CSR ((csr, rs1, rd, true, op)) => true - | CSR ((csr, rs1, rd, false, op)) => true - | URET (tt) => true - | ILLEGAL (s) => true - | C_ILLEGAL (s) => true + | C_SRLI (shamt, rsd) => if neq_vec shamt ('b"000000" : mword 6) then true else false + | C_SRAI (shamt, rsd) => if neq_vec shamt ('b"000000" : mword 6) then true else false + | C_ANDI (imm, rsd) => true + | C_SUB (rsd, rs2) => true + | C_XOR (rsd, rs2) => true + | C_OR (rsd, rs2) => true + | C_AND (rsd, rs2) => true + | C_SUBW (rsd, rs2) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_ADDW (rsd, rs2) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_J imm => true + | C_BEQZ (imm, rs) => true + | C_BNEZ (imm, rs) => true + | C_SLLI (shamt, rsd) => + if andb (neq_vec shamt ('b"000000" : mword 6)) (neq_vec rsd zreg) then true else false + | C_LWSP (uimm, rd) => if neq_vec rd zreg then true else false + | C_LDSP (uimm, rd) => + if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 32 64)) then true else false + | C_SWSP (uimm, rd) => true + | C_SDSP (uimm, rs2) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | C_JR rs1 => if neq_vec rs1 zreg then true else false + | C_JALR rs1 => if neq_vec rs1 zreg then true else false + | C_MV (rd, rs2) => if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then true else false + | C_EBREAK tt => true + | C_ADD (rsd, rs2) => if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then true else false + | MUL (rs2, rs1, rd, high, signed1, signed2) => true + | DIV (rs2, rs1, rd, s) => true + | REM (rs2, rs1, rd, s) => true + | MULW (rs2, rs1, rd) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | DIVW (rs2, rs1, rd, s) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | REMW (rs2, rs1, rd, s) => if sumbool_of_bool (Z.eqb 32 64) then true else false + | CSR (csr, rs1, rd, true, op) => true + | CSR (csr, rs1, rd, false, op) => true + | URET tt => true + | LOAD_FP (imm, rs1, rd, width) => true + | STORE_FP (imm, rs2, rs1, width) => true + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => true + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => true + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => true + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => true + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => true + | C_FLWSP (imm, rd) => if sumbool_of_bool (Z.eqb 32 32) then true else false + | C_FSWSP (uimm, rd) => if sumbool_of_bool (Z.eqb 32 32) then true else false + | C_FLW (uimm, rsc, rdc) => if sumbool_of_bool (Z.eqb 32 32) then true else false + | C_FSW (uimm, rsc1, rsc2) => if sumbool_of_bool (Z.eqb 32 32) then true else false + | ILLEGAL s => true + | C_ILLEGAL s => true end. -Definition _s2549_ (_s2550_ : string) -: M (option (mword 16)) := - - let _s2551_ := _s2550_ in - (if ((string_startswith _s2551_ "c.illegal")) then - (match (string_drop _s2551_ (projT1 (string_length "c.illegal"))) with - | _s2552_ => - (spc_matches_prefix _s2552_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2553_ _)) => - match (string_drop _s2552_ _s2553_) with - | _s2554_ => - match (hex_bits_16_matches_prefix _s2554_) with - | Some ((s, existT _ _s2555_ _)) => - let p0_ := string_drop _s2554_ _s2555_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 16)) +Definition _s3906_ (_s3907_ : string) : M (option (mword 16)) := + let _s3908_ := _s3907_ in + (if string_startswith _s3908_ "c.illegal" then + (match (string_drop _s3908_ (projT1 (string_length "c.illegal"))) with + | _s3909_ => + (spc_matches_prefix _s3909_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3910_ _) => + match (string_drop _s3909_ _s3910_) with + | _s3911_ => + match (hex_bits_16_matches_prefix _s3911_) with + | Some (s, existT _ _s3912_ _) => + let p0_ := string_drop _s3911_ _s3912_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 16)) - else returnm (None : option (mword 16))) + else returnm None) : M (option (mword 16)). -Definition _s2541_ (_s2542_ : string) -: M (option (mword 32)) := - - let _s2543_ := _s2542_ in - (if ((string_startswith _s2543_ "illegal")) then - (match (string_drop _s2543_ (projT1 (string_length "illegal"))) with - | _s2544_ => - (spc_matches_prefix _s2544_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2545_ _)) => - match (string_drop _s2544_ _s2545_) with - | _s2546_ => - match (hex_bits_32_matches_prefix _s2546_) with - | Some ((s, existT _ _s2547_ _)) => - let p0_ := string_drop _s2546_ _s2547_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 32)) +Definition _s3898_ (_s3899_ : string) : M (option (mword 32)) := + let _s3900_ := _s3899_ in + (if string_startswith _s3900_ "illegal" then + (match (string_drop _s3900_ (projT1 (string_length "illegal"))) with + | _s3901_ => + (spc_matches_prefix _s3901_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3902_ _) => + match (string_drop _s3901_ _s3902_) with + | _s3903_ => + match (hex_bits_32_matches_prefix _s3903_) with + | Some (s, existT _ _s3904_ _) => + let p0_ := string_drop _s3903_ _s3904_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 32)) - else returnm (None : option (mword 32))) + else returnm None) : M (option (mword 32)). -Definition _s2524_ (_s2525_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s2525_ with - | _s2526_ => - (csr_mnemonic_matches_prefix _s2526_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s3882_ (_s3883_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3884_ := _s3883_ in + (if string_startswith _s3884_ "c.fsw" then + (match (string_drop _s3884_ (projT1 (string_length "c.fsw"))) with + | _s3885_ => + (spc_matches_prefix _s3885_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3886_ _) => + (match (string_drop _s3885_ _s3886_) with + | _s3887_ => + (creg_name_matches_prefix _s3887_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s3888_ _) => + (match (string_drop _s3887_ _s3888_) with + | _s3889_ => + (sep_matches_prefix _s3889_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s3890_ _) => + (match (string_drop _s3889_ _s3890_) with + | _s3891_ => + (creg_name_matches_prefix _s3891_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s3892_ _) => + (match (string_drop _s3891_ _s3892_) with + | _s3893_ => + (sep_matches_prefix _s3893_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s3894_ _) => + match (string_drop _s3893_ _s3894_) with + | _s3895_ => + match (hex_bits_7_matches_prefix _s3895_) with + | Some (v__1092, existT _ _s3896_ _) => + if eq_vec (subrange_vec_dec v__1092 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1092 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1092 6 2 in + let p0_ := string_drop _s3895_ _s3896_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s3866_ (_s3867_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3868_ := _s3867_ in + (if string_startswith _s3868_ "c.flw" then + (match (string_drop _s3868_ (projT1 (string_length "c.flw"))) with + | _s3869_ => + (spc_matches_prefix _s3869_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3870_ _) => + (match (string_drop _s3869_ _s3870_) with + | _s3871_ => + (creg_name_matches_prefix _s3871_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s3872_ _) => + (match (string_drop _s3871_ _s3872_) with + | _s3873_ => + (sep_matches_prefix _s3873_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s3874_ _) => + (match (string_drop _s3873_ _s3874_) with + | _s3875_ => + (creg_name_matches_prefix _s3875_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s3876_ _) => + (match (string_drop _s3875_ _s3876_) with + | _s3877_ => + (sep_matches_prefix _s3877_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s3878_ _) => + match (string_drop _s3877_ _s3878_) with + | _s3879_ => + match (hex_bits_7_matches_prefix _s3879_) with + | Some (v__1094, existT _ _s3880_ _) => + if eq_vec (subrange_vec_dec v__1094 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1094 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1094 6 2 in + let p0_ := string_drop _s3879_ _s3880_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s3854_ (_s3855_ : string) : M (option ((mword 5 * mword 6))) := + let _s3856_ := _s3855_ in + (if string_startswith _s3856_ "c.fswsp" then + (match (string_drop _s3856_ (projT1 (string_length "c.fswsp"))) with + | _s3857_ => + (spc_matches_prefix _s3857_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3858_ _) => + (match (string_drop _s3857_ _s3858_) with + | _s3859_ => + (reg_name_matches_prefix _s3859_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s3860_ _) => + (match (string_drop _s3859_ _s3860_) with + | _s3861_ => + (sep_matches_prefix _s3861_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s3862_ _) => + match (string_drop _s3861_ _s3862_) with + | _s3863_ => + match (hex_bits_6_matches_prefix _s3863_) with + | Some (uimm, existT _ _s3864_ _) => + let p0_ := string_drop _s3863_ _s3864_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s3842_ (_s3843_ : string) : M (option ((mword 5 * mword 6))) := + let _s3844_ := _s3843_ in + (if string_startswith _s3844_ "c.flwsp" then + (match (string_drop _s3844_ (projT1 (string_length "c.flwsp"))) with + | _s3845_ => + (spc_matches_prefix _s3845_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3846_ _) => + (match (string_drop _s3845_ _s3846_) with + | _s3847_ => + (reg_name_matches_prefix _s3847_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s3848_ _) => + (match (string_drop _s3847_ _s3848_) with + | _s3849_ => + (sep_matches_prefix _s3849_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s3850_ _) => + match (string_drop _s3849_ _s3850_) with + | _s3851_ => + match (hex_bits_6_matches_prefix _s3851_) with + | Some (imm, existT _ _s3852_ _) => + let p0_ := string_drop _s3851_ _s3852_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s3829_ (_s3830_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s3830_ with + | _s3831_ => + (f_un_type_mnemonic_S_matches_prefix _s3831_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s3832_ _) => + (match (string_drop _s3831_ _s3832_) with + | _s3833_ => + (spc_matches_prefix _s3833_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3834_ _) => + (match (string_drop _s3833_ _s3834_) with + | _s3835_ => + (reg_name_matches_prefix _s3835_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3836_ _) => + (match (string_drop _s3835_ _s3836_) with + | _s3837_ => + (sep_matches_prefix _s3837_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3838_ _) => + (match (string_drop _s3837_ _s3838_) with + | _s3839_ => + (freg_name_matches_prefix _s3839_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3840_ _) => + let p0_ := string_drop _s3839_ _s3840_ in + if generic_eq p0_ "" then + Some (FCLASS_S, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s3816_ (_s3817_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s3817_ with + | _s3818_ => + (f_un_type_mnemonic_S_matches_prefix _s3818_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_W_X, existT _ _s3819_ _) => + (match (string_drop _s3818_ _s3819_) with + | _s3820_ => + (spc_matches_prefix _s3820_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3821_ _) => + (match (string_drop _s3820_ _s3821_) with + | _s3822_ => + (freg_name_matches_prefix _s3822_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3823_ _) => + (match (string_drop _s3822_ _s3823_) with + | _s3824_ => + (sep_matches_prefix _s3824_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3825_ _) => + (match (string_drop _s3824_ _s3825_) with + | _s3826_ => + (reg_name_matches_prefix _s3826_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3827_ _) => + let p0_ := string_drop _s3826_ _s3827_ in + if generic_eq p0_ "" then Some (FMV_W_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s3803_ (_s3804_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s3804_ with + | _s3805_ => + (f_un_type_mnemonic_S_matches_prefix _s3805_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2527_ _)) => - (match (string_drop _s2526_ _s2527_) with - | _s2528_ => - (spc_matches_prefix _s2528_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FMV_X_W, existT _ _s3806_ _) => + (match (string_drop _s3805_ _s3806_) with + | _s3807_ => + (spc_matches_prefix _s3807_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2529_ _)) => - (match (string_drop _s2528_ _s2529_) with - | _s2530_ => - (reg_name_matches_prefix _s2530_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3808_ _) => + (match (string_drop _s3807_ _s3808_) with + | _s3809_ => + (reg_name_matches_prefix _s3809_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2531_ _)) => - (match (string_drop _s2530_ _s2531_) with - | _s2532_ => - (sep_matches_prefix _s2532_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3810_ _) => + (match (string_drop _s3809_ _s3810_) with + | _s3811_ => + (sep_matches_prefix _s3811_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2533_ _)) => - (match (string_drop _s2532_ _s2533_) with - | _s2534_ => - (reg_name_matches_prefix _s2534_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3812_ _) => + (match (string_drop _s3811_ _s3812_) with + | _s3813_ => + (freg_name_matches_prefix _s3813_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3814_ _) => + let p0_ := string_drop _s3813_ _s3814_ in + if generic_eq p0_ "" then Some (FMV_X_W, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s3786_ (_s3787_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3787_ with + | _s3788_ => + (f_bin_type_mnemonic_S_matches_prefix _s3788_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_S, existT _ _s3789_ _) => + (match (string_drop _s3788_ _s3789_) with + | _s3790_ => + (spc_matches_prefix _s3790_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3791_ _) => + (match (string_drop _s3790_ _s3791_) with + | _s3792_ => + (reg_name_matches_prefix _s3792_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3793_ _) => + (match (string_drop _s3792_ _s3793_) with + | _s3794_ => + (sep_matches_prefix _s3794_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3795_ _) => + (match (string_drop _s3794_ _s3795_) with + | _s3796_ => + (freg_name_matches_prefix _s3796_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2535_ _)) => - (match (string_drop _s2534_ _s2535_) with - | _s2536_ => - (sep_matches_prefix _s2536_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3797_ _) => + (match (string_drop _s3796_ _s3797_) with + | _s3798_ => + (sep_matches_prefix _s3798_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2537_ _)) => - (match (string_drop _s2536_ _s2537_) with - | _s2538_ => - (csr_name_map_matches_prefix _s2538_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3799_ _) => + (match (string_drop _s3798_ _s3799_) with + | _s3800_ => + (freg_name_matches_prefix _s3800_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s2539_ _)) => - let p0_ := - string_drop _s2538_ _s2539_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) + returnm (match w__6 with + | Some (rs2, existT _ _s3801_ _) => + let p0_ := + string_drop _s3800_ _s3801_ in + if generic_eq p0_ "" then + Some (FLE_S, rd, rs1, rs2) + else None + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3769_ (_s3770_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3770_ with + | _s3771_ => + (f_bin_type_mnemonic_S_matches_prefix _s3771_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s3772_ _) => + (match (string_drop _s3771_ _s3772_) with + | _s3773_ => + (spc_matches_prefix _s3773_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3774_ _) => + (match (string_drop _s3773_ _s3774_) with + | _s3775_ => + (reg_name_matches_prefix _s3775_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3776_ _) => + (match (string_drop _s3775_ _s3776_) with + | _s3777_ => + (sep_matches_prefix _s3777_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3778_ _) => + (match (string_drop _s3777_ _s3778_) with + | _s3779_ => + (freg_name_matches_prefix _s3779_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3780_ _) => + (match (string_drop _s3779_ _s3780_) with + | _s3781_ => + (sep_matches_prefix _s3781_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3782_ _) => + (match (string_drop _s3781_ _s3782_) with + | _s3783_ => + (freg_name_matches_prefix _s3783_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3784_ _) => + let p0_ := + string_drop _s3783_ _s3784_ in + if generic_eq p0_ "" then + Some (FLT_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3752_ (_s3753_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3753_ with + | _s3754_ => + (f_bin_type_mnemonic_S_matches_prefix _s3754_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_S, existT _ _s3755_ _) => + (match (string_drop _s3754_ _s3755_) with + | _s3756_ => + (spc_matches_prefix _s3756_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3757_ _) => + (match (string_drop _s3756_ _s3757_) with + | _s3758_ => + (reg_name_matches_prefix _s3758_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3759_ _) => + (match (string_drop _s3758_ _s3759_) with + | _s3760_ => + (sep_matches_prefix _s3760_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3761_ _) => + (match (string_drop _s3760_ _s3761_) with + | _s3762_ => + (freg_name_matches_prefix _s3762_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3763_ _) => + (match (string_drop _s3762_ _s3763_) with + | _s3764_ => + (sep_matches_prefix _s3764_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3765_ _) => + (match (string_drop _s3764_ _s3765_) with + | _s3766_ => + (freg_name_matches_prefix _s3766_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3767_ _) => + let p0_ := + string_drop _s3766_ _s3767_ in + if generic_eq p0_ "" then + Some (FEQ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3735_ (_s3736_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3736_ with + | _s3737_ => + (f_bin_type_mnemonic_S_matches_prefix _s3737_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s3738_ _) => + (match (string_drop _s3737_ _s3738_) with + | _s3739_ => + (spc_matches_prefix _s3739_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3740_ _) => + (match (string_drop _s3739_ _s3740_) with + | _s3741_ => + (freg_name_matches_prefix _s3741_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3742_ _) => + (match (string_drop _s3741_ _s3742_) with + | _s3743_ => + (sep_matches_prefix _s3743_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3744_ _) => + (match (string_drop _s3743_ _s3744_) with + | _s3745_ => + (freg_name_matches_prefix _s3745_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3746_ _) => + (match (string_drop _s3745_ _s3746_) with + | _s3747_ => + (sep_matches_prefix _s3747_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3748_ _) => + (match (string_drop _s3747_ _s3748_) with + | _s3749_ => + (freg_name_matches_prefix _s3749_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3750_ _) => + let p0_ := + string_drop _s3749_ _s3750_ in + if generic_eq p0_ "" then + Some (FMAX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3718_ (_s3719_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3719_ with + | _s3720_ => + (f_bin_type_mnemonic_S_matches_prefix _s3720_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s3721_ _) => + (match (string_drop _s3720_ _s3721_) with + | _s3722_ => + (spc_matches_prefix _s3722_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3723_ _) => + (match (string_drop _s3722_ _s3723_) with + | _s3724_ => + (freg_name_matches_prefix _s3724_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3725_ _) => + (match (string_drop _s3724_ _s3725_) with + | _s3726_ => + (sep_matches_prefix _s3726_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3727_ _) => + (match (string_drop _s3726_ _s3727_) with + | _s3728_ => + (freg_name_matches_prefix _s3728_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3729_ _) => + (match (string_drop _s3728_ _s3729_) with + | _s3730_ => + (sep_matches_prefix _s3730_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3731_ _) => + (match (string_drop _s3730_ _s3731_) with + | _s3732_ => + (freg_name_matches_prefix _s3732_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3733_ _) => + let p0_ := + string_drop _s3732_ _s3733_ in + if generic_eq p0_ "" then + Some (FMIN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3701_ (_s3702_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3702_ with + | _s3703_ => + (f_bin_type_mnemonic_S_matches_prefix _s3703_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s3704_ _) => + (match (string_drop _s3703_ _s3704_) with + | _s3705_ => + (spc_matches_prefix _s3705_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3706_ _) => + (match (string_drop _s3705_ _s3706_) with + | _s3707_ => + (freg_name_matches_prefix _s3707_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3708_ _) => + (match (string_drop _s3707_ _s3708_) with + | _s3709_ => + (sep_matches_prefix _s3709_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3710_ _) => + (match (string_drop _s3709_ _s3710_) with + | _s3711_ => + (freg_name_matches_prefix _s3711_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3712_ _) => + (match (string_drop _s3711_ _s3712_) with + | _s3713_ => + (sep_matches_prefix _s3713_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3714_ _) => + (match (string_drop _s3713_ _s3714_) with + | _s3715_ => + (freg_name_matches_prefix _s3715_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3716_ _) => + let p0_ := + string_drop _s3715_ _s3716_ in + if generic_eq p0_ "" then + Some (FSGNJX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3684_ (_s3685_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3685_ with + | _s3686_ => + (f_bin_type_mnemonic_S_matches_prefix _s3686_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s3687_ _) => + (match (string_drop _s3686_ _s3687_) with + | _s3688_ => + (spc_matches_prefix _s3688_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3689_ _) => + (match (string_drop _s3688_ _s3689_) with + | _s3690_ => + (freg_name_matches_prefix _s3690_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3691_ _) => + (match (string_drop _s3690_ _s3691_) with + | _s3692_ => + (sep_matches_prefix _s3692_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3693_ _) => + (match (string_drop _s3692_ _s3693_) with + | _s3694_ => + (freg_name_matches_prefix _s3694_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3695_ _) => + (match (string_drop _s3694_ _s3695_) with + | _s3696_ => + (sep_matches_prefix _s3696_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3697_ _) => + (match (string_drop _s3696_ _s3697_) with + | _s3698_ => + (freg_name_matches_prefix _s3698_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3699_ _) => + let p0_ := + string_drop _s3698_ _s3699_ in + if generic_eq p0_ "" then + Some (FSGNJN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3667_ (_s3668_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s3668_ with + | _s3669_ => + (f_bin_type_mnemonic_S_matches_prefix _s3669_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_S, existT _ _s3670_ _) => + (match (string_drop _s3669_ _s3670_) with + | _s3671_ => + (spc_matches_prefix _s3671_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3672_ _) => + (match (string_drop _s3671_ _s3672_) with + | _s3673_ => + (freg_name_matches_prefix _s3673_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3674_ _) => + (match (string_drop _s3673_ _s3674_) with + | _s3675_ => + (sep_matches_prefix _s3675_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3676_ _) => + (match (string_drop _s3675_ _s3676_) with + | _s3677_ => + (freg_name_matches_prefix _s3677_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3678_ _) => + (match (string_drop _s3677_ _s3678_) with + | _s3679_ => + (sep_matches_prefix _s3679_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3680_ _) => + (match (string_drop _s3679_ _s3680_) with + | _s3681_ => + (freg_name_matches_prefix _s3681_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3682_ _) => + let p0_ := + string_drop _s3681_ _s3682_ in + if generic_eq p0_ "" then + Some (FSGNJ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s3650_ (_s3651_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3651_ with + | _s3652_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3652_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s3653_ _) => + (match (string_drop _s3652_ _s3653_) with + | _s3654_ => + (spc_matches_prefix _s3654_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3655_ _) => + (match (string_drop _s3654_ _s3655_) with + | _s3656_ => + (freg_name_matches_prefix _s3656_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3657_ _) => + (match (string_drop _s3656_ _s3657_) with + | _s3658_ => + (sep_matches_prefix _s3658_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3659_ _) => + (match (string_drop _s3658_ _s3659_) with + | _s3660_ => + (reg_name_matches_prefix _s3660_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3661_ _) => + (match (string_drop _s3660_ _s3661_) with + | _s3662_ => + (sep_matches_prefix _s3662_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3663_ _) => + (match (string_drop _s3662_ _s3663_) with + | _s3664_ => + (frm_mnemonic_matches_prefix _s3664_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3665_ _) => + let p0_ := + string_drop _s3664_ _s3665_ in + if generic_eq p0_ "" then + Some (FCVT_S_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3633_ (_s3634_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3634_ with + | _s3635_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3635_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s3636_ _) => + (match (string_drop _s3635_ _s3636_) with + | _s3637_ => + (spc_matches_prefix _s3637_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3638_ _) => + (match (string_drop _s3637_ _s3638_) with + | _s3639_ => + (freg_name_matches_prefix _s3639_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3640_ _) => + (match (string_drop _s3639_ _s3640_) with + | _s3641_ => + (sep_matches_prefix _s3641_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3642_ _) => + (match (string_drop _s3641_ _s3642_) with + | _s3643_ => + (reg_name_matches_prefix _s3643_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3644_ _) => + (match (string_drop _s3643_ _s3644_) with + | _s3645_ => + (sep_matches_prefix _s3645_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3646_ _) => + (match (string_drop _s3645_ _s3646_) with + | _s3647_ => + (frm_mnemonic_matches_prefix _s3647_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3648_ _) => + let p0_ := + string_drop _s3647_ _s3648_ in + if generic_eq p0_ "" then + Some (FCVT_S_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3616_ (_s3617_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3617_ with + | _s3618_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3618_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s3619_ _) => + (match (string_drop _s3618_ _s3619_) with + | _s3620_ => + (spc_matches_prefix _s3620_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3621_ _) => + (match (string_drop _s3620_ _s3621_) with + | _s3622_ => + (reg_name_matches_prefix _s3622_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3623_ _) => + (match (string_drop _s3622_ _s3623_) with + | _s3624_ => + (sep_matches_prefix _s3624_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3625_ _) => + (match (string_drop _s3624_ _s3625_) with + | _s3626_ => + (freg_name_matches_prefix _s3626_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3627_ _) => + (match (string_drop _s3626_ _s3627_) with + | _s3628_ => + (sep_matches_prefix _s3628_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3629_ _) => + (match (string_drop _s3628_ _s3629_) with + | _s3630_ => + (frm_mnemonic_matches_prefix _s3630_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3631_ _) => + let p0_ := + string_drop _s3630_ _s3631_ in + if generic_eq p0_ "" then + Some (FCVT_LU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s2506_ (_s2507_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s2507_ with - | _s2508_ => - (csr_mnemonic_matches_prefix _s2508_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3599_ (_s3600_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3600_ with + | _s3601_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3601_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s3602_ _) => + (match (string_drop _s3601_ _s3602_) with + | _s3603_ => + (spc_matches_prefix _s3603_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3604_ _) => + (match (string_drop _s3603_ _s3604_) with + | _s3605_ => + (reg_name_matches_prefix _s3605_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3606_ _) => + (match (string_drop _s3605_ _s3606_) with + | _s3607_ => + (sep_matches_prefix _s3607_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3608_ _) => + (match (string_drop _s3607_ _s3608_) with + | _s3609_ => + (freg_name_matches_prefix _s3609_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3610_ _) => + (match (string_drop _s3609_ _s3610_) with + | _s3611_ => + (sep_matches_prefix _s3611_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3612_ _) => + (match (string_drop _s3611_ _s3612_) with + | _s3613_ => + (frm_mnemonic_matches_prefix _s3613_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3614_ _) => + let p0_ := + string_drop _s3613_ _s3614_ in + if generic_eq p0_ "" then + Some (FCVT_L_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3582_ (_s3583_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3583_ with + | _s3584_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3584_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2509_ _)) => - let _s2510_ := string_drop _s2508_ _s2509_ in - (if ((string_startswith _s2510_ "i")) then - (match (string_drop _s2510_ (projT1 (string_length "i"))) with - | _s2511_ => - (spc_matches_prefix _s2511_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FCVT_S_WU, existT _ _s3585_ _) => + (match (string_drop _s3584_ _s3585_) with + | _s3586_ => + (spc_matches_prefix _s3586_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3587_ _) => + (match (string_drop _s3586_ _s3587_) with + | _s3588_ => + (freg_name_matches_prefix _s3588_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3589_ _) => + (match (string_drop _s3588_ _s3589_) with + | _s3590_ => + (sep_matches_prefix _s3590_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3591_ _) => + (match (string_drop _s3590_ _s3591_) with + | _s3592_ => + (reg_name_matches_prefix _s3592_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3593_ _) => + (match (string_drop _s3592_ _s3593_) with + | _s3594_ => + (sep_matches_prefix _s3594_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3595_ _) => + (match (string_drop _s3594_ _s3595_) with + | _s3596_ => + (frm_mnemonic_matches_prefix _s3596_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3597_ _) => + let p0_ := + string_drop _s3596_ _s3597_ in + if generic_eq p0_ "" then + Some (FCVT_S_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3565_ (_s3566_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3566_ with + | _s3567_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3567_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s3568_ _) => + (match (string_drop _s3567_ _s3568_) with + | _s3569_ => + (spc_matches_prefix _s3569_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3570_ _) => + (match (string_drop _s3569_ _s3570_) with + | _s3571_ => + (freg_name_matches_prefix _s3571_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3572_ _) => + (match (string_drop _s3571_ _s3572_) with + | _s3573_ => + (sep_matches_prefix _s3573_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3574_ _) => + (match (string_drop _s3573_ _s3574_) with + | _s3575_ => + (reg_name_matches_prefix _s3575_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3576_ _) => + (match (string_drop _s3575_ _s3576_) with + | _s3577_ => + (sep_matches_prefix _s3577_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3578_ _) => + (match (string_drop _s3577_ _s3578_) with + | _s3579_ => + (frm_mnemonic_matches_prefix _s3579_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3580_ _) => + let p0_ := + string_drop _s3579_ _s3580_ in + if generic_eq p0_ "" then + Some (FCVT_S_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3548_ (_s3549_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3549_ with + | _s3550_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3550_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s3551_ _) => + (match (string_drop _s3550_ _s3551_) with + | _s3552_ => + (spc_matches_prefix _s3552_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3553_ _) => + (match (string_drop _s3552_ _s3553_) with + | _s3554_ => + (reg_name_matches_prefix _s3554_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3555_ _) => + (match (string_drop _s3554_ _s3555_) with + | _s3556_ => + (sep_matches_prefix _s3556_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3557_ _) => + (match (string_drop _s3556_ _s3557_) with + | _s3558_ => + (freg_name_matches_prefix _s3558_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3559_ _) => + (match (string_drop _s3558_ _s3559_) with + | _s3560_ => + (sep_matches_prefix _s3560_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3561_ _) => + (match (string_drop _s3560_ _s3561_) with + | _s3562_ => + (frm_mnemonic_matches_prefix _s3562_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3563_ _) => + let p0_ := + string_drop _s3562_ _s3563_ in + if generic_eq p0_ "" then + Some (FCVT_WU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3531_ (_s3532_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3532_ with + | _s3533_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3533_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s3534_ _) => + (match (string_drop _s3533_ _s3534_) with + | _s3535_ => + (spc_matches_prefix _s3535_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3536_ _) => + (match (string_drop _s3535_ _s3536_) with + | _s3537_ => + (reg_name_matches_prefix _s3537_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3538_ _) => + (match (string_drop _s3537_ _s3538_) with + | _s3539_ => + (sep_matches_prefix _s3539_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3540_ _) => + (match (string_drop _s3539_ _s3540_) with + | _s3541_ => + (freg_name_matches_prefix _s3541_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3542_ _) => + (match (string_drop _s3541_ _s3542_) with + | _s3543_ => + (sep_matches_prefix _s3543_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3544_ _) => + (match (string_drop _s3543_ _s3544_) with + | _s3545_ => + (frm_mnemonic_matches_prefix _s3545_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3546_ _) => + let p0_ := + string_drop _s3545_ _s3546_ in + if generic_eq p0_ "" then + Some (FCVT_W_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3514_ (_s3515_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s3515_ with + | _s3516_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s3516_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s3517_ _) => + (match (string_drop _s3516_ _s3517_) with + | _s3518_ => + (spc_matches_prefix _s3518_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3519_ _) => + (match (string_drop _s3518_ _s3519_) with + | _s3520_ => + (freg_name_matches_prefix _s3520_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3521_ _) => + (match (string_drop _s3520_ _s3521_) with + | _s3522_ => + (sep_matches_prefix _s3522_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3523_ _) => + (match (string_drop _s3522_ _s3523_) with + | _s3524_ => + (freg_name_matches_prefix _s3524_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3525_ _) => + (match (string_drop _s3524_ _s3525_) with + | _s3526_ => + (sep_matches_prefix _s3526_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3527_ _) => + (match (string_drop _s3526_ _s3527_) with + | _s3528_ => + (frm_mnemonic_matches_prefix _s3528_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s3529_ _) => + let p0_ := + string_drop _s3528_ _s3529_ in + if generic_eq p0_ "" then + Some (FSQRT_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s3493_ (_s3494_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s3494_ with + | _s3495_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s3495_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3496_ _) => + (match (string_drop _s3495_ _s3496_) with + | _s3497_ => + (spc_matches_prefix _s3497_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3498_ _) => + (match (string_drop _s3497_ _s3498_) with + | _s3499_ => + (freg_name_matches_prefix _s3499_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3500_ _) => + (match (string_drop _s3499_ _s3500_) with + | _s3501_ => + (sep_matches_prefix _s3501_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3502_ _) => + (match (string_drop _s3501_ _s3502_) with + | _s3503_ => + (freg_name_matches_prefix _s3503_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3504_ _) => + (match (string_drop _s3503_ _s3504_) with + | _s3505_ => + (sep_matches_prefix _s3505_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3506_ _) => + (match (string_drop _s3505_ _s3506_) with + | _s3507_ => + (freg_name_matches_prefix _s3507_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s3508_ _) => + (match (string_drop _s3507_ _s3508_) with + | _s3509_ => + (sep_matches_prefix _s3509_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s3510_ _) => + (match (string_drop _s3509_ + _s3510_) with + | _s3511_ => + (frm_mnemonic_matches_prefix + _s3511_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s3512_ _) => + let p0_ := + string_drop + _s3511_ + _s3512_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s3468_ (_s3469_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s3469_ with + | _s3470_ => + (f_madd_type_mnemonic_S_matches_prefix _s3470_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3471_ _) => + (match (string_drop _s3470_ _s3471_) with + | _s3472_ => + (spc_matches_prefix _s3472_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3473_ _) => + (match (string_drop _s3472_ _s3473_) with + | _s3474_ => + (freg_name_matches_prefix _s3474_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3475_ _) => + (match (string_drop _s3474_ _s3475_) with + | _s3476_ => + (sep_matches_prefix _s3476_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3477_ _) => + (match (string_drop _s3476_ _s3477_) with + | _s3478_ => + (freg_name_matches_prefix _s3478_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3479_ _) => + (match (string_drop _s3478_ _s3479_) with + | _s3480_ => + (sep_matches_prefix _s3480_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3481_ _) => + (match (string_drop _s3480_ _s3481_) with + | _s3482_ => + (freg_name_matches_prefix _s3482_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s3483_ _) => + (match (string_drop _s3482_ _s3483_) with + | _s3484_ => + (sep_matches_prefix _s3484_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s3485_ _) => + (match (string_drop _s3484_ + _s3485_) with + | _s3486_ => + (freg_name_matches_prefix + _s3486_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s3487_ _) => + (match (string_drop + _s3486_ _s3487_) with + | _s3488_ => + (sep_matches_prefix + _s3488_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s3489_ _) => + (match (string_drop + _s3488_ + _s3489_) with + | _s3490_ => + (frm_mnemonic_matches_prefix + _s3490_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s3491_ _) => + let p0_ := + string_drop + _s3490_ + _s3491_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s3444_ (_s3445_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s3446_ := _s3445_ in + (if string_startswith _s3446_ "fs" then + (match (string_drop _s3446_ (projT1 (string_length "fs"))) with + | _s3447_ => + (size_mnemonic_matches_prefix _s3447_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s3448_ _) => + (match (string_drop _s3447_ _s3448_) with + | _s3449_ => + (spc_matches_prefix _s3449_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2512_ _)) => - (match (string_drop _s2511_ _s2512_) with - | _s2513_ => - (reg_name_matches_prefix _s2513_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3450_ _) => + (match (string_drop _s3449_ _s3450_) with + | _s3451_ => + (freg_name_matches_prefix _s3451_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2514_ _)) => - (match (string_drop _s2513_ _s2514_) with - | _s2515_ => - (sep_matches_prefix _s2515_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3452_ _) => + (match (string_drop _s3451_ _s3452_) with + | _s3453_ => + (sep_matches_prefix _s3453_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2516_ _)) => - (match (string_drop _s2515_ _s2516_) with - | _s2517_ => - (match (hex_bits_5_matches_prefix _s2517_) with - | Some ((rs1, existT _ _s2518_ _)) => - (match (string_drop _s2517_ _s2518_) with - | _s2519_ => - (sep_matches_prefix _s2519_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3454_ _) => + (match (string_drop _s3453_ _s3454_) with + | _s3455_ => + (match (hex_bits_12_matches_prefix _s3455_) with + | Some (imm, existT _ _s3456_ _) => + (match (string_drop _s3455_ _s3456_) with + | _s3457_ => + (opt_spc_matches_prefix _s3457_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2520_ _)) => - (match (string_drop _s2519_ _s2520_) with - | _s2521_ => - (csr_name_map_matches_prefix _s2521_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s2522_ _)) => - let p0_ := - string_drop _s2521_ _s2522_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + | Some (tt, existT _ _s3458_ _) => + let _s3459_ := string_drop _s3457_ _s3458_ in + (if string_startswith _s3459_ "(" then + (match (string_drop _s3459_ + (projT1 + (string_length "("))) with + | _s3460_ => + (opt_spc_matches_prefix _s3460_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3461_ _) => + (match (string_drop _s3460_ _s3461_) with + | _s3462_ => + (reg_name_matches_prefix + _s3462_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s3463_ _) => + (match (string_drop _s3462_ + _s3463_) with + | _s3464_ => + (opt_spc_matches_prefix + _s3464_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s3465_ _) => + let _s3466_ := + string_drop + _s3464_ + _s3465_ in + if string_startswith + _s3466_ + ")" + then + let p0_ := + string_drop + _s3466_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rs2, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s3420_ (_s3421_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s3422_ := _s3421_ in + (if string_startswith _s3422_ "fl" then + (match (string_drop _s3422_ (projT1 (string_length "fl"))) with + | _s3423_ => + (size_mnemonic_matches_prefix _s3423_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s3424_ _) => + (match (string_drop _s3423_ _s3424_) with + | _s3425_ => + (spc_matches_prefix _s3425_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3426_ _) => + (match (string_drop _s3425_ _s3426_) with + | _s3427_ => + (freg_name_matches_prefix _s3427_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3428_ _) => + (match (string_drop _s3427_ _s3428_) with + | _s3429_ => + (sep_matches_prefix _s3429_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3430_ _) => + (match (string_drop _s3429_ _s3430_) with + | _s3431_ => + (match (hex_bits_12_matches_prefix _s3431_) with + | Some (imm, existT _ _s3432_ _) => + (match (string_drop _s3431_ _s3432_) with + | _s3433_ => + (opt_spc_matches_prefix _s3433_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s3434_ _) => + let _s3435_ := string_drop _s3433_ _s3434_ in + (if string_startswith _s3435_ "(" then + (match (string_drop _s3435_ + (projT1 + (string_length "("))) with + | _s3436_ => + (opt_spc_matches_prefix _s3436_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3437_ _) => + (match (string_drop _s3436_ _s3437_) with + | _s3438_ => + (reg_name_matches_prefix + _s3438_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s3439_ _) => + (match (string_drop _s3438_ + _s3439_) with + | _s3440_ => + (opt_spc_matches_prefix + _s3440_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s3441_ _) => + let _s3442_ := + string_drop + _s3440_ + _s3441_ in + if string_startswith + _s3442_ + ")" + then + let p0_ := + string_drop + _s3442_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rd, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s3403_ (_s3404_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s3404_ with + | _s3405_ => + (csr_mnemonic_matches_prefix _s3405_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3406_ _) => + (match (string_drop _s3405_ _s3406_) with + | _s3407_ => + (spc_matches_prefix _s3407_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3408_ _) => + (match (string_drop _s3407_ _s3408_) with + | _s3409_ => + (reg_name_matches_prefix _s3409_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3410_ _) => + (match (string_drop _s3409_ _s3410_) with + | _s3411_ => + (sep_matches_prefix _s3411_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3412_ _) => + (match (string_drop _s3411_ _s3412_) with + | _s3413_ => + (csr_name_map_matches_prefix _s3413_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s3414_ _) => + (match (string_drop _s3413_ _s3414_) with + | _s3415_ => + (sep_matches_prefix _s3415_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3416_ _) => + (match (string_drop _s3415_ _s3416_) with + | _s3417_ => + (reg_name_matches_prefix _s3417_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s3418_ _) => + let p0_ := + string_drop _s3417_ _s3418_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s3385_ (_s3386_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s3386_ with + | _s3387_ => + (csr_mnemonic_matches_prefix _s3387_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3388_ _) => + let _s3389_ := string_drop _s3387_ _s3388_ in + (if string_startswith _s3389_ "i" then + (match (string_drop _s3389_ (projT1 (string_length "i"))) with + | _s3390_ => + (spc_matches_prefix _s3390_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3391_ _) => + (match (string_drop _s3390_ _s3391_) with + | _s3392_ => + (reg_name_matches_prefix _s3392_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3393_ _) => + (match (string_drop _s3392_ _s3393_) with + | _s3394_ => + (sep_matches_prefix _s3394_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3395_ _) => + (match (string_drop _s3394_ _s3395_) with + | _s3396_ => + (csr_name_map_matches_prefix _s3396_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s3397_ _) => + (match (string_drop _s3396_ _s3397_) with + | _s3398_ => + (sep_matches_prefix _s3398_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s3399_ _) => + match (string_drop _s3398_ _s3399_) with + | _s3400_ => + match (hex_bits_5_matches_prefix + _s3400_) with + | Some (rs1, existT _ _s3401_ _) => + let p0_ := + string_drop _s3400_ _s3401_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s2487_ (_s2488_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2489_ := _s2488_ in - (if ((string_startswith _s2489_ "rem")) then - (match (string_drop _s2489_ (projT1 (string_length "rem"))) with - | _s2490_ => - (maybe_not_u_matches_prefix _s2490_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s3366_ (_s3367_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3368_ := _s3367_ in + (if string_startswith _s3368_ "rem" then + (match (string_drop _s3368_ (projT1 (string_length "rem"))) with + | _s3369_ => + (maybe_not_u_matches_prefix _s3369_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2491_ _)) => - let _s2492_ := string_drop _s2490_ _s2491_ in - (if ((string_startswith _s2492_ "w")) then - (match (string_drop _s2492_ (projT1 (string_length "w"))) with - | _s2493_ => - (spc_matches_prefix _s2493_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3370_ _) => + let _s3371_ := string_drop _s3369_ _s3370_ in + (if string_startswith _s3371_ "w" then + (match (string_drop _s3371_ (projT1 (string_length "w"))) with + | _s3372_ => + (spc_matches_prefix _s3372_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2494_ _)) => - (match (string_drop _s2493_ _s2494_) with - | _s2495_ => - (reg_name_matches_prefix _s2495_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3373_ _) => + (match (string_drop _s3372_ _s3373_) with + | _s3374_ => + (reg_name_matches_prefix _s3374_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2496_ _)) => - (match (string_drop _s2495_ _s2496_) with - | _s2497_ => - (sep_matches_prefix _s2497_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3375_ _) => + (match (string_drop _s3374_ _s3375_) with + | _s3376_ => + (sep_matches_prefix _s3376_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2498_ _)) => - (match (string_drop _s2497_ _s2498_) with - | _s2499_ => - (reg_name_matches_prefix _s2499_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3377_ _) => + (match (string_drop _s3376_ _s3377_) with + | _s3378_ => + (reg_name_matches_prefix _s3378_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2500_ _)) => - (match (string_drop _s2499_ _s2500_) with - | _s2501_ => - (sep_matches_prefix _s2501_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3379_ _) => + (match (string_drop _s3378_ _s3379_) with + | _s3380_ => + (sep_matches_prefix _s3380_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2502_ _)) => - (match (string_drop _s2501_ _s2502_) with - | _s2503_ => - (reg_name_matches_prefix _s2503_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3381_ _) => + (match (string_drop _s3380_ _s3381_) with + | _s3382_ => + (reg_name_matches_prefix _s3382_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2504_ _)) => - let p0_ := - string_drop _s2503_ - _s2504_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s3383_ _) => + let p0_ := + string_drop _s3382_ + _s3383_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2468_ (_s2469_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2470_ := _s2469_ in - (if ((string_startswith _s2470_ "div")) then - (match (string_drop _s2470_ (projT1 (string_length "div"))) with - | _s2471_ => - (maybe_not_u_matches_prefix _s2471_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3347_ (_s3348_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3349_ := _s3348_ in + (if string_startswith _s3349_ "div" then + (match (string_drop _s3349_ (projT1 (string_length "div"))) with + | _s3350_ => + (maybe_not_u_matches_prefix _s3350_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2472_ _)) => - let _s2473_ := string_drop _s2471_ _s2472_ in - (if ((string_startswith _s2473_ "w")) then - (match (string_drop _s2473_ (projT1 (string_length "w"))) with - | _s2474_ => - (spc_matches_prefix _s2474_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3351_ _) => + let _s3352_ := string_drop _s3350_ _s3351_ in + (if string_startswith _s3352_ "w" then + (match (string_drop _s3352_ (projT1 (string_length "w"))) with + | _s3353_ => + (spc_matches_prefix _s3353_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2475_ _)) => - (match (string_drop _s2474_ _s2475_) with - | _s2476_ => - (reg_name_matches_prefix _s2476_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3354_ _) => + (match (string_drop _s3353_ _s3354_) with + | _s3355_ => + (reg_name_matches_prefix _s3355_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2477_ _)) => - (match (string_drop _s2476_ _s2477_) with - | _s2478_ => - (sep_matches_prefix _s2478_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3356_ _) => + (match (string_drop _s3355_ _s3356_) with + | _s3357_ => + (sep_matches_prefix _s3357_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2479_ _)) => - (match (string_drop _s2478_ _s2479_) with - | _s2480_ => - (reg_name_matches_prefix _s2480_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3358_ _) => + (match (string_drop _s3357_ _s3358_) with + | _s3359_ => + (reg_name_matches_prefix _s3359_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2481_ _)) => - (match (string_drop _s2480_ _s2481_) with - | _s2482_ => - (sep_matches_prefix _s2482_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3360_ _) => + (match (string_drop _s3359_ _s3360_) with + | _s3361_ => + (sep_matches_prefix _s3361_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2483_ _)) => - (match (string_drop _s2482_ _s2483_) with - | _s2484_ => - (reg_name_matches_prefix _s2484_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3362_ _) => + (match (string_drop _s3361_ _s3362_) with + | _s3363_ => + (reg_name_matches_prefix _s3363_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2485_ _)) => - let p0_ := - string_drop _s2484_ - _s2485_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s3364_ _) => + let p0_ := + string_drop _s3363_ + _s3364_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2452_ (_s2453_ : string) -: M (option ((mword 5 * mword 5 * mword 5))) := - - let _s2454_ := _s2453_ in - (if ((string_startswith _s2454_ "mulw")) then - (match (string_drop _s2454_ (projT1 (string_length "mulw"))) with - | _s2455_ => - (spc_matches_prefix _s2455_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3331_ (_s3332_ : string) : M (option ((mword 5 * mword 5 * mword 5))) := + let _s3333_ := _s3332_ in + (if string_startswith _s3333_ "mulw" then + (match (string_drop _s3333_ (projT1 (string_length "mulw"))) with + | _s3334_ => + (spc_matches_prefix _s3334_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2456_ _)) => - (match (string_drop _s2455_ _s2456_) with - | _s2457_ => - (reg_name_matches_prefix _s2457_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3335_ _) => + (match (string_drop _s3334_ _s3335_) with + | _s3336_ => + (reg_name_matches_prefix _s3336_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2458_ _)) => - (match (string_drop _s2457_ _s2458_) with - | _s2459_ => - (sep_matches_prefix _s2459_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3337_ _) => + (match (string_drop _s3336_ _s3337_) with + | _s3338_ => + (sep_matches_prefix _s3338_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2460_ _)) => - (match (string_drop _s2459_ _s2460_) with - | _s2461_ => - (reg_name_matches_prefix _s2461_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3339_ _) => + (match (string_drop _s3338_ _s3339_) with + | _s3340_ => + (reg_name_matches_prefix _s3340_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2462_ _)) => - (match (string_drop _s2461_ _s2462_) with - | _s2463_ => - (sep_matches_prefix _s2463_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3341_ _) => + (match (string_drop _s3340_ _s3341_) with + | _s3342_ => + (sep_matches_prefix _s3342_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2464_ _)) => - (match (string_drop _s2463_ _s2464_) with - | _s2465_ => - (reg_name_matches_prefix _s2465_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3343_ _) => + (match (string_drop _s3342_ _s3343_) with + | _s3344_ => + (reg_name_matches_prefix _s3344_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s2466_ _)) => - let p0_ := - string_drop _s2465_ _s2466_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (rs2, existT _ _s3345_ _) => + let p0_ := string_drop _s3344_ _s3345_ in + if generic_eq p0_ "" then + Some (rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5))). -Definition _s2434_ (_s2435_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2436_ := _s2435_ in - (if ((string_startswith _s2436_ "rem")) then - (match (string_drop _s2436_ (projT1 (string_length "rem"))) with - | _s2437_ => - (maybe_not_u_matches_prefix _s2437_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3313_ (_s3314_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3315_ := _s3314_ in + (if string_startswith _s3315_ "rem" then + (match (string_drop _s3315_ (projT1 (string_length "rem"))) with + | _s3316_ => + (maybe_not_u_matches_prefix _s3316_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2438_ _)) => - (match (string_drop _s2437_ _s2438_) with - | _s2439_ => - (spc_matches_prefix _s2439_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3317_ _) => + (match (string_drop _s3316_ _s3317_) with + | _s3318_ => + (spc_matches_prefix _s3318_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2440_ _)) => - (match (string_drop _s2439_ _s2440_) with - | _s2441_ => - (reg_name_matches_prefix _s2441_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3319_ _) => + (match (string_drop _s3318_ _s3319_) with + | _s3320_ => + (reg_name_matches_prefix _s3320_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2442_ _)) => - (match (string_drop _s2441_ _s2442_) with - | _s2443_ => - (sep_matches_prefix _s2443_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3321_ _) => + (match (string_drop _s3320_ _s3321_) with + | _s3322_ => + (sep_matches_prefix _s3322_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2444_ _)) => - (match (string_drop _s2443_ _s2444_) with - | _s2445_ => - (reg_name_matches_prefix _s2445_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3323_ _) => + (match (string_drop _s3322_ _s3323_) with + | _s3324_ => + (reg_name_matches_prefix _s3324_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2446_ _)) => - (match (string_drop _s2445_ _s2446_) with - | _s2447_ => - (sep_matches_prefix _s2447_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3325_ _) => + (match (string_drop _s3324_ _s3325_) with + | _s3326_ => + (sep_matches_prefix _s3326_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2448_ _)) => - (match (string_drop _s2447_ _s2448_) with - | _s2449_ => - (reg_name_matches_prefix _s2449_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3327_ _) => + (match (string_drop _s3326_ _s3327_) with + | _s3328_ => + (reg_name_matches_prefix _s3328_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2450_ _)) => - let p0_ := - string_drop _s2449_ _s2450_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3329_ _) => + let p0_ := + string_drop _s3328_ _s3329_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2416_ (_s2417_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2418_ := _s2417_ in - (if ((string_startswith _s2418_ "div")) then - (match (string_drop _s2418_ (projT1 (string_length "div"))) with - | _s2419_ => - (maybe_not_u_matches_prefix _s2419_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3295_ (_s3296_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3297_ := _s3296_ in + (if string_startswith _s3297_ "div" then + (match (string_drop _s3297_ (projT1 (string_length "div"))) with + | _s3298_ => + (maybe_not_u_matches_prefix _s3298_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2420_ _)) => - (match (string_drop _s2419_ _s2420_) with - | _s2421_ => - (spc_matches_prefix _s2421_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3299_ _) => + (match (string_drop _s3298_ _s3299_) with + | _s3300_ => + (spc_matches_prefix _s3300_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2422_ _)) => - (match (string_drop _s2421_ _s2422_) with - | _s2423_ => - (reg_name_matches_prefix _s2423_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3301_ _) => + (match (string_drop _s3300_ _s3301_) with + | _s3302_ => + (reg_name_matches_prefix _s3302_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2424_ _)) => - (match (string_drop _s2423_ _s2424_) with - | _s2425_ => - (sep_matches_prefix _s2425_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3303_ _) => + (match (string_drop _s3302_ _s3303_) with + | _s3304_ => + (sep_matches_prefix _s3304_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2426_ _)) => - (match (string_drop _s2425_ _s2426_) with - | _s2427_ => - (reg_name_matches_prefix _s2427_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3305_ _) => + (match (string_drop _s3304_ _s3305_) with + | _s3306_ => + (reg_name_matches_prefix _s3306_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2428_ _)) => - (match (string_drop _s2427_ _s2428_) with - | _s2429_ => - (sep_matches_prefix _s2429_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3307_ _) => + (match (string_drop _s3306_ _s3307_) with + | _s3308_ => + (sep_matches_prefix _s3308_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2430_ _)) => - (match (string_drop _s2429_ _s2430_) with - | _s2431_ => - (reg_name_matches_prefix _s2431_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3309_ _) => + (match (string_drop _s3308_ _s3309_) with + | _s3310_ => + (reg_name_matches_prefix _s3310_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2432_ _)) => - let p0_ := - string_drop _s2431_ _s2432_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3311_ _) => + let p0_ := + string_drop _s3310_ _s3311_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2399_ (_s2400_ : string) +Definition _s3278_ (_s3279_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s2400_ with - | _s2401_ => - (mul_mnemonic_matches_prefix _s2401_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s3279_ with + | _s3280_ => + (mul_mnemonic_matches_prefix _s3280_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s2402_ _)) => - (match (string_drop _s2401_ _s2402_) with - | _s2403_ => - (spc_matches_prefix _s2403_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s3281_ _) => + (match (string_drop _s3280_ _s3281_) with + | _s3282_ => + (spc_matches_prefix _s3282_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2404_ _)) => - (match (string_drop _s2403_ _s2404_) with - | _s2405_ => - (reg_name_matches_prefix _s2405_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3283_ _) => + (match (string_drop _s3282_ _s3283_) with + | _s3284_ => + (reg_name_matches_prefix _s3284_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2406_ _)) => - (match (string_drop _s2405_ _s2406_) with - | _s2407_ => - (sep_matches_prefix _s2407_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3285_ _) => + (match (string_drop _s3284_ _s3285_) with + | _s3286_ => + (sep_matches_prefix _s3286_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2408_ _)) => - (match (string_drop _s2407_ _s2408_) with - | _s2409_ => - (reg_name_matches_prefix _s2409_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3287_ _) => + (match (string_drop _s3286_ _s3287_) with + | _s3288_ => + (reg_name_matches_prefix _s3288_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2410_ _)) => - (match (string_drop _s2409_ _s2410_) with - | _s2411_ => - (sep_matches_prefix _s2411_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3289_ _) => + (match (string_drop _s3288_ _s3289_) with + | _s3290_ => + (sep_matches_prefix _s3290_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2412_ _)) => - (match (string_drop _s2411_ _s2412_) with - | _s2413_ => - (reg_name_matches_prefix _s2413_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3291_ _) => + (match (string_drop _s3290_ _s3291_) with + | _s3292_ => + (reg_name_matches_prefix _s3292_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2414_ _)) => - let p0_ := - string_drop _s2413_ _s2414_ in - if ((generic_eq p0_ "")) then - Some - ((high, signed1, signed2, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3293_ _) => + let p0_ := + string_drop _s3292_ _s3293_ in + if generic_eq p0_ "" then + Some + (high, signed1, signed2, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s2387_ (_s2388_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s2389_ := _s2388_ in - (if ((string_startswith _s2389_ "c.add")) then - (match (string_drop _s2389_ (projT1 (string_length "c.add"))) with - | _s2390_ => - (spc_matches_prefix _s2390_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3266_ (_s3267_ : string) : M (option ((mword 5 * mword 5))) := + let _s3268_ := _s3267_ in + (if string_startswith _s3268_ "c.add" then + (match (string_drop _s3268_ (projT1 (string_length "c.add"))) with + | _s3269_ => + (spc_matches_prefix _s3269_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2391_ _)) => - (match (string_drop _s2390_ _s2391_) with - | _s2392_ => - (reg_name_matches_prefix _s2392_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3270_ _) => + (match (string_drop _s3269_ _s3270_) with + | _s3271_ => + (reg_name_matches_prefix _s3271_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2393_ _)) => - (match (string_drop _s2392_ _s2393_) with - | _s2394_ => - (sep_matches_prefix _s2394_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3272_ _) => + (match (string_drop _s3271_ _s3272_) with + | _s3273_ => + (sep_matches_prefix _s3273_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2395_ _)) => - (match (string_drop _s2394_ _s2395_) with - | _s2396_ => - (reg_name_matches_prefix _s2396_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3274_ _) => + (match (string_drop _s3273_ _s3274_) with + | _s3275_ => + (reg_name_matches_prefix _s3275_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2397_ _)) => - let p0_ := string_drop _s2396_ _s2397_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s3276_ _) => + let p0_ := string_drop _s3275_ _s3276_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s2375_ (_s2376_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s2377_ := _s2376_ in - (if ((string_startswith _s2377_ "c.mv")) then - (match (string_drop _s2377_ (projT1 (string_length "c.mv"))) with - | _s2378_ => - (spc_matches_prefix _s2378_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3254_ (_s3255_ : string) : M (option ((mword 5 * mword 5))) := + let _s3256_ := _s3255_ in + (if string_startswith _s3256_ "c.mv" then + (match (string_drop _s3256_ (projT1 (string_length "c.mv"))) with + | _s3257_ => + (spc_matches_prefix _s3257_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2379_ _)) => - (match (string_drop _s2378_ _s2379_) with - | _s2380_ => - (reg_name_matches_prefix _s2380_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3258_ _) => + (match (string_drop _s3257_ _s3258_) with + | _s3259_ => + (reg_name_matches_prefix _s3259_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2381_ _)) => - (match (string_drop _s2380_ _s2381_) with - | _s2382_ => - (sep_matches_prefix _s2382_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3260_ _) => + (match (string_drop _s3259_ _s3260_) with + | _s3261_ => + (sep_matches_prefix _s3261_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2383_ _)) => - (match (string_drop _s2382_ _s2383_) with - | _s2384_ => - (reg_name_matches_prefix _s2384_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3262_ _) => + (match (string_drop _s3261_ _s3262_) with + | _s3263_ => + (reg_name_matches_prefix _s3263_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2385_ _)) => - let p0_ := string_drop _s2384_ _s2385_ in - if ((generic_eq p0_ "")) then Some ((rd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s3264_ _) => + let p0_ := string_drop _s3263_ _s3264_ in + if generic_eq p0_ "" then Some (rd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s2367_ (_s2368_ : string) -: M (option (mword 5)) := - - let _s2369_ := _s2368_ in - (if ((string_startswith _s2369_ "c.jalr")) then - (match (string_drop _s2369_ (projT1 (string_length "c.jalr"))) with - | _s2370_ => - (spc_matches_prefix _s2370_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3246_ (_s3247_ : string) : M (option (mword 5)) := + let _s3248_ := _s3247_ in + (if string_startswith _s3248_ "c.jalr" then + (match (string_drop _s3248_ (projT1 (string_length "c.jalr"))) with + | _s3249_ => + (spc_matches_prefix _s3249_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2371_ _)) => - (match (string_drop _s2370_ _s2371_) with - | _s2372_ => - (reg_name_matches_prefix _s2372_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3250_ _) => + (match (string_drop _s3249_ _s3250_) with + | _s3251_ => + (reg_name_matches_prefix _s3251_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s2373_ _)) => - let p0_ := string_drop _s2372_ _s2373_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s3252_ _) => + let p0_ := string_drop _s3251_ _s3252_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s2359_ (_s2360_ : string) -: M (option (mword 5)) := - - let _s2361_ := _s2360_ in - (if ((string_startswith _s2361_ "c.jr")) then - (match (string_drop _s2361_ (projT1 (string_length "c.jr"))) with - | _s2362_ => - (spc_matches_prefix _s2362_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3238_ (_s3239_ : string) : M (option (mword 5)) := + let _s3240_ := _s3239_ in + (if string_startswith _s3240_ "c.jr" then + (match (string_drop _s3240_ (projT1 (string_length "c.jr"))) with + | _s3241_ => + (spc_matches_prefix _s3241_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2363_ _)) => - (match (string_drop _s2362_ _s2363_) with - | _s2364_ => - (reg_name_matches_prefix _s2364_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3242_ _) => + (match (string_drop _s3241_ _s3242_) with + | _s3243_ => + (reg_name_matches_prefix _s3243_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s2365_ _)) => - let p0_ := string_drop _s2364_ _s2365_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s3244_ _) => + let p0_ := string_drop _s3243_ _s3244_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s2347_ (_s2348_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2349_ := _s2348_ in - (if ((string_startswith _s2349_ "c.sdsp")) then - (match (string_drop _s2349_ (projT1 (string_length "c.sdsp"))) with - | _s2350_ => - (spc_matches_prefix _s2350_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3226_ (_s3227_ : string) : M (option ((mword 5 * mword 6))) := + let _s3228_ := _s3227_ in + (if string_startswith _s3228_ "c.sdsp" then + (match (string_drop _s3228_ (projT1 (string_length "c.sdsp"))) with + | _s3229_ => + (spc_matches_prefix _s3229_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2351_ _)) => - (match (string_drop _s2350_ _s2351_) with - | _s2352_ => - (reg_name_matches_prefix _s2352_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3230_ _) => + (match (string_drop _s3229_ _s3230_) with + | _s3231_ => + (reg_name_matches_prefix _s3231_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s2353_ _)) => - (match (string_drop _s2352_ _s2353_) with - | _s2354_ => - (sep_matches_prefix _s2354_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3232_ _) => + (match (string_drop _s3231_ _s3232_) with + | _s3233_ => + (sep_matches_prefix _s3233_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2355_ _)) => - match (string_drop _s2354_ _s2355_) with - | _s2356_ => - match (hex_bits_6_matches_prefix _s2356_) with - | Some ((uimm, existT _ _s2357_ _)) => - let p0_ := string_drop _s2356_ _s2357_ in - if ((generic_eq p0_ "")) then Some ((rs2, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3234_ _) => + match (string_drop _s3233_ _s3234_) with + | _s3235_ => + match (hex_bits_6_matches_prefix _s3235_) with + | Some (uimm, existT _ _s3236_ _) => + let p0_ := string_drop _s3235_ _s3236_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2335_ (_s2336_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2337_ := _s2336_ in - (if ((string_startswith _s2337_ "c.swsp")) then - (match (string_drop _s2337_ (projT1 (string_length "c.swsp"))) with - | _s2338_ => - (spc_matches_prefix _s2338_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3214_ (_s3215_ : string) : M (option ((mword 5 * mword 6))) := + let _s3216_ := _s3215_ in + (if string_startswith _s3216_ "c.swsp" then + (match (string_drop _s3216_ (projT1 (string_length "c.swsp"))) with + | _s3217_ => + (spc_matches_prefix _s3217_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2339_ _)) => - (match (string_drop _s2338_ _s2339_) with - | _s2340_ => - (reg_name_matches_prefix _s2340_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3218_ _) => + (match (string_drop _s3217_ _s3218_) with + | _s3219_ => + (reg_name_matches_prefix _s3219_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2341_ _)) => - (match (string_drop _s2340_ _s2341_) with - | _s2342_ => - (sep_matches_prefix _s2342_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3220_ _) => + (match (string_drop _s3219_ _s3220_) with + | _s3221_ => + (sep_matches_prefix _s3221_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2343_ _)) => - match (string_drop _s2342_ _s2343_) with - | _s2344_ => - match (hex_bits_6_matches_prefix _s2344_) with - | Some ((uimm, existT _ _s2345_ _)) => - let p0_ := string_drop _s2344_ _s2345_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3222_ _) => + match (string_drop _s3221_ _s3222_) with + | _s3223_ => + match (hex_bits_6_matches_prefix _s3223_) with + | Some (uimm, existT _ _s3224_ _) => + let p0_ := string_drop _s3223_ _s3224_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2323_ (_s2324_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2325_ := _s2324_ in - (if ((string_startswith _s2325_ "c.ldsp")) then - (match (string_drop _s2325_ (projT1 (string_length "c.ldsp"))) with - | _s2326_ => - (spc_matches_prefix _s2326_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3202_ (_s3203_ : string) : M (option ((mword 5 * mword 6))) := + let _s3204_ := _s3203_ in + (if string_startswith _s3204_ "c.ldsp" then + (match (string_drop _s3204_ (projT1 (string_length "c.ldsp"))) with + | _s3205_ => + (spc_matches_prefix _s3205_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2327_ _)) => - (match (string_drop _s2326_ _s2327_) with - | _s2328_ => - (reg_name_matches_prefix _s2328_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3206_ _) => + (match (string_drop _s3205_ _s3206_) with + | _s3207_ => + (reg_name_matches_prefix _s3207_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2329_ _)) => - (match (string_drop _s2328_ _s2329_) with - | _s2330_ => - (sep_matches_prefix _s2330_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3208_ _) => + (match (string_drop _s3207_ _s3208_) with + | _s3209_ => + (sep_matches_prefix _s3209_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2331_ _)) => - match (string_drop _s2330_ _s2331_) with - | _s2332_ => - match (hex_bits_6_matches_prefix _s2332_) with - | Some ((uimm, existT _ _s2333_ _)) => - let p0_ := string_drop _s2332_ _s2333_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3210_ _) => + match (string_drop _s3209_ _s3210_) with + | _s3211_ => + match (hex_bits_6_matches_prefix _s3211_) with + | Some (uimm, existT _ _s3212_ _) => + let p0_ := string_drop _s3211_ _s3212_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2311_ (_s2312_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2313_ := _s2312_ in - (if ((string_startswith _s2313_ "c.lwsp")) then - (match (string_drop _s2313_ (projT1 (string_length "c.lwsp"))) with - | _s2314_ => - (spc_matches_prefix _s2314_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3190_ (_s3191_ : string) : M (option ((mword 5 * mword 6))) := + let _s3192_ := _s3191_ in + (if string_startswith _s3192_ "c.lwsp" then + (match (string_drop _s3192_ (projT1 (string_length "c.lwsp"))) with + | _s3193_ => + (spc_matches_prefix _s3193_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2315_ _)) => - (match (string_drop _s2314_ _s2315_) with - | _s2316_ => - (reg_name_matches_prefix _s2316_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3194_ _) => + (match (string_drop _s3193_ _s3194_) with + | _s3195_ => + (reg_name_matches_prefix _s3195_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2317_ _)) => - (match (string_drop _s2316_ _s2317_) with - | _s2318_ => - (sep_matches_prefix _s2318_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3196_ _) => + (match (string_drop _s3195_ _s3196_) with + | _s3197_ => + (sep_matches_prefix _s3197_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2319_ _)) => - match (string_drop _s2318_ _s2319_) with - | _s2320_ => - match (hex_bits_6_matches_prefix _s2320_) with - | Some ((uimm, existT _ _s2321_ _)) => - let p0_ := string_drop _s2320_ _s2321_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3198_ _) => + match (string_drop _s3197_ _s3198_) with + | _s3199_ => + match (hex_bits_6_matches_prefix _s3199_) with + | Some (uimm, existT _ _s3200_ _) => + let p0_ := string_drop _s3199_ _s3200_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2299_ (_s2300_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2301_ := _s2300_ in - (if ((string_startswith _s2301_ "c.slli")) then - (match (string_drop _s2301_ (projT1 (string_length "c.slli"))) with - | _s2302_ => - (spc_matches_prefix _s2302_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3178_ (_s3179_ : string) : M (option ((mword 5 * mword 6))) := + let _s3180_ := _s3179_ in + (if string_startswith _s3180_ "c.slli" then + (match (string_drop _s3180_ (projT1 (string_length "c.slli"))) with + | _s3181_ => + (spc_matches_prefix _s3181_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2303_ _)) => - (match (string_drop _s2302_ _s2303_) with - | _s2304_ => - (reg_name_matches_prefix _s2304_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3182_ _) => + (match (string_drop _s3181_ _s3182_) with + | _s3183_ => + (reg_name_matches_prefix _s3183_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2305_ _)) => - (match (string_drop _s2304_ _s2305_) with - | _s2306_ => - (sep_matches_prefix _s2306_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3184_ _) => + (match (string_drop _s3183_ _s3184_) with + | _s3185_ => + (sep_matches_prefix _s3185_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2307_ _)) => - match (string_drop _s2306_ _s2307_) with - | _s2308_ => - match (hex_bits_6_matches_prefix _s2308_) with - | Some ((shamt, existT _ _s2309_ _)) => - let p0_ := string_drop _s2308_ _s2309_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3186_ _) => + match (string_drop _s3185_ _s3186_) with + | _s3187_ => + match (hex_bits_6_matches_prefix _s3187_) with + | Some (shamt, existT _ _s3188_ _) => + let p0_ := string_drop _s3187_ _s3188_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2287_ (_s2288_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2289_ := _s2288_ in - (if ((string_startswith _s2289_ "c.bnez")) then - (match (string_drop _s2289_ (projT1 (string_length "c.bnez"))) with - | _s2290_ => - (spc_matches_prefix _s2290_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3166_ (_s3167_ : string) : M (option ((mword 3 * mword 8))) := + let _s3168_ := _s3167_ in + (if string_startswith _s3168_ "c.bnez" then + (match (string_drop _s3168_ (projT1 (string_length "c.bnez"))) with + | _s3169_ => + (spc_matches_prefix _s3169_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2291_ _)) => - (match (string_drop _s2290_ _s2291_) with - | _s2292_ => - (creg_name_matches_prefix _s2292_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3170_ _) => + (match (string_drop _s3169_ _s3170_) with + | _s3171_ => + (creg_name_matches_prefix _s3171_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s2293_ _)) => - (match (string_drop _s2292_ _s2293_) with - | _s2294_ => - (sep_matches_prefix _s2294_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s3172_ _) => + (match (string_drop _s3171_ _s3172_) with + | _s3173_ => + (sep_matches_prefix _s3173_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2295_ _)) => - match (string_drop _s2294_ _s2295_) with - | _s2296_ => - match (hex_bits_8_matches_prefix _s2296_) with - | Some ((imm, existT _ _s2297_ _)) => - let p0_ := string_drop _s2296_ _s2297_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s3174_ _) => + match (string_drop _s3173_ _s3174_) with + | _s3175_ => + match (hex_bits_8_matches_prefix _s3175_) with + | Some (imm, existT _ _s3176_ _) => + let p0_ := string_drop _s3175_ _s3176_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s2275_ (_s2276_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2277_ := _s2276_ in - (if ((string_startswith _s2277_ "c.beqz")) then - (match (string_drop _s2277_ (projT1 (string_length "c.beqz"))) with - | _s2278_ => - (spc_matches_prefix _s2278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3154_ (_s3155_ : string) : M (option ((mword 3 * mword 8))) := + let _s3156_ := _s3155_ in + (if string_startswith _s3156_ "c.beqz" then + (match (string_drop _s3156_ (projT1 (string_length "c.beqz"))) with + | _s3157_ => + (spc_matches_prefix _s3157_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2279_ _)) => - (match (string_drop _s2278_ _s2279_) with - | _s2280_ => - (creg_name_matches_prefix _s2280_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3158_ _) => + (match (string_drop _s3157_ _s3158_) with + | _s3159_ => + (creg_name_matches_prefix _s3159_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s2281_ _)) => - (match (string_drop _s2280_ _s2281_) with - | _s2282_ => - (sep_matches_prefix _s2282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s3160_ _) => + (match (string_drop _s3159_ _s3160_) with + | _s3161_ => + (sep_matches_prefix _s3161_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2283_ _)) => - match (string_drop _s2282_ _s2283_) with - | _s2284_ => - match (hex_bits_8_matches_prefix _s2284_) with - | Some ((imm, existT _ _s2285_ _)) => - let p0_ := string_drop _s2284_ _s2285_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s3162_ _) => + match (string_drop _s3161_ _s3162_) with + | _s3163_ => + match (hex_bits_8_matches_prefix _s3163_) with + | Some (imm, existT _ _s3164_ _) => + let p0_ := string_drop _s3163_ _s3164_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s2267_ (_s2268_ : string) -: M (option (mword 11)) := - - let _s2269_ := _s2268_ in - (if ((string_startswith _s2269_ "c.j")) then - (match (string_drop _s2269_ (projT1 (string_length "c.j"))) with - | _s2270_ => - (spc_matches_prefix _s2270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2271_ _)) => - match (string_drop _s2270_ _s2271_) with - | _s2272_ => - match (hex_bits_11_matches_prefix _s2272_) with - | Some ((imm, existT _ _s2273_ _)) => - let p0_ := string_drop _s2272_ _s2273_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s3146_ (_s3147_ : string) : M (option (mword 11)) := + let _s3148_ := _s3147_ in + (if string_startswith _s3148_ "c.j" then + (match (string_drop _s3148_ (projT1 (string_length "c.j"))) with + | _s3149_ => + (spc_matches_prefix _s3149_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3150_ _) => + match (string_drop _s3149_ _s3150_) with + | _s3151_ => + match (hex_bits_11_matches_prefix _s3151_) with + | Some (imm, existT _ _s3152_ _) => + let p0_ := string_drop _s3151_ _s3152_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s2255_ (_s2256_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2257_ := _s2256_ in - (if ((string_startswith _s2257_ "c.addw")) then - (match (string_drop _s2257_ (projT1 (string_length "c.addw"))) with - | _s2258_ => - (spc_matches_prefix _s2258_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3134_ (_s3135_ : string) : M (option ((mword 3 * mword 3))) := + let _s3136_ := _s3135_ in + (if string_startswith _s3136_ "c.addw" then + (match (string_drop _s3136_ (projT1 (string_length "c.addw"))) with + | _s3137_ => + (spc_matches_prefix _s3137_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2259_ _)) => - (match (string_drop _s2258_ _s2259_) with - | _s2260_ => - (creg_name_matches_prefix _s2260_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3138_ _) => + (match (string_drop _s3137_ _s3138_) with + | _s3139_ => + (creg_name_matches_prefix _s3139_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2261_ _)) => - (match (string_drop _s2260_ _s2261_) with - | _s2262_ => - (sep_matches_prefix _s2262_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3140_ _) => + (match (string_drop _s3139_ _s3140_) with + | _s3141_ => + (sep_matches_prefix _s3141_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2263_ _)) => - (match (string_drop _s2262_ _s2263_) with - | _s2264_ => - (creg_name_matches_prefix _s2264_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3142_ _) => + (match (string_drop _s3141_ _s3142_) with + | _s3143_ => + (creg_name_matches_prefix _s3143_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2265_ _)) => - let p0_ := string_drop _s2264_ _s2265_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3144_ _) => + let p0_ := string_drop _s3143_ _s3144_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2243_ (_s2244_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2245_ := _s2244_ in - (if ((string_startswith _s2245_ "c.subw")) then - (match (string_drop _s2245_ (projT1 (string_length "c.subw"))) with - | _s2246_ => - (spc_matches_prefix _s2246_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3122_ (_s3123_ : string) : M (option ((mword 3 * mword 3))) := + let _s3124_ := _s3123_ in + (if string_startswith _s3124_ "c.subw" then + (match (string_drop _s3124_ (projT1 (string_length "c.subw"))) with + | _s3125_ => + (spc_matches_prefix _s3125_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2247_ _)) => - (match (string_drop _s2246_ _s2247_) with - | _s2248_ => - (creg_name_matches_prefix _s2248_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3126_ _) => + (match (string_drop _s3125_ _s3126_) with + | _s3127_ => + (creg_name_matches_prefix _s3127_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2249_ _)) => - (match (string_drop _s2248_ _s2249_) with - | _s2250_ => - (sep_matches_prefix _s2250_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3128_ _) => + (match (string_drop _s3127_ _s3128_) with + | _s3129_ => + (sep_matches_prefix _s3129_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2251_ _)) => - (match (string_drop _s2250_ _s2251_) with - | _s2252_ => - (creg_name_matches_prefix _s2252_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3130_ _) => + (match (string_drop _s3129_ _s3130_) with + | _s3131_ => + (creg_name_matches_prefix _s3131_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2253_ _)) => - let p0_ := string_drop _s2252_ _s2253_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3132_ _) => + let p0_ := string_drop _s3131_ _s3132_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2231_ (_s2232_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2233_ := _s2232_ in - (if ((string_startswith _s2233_ "c.and")) then - (match (string_drop _s2233_ (projT1 (string_length "c.and"))) with - | _s2234_ => - (spc_matches_prefix _s2234_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3110_ (_s3111_ : string) : M (option ((mword 3 * mword 3))) := + let _s3112_ := _s3111_ in + (if string_startswith _s3112_ "c.and" then + (match (string_drop _s3112_ (projT1 (string_length "c.and"))) with + | _s3113_ => + (spc_matches_prefix _s3113_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2235_ _)) => - (match (string_drop _s2234_ _s2235_) with - | _s2236_ => - (creg_name_matches_prefix _s2236_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3114_ _) => + (match (string_drop _s3113_ _s3114_) with + | _s3115_ => + (creg_name_matches_prefix _s3115_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2237_ _)) => - (match (string_drop _s2236_ _s2237_) with - | _s2238_ => - (sep_matches_prefix _s2238_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3116_ _) => + (match (string_drop _s3115_ _s3116_) with + | _s3117_ => + (sep_matches_prefix _s3117_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2239_ _)) => - (match (string_drop _s2238_ _s2239_) with - | _s2240_ => - (creg_name_matches_prefix _s2240_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3118_ _) => + (match (string_drop _s3117_ _s3118_) with + | _s3119_ => + (creg_name_matches_prefix _s3119_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2241_ _)) => - let p0_ := string_drop _s2240_ _s2241_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3120_ _) => + let p0_ := string_drop _s3119_ _s3120_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2219_ (_s2220_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2221_ := _s2220_ in - (if ((string_startswith _s2221_ "c.or")) then - (match (string_drop _s2221_ (projT1 (string_length "c.or"))) with - | _s2222_ => - (spc_matches_prefix _s2222_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3098_ (_s3099_ : string) : M (option ((mword 3 * mword 3))) := + let _s3100_ := _s3099_ in + (if string_startswith _s3100_ "c.or" then + (match (string_drop _s3100_ (projT1 (string_length "c.or"))) with + | _s3101_ => + (spc_matches_prefix _s3101_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2223_ _)) => - (match (string_drop _s2222_ _s2223_) with - | _s2224_ => - (creg_name_matches_prefix _s2224_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3102_ _) => + (match (string_drop _s3101_ _s3102_) with + | _s3103_ => + (creg_name_matches_prefix _s3103_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2225_ _)) => - (match (string_drop _s2224_ _s2225_) with - | _s2226_ => - (sep_matches_prefix _s2226_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3104_ _) => + (match (string_drop _s3103_ _s3104_) with + | _s3105_ => + (sep_matches_prefix _s3105_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2227_ _)) => - (match (string_drop _s2226_ _s2227_) with - | _s2228_ => - (creg_name_matches_prefix _s2228_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3106_ _) => + (match (string_drop _s3105_ _s3106_) with + | _s3107_ => + (creg_name_matches_prefix _s3107_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2229_ _)) => - let p0_ := string_drop _s2228_ _s2229_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3108_ _) => + let p0_ := string_drop _s3107_ _s3108_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2207_ (_s2208_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2209_ := _s2208_ in - (if ((string_startswith _s2209_ "c.xor")) then - (match (string_drop _s2209_ (projT1 (string_length "c.xor"))) with - | _s2210_ => - (spc_matches_prefix _s2210_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3086_ (_s3087_ : string) : M (option ((mword 3 * mword 3))) := + let _s3088_ := _s3087_ in + (if string_startswith _s3088_ "c.xor" then + (match (string_drop _s3088_ (projT1 (string_length "c.xor"))) with + | _s3089_ => + (spc_matches_prefix _s3089_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2211_ _)) => - (match (string_drop _s2210_ _s2211_) with - | _s2212_ => - (creg_name_matches_prefix _s2212_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3090_ _) => + (match (string_drop _s3089_ _s3090_) with + | _s3091_ => + (creg_name_matches_prefix _s3091_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2213_ _)) => - (match (string_drop _s2212_ _s2213_) with - | _s2214_ => - (sep_matches_prefix _s2214_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3092_ _) => + (match (string_drop _s3091_ _s3092_) with + | _s3093_ => + (sep_matches_prefix _s3093_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2215_ _)) => - (match (string_drop _s2214_ _s2215_) with - | _s2216_ => - (creg_name_matches_prefix _s2216_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3094_ _) => + (match (string_drop _s3093_ _s3094_) with + | _s3095_ => + (creg_name_matches_prefix _s3095_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2217_ _)) => - let p0_ := string_drop _s2216_ _s2217_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3096_ _) => + let p0_ := string_drop _s3095_ _s3096_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2195_ (_s2196_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2197_ := _s2196_ in - (if ((string_startswith _s2197_ "c.sub")) then - (match (string_drop _s2197_ (projT1 (string_length "c.sub"))) with - | _s2198_ => - (spc_matches_prefix _s2198_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3074_ (_s3075_ : string) : M (option ((mword 3 * mword 3))) := + let _s3076_ := _s3075_ in + (if string_startswith _s3076_ "c.sub" then + (match (string_drop _s3076_ (projT1 (string_length "c.sub"))) with + | _s3077_ => + (spc_matches_prefix _s3077_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2199_ _)) => - (match (string_drop _s2198_ _s2199_) with - | _s2200_ => - (creg_name_matches_prefix _s2200_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3078_ _) => + (match (string_drop _s3077_ _s3078_) with + | _s3079_ => + (creg_name_matches_prefix _s3079_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2201_ _)) => - (match (string_drop _s2200_ _s2201_) with - | _s2202_ => - (sep_matches_prefix _s2202_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3080_ _) => + (match (string_drop _s3079_ _s3080_) with + | _s3081_ => + (sep_matches_prefix _s3081_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2203_ _)) => - (match (string_drop _s2202_ _s2203_) with - | _s2204_ => - (creg_name_matches_prefix _s2204_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3082_ _) => + (match (string_drop _s3081_ _s3082_) with + | _s3083_ => + (creg_name_matches_prefix _s3083_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2205_ _)) => - let p0_ := string_drop _s2204_ _s2205_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3084_ _) => + let p0_ := string_drop _s3083_ _s3084_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2183_ (_s2184_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2185_ := _s2184_ in - (if ((string_startswith _s2185_ "c.andi")) then - (match (string_drop _s2185_ (projT1 (string_length "c.andi"))) with - | _s2186_ => - (spc_matches_prefix _s2186_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3062_ (_s3063_ : string) : M (option ((mword 3 * mword 6))) := + let _s3064_ := _s3063_ in + (if string_startswith _s3064_ "c.andi" then + (match (string_drop _s3064_ (projT1 (string_length "c.andi"))) with + | _s3065_ => + (spc_matches_prefix _s3065_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2187_ _)) => - (match (string_drop _s2186_ _s2187_) with - | _s2188_ => - (creg_name_matches_prefix _s2188_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3066_ _) => + (match (string_drop _s3065_ _s3066_) with + | _s3067_ => + (creg_name_matches_prefix _s3067_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2189_ _)) => - (match (string_drop _s2188_ _s2189_) with - | _s2190_ => - (sep_matches_prefix _s2190_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3068_ _) => + (match (string_drop _s3067_ _s3068_) with + | _s3069_ => + (sep_matches_prefix _s3069_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2191_ _)) => - match (string_drop _s2190_ _s2191_) with - | _s2192_ => - match (hex_bits_6_matches_prefix _s2192_) with - | Some ((imm, existT _ _s2193_ _)) => - let p0_ := string_drop _s2192_ _s2193_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3070_ _) => + match (string_drop _s3069_ _s3070_) with + | _s3071_ => + match (hex_bits_6_matches_prefix _s3071_) with + | Some (imm, existT _ _s3072_ _) => + let p0_ := string_drop _s3071_ _s3072_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2171_ (_s2172_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2173_ := _s2172_ in - (if ((string_startswith _s2173_ "c.srai")) then - (match (string_drop _s2173_ (projT1 (string_length "c.srai"))) with - | _s2174_ => - (spc_matches_prefix _s2174_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3050_ (_s3051_ : string) : M (option ((mword 3 * mword 6))) := + let _s3052_ := _s3051_ in + (if string_startswith _s3052_ "c.srai" then + (match (string_drop _s3052_ (projT1 (string_length "c.srai"))) with + | _s3053_ => + (spc_matches_prefix _s3053_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2175_ _)) => - (match (string_drop _s2174_ _s2175_) with - | _s2176_ => - (creg_name_matches_prefix _s2176_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3054_ _) => + (match (string_drop _s3053_ _s3054_) with + | _s3055_ => + (creg_name_matches_prefix _s3055_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2177_ _)) => - (match (string_drop _s2176_ _s2177_) with - | _s2178_ => - (sep_matches_prefix _s2178_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3056_ _) => + (match (string_drop _s3055_ _s3056_) with + | _s3057_ => + (sep_matches_prefix _s3057_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2179_ _)) => - match (string_drop _s2178_ _s2179_) with - | _s2180_ => - match (hex_bits_6_matches_prefix _s2180_) with - | Some ((shamt, existT _ _s2181_ _)) => - let p0_ := string_drop _s2180_ _s2181_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3058_ _) => + match (string_drop _s3057_ _s3058_) with + | _s3059_ => + match (hex_bits_6_matches_prefix _s3059_) with + | Some (shamt, existT _ _s3060_ _) => + let p0_ := string_drop _s3059_ _s3060_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2159_ (_s2160_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2161_ := _s2160_ in - (if ((string_startswith _s2161_ "c.srli")) then - (match (string_drop _s2161_ (projT1 (string_length "c.srli"))) with - | _s2162_ => - (spc_matches_prefix _s2162_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3038_ (_s3039_ : string) : M (option ((mword 3 * mword 6))) := + let _s3040_ := _s3039_ in + (if string_startswith _s3040_ "c.srli" then + (match (string_drop _s3040_ (projT1 (string_length "c.srli"))) with + | _s3041_ => + (spc_matches_prefix _s3041_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2163_ _)) => - (match (string_drop _s2162_ _s2163_) with - | _s2164_ => - (creg_name_matches_prefix _s2164_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3042_ _) => + (match (string_drop _s3041_ _s3042_) with + | _s3043_ => + (creg_name_matches_prefix _s3043_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2165_ _)) => - (match (string_drop _s2164_ _s2165_) with - | _s2166_ => - (sep_matches_prefix _s2166_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3044_ _) => + (match (string_drop _s3043_ _s3044_) with + | _s3045_ => + (sep_matches_prefix _s3045_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2167_ _)) => - match (string_drop _s2166_ _s2167_) with - | _s2168_ => - match (hex_bits_6_matches_prefix _s2168_) with - | Some ((shamt, existT _ _s2169_ _)) => - let p0_ := string_drop _s2168_ _s2169_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3046_ _) => + match (string_drop _s3045_ _s3046_) with + | _s3047_ => + match (hex_bits_6_matches_prefix _s3047_) with + | Some (shamt, existT _ _s3048_ _) => + let p0_ := string_drop _s3047_ _s3048_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2147_ (_s2148_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2149_ := _s2148_ in - (if ((string_startswith _s2149_ "c.lui")) then - (match (string_drop _s2149_ (projT1 (string_length "c.lui"))) with - | _s2150_ => - (spc_matches_prefix _s2150_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3026_ (_s3027_ : string) : M (option ((mword 5 * mword 6))) := + let _s3028_ := _s3027_ in + (if string_startswith _s3028_ "c.lui" then + (match (string_drop _s3028_ (projT1 (string_length "c.lui"))) with + | _s3029_ => + (spc_matches_prefix _s3029_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2151_ _)) => - (match (string_drop _s2150_ _s2151_) with - | _s2152_ => - (reg_name_matches_prefix _s2152_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3030_ _) => + (match (string_drop _s3029_ _s3030_) with + | _s3031_ => + (reg_name_matches_prefix _s3031_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2153_ _)) => - (match (string_drop _s2152_ _s2153_) with - | _s2154_ => - (sep_matches_prefix _s2154_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3032_ _) => + (match (string_drop _s3031_ _s3032_) with + | _s3033_ => + (sep_matches_prefix _s3033_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2155_ _)) => - match (string_drop _s2154_ _s2155_) with - | _s2156_ => - match (hex_bits_6_matches_prefix _s2156_) with - | Some ((imm, existT _ _s2157_ _)) => - let p0_ := string_drop _s2156_ _s2157_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3034_ _) => + match (string_drop _s3033_ _s3034_) with + | _s3035_ => + match (hex_bits_6_matches_prefix _s3035_) with + | Some (imm, existT _ _s3036_ _) => + let p0_ := string_drop _s3035_ _s3036_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2139_ (_s2140_ : string) -: M (option (mword 6)) := - - let _s2141_ := _s2140_ in - (if ((string_startswith _s2141_ "c.addi16sp")) then - (match (string_drop _s2141_ (projT1 (string_length "c.addi16sp"))) with - | _s2142_ => - (spc_matches_prefix _s2142_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2143_ _)) => - match (string_drop _s2142_ _s2143_) with - | _s2144_ => - match (hex_bits_6_matches_prefix _s2144_) with - | Some ((imm, existT _ _s2145_ _)) => - let p0_ := string_drop _s2144_ _s2145_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 6)) +Definition _s3018_ (_s3019_ : string) : M (option (mword 6)) := + let _s3020_ := _s3019_ in + (if string_startswith _s3020_ "c.addi16sp" then + (match (string_drop _s3020_ (projT1 (string_length "c.addi16sp"))) with + | _s3021_ => + (spc_matches_prefix _s3021_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3022_ _) => + match (string_drop _s3021_ _s3022_) with + | _s3023_ => + match (hex_bits_6_matches_prefix _s3023_) with + | Some (imm, existT _ _s3024_ _) => + let p0_ := string_drop _s3023_ _s3024_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 6)) - else returnm (None : option (mword 6))) + else returnm None) : M (option (mword 6)). -Definition _s2127_ (_s2128_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2129_ := _s2128_ in - (if ((string_startswith _s2129_ "c.li")) then - (match (string_drop _s2129_ (projT1 (string_length "c.li"))) with - | _s2130_ => - (spc_matches_prefix _s2130_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3006_ (_s3007_ : string) : M (option ((mword 5 * mword 6))) := + let _s3008_ := _s3007_ in + (if string_startswith _s3008_ "c.li" then + (match (string_drop _s3008_ (projT1 (string_length "c.li"))) with + | _s3009_ => + (spc_matches_prefix _s3009_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2131_ _)) => - (match (string_drop _s2130_ _s2131_) with - | _s2132_ => - (reg_name_matches_prefix _s2132_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3010_ _) => + (match (string_drop _s3009_ _s3010_) with + | _s3011_ => + (reg_name_matches_prefix _s3011_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2133_ _)) => - (match (string_drop _s2132_ _s2133_) with - | _s2134_ => - (sep_matches_prefix _s2134_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3012_ _) => + (match (string_drop _s3011_ _s3012_) with + | _s3013_ => + (sep_matches_prefix _s3013_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2135_ _)) => - match (string_drop _s2134_ _s2135_) with - | _s2136_ => - match (hex_bits_6_matches_prefix _s2136_) with - | Some ((imm, existT _ _s2137_ _)) => - let p0_ := string_drop _s2136_ _s2137_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3014_ _) => + match (string_drop _s3013_ _s3014_) with + | _s3015_ => + match (hex_bits_6_matches_prefix _s3015_) with + | Some (imm, existT _ _s3016_ _) => + let p0_ := string_drop _s3015_ _s3016_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2115_ (_s2116_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2117_ := _s2116_ in - (if ((string_startswith _s2117_ "c.addiw")) then - (match (string_drop _s2117_ (projT1 (string_length "c.addiw"))) with - | _s2118_ => - (spc_matches_prefix _s2118_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2994_ (_s2995_ : string) : M (option ((mword 5 * mword 6))) := + let _s2996_ := _s2995_ in + (if string_startswith _s2996_ "c.addiw" then + (match (string_drop _s2996_ (projT1 (string_length "c.addiw"))) with + | _s2997_ => + (spc_matches_prefix _s2997_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2119_ _)) => - (match (string_drop _s2118_ _s2119_) with - | _s2120_ => - (reg_name_matches_prefix _s2120_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2998_ _) => + (match (string_drop _s2997_ _s2998_) with + | _s2999_ => + (reg_name_matches_prefix _s2999_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2121_ _)) => - (match (string_drop _s2120_ _s2121_) with - | _s2122_ => - (sep_matches_prefix _s2122_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3000_ _) => + (match (string_drop _s2999_ _s3000_) with + | _s3001_ => + (sep_matches_prefix _s3001_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2123_ _)) => - match (string_drop _s2122_ _s2123_) with - | _s2124_ => - match (hex_bits_6_matches_prefix _s2124_) with - | Some ((imm, existT _ _s2125_ _)) => - let p0_ := string_drop _s2124_ _s2125_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3002_ _) => + match (string_drop _s3001_ _s3002_) with + | _s3003_ => + match (hex_bits_6_matches_prefix _s3003_) with + | Some (imm, existT _ _s3004_ _) => + let p0_ := string_drop _s3003_ _s3004_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2107_ (_s2108_ : string) -: M (option (mword 11)) := - - let _s2109_ := _s2108_ in - (if ((string_startswith _s2109_ "c.jal")) then - (match (string_drop _s2109_ (projT1 (string_length "c.jal"))) with - | _s2110_ => - (spc_matches_prefix _s2110_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2111_ _)) => - match (string_drop _s2110_ _s2111_) with - | _s2112_ => - match (hex_bits_12_matches_prefix _s2112_) with - | Some ((v__814, existT _ _s2113_ _)) => - if ((eq_vec (subrange_vec_dec v__814 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__814 11 1 in - let imm : mword 11 := subrange_vec_dec v__814 11 1 in - let p0_ := string_drop _s2112_ _s2113_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s2986_ (_s2987_ : string) : M (option (mword 11)) := + let _s2988_ := _s2987_ in + (if string_startswith _s2988_ "c.jal" then + (match (string_drop _s2988_ (projT1 (string_length "c.jal"))) with + | _s2989_ => + (spc_matches_prefix _s2989_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s2990_ _) => + match (string_drop _s2989_ _s2990_) with + | _s2991_ => + match (hex_bits_12_matches_prefix _s2991_) with + | Some (v__1096, existT _ _s2992_ _) => + if eq_vec (subrange_vec_dec v__1096 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1096 11 1 in + let imm : mword 11 := subrange_vec_dec v__1096 11 1 in + let p0_ := string_drop _s2991_ _s2992_ in + if generic_eq p0_ "" then Some imm + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s2095_ (_s2096_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2097_ := _s2096_ in - (if ((string_startswith _s2097_ "c.addi")) then - (match (string_drop _s2097_ (projT1 (string_length "c.addi"))) with - | _s2098_ => - (spc_matches_prefix _s2098_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2974_ (_s2975_ : string) : M (option ((mword 5 * mword 6))) := + let _s2976_ := _s2975_ in + (if string_startswith _s2976_ "c.addi" then + (match (string_drop _s2976_ (projT1 (string_length "c.addi"))) with + | _s2977_ => + (spc_matches_prefix _s2977_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2099_ _)) => - (match (string_drop _s2098_ _s2099_) with - | _s2100_ => - (reg_name_matches_prefix _s2100_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2978_ _) => + (match (string_drop _s2977_ _s2978_) with + | _s2979_ => + (reg_name_matches_prefix _s2979_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2101_ _)) => - (match (string_drop _s2100_ _s2101_) with - | _s2102_ => - (sep_matches_prefix _s2102_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s2980_ _) => + (match (string_drop _s2979_ _s2980_) with + | _s2981_ => + (sep_matches_prefix _s2981_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2103_ _)) => - match (string_drop _s2102_ _s2103_) with - | _s2104_ => - match (hex_bits_6_matches_prefix _s2104_) with - | Some ((nzi, existT _ _s2105_ _)) => - let p0_ := string_drop _s2104_ _s2105_ in - if ((generic_eq p0_ "")) then Some ((rsd, nzi)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s2982_ _) => + match (string_drop _s2981_ _s2982_) with + | _s2983_ => + match (hex_bits_6_matches_prefix _s2983_) with + | Some (nzi, existT _ _s2984_ _) => + let p0_ := string_drop _s2983_ _s2984_ in + if generic_eq p0_ "" then Some (rsd, nzi) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2079_ (_s2080_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2081_ := _s2080_ in - (if ((string_startswith _s2081_ "c.sd")) then - (match (string_drop _s2081_ (projT1 (string_length "c.sd"))) with - | _s2082_ => - (spc_matches_prefix _s2082_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2958_ (_s2959_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2960_ := _s2959_ in + (if string_startswith _s2960_ "c.sd" then + (match (string_drop _s2960_ (projT1 (string_length "c.sd"))) with + | _s2961_ => + (spc_matches_prefix _s2961_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2083_ _)) => - (match (string_drop _s2082_ _s2083_) with - | _s2084_ => - (creg_name_matches_prefix _s2084_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2962_ _) => + (match (string_drop _s2961_ _s2962_) with + | _s2963_ => + (creg_name_matches_prefix _s2963_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2085_ _)) => - (match (string_drop _s2084_ _s2085_) with - | _s2086_ => - (sep_matches_prefix _s2086_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s2964_ _) => + (match (string_drop _s2963_ _s2964_) with + | _s2965_ => + (sep_matches_prefix _s2965_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2087_ _)) => - (match (string_drop _s2086_ _s2087_) with - | _s2088_ => - (creg_name_matches_prefix _s2088_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2966_ _) => + (match (string_drop _s2965_ _s2966_) with + | _s2967_ => + (creg_name_matches_prefix _s2967_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2089_ _)) => - (match (string_drop _s2088_ _s2089_) with - | _s2090_ => - (sep_matches_prefix _s2090_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s2968_ _) => + (match (string_drop _s2967_ _s2968_) with + | _s2969_ => + (sep_matches_prefix _s2969_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2091_ _)) => - match (string_drop _s2090_ _s2091_) with - | _s2092_ => - match (hex_bits_8_matches_prefix _s2092_) with - | Some ((v__816, existT _ _s2093_ _)) => - if ((eq_vec - (subrange_vec_dec v__816 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__816 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__816 7 3 in - let p0_ := - string_drop _s2092_ _s2093_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s2970_ _) => + match (string_drop _s2969_ _s2970_) with + | _s2971_ => + match (hex_bits_8_matches_prefix _s2971_) with + | Some (v__1098, existT _ _s2972_ _) => + if eq_vec (subrange_vec_dec v__1098 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1098 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1098 7 3 in + let p0_ := string_drop _s2971_ _s2972_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2063_ (_s2064_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2065_ := _s2064_ in - (if ((string_startswith _s2065_ "c.sw")) then - (match (string_drop _s2065_ (projT1 (string_length "c.sw"))) with - | _s2066_ => - (spc_matches_prefix _s2066_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2942_ (_s2943_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2944_ := _s2943_ in + (if string_startswith _s2944_ "c.sw" then + (match (string_drop _s2944_ (projT1 (string_length "c.sw"))) with + | _s2945_ => + (spc_matches_prefix _s2945_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2067_ _)) => - (match (string_drop _s2066_ _s2067_) with - | _s2068_ => - (creg_name_matches_prefix _s2068_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2946_ _) => + (match (string_drop _s2945_ _s2946_) with + | _s2947_ => + (creg_name_matches_prefix _s2947_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2069_ _)) => - (match (string_drop _s2068_ _s2069_) with - | _s2070_ => - (sep_matches_prefix _s2070_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s2948_ _) => + (match (string_drop _s2947_ _s2948_) with + | _s2949_ => + (sep_matches_prefix _s2949_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2071_ _)) => - (match (string_drop _s2070_ _s2071_) with - | _s2072_ => - (creg_name_matches_prefix _s2072_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2950_ _) => + (match (string_drop _s2949_ _s2950_) with + | _s2951_ => + (creg_name_matches_prefix _s2951_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2073_ _)) => - (match (string_drop _s2072_ _s2073_) with - | _s2074_ => - (sep_matches_prefix _s2074_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s2952_ _) => + (match (string_drop _s2951_ _s2952_) with + | _s2953_ => + (sep_matches_prefix _s2953_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2075_ _)) => - match (string_drop _s2074_ _s2075_) with - | _s2076_ => - match (hex_bits_7_matches_prefix _s2076_) with - | Some ((v__818, existT _ _s2077_ _)) => - if ((eq_vec - (subrange_vec_dec v__818 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__818 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__818 6 2 in - let p0_ := - string_drop _s2076_ _s2077_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s2954_ _) => + match (string_drop _s2953_ _s2954_) with + | _s2955_ => + match (hex_bits_7_matches_prefix _s2955_) with + | Some (v__1100, existT _ _s2956_ _) => + if eq_vec (subrange_vec_dec v__1100 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1100 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1100 6 2 in + let p0_ := string_drop _s2955_ _s2956_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2047_ (_s2048_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2049_ := _s2048_ in - (if ((string_startswith _s2049_ "c.ld")) then - (match (string_drop _s2049_ (projT1 (string_length "c.ld"))) with - | _s2050_ => - (spc_matches_prefix _s2050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2926_ (_s2927_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2928_ := _s2927_ in + (if string_startswith _s2928_ "c.ld" then + (match (string_drop _s2928_ (projT1 (string_length "c.ld"))) with + | _s2929_ => + (spc_matches_prefix _s2929_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2051_ _)) => - (match (string_drop _s2050_ _s2051_) with - | _s2052_ => - (creg_name_matches_prefix _s2052_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2930_ _) => + (match (string_drop _s2929_ _s2930_) with + | _s2931_ => + (creg_name_matches_prefix _s2931_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2053_ _)) => - (match (string_drop _s2052_ _s2053_) with - | _s2054_ => - (sep_matches_prefix _s2054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s2932_ _) => + (match (string_drop _s2931_ _s2932_) with + | _s2933_ => + (sep_matches_prefix _s2933_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2055_ _)) => - (match (string_drop _s2054_ _s2055_) with - | _s2056_ => - (creg_name_matches_prefix _s2056_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2934_ _) => + (match (string_drop _s2933_ _s2934_) with + | _s2935_ => + (creg_name_matches_prefix _s2935_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2057_ _)) => - (match (string_drop _s2056_ _s2057_) with - | _s2058_ => - (sep_matches_prefix _s2058_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s2936_ _) => + (match (string_drop _s2935_ _s2936_) with + | _s2937_ => + (sep_matches_prefix _s2937_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2059_ _)) => - match (string_drop _s2058_ _s2059_) with - | _s2060_ => - match (hex_bits_8_matches_prefix _s2060_) with - | Some ((v__820, existT _ _s2061_ _)) => - if ((eq_vec - (subrange_vec_dec v__820 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__820 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__820 7 3 in - let p0_ := - string_drop _s2060_ _s2061_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s2938_ _) => + match (string_drop _s2937_ _s2938_) with + | _s2939_ => + match (hex_bits_8_matches_prefix _s2939_) with + | Some (v__1102, existT _ _s2940_ _) => + if eq_vec (subrange_vec_dec v__1102 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1102 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1102 7 3 in + let p0_ := string_drop _s2939_ _s2940_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2031_ (_s2032_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2033_ := _s2032_ in - (if ((string_startswith _s2033_ "c.lw")) then - (match (string_drop _s2033_ (projT1 (string_length "c.lw"))) with - | _s2034_ => - (spc_matches_prefix _s2034_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2910_ (_s2911_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2912_ := _s2911_ in + (if string_startswith _s2912_ "c.lw" then + (match (string_drop _s2912_ (projT1 (string_length "c.lw"))) with + | _s2913_ => + (spc_matches_prefix _s2913_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2035_ _)) => - (match (string_drop _s2034_ _s2035_) with - | _s2036_ => - (creg_name_matches_prefix _s2036_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2914_ _) => + (match (string_drop _s2913_ _s2914_) with + | _s2915_ => + (creg_name_matches_prefix _s2915_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2037_ _)) => - (match (string_drop _s2036_ _s2037_) with - | _s2038_ => - (sep_matches_prefix _s2038_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s2916_ _) => + (match (string_drop _s2915_ _s2916_) with + | _s2917_ => + (sep_matches_prefix _s2917_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2039_ _)) => - (match (string_drop _s2038_ _s2039_) with - | _s2040_ => - (creg_name_matches_prefix _s2040_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2918_ _) => + (match (string_drop _s2917_ _s2918_) with + | _s2919_ => + (creg_name_matches_prefix _s2919_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2041_ _)) => - (match (string_drop _s2040_ _s2041_) with - | _s2042_ => - (sep_matches_prefix _s2042_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s2920_ _) => + (match (string_drop _s2919_ _s2920_) with + | _s2921_ => + (sep_matches_prefix _s2921_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2043_ _)) => - match (string_drop _s2042_ _s2043_) with - | _s2044_ => - match (hex_bits_7_matches_prefix _s2044_) with - | Some ((v__822, existT _ _s2045_ _)) => - if ((eq_vec - (subrange_vec_dec v__822 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__822 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__822 6 2 in - let p0_ := - string_drop _s2044_ _s2045_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s2922_ _) => + match (string_drop _s2921_ _s2922_) with + | _s2923_ => + match (hex_bits_7_matches_prefix _s2923_) with + | Some (v__1104, existT _ _s2924_ _) => + if eq_vec (subrange_vec_dec v__1104 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1104 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1104 6 2 in + let p0_ := string_drop _s2923_ _s2924_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2019_ (_s2020_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2021_ := _s2020_ in - (if ((string_startswith _s2021_ "c.addi4spn")) then - (match (string_drop _s2021_ (projT1 (string_length "c.addi4spn"))) with - | _s2022_ => - (spc_matches_prefix _s2022_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2898_ (_s2899_ : string) : M (option ((mword 3 * mword 8))) := + let _s2900_ := _s2899_ in + (if string_startswith _s2900_ "c.addi4spn" then + (match (string_drop _s2900_ (projT1 (string_length "c.addi4spn"))) with + | _s2901_ => + (spc_matches_prefix _s2901_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2023_ _)) => - (match (string_drop _s2022_ _s2023_) with - | _s2024_ => - (creg_name_matches_prefix _s2024_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2902_ _) => + (match (string_drop _s2901_ _s2902_) with + | _s2903_ => + (creg_name_matches_prefix _s2903_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2025_ _)) => - (match (string_drop _s2024_ _s2025_) with - | _s2026_ => - (sep_matches_prefix _s2026_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s2904_ _) => + (match (string_drop _s2903_ _s2904_) with + | _s2905_ => + (sep_matches_prefix _s2905_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2027_ _)) => - match (string_drop _s2026_ _s2027_) with - | _s2028_ => - match (hex_bits_10_matches_prefix _s2028_) with - | Some ((v__824, existT _ _s2029_ _)) => - if ((eq_vec (subrange_vec_dec v__824 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__824 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__824 9 2 in - let p0_ := string_drop _s2028_ _s2029_ in - if ((generic_eq p0_ "")) then Some ((rdc, nzimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s2906_ _) => + match (string_drop _s2905_ _s2906_) with + | _s2907_ => + match (hex_bits_10_matches_prefix _s2907_) with + | Some (v__1106, existT _ _s2908_ _) => + if eq_vec (subrange_vec_dec v__1106 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1106 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1106 9 2 in + let p0_ := string_drop _s2907_ _s2908_ in + if generic_eq p0_ "" then Some (rdc, nzimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1995_ (_s1996_ : string) +Definition _s2872_ (_s2873_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1996_ with - | _s1997_ => - (amo_mnemonic_matches_prefix _s1997_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s2873_ with + | _s2874_ => + (amo_mnemonic_matches_prefix _s2874_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1998_ _)) => - let _s1999_ := string_drop _s1997_ _s1998_ in - (if ((string_startswith _s1999_ ".")) then - (match (string_drop _s1999_ (projT1 (string_length "."))) with - | _s2000_ => - (size_mnemonic_matches_prefix _s2000_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2875_ _) => + let _s2876_ := string_drop _s2874_ _s2875_ in + (if string_startswith _s2876_ "." then + (match (string_drop _s2876_ (projT1 (string_length "."))) with + | _s2877_ => + (size_mnemonic_matches_prefix _s2877_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s2001_ _)) => - (match (string_drop _s2000_ _s2001_) with - | _s2002_ => - (maybe_aq_matches_prefix _s2002_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s2878_ _) => + (match (string_drop _s2877_ _s2878_) with + | _s2879_ => + (maybe_aq_matches_prefix _s2879_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2003_ _)) => - (match (string_drop _s2002_ _s2003_) with - | _s2004_ => - (maybe_rl_matches_prefix _s2004_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s2880_ _) => + (match (string_drop _s2879_ _s2880_) with + | _s2881_ => + (maybe_rl_matches_prefix _s2881_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2005_ _)) => - (match (string_drop _s2004_ _s2005_) with - | _s2006_ => - (spc_matches_prefix _s2006_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s2882_ _) => + (match (string_drop _s2881_ _s2882_) with + | _s2883_ => + (spc_matches_prefix _s2883_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2007_ _)) => - (match (string_drop _s2006_ _s2007_) with - | _s2008_ => - (reg_name_matches_prefix _s2008_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2884_ _) => + (match (string_drop _s2883_ _s2884_) with + | _s2885_ => + (reg_name_matches_prefix _s2885_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2009_ _)) => - (match (string_drop _s2008_ _s2009_) with - | _s2010_ => - (sep_matches_prefix _s2010_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2886_ _) => + (match (string_drop _s2885_ _s2886_) with + | _s2887_ => + (sep_matches_prefix _s2887_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2011_ _)) => - (match (string_drop _s2010_ _s2011_) with - | _s2012_ => - (reg_name_matches_prefix _s2012_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2888_ _) => + (match (string_drop _s2887_ _s2888_) with + | _s2889_ => + (reg_name_matches_prefix _s2889_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s2013_ _)) => - (match (string_drop _s2012_ - _s2013_) with - | _s2014_ => + | Some (rs2, existT _ _s2890_ _) => + (match (string_drop _s2889_ + _s2890_) with + | _s2891_ => (sep_matches_prefix - _s2014_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s2891_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2015_ _)) => - (match (string_drop - _s2014_ - _s2015_) with - | _s2016_ => - (reg_name_matches_prefix - _s2016_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s2017_ _)) => - let p0_ := - string_drop - _s2016_ - _s2017_ in - if ((generic_eq - p0_ - "")) - then - Some - ((op, width, aq, rl, rd, rs1, rs2)) - else + (tt, existT _ _s2892_ _) => + let _s2893_ := + string_drop _s2891_ + _s2892_ in + (if string_startswith + _s2893_ "(" then + (match (string_drop + _s2893_ + (projT1 + (string_length + "("))) with + | _s2894_ => + (reg_name_matches_prefix + _s2894_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s2895_ _) => + let _s2896_ := + string_drop + _s2894_ + _s2895_ in + if string_startswith + _s2896_ + ")" + then + let p0_ := + string_drop + _s2896_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (op, width, aq, rl, rd, rs2, rs1) + else + None + else + None + | _ => None - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - end) + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1973_ (_s1974_ : string) +Definition _s2850_ (_s2851_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - let _s1975_ := _s1974_ in - (if ((string_startswith _s1975_ "sc.")) then - (match (string_drop _s1975_ (projT1 (string_length "sc."))) with - | _s1976_ => - (size_mnemonic_matches_prefix _s1976_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s2852_ := _s2851_ in + (if string_startswith _s2852_ "sc." then + (match (string_drop _s2852_ (projT1 (string_length "sc."))) with + | _s2853_ => + (size_mnemonic_matches_prefix _s2853_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1977_ _)) => - (match (string_drop _s1976_ _s1977_) with - | _s1978_ => - (maybe_aq_matches_prefix _s1978_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s2854_ _) => + (match (string_drop _s2853_ _s2854_) with + | _s2855_ => + (maybe_aq_matches_prefix _s2855_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1979_ _)) => - (match (string_drop _s1978_ _s1979_) with - | _s1980_ => - (maybe_rl_matches_prefix _s1980_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s2856_ _) => + (match (string_drop _s2855_ _s2856_) with + | _s2857_ => + (maybe_rl_matches_prefix _s2857_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1981_ _)) => - (match (string_drop _s1980_ _s1981_) with - | _s1982_ => - (spc_matches_prefix _s1982_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s2858_ _) => + (match (string_drop _s2857_ _s2858_) with + | _s2859_ => + (spc_matches_prefix _s2859_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1983_ _)) => - (match (string_drop _s1982_ _s1983_) with - | _s1984_ => - (reg_name_matches_prefix _s1984_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2860_ _) => + (match (string_drop _s2859_ _s2860_) with + | _s2861_ => + (reg_name_matches_prefix _s2861_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1985_ _)) => - (match (string_drop _s1984_ _s1985_) with - | _s1986_ => - (sep_matches_prefix _s1986_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2862_ _) => + (match (string_drop _s2861_ _s2862_) with + | _s2863_ => + (sep_matches_prefix _s2863_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1987_ _)) => - (match (string_drop _s1986_ _s1987_) with - | _s1988_ => - (reg_name_matches_prefix _s1988_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2864_ _) => + (match (string_drop _s2863_ _s2864_) with + | _s2865_ => + (reg_name_matches_prefix _s2865_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s1989_ _)) => - (match (string_drop _s1988_ _s1989_) with - | _s1990_ => - (sep_matches_prefix _s1990_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2866_ _) => + (match (string_drop _s2865_ _s2866_) with + | _s2867_ => + (sep_matches_prefix _s2867_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s1991_ _)) => - (match (string_drop _s1990_ - _s1991_) with - | _s1992_ => + | Some (tt, existT _ _s2868_ _) => + (match (string_drop _s2867_ + _s2868_) with + | _s2869_ => (reg_name_matches_prefix - _s1992_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s2869_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s1993_ _)) => - let p0_ := - string_drop - _s1992_ - _s1993_ in - if ((generic_eq - p0_ "")) - then - Some - ((size, aq, rl, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__8 with + | Some + (rs2, existT _ _s2870_ _) => + let p0_ := + string_drop + _s2869_ + _s2870_ in + if generic_eq + p0_ "" + then + Some + (size, aq, rl, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1955_ (_s1956_ : string) -: M (option ((word_width * bool * bool * mword 5 * mword 5))) := - - let _s1957_ := _s1956_ in - (if ((string_startswith _s1957_ "lr.")) then - (match (string_drop _s1957_ (projT1 (string_length "lr."))) with - | _s1958_ => - (size_mnemonic_matches_prefix _s1958_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= +Definition _s2832_ (_s2833_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5))) := + let _s2834_ := _s2833_ in + (if string_startswith _s2834_ "lr." then + (match (string_drop _s2834_ (projT1 (string_length "lr."))) with + | _s2835_ => + (size_mnemonic_matches_prefix _s2835_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1959_ _)) => - (match (string_drop _s1958_ _s1959_) with - | _s1960_ => - (maybe_aq_matches_prefix _s1960_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s2836_ _) => + (match (string_drop _s2835_ _s2836_) with + | _s2837_ => + (maybe_aq_matches_prefix _s2837_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1961_ _)) => - (match (string_drop _s1960_ _s1961_) with - | _s1962_ => - (maybe_rl_matches_prefix _s1962_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s2838_ _) => + (match (string_drop _s2837_ _s2838_) with + | _s2839_ => + (maybe_rl_matches_prefix _s2839_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1963_ _)) => - (match (string_drop _s1962_ _s1963_) with - | _s1964_ => - (spc_matches_prefix _s1964_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s2840_ _) => + (match (string_drop _s2839_ _s2840_) with + | _s2841_ => + (spc_matches_prefix _s2841_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1965_ _)) => - (match (string_drop _s1964_ _s1965_) with - | _s1966_ => - (reg_name_matches_prefix _s1966_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2842_ _) => + (match (string_drop _s2841_ _s2842_) with + | _s2843_ => + (reg_name_matches_prefix _s2843_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1967_ _)) => - (match (string_drop _s1966_ _s1967_) with - | _s1968_ => - (sep_matches_prefix _s1968_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2844_ _) => + (match (string_drop _s2843_ _s2844_) with + | _s2845_ => + (sep_matches_prefix _s2845_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1969_ _)) => - (match (string_drop _s1968_ _s1969_) with - | _s1970_ => - (reg_name_matches_prefix _s1970_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2846_ _) => + (match (string_drop _s2845_ _s2846_) with + | _s2847_ => + (reg_name_matches_prefix _s2847_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s1971_ _)) => - let p0_ := - string_drop _s1970_ _s1971_ in - if ((generic_eq p0_ "")) then - Some - ((size, aq, rl, rd, rs1)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs1, existT _ _s2848_ _) => + let p0_ := + string_drop _s2847_ _s2848_ in + if generic_eq p0_ "" then + Some (size, aq, rl, rd, rs1) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5))). -Definition _s1943_ (_s1944_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1945_ := _s1944_ in - (if ((string_startswith _s1945_ "sfence.vma")) then - (match (string_drop _s1945_ (projT1 (string_length "sfence.vma"))) with - | _s1946_ => - (spc_matches_prefix _s1946_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2820_ (_s2821_ : string) : M (option ((mword 5 * mword 5))) := + let _s2822_ := _s2821_ in + (if string_startswith _s2822_ "sfence.vma" then + (match (string_drop _s2822_ (projT1 (string_length "sfence.vma"))) with + | _s2823_ => + (spc_matches_prefix _s2823_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1947_ _)) => - (match (string_drop _s1946_ _s1947_) with - | _s1948_ => - (reg_name_matches_prefix _s1948_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2824_ _) => + (match (string_drop _s2823_ _s2824_) with + | _s2825_ => + (reg_name_matches_prefix _s2825_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s1949_ _)) => - (match (string_drop _s1948_ _s1949_) with - | _s1950_ => - (sep_matches_prefix _s1950_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2826_ _) => + (match (string_drop _s2825_ _s2826_) with + | _s2827_ => + (sep_matches_prefix _s2827_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1951_ _)) => - (match (string_drop _s1950_ _s1951_) with - | _s1952_ => - (reg_name_matches_prefix _s1952_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2828_ _) => + (match (string_drop _s2827_ _s2828_) with + | _s2829_ => + (reg_name_matches_prefix _s2829_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1953_ _)) => - let p0_ := string_drop _s1952_ _s1953_ in - if ((generic_eq p0_ "")) then Some ((rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s2830_ _) => + let p0_ := string_drop _s2829_ _s2830_ in + if generic_eq p0_ "" then Some (rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1931_ (_s1932_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1933_ := _s1932_ in - (if ((string_startswith _s1933_ "fence.tso")) then - (match (string_drop _s1933_ (projT1 (string_length "fence.tso"))) with - | _s1934_ => - (spc_matches_prefix _s1934_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2808_ (_s2809_ : string) : M (option ((mword 4 * mword 4))) := + let _s2810_ := _s2809_ in + (if string_startswith _s2810_ "fence.tso" then + (match (string_drop _s2810_ (projT1 (string_length "fence.tso"))) with + | _s2811_ => + (spc_matches_prefix _s2811_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1935_ _)) => - (match (string_drop _s1934_ _s1935_) with - | _s1936_ => - (fence_bits_matches_prefix _s1936_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2812_ _) => + (match (string_drop _s2811_ _s2812_) with + | _s2813_ => + (fence_bits_matches_prefix _s2813_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1937_ _)) => - (match (string_drop _s1936_ _s1937_) with - | _s1938_ => - (sep_matches_prefix _s1938_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s2814_ _) => + (match (string_drop _s2813_ _s2814_) with + | _s2815_ => + (sep_matches_prefix _s2815_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1939_ _)) => - (match (string_drop _s1938_ _s1939_) with - | _s1940_ => - (fence_bits_matches_prefix _s1940_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2816_ _) => + (match (string_drop _s2815_ _s2816_) with + | _s2817_ => + (fence_bits_matches_prefix _s2817_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1941_ _)) => - let p0_ := string_drop _s1940_ _s1941_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s2818_ _) => + let p0_ := string_drop _s2817_ _s2818_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1919_ (_s1920_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1921_ := _s1920_ in - (if ((string_startswith _s1921_ "fence")) then - (match (string_drop _s1921_ (projT1 (string_length "fence"))) with - | _s1922_ => - (spc_matches_prefix _s1922_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2796_ (_s2797_ : string) : M (option ((mword 4 * mword 4))) := + let _s2798_ := _s2797_ in + (if string_startswith _s2798_ "fence" then + (match (string_drop _s2798_ (projT1 (string_length "fence"))) with + | _s2799_ => + (spc_matches_prefix _s2799_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1923_ _)) => - (match (string_drop _s1922_ _s1923_) with - | _s1924_ => - (fence_bits_matches_prefix _s1924_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2800_ _) => + (match (string_drop _s2799_ _s2800_) with + | _s2801_ => + (fence_bits_matches_prefix _s2801_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1925_ _)) => - (match (string_drop _s1924_ _s1925_) with - | _s1926_ => - (sep_matches_prefix _s1926_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s2802_ _) => + (match (string_drop _s2801_ _s2802_) with + | _s2803_ => + (sep_matches_prefix _s2803_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1927_ _)) => - (match (string_drop _s1926_ _s1927_) with - | _s1928_ => - (fence_bits_matches_prefix _s1928_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2804_ _) => + (match (string_drop _s2803_ _s2804_) with + | _s2805_ => + (fence_bits_matches_prefix _s2805_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1929_ _)) => - let p0_ := string_drop _s1928_ _s1929_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s2806_ _) => + let p0_ := string_drop _s2805_ _s2806_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1902_ (_s1903_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5))) := - - (match _s1903_ with - | _s1904_ => - (shiftiwop_mnemonic_matches_prefix _s1904_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s2779_ (_s2780_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5))) := + (match _s2780_ with + | _s2781_ => + (shiftiwop_mnemonic_matches_prefix _s2781_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1905_ _)) => - (match (string_drop _s1904_ _s1905_) with - | _s1906_ => - (spc_matches_prefix _s1906_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2782_ _) => + (match (string_drop _s2781_ _s2782_) with + | _s2783_ => + (spc_matches_prefix _s2783_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1907_ _)) => - (match (string_drop _s1906_ _s1907_) with - | _s1908_ => - (reg_name_matches_prefix _s1908_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2784_ _) => + (match (string_drop _s2783_ _s2784_) with + | _s2785_ => + (reg_name_matches_prefix _s2785_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1909_ _)) => - (match (string_drop _s1908_ _s1909_) with - | _s1910_ => - (sep_matches_prefix _s1910_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2786_ _) => + (match (string_drop _s2785_ _s2786_) with + | _s2787_ => + (sep_matches_prefix _s2787_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1911_ _)) => - (match (string_drop _s1910_ _s1911_) with - | _s1912_ => - (reg_name_matches_prefix _s1912_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2788_ _) => + (match (string_drop _s2787_ _s2788_) with + | _s2789_ => + (reg_name_matches_prefix _s2789_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1913_ _)) => - (match (string_drop _s1912_ _s1913_) with - | _s1914_ => - (sep_matches_prefix _s1914_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2790_ _) => + (match (string_drop _s2789_ _s2790_) with + | _s2791_ => + (sep_matches_prefix _s2791_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1915_ _)) => - match (string_drop _s1914_ _s1915_) with - | _s1916_ => - match (hex_bits_5_matches_prefix - _s1916_) with - | Some ((shamt, existT _ _s1917_ _)) => - let p0_ := - string_drop _s1916_ _s1917_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s2792_ _) => + match (string_drop _s2791_ _s2792_) with + | _s2793_ => + match (hex_bits_5_matches_prefix + _s2793_) with + | Some (shamt, existT _ _s2794_ _) => + let p0_ := + string_drop _s2793_ _s2794_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))). -Definition _s1885_ (_s1886_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5))) := - - (match _s1886_ with - | _s1887_ => - (rtypew_mnemonic_matches_prefix _s1887_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s2762_ (_s2763_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5))) := + (match _s2763_ with + | _s2764_ => + (rtypew_mnemonic_matches_prefix _s2764_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1888_ _)) => - (match (string_drop _s1887_ _s1888_) with - | _s1889_ => - (spc_matches_prefix _s1889_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2765_ _) => + (match (string_drop _s2764_ _s2765_) with + | _s2766_ => + (spc_matches_prefix _s2766_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1890_ _)) => - (match (string_drop _s1889_ _s1890_) with - | _s1891_ => - (reg_name_matches_prefix _s1891_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2767_ _) => + (match (string_drop _s2766_ _s2767_) with + | _s2768_ => + (reg_name_matches_prefix _s2768_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1892_ _)) => - (match (string_drop _s1891_ _s1892_) with - | _s1893_ => - (sep_matches_prefix _s1893_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2769_ _) => + (match (string_drop _s2768_ _s2769_) with + | _s2770_ => + (sep_matches_prefix _s2770_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1894_ _)) => - (match (string_drop _s1893_ _s1894_) with - | _s1895_ => - (reg_name_matches_prefix _s1895_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2771_ _) => + (match (string_drop _s2770_ _s2771_) with + | _s2772_ => + (reg_name_matches_prefix _s2772_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1896_ _)) => - (match (string_drop _s1895_ _s1896_) with - | _s1897_ => - (sep_matches_prefix _s1897_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2773_ _) => + (match (string_drop _s2772_ _s2773_) with + | _s2774_ => + (sep_matches_prefix _s2774_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1898_ _)) => - (match (string_drop _s1897_ _s1898_) with - | _s1899_ => - (reg_name_matches_prefix _s1899_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2775_ _) => + (match (string_drop _s2774_ _s2775_) with + | _s2776_ => + (reg_name_matches_prefix _s2776_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1900_ _)) => - let p0_ := - string_drop _s1899_ _s1900_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s2777_ _) => + let p0_ := + string_drop _s2776_ _s2777_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))). -Definition _s1868_ (_s1869_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5))) := - - (match _s1869_ with - | _s1870_ => - (shiftw_mnemonic_matches_prefix _s1870_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s2745_ (_s2746_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5))) := + (match _s2746_ with + | _s2747_ => + (shiftw_mnemonic_matches_prefix _s2747_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1871_ _)) => - (match (string_drop _s1870_ _s1871_) with - | _s1872_ => - (spc_matches_prefix _s1872_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2748_ _) => + (match (string_drop _s2747_ _s2748_) with + | _s2749_ => + (spc_matches_prefix _s2749_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1873_ _)) => - (match (string_drop _s1872_ _s1873_) with - | _s1874_ => - (reg_name_matches_prefix _s1874_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2750_ _) => + (match (string_drop _s2749_ _s2750_) with + | _s2751_ => + (reg_name_matches_prefix _s2751_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1875_ _)) => - (match (string_drop _s1874_ _s1875_) with - | _s1876_ => - (sep_matches_prefix _s1876_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2752_ _) => + (match (string_drop _s2751_ _s2752_) with + | _s2753_ => + (sep_matches_prefix _s2753_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1877_ _)) => - (match (string_drop _s1876_ _s1877_) with - | _s1878_ => - (reg_name_matches_prefix _s1878_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2754_ _) => + (match (string_drop _s2753_ _s2754_) with + | _s2755_ => + (reg_name_matches_prefix _s2755_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1879_ _)) => - (match (string_drop _s1878_ _s1879_) with - | _s1880_ => - (sep_matches_prefix _s1880_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2756_ _) => + (match (string_drop _s2755_ _s2756_) with + | _s2757_ => + (sep_matches_prefix _s2757_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1881_ _)) => - match (string_drop _s1880_ _s1881_) with - | _s1882_ => - match (hex_bits_5_matches_prefix - _s1882_) with - | Some ((shamt, existT _ _s1883_ _)) => - let p0_ := - string_drop _s1882_ _s1883_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s2758_ _) => + match (string_drop _s2757_ _s2758_) with + | _s2759_ => + match (hex_bits_5_matches_prefix + _s2759_) with + | Some (shamt, existT _ _s2760_ _) => + let p0_ := + string_drop _s2759_ _s2760_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))). -Definition _s1852_ (_s1853_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s1854_ := _s1853_ in - (if ((string_startswith _s1854_ "addiw")) then - (match (string_drop _s1854_ (projT1 (string_length "addiw"))) with - | _s1855_ => - (spc_matches_prefix _s1855_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2729_ (_s2730_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s2731_ := _s2730_ in + (if string_startswith _s2731_ "addiw" then + (match (string_drop _s2731_ (projT1 (string_length "addiw"))) with + | _s2732_ => + (spc_matches_prefix _s2732_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1856_ _)) => - (match (string_drop _s1855_ _s1856_) with - | _s1857_ => - (reg_name_matches_prefix _s1857_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2733_ _) => + (match (string_drop _s2732_ _s2733_) with + | _s2734_ => + (reg_name_matches_prefix _s2734_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1858_ _)) => - (match (string_drop _s1857_ _s1858_) with - | _s1859_ => - (sep_matches_prefix _s1859_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2735_ _) => + (match (string_drop _s2734_ _s2735_) with + | _s2736_ => + (sep_matches_prefix _s2736_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1860_ _)) => - (match (string_drop _s1859_ _s1860_) with - | _s1861_ => - (reg_name_matches_prefix _s1861_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2737_ _) => + (match (string_drop _s2736_ _s2737_) with + | _s2738_ => + (reg_name_matches_prefix _s2738_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1862_ _)) => - (match (string_drop _s1861_ _s1862_) with - | _s1863_ => - (sep_matches_prefix _s1863_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2739_ _) => + (match (string_drop _s2738_ _s2739_) with + | _s2740_ => + (sep_matches_prefix _s2740_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1864_ _)) => - match (string_drop _s1863_ _s1864_) with - | _s1865_ => - match (hex_bits_12_matches_prefix _s1865_) with - | Some ((imm, existT _ _s1866_ _)) => - let p0_ := string_drop _s1865_ _s1866_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s2741_ _) => + match (string_drop _s2740_ _s2741_) with + | _s2742_ => + match (hex_bits_12_matches_prefix _s2742_) with + | Some (imm, existT _ _s2743_ _) => + let p0_ := string_drop _s2742_ _s2743_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s1824_ (_s1825_ : string) +Definition _s2701_ (_s2702_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s1826_ := _s1825_ in - (if ((string_startswith _s1826_ "s")) then - (match (string_drop _s1826_ (projT1 (string_length "s"))) with - | _s1827_ => - (size_mnemonic_matches_prefix _s1827_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s2703_ := _s2702_ in + (if string_startswith _s2703_ "s" then + (match (string_drop _s2703_ (projT1 (string_length "s"))) with + | _s2704_ => + (size_mnemonic_matches_prefix _s2704_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1828_ _)) => - (match (string_drop _s1827_ _s1828_) with - | _s1829_ => - (maybe_aq_matches_prefix _s1829_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s2705_ _) => + (match (string_drop _s2704_ _s2705_) with + | _s2706_ => + (maybe_aq_matches_prefix _s2706_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1830_ _)) => - (match (string_drop _s1829_ _s1830_) with - | _s1831_ => - (maybe_rl_matches_prefix _s1831_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s2707_ _) => + (match (string_drop _s2706_ _s2707_) with + | _s2708_ => + (maybe_rl_matches_prefix _s2708_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1832_ _)) => - (match (string_drop _s1831_ _s1832_) with - | _s1833_ => - (spc_matches_prefix _s1833_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s2709_ _) => + (match (string_drop _s2708_ _s2709_) with + | _s2710_ => + (spc_matches_prefix _s2710_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1834_ _)) => - (match (string_drop _s1833_ _s1834_) with - | _s1835_ => - (reg_name_matches_prefix _s1835_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2711_ _) => + (match (string_drop _s2710_ _s2711_) with + | _s2712_ => + (reg_name_matches_prefix _s2712_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s1836_ _)) => - (match (string_drop _s1835_ _s1836_) with - | _s1837_ => - (sep_matches_prefix _s1837_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s2713_ _) => + (match (string_drop _s2712_ _s2713_) with + | _s2714_ => + (sep_matches_prefix _s2714_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1838_ _)) => - (match (string_drop _s1837_ _s1838_) with - | _s1839_ => - (match (hex_bits_12_matches_prefix _s1839_) with - | Some ((imm, existT _ _s1840_ _)) => - (match (string_drop _s1839_ _s1840_) with - | _s1841_ => - (opt_spc_matches_prefix _s1841_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2715_ _) => + (match (string_drop _s2714_ _s2715_) with + | _s2716_ => + (match (hex_bits_12_matches_prefix _s2716_) with + | Some (imm, existT _ _s2717_ _) => + (match (string_drop _s2716_ _s2717_) with + | _s2718_ => + (opt_spc_matches_prefix _s2718_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1842_ _)) => - let _s1843_ := - string_drop _s1841_ _s1842_ in - (if ((string_startswith - _s1843_ "(")) then - (match (string_drop _s1843_ + | Some (tt, existT _ _s2719_ _) => + let _s2720_ := + string_drop _s2718_ _s2719_ in + (if string_startswith _s2720_ + "(" then + (match (string_drop _s2720_ (projT1 (string_length "("))) with - | _s1844_ => + | _s2721_ => (opt_spc_matches_prefix - _s1844_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s2721_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s1845_ _)) => + (tt, existT _ _s2722_ _) => (match (string_drop - _s1844_ - _s1845_) with - | _s1846_ => + _s2721_ + _s2722_) with + | _s2723_ => (reg_name_matches_prefix - _s1846_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s2723_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s1847_ _)) => + (rs1, existT _ _s2724_ _) => (match (string_drop - _s1846_ - _s1847_) with - | _s1848_ => + _s2723_ + _s2724_) with + | _s2725_ => (opt_spc_matches_prefix - _s1848_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s2725_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s1849_ _)) => - let _s1850_ := - string_drop - _s1848_ - _s1849_ in - if - ((string_startswith - _s1850_ - ")")) - then - let p0_ := - string_drop - _s1850_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, aq, rl, rs2, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__9 with + | Some + (tt, existT _ _s2726_ _) => + let _s2727_ := + string_drop + _s2725_ + _s2726_ in + if + string_startswith + _s2727_ + ")" + then + let p0_ := + string_drop + _s2727_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, aq, rl, rs2, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s1794_ (_s1795_ : string) +Definition _s2671_ (_s2672_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s1796_ := _s1795_ in - (if ((string_startswith _s1796_ "l")) then - (match (string_drop _s1796_ (projT1 (string_length "l"))) with - | _s1797_ => - (size_mnemonic_matches_prefix _s1797_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s2673_ := _s2672_ in + (if string_startswith _s2673_ "l" then + (match (string_drop _s2673_ (projT1 (string_length "l"))) with + | _s2674_ => + (size_mnemonic_matches_prefix _s2674_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1798_ _)) => - (match (string_drop _s1797_ _s1798_) with - | _s1799_ => - (maybe_u_matches_prefix _s1799_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s2675_ _) => + (match (string_drop _s2674_ _s2675_) with + | _s2676_ => + (maybe_u_matches_prefix _s2676_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s1800_ _)) => - (match (string_drop _s1799_ _s1800_) with - | _s1801_ => - (maybe_aq_matches_prefix _s1801_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s2677_ _) => + (match (string_drop _s2676_ _s2677_) with + | _s2678_ => + (maybe_aq_matches_prefix _s2678_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s1802_ _)) => - (match (string_drop _s1801_ _s1802_) with - | _s1803_ => - (maybe_rl_matches_prefix _s1803_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s2679_ _) => + (match (string_drop _s2678_ _s2679_) with + | _s2680_ => + (maybe_rl_matches_prefix _s2680_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s1804_ _)) => - (match (string_drop _s1803_ _s1804_) with - | _s1805_ => - (spc_matches_prefix _s1805_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s2681_ _) => + (match (string_drop _s2680_ _s2681_) with + | _s2682_ => + (spc_matches_prefix _s2682_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1806_ _)) => - (match (string_drop _s1805_ _s1806_) with - | _s1807_ => - (reg_name_matches_prefix _s1807_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2683_ _) => + (match (string_drop _s2682_ _s2683_) with + | _s2684_ => + (reg_name_matches_prefix _s2684_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s1808_ _)) => - (match (string_drop _s1807_ _s1808_) with - | _s1809_ => - (sep_matches_prefix _s1809_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2685_ _) => + (match (string_drop _s2684_ _s2685_) with + | _s2686_ => + (sep_matches_prefix _s2686_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1810_ _)) => - (match (string_drop _s1809_ _s1810_) with - | _s1811_ => + | Some (tt, existT _ _s2687_ _) => + (match (string_drop _s2686_ _s2687_) with + | _s2688_ => (match (hex_bits_12_matches_prefix - _s1811_) with - | Some - ((imm, existT _ _s1812_ _)) => - (match (string_drop _s1811_ - _s1812_) with - | _s1813_ => + _s2688_) with + | Some (imm, existT _ _s2689_ _) => + (match (string_drop _s2688_ + _s2689_) with + | _s2690_ => (opt_spc_matches_prefix - _s1813_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s2690_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s1814_ _)) => - let _s1815_ := - string_drop _s1813_ - _s1814_ in - (if ((string_startswith - _s1815_ "(")) - then + (tt, existT _ _s2691_ _) => + let _s2692_ := + string_drop _s2690_ + _s2691_ in + (if string_startswith + _s2692_ "(" then (match (string_drop - _s1815_ + _s2692_ (projT1 (string_length "("))) with - | _s1816_ => + | _s2693_ => (opt_spc_matches_prefix - _s1816_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s2693_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s1817_ _)) => + (tt, existT _ _s2694_ _) => (match (string_drop - _s1816_ - _s1817_) with - | _s1818_ => + _s2693_ + _s2694_) with + | _s2695_ => (reg_name_matches_prefix - _s1818_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s2695_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s1819_ _)) => + (rs1, existT _ _s2696_ _) => (match (string_drop - _s1818_ - _s1819_) with - | _s1820_ => + _s2695_ + _s2696_) with + | _s2697_ => (opt_spc_matches_prefix - _s1820_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s2697_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s1821_ _)) => - let _s1822_ := - string_drop - _s1820_ - _s1821_ in - if - ((string_startswith - _s1822_ - ")")) - then - let p0_ := - string_drop - _s1822_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__10 with + | Some + (tt, existT _ _s2698_ _) => + let _s2699_ := + string_drop + _s2697_ + _s2698_ in + if + string_startswith + _s2699_ + ")" + then + let p0_ := + string_drop + _s2699_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, is_unsigned, aq, rl, rd, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s1777_ (_s1778_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5))) := - - (match _s1778_ with - | _s1779_ => - (rtype_mnemonic_matches_prefix _s1779_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s2654_ (_s2655_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5))) := + (match _s2655_ with + | _s2656_ => + (rtype_mnemonic_matches_prefix _s2656_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1780_ _)) => - (match (string_drop _s1779_ _s1780_) with - | _s1781_ => - (spc_matches_prefix _s1781_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2657_ _) => + (match (string_drop _s2656_ _s2657_) with + | _s2658_ => + (spc_matches_prefix _s2658_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1782_ _)) => - (match (string_drop _s1781_ _s1782_) with - | _s1783_ => - (reg_name_matches_prefix _s1783_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2659_ _) => + (match (string_drop _s2658_ _s2659_) with + | _s2660_ => + (reg_name_matches_prefix _s2660_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1784_ _)) => - (match (string_drop _s1783_ _s1784_) with - | _s1785_ => - (sep_matches_prefix _s1785_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2661_ _) => + (match (string_drop _s2660_ _s2661_) with + | _s2662_ => + (sep_matches_prefix _s2662_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1786_ _)) => - (match (string_drop _s1785_ _s1786_) with - | _s1787_ => - (reg_name_matches_prefix _s1787_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2663_ _) => + (match (string_drop _s2662_ _s2663_) with + | _s2664_ => + (reg_name_matches_prefix _s2664_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1788_ _)) => - (match (string_drop _s1787_ _s1788_) with - | _s1789_ => - (sep_matches_prefix _s1789_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2665_ _) => + (match (string_drop _s2664_ _s2665_) with + | _s2666_ => + (sep_matches_prefix _s2666_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1790_ _)) => - (match (string_drop _s1789_ _s1790_) with - | _s1791_ => - (reg_name_matches_prefix _s1791_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2667_ _) => + (match (string_drop _s2666_ _s2667_) with + | _s2668_ => + (reg_name_matches_prefix _s2668_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1792_ _)) => - let p0_ := - string_drop _s1791_ _s1792_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s2669_ _) => + let p0_ := + string_drop _s2668_ _s2669_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))). -Definition _s1760_ (_s1761_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6))) := - - (match _s1761_ with - | _s1762_ => - (shiftiop_mnemonic_matches_prefix _s1762_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s2637_ (_s2638_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6))) := + (match _s2638_ with + | _s2639_ => + (shiftiop_mnemonic_matches_prefix _s2639_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1763_ _)) => - (match (string_drop _s1762_ _s1763_) with - | _s1764_ => - (spc_matches_prefix _s1764_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2640_ _) => + (match (string_drop _s2639_ _s2640_) with + | _s2641_ => + (spc_matches_prefix _s2641_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1765_ _)) => - (match (string_drop _s1764_ _s1765_) with - | _s1766_ => - (reg_name_matches_prefix _s1766_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2642_ _) => + (match (string_drop _s2641_ _s2642_) with + | _s2643_ => + (reg_name_matches_prefix _s2643_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1767_ _)) => - (match (string_drop _s1766_ _s1767_) with - | _s1768_ => - (sep_matches_prefix _s1768_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2644_ _) => + (match (string_drop _s2643_ _s2644_) with + | _s2645_ => + (sep_matches_prefix _s2645_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1769_ _)) => - (match (string_drop _s1768_ _s1769_) with - | _s1770_ => - (reg_name_matches_prefix _s1770_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2646_ _) => + (match (string_drop _s2645_ _s2646_) with + | _s2647_ => + (reg_name_matches_prefix _s2647_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1771_ _)) => - (match (string_drop _s1770_ _s1771_) with - | _s1772_ => - (sep_matches_prefix _s1772_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2648_ _) => + (match (string_drop _s2647_ _s2648_) with + | _s2649_ => + (sep_matches_prefix _s2649_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1773_ _)) => - match (string_drop _s1772_ _s1773_) with - | _s1774_ => - match (hex_bits_6_matches_prefix - _s1774_) with - | Some ((shamt, existT _ _s1775_ _)) => - let p0_ := - string_drop _s1774_ _s1775_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6))) + returnm (match w__5 with + | Some (tt, existT _ _s2650_ _) => + match (string_drop _s2649_ _s2650_) with + | _s2651_ => + match (hex_bits_6_matches_prefix + _s2651_) with + | Some (shamt, existT _ _s2652_ _) => + let p0_ := + string_drop _s2651_ _s2652_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))). -Definition _s1743_ (_s1744_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12))) := - - (match _s1744_ with - | _s1745_ => - (itype_mnemonic_matches_prefix _s1745_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s2620_ (_s2621_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12))) := + (match _s2621_ with + | _s2622_ => + (itype_mnemonic_matches_prefix _s2622_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1746_ _)) => - (match (string_drop _s1745_ _s1746_) with - | _s1747_ => - (spc_matches_prefix _s1747_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2623_ _) => + (match (string_drop _s2622_ _s2623_) with + | _s2624_ => + (spc_matches_prefix _s2624_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1748_ _)) => - (match (string_drop _s1747_ _s1748_) with - | _s1749_ => - (reg_name_matches_prefix _s1749_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2625_ _) => + (match (string_drop _s2624_ _s2625_) with + | _s2626_ => + (reg_name_matches_prefix _s2626_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1750_ _)) => - (match (string_drop _s1749_ _s1750_) with - | _s1751_ => - (sep_matches_prefix _s1751_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2627_ _) => + (match (string_drop _s2626_ _s2627_) with + | _s2628_ => + (sep_matches_prefix _s2628_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1752_ _)) => - (match (string_drop _s1751_ _s1752_) with - | _s1753_ => - (reg_name_matches_prefix _s1753_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2629_ _) => + (match (string_drop _s2628_ _s2629_) with + | _s2630_ => + (reg_name_matches_prefix _s2630_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1754_ _)) => - (match (string_drop _s1753_ _s1754_) with - | _s1755_ => - (sep_matches_prefix _s1755_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2631_ _) => + (match (string_drop _s2630_ _s2631_) with + | _s2632_ => + (sep_matches_prefix _s2632_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1756_ _)) => - match (string_drop _s1755_ _s1756_) with - | _s1757_ => - match (hex_bits_12_matches_prefix - _s1757_) with - | Some ((imm, existT _ _s1758_ _)) => - let p0_ := - string_drop _s1757_ _s1758_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12))) + returnm (match w__5 with + | Some (tt, existT _ _s2633_ _) => + match (string_drop _s2632_ _s2633_) with + | _s2634_ => + match (hex_bits_12_matches_prefix + _s2634_) with + | Some (imm, existT _ _s2635_ _) => + let p0_ := + string_drop _s2634_ _s2635_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))). -Definition _s1726_ (_s1727_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13))) := - - (match _s1727_ with - | _s1728_ => - (btype_mnemonic_matches_prefix _s1728_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s2603_ (_s2604_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13))) := + (match _s2604_ with + | _s2605_ => + (btype_mnemonic_matches_prefix _s2605_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1729_ _)) => - (match (string_drop _s1728_ _s1729_) with - | _s1730_ => - (spc_matches_prefix _s1730_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2606_ _) => + (match (string_drop _s2605_ _s2606_) with + | _s2607_ => + (spc_matches_prefix _s2607_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1731_ _)) => - (match (string_drop _s1730_ _s1731_) with - | _s1732_ => - (reg_name_matches_prefix _s1732_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2608_ _) => + (match (string_drop _s2607_ _s2608_) with + | _s2609_ => + (reg_name_matches_prefix _s2609_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s1733_ _)) => - (match (string_drop _s1732_ _s1733_) with - | _s1734_ => - (sep_matches_prefix _s1734_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2610_ _) => + (match (string_drop _s2609_ _s2610_) with + | _s2611_ => + (sep_matches_prefix _s2611_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1735_ _)) => - (match (string_drop _s1734_ _s1735_) with - | _s1736_ => - (reg_name_matches_prefix _s1736_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2612_ _) => + (match (string_drop _s2611_ _s2612_) with + | _s2613_ => + (reg_name_matches_prefix _s2613_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s1737_ _)) => - (match (string_drop _s1736_ _s1737_) with - | _s1738_ => - (sep_matches_prefix _s1738_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s2614_ _) => + (match (string_drop _s2613_ _s2614_) with + | _s2615_ => + (sep_matches_prefix _s2615_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1739_ _)) => - match (string_drop _s1738_ _s1739_) with - | _s1740_ => - match (hex_bits_13_matches_prefix - _s1740_) with - | Some ((imm, existT _ _s1741_ _)) => - let p0_ := - string_drop _s1740_ _s1741_ in - if ((generic_eq p0_ "")) then - Some - ((op, rs1, rs2, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13))) + returnm (match w__5 with + | Some (tt, existT _ _s2616_ _) => + match (string_drop _s2615_ _s2616_) with + | _s2617_ => + match (hex_bits_13_matches_prefix + _s2617_) with + | Some (imm, existT _ _s2618_ _) => + let p0_ := + string_drop _s2617_ _s2618_ in + if generic_eq p0_ "" then + Some (op, rs1, rs2, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))). -Definition _s1710_ (_s1711_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s1712_ := _s1711_ in - (if ((string_startswith _s1712_ "jalr")) then - (match (string_drop _s1712_ (projT1 (string_length "jalr"))) with - | _s1713_ => - (spc_matches_prefix _s1713_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2587_ (_s2588_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s2589_ := _s2588_ in + (if string_startswith _s2589_ "jalr" then + (match (string_drop _s2589_ (projT1 (string_length "jalr"))) with + | _s2590_ => + (spc_matches_prefix _s2590_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1714_ _)) => - (match (string_drop _s1713_ _s1714_) with - | _s1715_ => - (reg_name_matches_prefix _s1715_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2591_ _) => + (match (string_drop _s2590_ _s2591_) with + | _s2592_ => + (reg_name_matches_prefix _s2592_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1716_ _)) => - (match (string_drop _s1715_ _s1716_) with - | _s1717_ => - (sep_matches_prefix _s1717_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2593_ _) => + (match (string_drop _s2592_ _s2593_) with + | _s2594_ => + (sep_matches_prefix _s2594_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1718_ _)) => - (match (string_drop _s1717_ _s1718_) with - | _s1719_ => - (reg_name_matches_prefix _s1719_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2595_ _) => + (match (string_drop _s2594_ _s2595_) with + | _s2596_ => + (reg_name_matches_prefix _s2596_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1720_ _)) => - (match (string_drop _s1719_ _s1720_) with - | _s1721_ => - (sep_matches_prefix _s1721_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2597_ _) => + (match (string_drop _s2596_ _s2597_) with + | _s2598_ => + (sep_matches_prefix _s2598_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1722_ _)) => - match (string_drop _s1721_ _s1722_) with - | _s1723_ => - match (hex_bits_12_matches_prefix _s1723_) with - | Some ((imm, existT _ _s1724_ _)) => - let p0_ := string_drop _s1723_ _s1724_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s2599_ _) => + match (string_drop _s2598_ _s2599_) with + | _s2600_ => + match (hex_bits_12_matches_prefix _s2600_) with + | Some (imm, existT _ _s2601_ _) => + let p0_ := string_drop _s2600_ _s2601_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s1698_ (_s1699_ : string) -: M (option ((mword 5 * mword 21))) := - - let _s1700_ := _s1699_ in - (if ((string_startswith _s1700_ "jal")) then - (match (string_drop _s1700_ (projT1 (string_length "jal"))) with - | _s1701_ => - (spc_matches_prefix _s1701_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2575_ (_s2576_ : string) : M (option ((mword 5 * mword 21))) := + let _s2577_ := _s2576_ in + (if string_startswith _s2577_ "jal" then + (match (string_drop _s2577_ (projT1 (string_length "jal"))) with + | _s2578_ => + (spc_matches_prefix _s2578_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1702_ _)) => - (match (string_drop _s1701_ _s1702_) with - | _s1703_ => - (reg_name_matches_prefix _s1703_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2579_ _) => + (match (string_drop _s2578_ _s2579_) with + | _s2580_ => + (reg_name_matches_prefix _s2580_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1704_ _)) => - (match (string_drop _s1703_ _s1704_) with - | _s1705_ => - (sep_matches_prefix _s1705_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2581_ _) => + (match (string_drop _s2580_ _s2581_) with + | _s2582_ => + (sep_matches_prefix _s2582_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1706_ _)) => - match (string_drop _s1705_ _s1706_) with - | _s1707_ => - match (hex_bits_21_matches_prefix _s1707_) with - | Some ((imm, existT _ _s1708_ _)) => - let p0_ := string_drop _s1707_ _s1708_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21))) + returnm (match w__2 with + | Some (tt, existT _ _s2583_ _) => + match (string_drop _s2582_ _s2583_) with + | _s2584_ => + match (hex_bits_21_matches_prefix _s2584_) with + | Some (imm, existT _ _s2585_ _) => + let p0_ := string_drop _s2584_ _s2585_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - else returnm (None : option ((mword 5 * mword 21)))) + else returnm None) : M (option ((mword 5 * mword 21))). -Definition _s1685_ (_s1686_ : string) -: M (option ((uop * mword 5 * mword 20))) := - - (match _s1686_ with - | _s1687_ => - (utype_mnemonic_matches_prefix _s1687_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s2562_ (_s2563_ : string) : M (option ((uop * mword 5 * mword 20))) := + (match _s2563_ with + | _s2564_ => + (utype_mnemonic_matches_prefix _s2564_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1688_ _)) => - (match (string_drop _s1687_ _s1688_) with - | _s1689_ => - (spc_matches_prefix _s1689_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2565_ _) => + (match (string_drop _s2564_ _s2565_) with + | _s2566_ => + (spc_matches_prefix _s2566_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1690_ _)) => - (match (string_drop _s1689_ _s1690_) with - | _s1691_ => - (reg_name_matches_prefix _s1691_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2567_ _) => + (match (string_drop _s2566_ _s2567_) with + | _s2568_ => + (reg_name_matches_prefix _s2568_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1692_ _)) => - (match (string_drop _s1691_ _s1692_) with - | _s1693_ => - (sep_matches_prefix _s1693_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2569_ _) => + (match (string_drop _s2568_ _s2569_) with + | _s2570_ => + (sep_matches_prefix _s2570_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s1694_ _)) => - match (string_drop _s1693_ _s1694_) with - | _s1695_ => - match (hex_bits_20_matches_prefix _s1695_) with - | Some ((imm, existT _ _s1696_ _)) => - let p0_ := string_drop _s1695_ _s1696_ in - if ((generic_eq p0_ "")) then Some ((op, rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20))) + returnm (match w__3 with + | Some (tt, existT _ _s2571_ _) => + match (string_drop _s2570_ _s2571_) with + | _s2572_ => + match (hex_bits_20_matches_prefix _s2572_) with + | Some (imm, existT _ _s2573_ _) => + let p0_ := string_drop _s2572_ _s2573_ in + if generic_eq p0_ "" then Some (op, rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))). -Definition assembly_backwards_matches (arg_ : string) -: M (bool) := - - let _s1697_ := arg_ in - (_s1685_ _s1697_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => - (if ((match w__0 with | Some ((op, rd, imm)) => true | _ => false end)) then - (_s1685_ _s1697_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => - (match w__1 with - | Some ((op, rd, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) +Definition assembly_backwards_matches (arg_ : string) : M (bool) := + let _s2574_ := arg_ in + (_s2562_ _s2574_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => + (if match w__0 with | Some (op, rd, imm) => true | _ => false end then + (_s2562_ _s2574_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => + (match w__1 with | Some (op, rd, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1698_ _s1697_) >>= fun w__4 : option ((mword 5 * mword 21)) => - (if ((match w__4 with | Some ((rd, imm)) => true | _ => false end)) then - (_s1698_ _s1697_) >>= fun w__5 : option ((mword 5 * mword 21)) => - (match w__5 with - | Some ((rd, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (_s2575_ _s2574_) >>= fun w__4 : option ((mword 5 * mword 21)) => + (if match w__4 with | Some (rd, imm) => true | _ => false end then + (_s2575_ _s2574_) >>= fun w__5 : option ((mword 5 * mword 21)) => + (match w__5 with | Some (rd, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1710_ _s1697_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__8 with | Some ((rd, rs1, imm)) => true | _ => false end)) then - (_s1710_ _s1697_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => - (match w__9 with - | Some ((rd, rs1, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (_s2587_ _s2574_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__8 with | Some (rd, rs1, imm) => true | _ => false end then + (_s2587_ _s2574_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => + (match w__9 with | Some (rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1726_ _s1697_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm)) => true | _ => false end)) then - (_s1726_ _s1697_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => + (_s2603_ _s2574_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => + (if match w__12 with | Some (op, rs1, rs2, imm) => true | _ => false end then + (_s2603_ _s2574_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => (match w__13 with - | Some ((op, rs1, rs2, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rs1, rs2, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1743_ _s1697_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm)) => true | _ => false end)) then - (_s1743_ _s1697_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => + (_s2620_ _s2574_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => + (if match w__16 with | Some (op, rd, rs1, imm) => true | _ => false end then + (_s2620_ _s2574_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => (match w__17 with - | Some ((op, rd, rs1, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1760_ _s1697_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt)) => true | _ => false end)) - then - (_s1760_ _s1697_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => + (_s2637_ _s2574_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => + (if match w__20 with | Some (op, rd, rs1, shamt) => true | _ => false end then + (_s2637_ _s2574_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => (match w__21 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1777_ _s1697_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2)) => true | _ => false end)) - then - (_s1777_ _s1697_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => + (_s2654_ _s2574_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => + (if match w__24 with | Some (op, rd, rs1, rs2) => true | _ => false end then + (_s2654_ _s2574_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => (match w__25 with - | Some ((op, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1794_ _s1697_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => true - | _ => false - end)) then - (_s1794_ _s1697_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s2671_ _s2574_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => true + | _ => false + end then + (_s2671_ _s2574_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1824_ _s1697_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1)) => true - | _ => false - end)) then - (_s1824_ _s1697_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s2701_ _s2574_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1) => true + | _ => false + end then + (_s2701_ _s2574_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, aq, rl, rs2, imm, rs1) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1852_ _s1697_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__36 with - | Some ((rd, rs1, imm)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1852_ _s1697_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => + (_s2729_ _s2574_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__36 with + | Some (rd, rs1, imm) => Z.eqb 32 64 + | _ => false + end then + (_s2729_ _s2574_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => (match w__37 with - | Some ((rd, rs1, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1868_ _s1697_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1868_ _s1697_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => + (_s2745_ _s2574_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => + (if match w__40 with + | Some (op, rd, rs1, shamt) => Z.eqb 32 64 + | _ => false + end then + (_s2745_ _s2574_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => (match w__41 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1885_ _s1697_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1885_ _s1697_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (_s2762_ _s2574_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (if match w__44 with + | Some (op, rd, rs1, rs2) => Z.eqb 32 64 + | _ => false + end then + (_s2762_ _s2574_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => (match w__45 with - | Some ((op, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1902_ _s1697_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 32 64 - | _ => false - end)) then - (_s1902_ _s1697_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (_s2779_ _s2574_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (if match w__48 with + | Some (op, rd, rs1, shamt) => Z.eqb 32 64 + | _ => false + end then + (_s2779_ _s2574_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => (match w__49 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1919_ _s1697_) >>= fun w__52 : option ((mword 4 * mword 4)) => - (if ((match w__52 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1919_ _s1697_) >>= fun w__53 : option ((mword 4 * mword 4)) => + (_s2796_ _s2574_) >>= fun w__52 : option ((mword 4 * mword 4)) => + (if match w__52 with + | Some (pred, succ) => true + | _ => false + end then + (_s2796_ _s2574_) >>= fun w__53 : option ((mword 4 * mword 4)) => (match w__53 with - | Some ((pred, succ)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (pred, succ) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1931_ _s1697_) >>= fun w__56 : option ((mword 4 * mword 4)) => - (if ((match w__56 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1931_ _s1697_) >>= fun w__57 : option ((mword 4 * mword 4)) => + (_s2808_ _s2574_) >>= fun w__56 : option ((mword 4 * mword 4)) => + (if match w__56 with + | Some (pred, succ) => true + | _ => false + end then + (_s2808_ _s2574_) >>= fun w__57 : option ((mword 4 * mword 4)) => (match w__57 with - | Some ((pred, succ)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (pred, succ) => returnm true | _ => exit tt : M (bool) end) : M (bool) - else if ((generic_eq _s1697_ "fence.i")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "ecall")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "mret")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "sret")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "ebreak")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "wfi")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + else if generic_eq _s2574_ "fence.i" then returnm true + else if generic_eq _s2574_ "ecall" then returnm true + else if generic_eq _s2574_ "mret" then returnm true + else if generic_eq _s2574_ "sret" then returnm true + else if generic_eq _s2574_ "ebreak" then returnm true + else if generic_eq _s2574_ "wfi" then returnm true else - (_s1943_ _s1697_) >>= fun w__60 : option ((mword 5 * mword 5)) => - (if ((match w__60 with - | Some ((rs1, rs2)) => true - | _ => false - end)) then - (_s1943_ _s1697_) >>= fun w__61 : option ((mword 5 * mword 5)) => + (_s2820_ _s2574_) >>= fun w__60 : option ((mword 5 * mword 5)) => + (if match w__60 with + | Some (rs1, rs2) => true + | _ => false + end then + (_s2820_ _s2574_) >>= fun w__61 : option ((mword 5 * mword 5)) => (match w__61 with - | Some ((rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1955_ _s1697_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => - (if ((match w__64 with - | Some ((size, aq, rl, rd, rs1)) => true - | _ => false - end)) then - (_s1955_ _s1697_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (_s2832_ _s2574_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (if match w__64 with + | Some (size, aq, rl, rd, rs1) => true + | _ => false + end then + (_s2832_ _s2574_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => (match w__65 with - | Some ((size, aq, rl, rd, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, aq, rl, rd, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1973_ _s1697_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__68 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1973_ _s1697_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (match w__69 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - returnm (projT1 - (build_ex + (_s2850_ _s2574_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__68 with + | Some (size, aq, rl, rd, rs1, rs2) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s2850_ _s2574_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (match w__69 with + | Some (size, aq, rl, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1995_ _s1697_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__72 with - | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1995_ _s1697_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (match w__73 with + (_s2872_ _s2574_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__72 with | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - returnm (projT1 - (build_ex + (op, width, aq, rl, rd, rs2, rs1) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s2872_ _s2574_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (match w__73 with + | Some + (op, width, aq, rl, rd, rs2, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) - else if ((generic_eq _s1697_ "c.nop")) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + else if generic_eq _s2574_ "c.nop" then + returnm true else - (_s2019_ _s1697_) >>= fun w__76 : option ((mword 3 * mword 8)) => - (if ((match w__76 with - | Some ((rdc, nzimm)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s2019_ _s1697_) >>= fun w__77 : option ((mword 3 * mword 8)) => + (_s2898_ _s2574_) >>= fun w__76 : option ((mword 3 * mword 8)) => + (if match w__76 with + | Some (rdc, nzimm) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s2898_ _s2574_) >>= fun w__77 : option ((mword 3 * mword 8)) => (match w__77 with - | Some ((rdc, nzimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, nzimm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2031_ _s1697_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__80 with - | Some ((rdc, rsc, uimm)) => - true - | _ => false - end)) then - (_s2031_ _s1697_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => + (_s2910_ _s2574_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__80 with + | Some (rdc, rsc, uimm) => true + | _ => false + end then + (_s2910_ _s2574_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => (match w__81 with - | Some ((rdc, rsc, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, rsc, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2047_ _s1697_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__84 with - | Some ((rdc, rsc, uimm)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s2047_ _s1697_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => + (_s2926_ _s2574_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__84 with + | Some (rdc, rsc, uimm) => + Z.eqb 32 64 + | _ => false + end then + (_s2926_ _s2574_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => (match w__85 with - | Some ((rdc, rsc, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, rsc, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2063_ _s1697_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__88 with - | Some - ((rsc1, rsc2, uimm)) => - true - | _ => false - end)) then - (_s2063_ _s1697_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => - (match w__89 with - | Some ((rsc1, rsc2, uimm)) => - returnm (projT1 - (build_ex + (_s2942_ _s2574_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__88 with + | Some (rsc1, rsc2, uimm) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s2942_ _s2574_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => + (match w__89 with + | Some (rsc1, rsc2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2079_ _s1697_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__92 with - | Some - ((rsc1, rsc2, uimm)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s2079_ _s1697_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => + (_s2958_ _s2574_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__92 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb 32 64 + | _ => false + end then + (_s2958_ _s2574_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => (match w__93 with | Some - ((rsc1, rsc2, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsc1, rsc2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2095_ _s1697_) >>= fun w__96 : option ((mword 5 * mword 6)) => - (if ((match w__96 with - | Some ((rsd, nzi)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s2095_ _s1697_) >>= fun w__97 : option ((mword 5 * mword 6)) => + (_s2974_ _s2574_) >>= fun w__96 : option ((mword 5 * mword 6)) => + (if match w__96 with + | Some (rsd, nzi) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s2974_ _s2574_) >>= fun w__97 : option ((mword 5 * mword 6)) => (match w__97 with - | Some ((rsd, nzi)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rsd, nzi) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2107_ _s1697_) >>= fun w__100 : option (mword 11) => - (if ((match w__100 with - | Some (imm) => - Z.eqb 32 32 - | _ => false - end)) then - (_s2107_ _s1697_) >>= fun w__101 : option (mword 11) => + (_s2986_ _s2574_) >>= fun w__100 : option (mword 11) => + (if match w__100 with + | Some imm => + Z.eqb 32 32 + | _ => false + end then + (_s2986_ _s2574_) >>= fun w__101 : option (mword 11) => (match w__101 with - | Some (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2115_ _s1697_) >>= fun w__104 : option ((mword 5 * mword 6)) => - (if ((match w__104 with - | Some - ((rsd, imm)) => - Z.eqb 32 - 64 - | _ => false - end)) then - (_s2115_ _s1697_) >>= fun w__105 : option ((mword 5 * mword 6)) => + (_s2994_ _s2574_) >>= fun w__104 : option ((mword 5 * mword 6)) => + (if match w__104 with + | Some + (rsd, imm) => + Z.eqb 32 64 + | _ => false + end then + (_s2994_ _s2574_) >>= fun w__105 : option ((mword 5 * mword 6)) => (match w__105 with | Some - ((rsd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2127_ _s1697_) >>= fun w__108 : option ((mword 5 * mword 6)) => - (if ((match w__108 with - | Some - ((rd, imm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s2127_ - _s1697_) >>= fun w__109 : option ((mword 5 * mword 6)) => + (_s3006_ _s2574_) >>= fun w__108 : option ((mword 5 * mword 6)) => + (if match w__108 with + | Some + (rd, imm) => + neq_vec + rd zreg + | _ => false + end then + (_s3006_ + _s2574_) >>= fun w__109 : option ((mword 5 * mword 6)) => (match w__109 with | Some - ((rd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2139_ - _s1697_) >>= fun w__112 : option (mword 6) => - (if ((match w__112 with - | Some - (imm) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s2139_ - _s1697_) >>= fun w__113 : option (mword 6) => + (_s3018_ + _s2574_) >>= fun w__112 : option (mword 6) => + (if match w__112 with + | Some + imm => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s3018_ + _s2574_) >>= fun w__113 : option (mword 6) => (match w__113 with | Some - (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2147_ - _s1697_) >>= fun w__116 : option ((mword 5 * mword 6)) => - (if ((match w__116 with - | Some - ((rd, imm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s3026_ + _s2574_) >>= fun w__116 : option ((mword 5 * mword 6)) => + (if match w__116 with + | Some + (rd, imm) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s2147_ - _s1697_) >>= fun w__117 : option ((mword 5 * mword 6)) => + (_s3026_ + _s2574_) >>= fun w__117 : option ((mword 5 * mword 6)) => (match w__117 with | Some - ((rd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2159_ - _s1697_) >>= fun w__120 : option ((mword 3 * mword 6)) => - (if ((match w__120 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s3038_ + _s2574_) >>= fun w__120 : option ((mword 3 * mword 6)) => + (if match w__120 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s2159_ - _s1697_) >>= fun w__121 : option ((mword 3 * mword 6)) => + (_s3038_ + _s2574_) >>= fun w__121 : option ((mword 3 * mword 6)) => (match w__121 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2171_ - _s1697_) >>= fun w__124 : option ((mword 3 * mword 6)) => - (if ((match w__124 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s3050_ + _s2574_) >>= fun w__124 : option ((mword 3 * mword 6)) => + (if match w__124 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s2171_ - _s1697_) >>= fun w__125 : option ((mword 3 * mword 6)) => + (_s3050_ + _s2574_) >>= fun w__125 : option ((mword 3 * mword 6)) => (match w__125 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2183_ - _s1697_) >>= fun w__128 : option ((mword 3 * mword 6)) => + (_s3062_ + _s2574_) >>= fun w__128 : option ((mword 3 * mword 6)) => (if - ((match w__128 with - | Some - ((rsd, imm)) => - true - | _ => - false - end)) + match w__128 with + | Some + (rsd, imm) => + true + | _ => + false + end then - (_s2183_ - _s1697_) >>= fun w__129 : option ((mword 3 * mword 6)) => + (_s3062_ + _s2574_) >>= fun w__129 : option ((mword 3 * mword 6)) => (match w__129 with | Some - ((rsd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2195_ - _s1697_) >>= fun w__132 : option ((mword 3 * mword 3)) => + (_s3074_ + _s2574_) >>= fun w__132 : option ((mword 3 * mword 3)) => (if - ((match w__132 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__132 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2195_ - _s1697_) >>= fun w__133 : option ((mword 3 * mword 3)) => + (_s3074_ + _s2574_) >>= fun w__133 : option ((mword 3 * mword 3)) => (match w__133 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2207_ - _s1697_) >>= fun w__136 : option ((mword 3 * mword 3)) => + (_s3086_ + _s2574_) >>= fun w__136 : option ((mword 3 * mword 3)) => (if - ((match w__136 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__136 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2207_ - _s1697_) >>= fun w__137 : option ((mword 3 * mword 3)) => + (_s3086_ + _s2574_) >>= fun w__137 : option ((mword 3 * mword 3)) => (match w__137 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2219_ - _s1697_) >>= fun w__140 : option ((mword 3 * mword 3)) => + (_s3098_ + _s2574_) >>= fun w__140 : option ((mword 3 * mword 3)) => (if - ((match w__140 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__140 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2219_ - _s1697_) >>= fun w__141 : option ((mword 3 * mword 3)) => + (_s3098_ + _s2574_) >>= fun w__141 : option ((mword 3 * mword 3)) => (match w__141 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2231_ - _s1697_) >>= fun w__144 : option ((mword 3 * mword 3)) => + (_s3110_ + _s2574_) >>= fun w__144 : option ((mword 3 * mword 3)) => (if - ((match w__144 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__144 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2231_ - _s1697_) >>= fun w__145 : option ((mword 3 * mword 3)) => + (_s3110_ + _s2574_) >>= fun w__145 : option ((mword 3 * mword 3)) => (match w__145 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2243_ - _s1697_) >>= fun w__148 : option ((mword 3 * mword 3)) => + (_s3122_ + _s2574_) >>= fun w__148 : option ((mword 3 * mword 3)) => (if - ((match w__148 with - | Some - ((rsd, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__148 with + | Some + (rsd, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2243_ - _s1697_) >>= fun w__149 : option ((mword 3 * mword 3)) => + (_s3122_ + _s2574_) >>= fun w__149 : option ((mword 3 * mword 3)) => (match w__149 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2255_ - _s1697_) >>= fun w__152 : option ((mword 3 * mword 3)) => + (_s3134_ + _s2574_) >>= fun w__152 : option ((mword 3 * mword 3)) => (if - ((match w__152 with - | Some - ((rsd, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__152 with + | Some + (rsd, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2255_ - _s1697_) >>= fun w__153 : option ((mword 3 * mword 3)) => + (_s3134_ + _s2574_) >>= fun w__153 : option ((mword 3 * mword 3)) => (match w__153 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2267_ - _s1697_) >>= fun w__156 : option (mword 11) => + (_s3146_ + _s2574_) >>= fun w__156 : option (mword 11) => (if - ((match w__156 with - | Some - (imm) => - true - | _ => - false - end)) + match w__156 with + | Some + imm => + true + | _ => + false + end then - (_s2267_ - _s1697_) >>= fun w__157 : option (mword 11) => + (_s3146_ + _s2574_) >>= fun w__157 : option (mword 11) => (match w__157 with | Some - (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2275_ - _s1697_) >>= fun w__160 : option ((mword 3 * mword 8)) => + (_s3154_ + _s2574_) >>= fun w__160 : option ((mword 3 * mword 8)) => (if - ((match w__160 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__160 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s2275_ - _s1697_) >>= fun w__161 : option ((mword 3 * mword 8)) => + (_s3154_ + _s2574_) >>= fun w__161 : option ((mword 3 * mword 8)) => (match w__161 with | Some - ((rs, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2287_ - _s1697_) >>= fun w__164 : option ((mword 3 * mword 8)) => + (_s3166_ + _s2574_) >>= fun w__164 : option ((mword 3 * mword 8)) => (if - ((match w__164 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__164 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s2287_ - _s1697_) >>= fun w__165 : option ((mword 3 * mword 8)) => + (_s3166_ + _s2574_) >>= fun w__165 : option ((mword 3 * mword 8)) => (match w__165 with | Some - ((rs, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2299_ - _s1697_) >>= fun w__168 : option ((mword 5 * mword 6)) => + (_s3178_ + _s2574_) >>= fun w__168 : option ((mword 5 * mword 6)) => (if - ((match w__168 with - | Some - ((rsd, shamt)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__168 with + | Some + (rsd, shamt) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s2299_ - _s1697_) >>= fun w__169 : option ((mword 5 * mword 6)) => + (_s3178_ + _s2574_) >>= fun w__169 : option ((mword 5 * mword 6)) => (match w__169 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2311_ - _s1697_) >>= fun w__172 : option ((mword 5 * mword 6)) => + (_s3190_ + _s2574_) >>= fun w__172 : option ((mword 5 * mword 6)) => (if - ((match w__172 with - | Some - ((rd, uimm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__172 with + | Some + (rd, uimm) => + neq_vec + rd + zreg + | _ => + false + end then - (_s2311_ - _s1697_) >>= fun w__173 : option ((mword 5 * mword 6)) => + (_s3190_ + _s2574_) >>= fun w__173 : option ((mword 5 * mword 6)) => (match w__173 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2323_ - _s1697_) >>= fun w__176 : option ((mword 5 * mword 6)) => + (_s3202_ + _s2574_) >>= fun w__176 : option ((mword 5 * mword 6)) => (if - ((match w__176 with - | Some - ((rd, uimm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 32 - 64) - | _ => - false - end)) + match w__176 with + | Some + (rd, uimm) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 32 + 64) + | _ => + false + end then - (_s2323_ - _s1697_) >>= fun w__177 : option ((mword 5 * mword 6)) => + (_s3202_ + _s2574_) >>= fun w__177 : option ((mword 5 * mword 6)) => (match w__177 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2335_ - _s1697_) >>= fun w__180 : option ((mword 5 * mword 6)) => + (_s3214_ + _s2574_) >>= fun w__180 : option ((mword 5 * mword 6)) => (if - ((match w__180 with - | Some - ((rd, uimm)) => - true - | _ => - false - end)) + match w__180 with + | Some + (rd, uimm) => + true + | _ => + false + end then - (_s2335_ - _s1697_) >>= fun w__181 : option ((mword 5 * mword 6)) => + (_s3214_ + _s2574_) >>= fun w__181 : option ((mword 5 * mword 6)) => (match w__181 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2347_ - _s1697_) >>= fun w__184 : option ((mword 5 * mword 6)) => + (_s3226_ + _s2574_) >>= fun w__184 : option ((mword 5 * mword 6)) => (if - ((match w__184 with - | Some - ((rs2, uimm)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__184 with + | Some + (rs2, uimm) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2347_ - _s1697_) >>= fun w__185 : option ((mword 5 * mword 6)) => + (_s3226_ + _s2574_) >>= fun w__185 : option ((mword 5 * mword 6)) => (match w__185 with | Some - ((rs2, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2359_ - _s1697_) >>= fun w__188 : option (mword 5) => + (_s3238_ + _s2574_) >>= fun w__188 : option (mword 5) => (if - ((match w__188 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__188 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s2359_ - _s1697_) >>= fun w__189 : option (mword 5) => + (_s3238_ + _s2574_) >>= fun w__189 : option (mword 5) => (match w__189 with | Some - (rs1) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + rs1 => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2367_ - _s1697_) >>= fun w__192 : option (mword 5) => + (_s3246_ + _s2574_) >>= fun w__192 : option (mword 5) => (if - ((match w__192 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__192 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s2367_ - _s1697_) >>= fun w__193 : option (mword 5) => + (_s3246_ + _s2574_) >>= fun w__193 : option (mword 5) => (match w__193 with | Some - (rs1) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + rs1 => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2375_ - _s1697_) >>= fun w__196 : option ((mword 5 * mword 5)) => + (_s3254_ + _s2574_) >>= fun w__196 : option ((mword 5 * mword 5)) => (if - ((match w__196 with - | Some - ((rd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__196 with + | Some + (rd, rs2) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s2375_ - _s1697_) >>= fun w__197 : option ((mword 5 * mword 5)) => + (_s3254_ + _s2574_) >>= fun w__197 : option ((mword 5 * mword 5)) => (match w__197 with | Some - ((rd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else if - ((generic_eq - _s1697_ - "c.ebreak")) + generic_eq + _s2574_ + "c.ebreak" then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + returnm true else - (_s2387_ - _s1697_) >>= fun w__200 : option ((mword 5 * mword 5)) => + (_s3266_ + _s2574_) >>= fun w__200 : option ((mword 5 * mword 5)) => (if - ((match w__200 with - | Some - ((rsd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__200 with + | Some + (rsd, rs2) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s2387_ - _s1697_) >>= fun w__201 : option ((mword 5 * mword 5)) => + (_s3266_ + _s2574_) >>= fun w__201 : option ((mword 5 * mword 5)) => (match w__201 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2399_ - _s1697_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s3278_ + _s2574_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__204 with - | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__204 with + | Some + (high, signed1, signed2, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2399_ - _s1697_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s3278_ + _s2574_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__205 with | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (high, signed1, signed2, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2416_ - _s1697_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3295_ + _s2574_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__208 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__208 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2416_ - _s1697_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3295_ + _s2574_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__209 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2434_ - _s1697_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3313_ + _s2574_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__212 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__212 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2434_ - _s1697_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3313_ + _s2574_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__213 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2452_ - _s1697_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => + (_s3331_ + _s2574_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => (if - ((match w__216 with - | Some - ((rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__216 with + | Some + (rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2452_ - _s1697_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => + (_s3331_ + _s2574_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => (match w__217 with | Some - ((rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2468_ - _s1697_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3347_ + _s2574_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__220 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__220 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2468_ - _s1697_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3347_ + _s2574_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__221 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2487_ - _s1697_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3366_ + _s2574_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s2487_ - _s1697_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3366_ + _s2574_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__225 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2506_ - _s1697_) >>= fun w__228 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3385_ + _s2574_) >>= fun w__228 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__228 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__228 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s2506_ - _s1697_) >>= fun w__229 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3385_ + _s2574_) >>= fun w__229 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__229 with | Some - ((op, rd, rs1, csr)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (op, rd, csr, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2524_ - _s1697_) >>= fun w__232 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3403_ + _s2574_) >>= fun w__232 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__232 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__232 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s2524_ - _s1697_) >>= fun w__233 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3403_ + _s2574_) >>= fun w__233 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__233 with | Some - ((op, rd, rs1, csr)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (op, rd, csr, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else if - ((generic_eq - _s1697_ - "uret")) + generic_eq + _s2574_ + "uret" then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + returnm true else - (_s2541_ - _s1697_) >>= fun w__236 : option (mword 32) => + (_s3420_ + _s2574_) >>= fun w__236 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__236 with - | Some - (s) => - true - | _ => - false - end)) + match w__236 with + | Some + (width, rd, imm, rs1) => + true + | _ => + false + end then - (_s2541_ - _s1697_) >>= fun w__237 : option (mword 32) => + (_s3420_ + _s2574_) >>= fun w__237 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__237 with | Some - (s) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (width, rd, imm, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2549_ - _s1697_) >>= fun w__240 : option (mword 16) => + (_s3444_ + _s2574_) >>= fun w__240 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__240 with - | Some - (s) => - true - | _ => - false - end)) + match w__240 with + | Some + (width, rs2, imm, rs1) => + true + | _ => + false + end then - (_s2549_ - _s1697_) >>= fun w__241 : option (mword 16) => + (_s3444_ + _s2574_) >>= fun w__241 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__241 with | Some - (s) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (width, rs2, imm, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) + (_s3468_ + _s2574_) >>= fun w__244 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__244 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s3468_ + _s2574_) >>= fun w__245 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__245 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3493_ + _s2574_) >>= fun w__248 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__248 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s3493_ + _s2574_) >>= fun w__249 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__249 with + | Some + (op, rd, rs1, rs2, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3514_ + _s2574_) >>= fun w__252 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__252 with + | Some + (FSQRT_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3514_ + _s2574_) >>= fun w__253 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__253 with + | Some + (FSQRT_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3531_ + _s2574_) >>= fun w__256 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__256 with + | Some + (FCVT_W_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3531_ + _s2574_) >>= fun w__257 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__257 with + | Some + (FCVT_W_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3548_ + _s2574_) >>= fun w__260 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__260 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3548_ + _s2574_) >>= fun w__261 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__261 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3565_ + _s2574_) >>= fun w__264 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__264 with + | Some + (FCVT_S_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3565_ + _s2574_) >>= fun w__265 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__265 with + | Some + (FCVT_S_W, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3582_ + _s2574_) >>= fun w__268 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__268 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3582_ + _s2574_) >>= fun w__269 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__269 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3599_ + _s2574_) >>= fun w__272 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__272 with + | Some + (FCVT_L_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3599_ + _s2574_) >>= fun w__273 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__273 with + | Some + (FCVT_L_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3616_ + _s2574_) >>= fun w__276 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__276 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3616_ + _s2574_) >>= fun w__277 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__277 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3633_ + _s2574_) >>= fun w__280 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__280 with + | Some + (FCVT_S_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3633_ + _s2574_) >>= fun w__281 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__281 with + | Some + (FCVT_S_L, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3650_ + _s2574_) >>= fun w__284 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__284 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s3650_ + _s2574_) >>= fun w__285 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__285 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3667_ + _s2574_) >>= fun w__288 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__288 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3667_ + _s2574_) >>= fun w__289 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__289 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3684_ + _s2574_) >>= fun w__292 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__292 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3684_ + _s2574_) >>= fun w__293 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__293 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3701_ + _s2574_) >>= fun w__296 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__296 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3701_ + _s2574_) >>= fun w__297 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__297 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3718_ + _s2574_) >>= fun w__300 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__300 with + | Some + (FMIN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3718_ + _s2574_) >>= fun w__301 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__301 with + | Some + (FMIN_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3735_ + _s2574_) >>= fun w__304 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__304 with + | Some + (FMAX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3735_ + _s2574_) >>= fun w__305 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__305 with + | Some + (FMAX_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3752_ + _s2574_) >>= fun w__308 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__308 with + | Some + (FEQ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3752_ + _s2574_) >>= fun w__309 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__309 with + | Some + (FEQ_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3769_ + _s2574_) >>= fun w__312 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__312 with + | Some + (FLT_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3769_ + _s2574_) >>= fun w__313 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__313 with + | Some + (FLT_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3786_ + _s2574_) >>= fun w__316 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__316 with + | Some + (FLE_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3786_ + _s2574_) >>= fun w__317 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__317 with + | Some + (FLE_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3803_ + _s2574_) >>= fun w__320 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__320 with + | Some + (FMV_X_W, rd, rs1) => + true + | _ => + false + end + then + (_s3803_ + _s2574_) >>= fun w__321 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__321 with + | Some + (FMV_X_W, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3816_ + _s2574_) >>= fun w__324 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__324 with + | Some + (FMV_W_X, rd, rs1) => + true + | _ => + false + end + then + (_s3816_ + _s2574_) >>= fun w__325 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__325 with + | Some + (FMV_W_X, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3829_ + _s2574_) >>= fun w__328 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__328 with + | Some + (FCLASS_S, rd, rs1) => + true + | _ => + false + end + then + (_s3829_ + _s2574_) >>= fun w__329 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__329 with + | Some + (FCLASS_S, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3842_ + _s2574_) >>= fun w__332 : option ((mword 5 * mword 6)) => + (if + match w__332 with + | Some + (rd, imm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s3842_ + _s2574_) >>= fun w__333 : option ((mword 5 * mword 6)) => + (match w__333 with + | Some + (rd, imm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3854_ + _s2574_) >>= fun w__336 : option ((mword 5 * mword 6)) => + (if + match w__336 with + | Some + (rd, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s3854_ + _s2574_) >>= fun w__337 : option ((mword 5 * mword 6)) => + (match w__337 with + | Some + (rd, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3866_ + _s2574_) >>= fun w__340 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__340 with + | Some + (rdc, rsc, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s3866_ + _s2574_) >>= fun w__341 : option ((mword 3 * mword 3 * mword 5)) => + (match w__341 with + | Some + (rdc, rsc, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3882_ + _s2574_) >>= fun w__344 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__344 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s3882_ + _s2574_) >>= fun w__345 : option ((mword 3 * mword 3 * mword 5)) => + (match w__345 with + | Some + (rsc1, rsc2, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3898_ + _s2574_) >>= fun w__348 : option (mword 32) => + (if + match w__348 with + | Some + s => + true + | _ => + false + end + then + (_s3898_ + _s2574_) >>= fun w__349 : option (mword 32) => + (match w__349 with + | Some + s => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s3906_ + _s2574_) >>= fun w__352 : option (mword 16) => + (if + match w__352 with + | Some + s => + true + | _ => + false + end + then + (_s3906_ + _s2574_) >>= fun w__353 : option (mword 16) => + (match w__353 with + | Some + s => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + returnm false) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) : M (bool)) : M (bool)) : M (bool)) @@ -35695,6785 +42745,9581 @@ Definition assembly_backwards_matches (arg_ : string) : M (bool)) : M (bool). -Definition _s3457_ (_s3458_ : string) -: M (option ((mword 16 * string))) := - - let _s3459_ := _s3458_ in - (if ((string_startswith _s3459_ "c.illegal")) then - (match (string_drop _s3459_ (projT1 (string_length "c.illegal"))) with - | _s3460_ => - (spc_matches_prefix _s3460_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3461_ _)) => - match (string_drop _s3460_ _s3461_) with - | _s3462_ => - match (hex_bits_16_matches_prefix _s3462_) with - | Some ((s, existT _ _s3463_ _)) => - match (string_drop _s3462_ _s3463_) with | s_ => Some ((s, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 16 * string))) +Definition _s5294_ (_s5295_ : string) : M (option ((mword 16 * string))) := + let _s5296_ := _s5295_ in + (if string_startswith _s5296_ "c.illegal" then + (match (string_drop _s5296_ (projT1 (string_length "c.illegal"))) with + | _s5297_ => + (spc_matches_prefix _s5297_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s5298_ _) => + match (string_drop _s5297_ _s5298_) with + | _s5299_ => + match (hex_bits_16_matches_prefix _s5299_) with + | Some (s, existT _ _s5300_ _) => + match (string_drop _s5299_ _s5300_) with | s_ => Some (s, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 16 * string))) - else returnm (None : option ((mword 16 * string)))) + else returnm None) : M (option ((mword 16 * string))). -Definition _s3449_ (_s3450_ : string) -: M (option ((mword 32 * string))) := - - let _s3451_ := _s3450_ in - (if ((string_startswith _s3451_ "illegal")) then - (match (string_drop _s3451_ (projT1 (string_length "illegal"))) with - | _s3452_ => - (spc_matches_prefix _s3452_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3453_ _)) => - match (string_drop _s3452_ _s3453_) with - | _s3454_ => - match (hex_bits_32_matches_prefix _s3454_) with - | Some ((s, existT _ _s3455_ _)) => - match (string_drop _s3454_ _s3455_) with | s_ => Some ((s, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 32 * string))) +Definition _s5286_ (_s5287_ : string) : M (option ((mword 32 * string))) := + let _s5288_ := _s5287_ in + (if string_startswith _s5288_ "illegal" then + (match (string_drop _s5288_ (projT1 (string_length "illegal"))) with + | _s5289_ => + (spc_matches_prefix _s5289_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s5290_ _) => + match (string_drop _s5289_ _s5290_) with + | _s5291_ => + match (hex_bits_32_matches_prefix _s5291_) with + | Some (s, existT _ _s5292_ _) => + match (string_drop _s5291_ _s5292_) with | s_ => Some (s, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 32 * string))) - else returnm (None : option ((mword 32 * string)))) + else returnm None) : M (option ((mword 32 * string))). -Definition _s3445_ (_s3446_ : string) -: option string := - - let _s3447_ := _s3446_ in - if ((string_startswith _s3447_ "uret")) then - match (string_drop _s3447_ (projT1 (string_length "uret"))) with | s_ => Some (s_) end - else None. +Definition _s5270_ (_s5271_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5272_ := _s5271_ in + (if string_startswith _s5272_ "c.fsw" then + (match (string_drop _s5272_ (projT1 (string_length "c.fsw"))) with + | _s5273_ => + (spc_matches_prefix _s5273_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s5274_ _) => + (match (string_drop _s5273_ _s5274_) with + | _s5275_ => + (creg_name_matches_prefix _s5275_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s5276_ _) => + (match (string_drop _s5275_ _s5276_) with + | _s5277_ => + (sep_matches_prefix _s5277_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s5278_ _) => + (match (string_drop _s5277_ _s5278_) with + | _s5279_ => + (creg_name_matches_prefix _s5279_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s5280_ _) => + (match (string_drop _s5279_ _s5280_) with + | _s5281_ => + (sep_matches_prefix _s5281_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s5282_ _) => + match (string_drop _s5281_ _s5282_) with + | _s5283_ => + match (hex_bits_7_matches_prefix _s5283_) with + | Some (v__1108, existT _ _s5284_ _) => + if eq_vec (subrange_vec_dec v__1108 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1108 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1108 6 2 in + match (string_drop _s5283_ _s5284_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s5254_ (_s5255_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5256_ := _s5255_ in + (if string_startswith _s5256_ "c.flw" then + (match (string_drop _s5256_ (projT1 (string_length "c.flw"))) with + | _s5257_ => + (spc_matches_prefix _s5257_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s5258_ _) => + (match (string_drop _s5257_ _s5258_) with + | _s5259_ => + (creg_name_matches_prefix _s5259_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s5260_ _) => + (match (string_drop _s5259_ _s5260_) with + | _s5261_ => + (sep_matches_prefix _s5261_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s5262_ _) => + (match (string_drop _s5261_ _s5262_) with + | _s5263_ => + (creg_name_matches_prefix _s5263_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s5264_ _) => + (match (string_drop _s5263_ _s5264_) with + | _s5265_ => + (sep_matches_prefix _s5265_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s5266_ _) => + match (string_drop _s5265_ _s5266_) with + | _s5267_ => + match (hex_bits_7_matches_prefix _s5267_) with + | Some (v__1110, existT _ _s5268_ _) => + if eq_vec (subrange_vec_dec v__1110 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1110 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1110 6 2 in + match (string_drop _s5267_ _s5268_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s5242_ (_s5243_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5244_ := _s5243_ in + (if string_startswith _s5244_ "c.fswsp" then + (match (string_drop _s5244_ (projT1 (string_length "c.fswsp"))) with + | _s5245_ => + (spc_matches_prefix _s5245_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s5246_ _) => + (match (string_drop _s5245_ _s5246_) with + | _s5247_ => + (reg_name_matches_prefix _s5247_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s5248_ _) => + (match (string_drop _s5247_ _s5248_) with + | _s5249_ => + (sep_matches_prefix _s5249_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s5250_ _) => + match (string_drop _s5249_ _s5250_) with + | _s5251_ => + match (hex_bits_6_matches_prefix _s5251_) with + | Some (uimm, existT _ _s5252_ _) => + match (string_drop _s5251_ _s5252_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s5230_ (_s5231_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5232_ := _s5231_ in + (if string_startswith _s5232_ "c.flwsp" then + (match (string_drop _s5232_ (projT1 (string_length "c.flwsp"))) with + | _s5233_ => + (spc_matches_prefix _s5233_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s5234_ _) => + (match (string_drop _s5233_ _s5234_) with + | _s5235_ => + (reg_name_matches_prefix _s5235_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s5236_ _) => + (match (string_drop _s5235_ _s5236_) with + | _s5237_ => + (sep_matches_prefix _s5237_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s5238_ _) => + match (string_drop _s5237_ _s5238_) with + | _s5239_ => + match (hex_bits_6_matches_prefix _s5239_) with + | Some (imm, existT _ _s5240_ _) => + match (string_drop _s5239_ _s5240_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s5217_ (_s5218_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s5218_ with + | _s5219_ => + (f_un_type_mnemonic_S_matches_prefix _s5219_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s5220_ _) => + (match (string_drop _s5219_ _s5220_) with + | _s5221_ => + (spc_matches_prefix _s5221_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5222_ _) => + (match (string_drop _s5221_ _s5222_) with + | _s5223_ => + (reg_name_matches_prefix _s5223_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5224_ _) => + (match (string_drop _s5223_ _s5224_) with + | _s5225_ => + (sep_matches_prefix _s5225_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5226_ _) => + (match (string_drop _s5225_ _s5226_) with + | _s5227_ => + (freg_name_matches_prefix _s5227_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s5228_ _) => + match (string_drop _s5227_ _s5228_) with + | s_ => Some (FCLASS_S, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). + +Definition _s5204_ (_s5205_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s5205_ with + | _s5206_ => + (f_un_type_mnemonic_S_matches_prefix _s5206_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_W_X, existT _ _s5207_ _) => + (match (string_drop _s5206_ _s5207_) with + | _s5208_ => + (spc_matches_prefix _s5208_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5209_ _) => + (match (string_drop _s5208_ _s5209_) with + | _s5210_ => + (freg_name_matches_prefix _s5210_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5211_ _) => + (match (string_drop _s5210_ _s5211_) with + | _s5212_ => + (sep_matches_prefix _s5212_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5213_ _) => + (match (string_drop _s5212_ _s5213_) with + | _s5214_ => + (reg_name_matches_prefix _s5214_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s5215_ _) => + match (string_drop _s5214_ _s5215_) with + | s_ => Some (FMV_W_X, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). + +Definition _s5191_ (_s5192_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s5192_ with + | _s5193_ => + (f_un_type_mnemonic_S_matches_prefix _s5193_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_W, existT _ _s5194_ _) => + (match (string_drop _s5193_ _s5194_) with + | _s5195_ => + (spc_matches_prefix _s5195_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5196_ _) => + (match (string_drop _s5195_ _s5196_) with + | _s5197_ => + (reg_name_matches_prefix _s5197_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5198_ _) => + (match (string_drop _s5197_ _s5198_) with + | _s5199_ => + (sep_matches_prefix _s5199_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5200_ _) => + (match (string_drop _s5199_ _s5200_) with + | _s5201_ => + (freg_name_matches_prefix _s5201_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s5202_ _) => + match (string_drop _s5201_ _s5202_) with + | s_ => Some (FMV_X_W, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). -Definition _s3428_ (_s3429_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s3429_ with - | _s3430_ => - (csr_mnemonic_matches_prefix _s3430_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s5174_ (_s5175_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5175_ with + | _s5176_ => + (f_bin_type_mnemonic_S_matches_prefix _s5176_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s3431_ _)) => - (match (string_drop _s3430_ _s3431_) with - | _s3432_ => - (spc_matches_prefix _s3432_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FLE_S, existT _ _s5177_ _) => + (match (string_drop _s5176_ _s5177_) with + | _s5178_ => + (spc_matches_prefix _s5178_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3433_ _)) => - (match (string_drop _s3432_ _s3433_) with - | _s3434_ => - (reg_name_matches_prefix _s3434_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5179_ _) => + (match (string_drop _s5178_ _s5179_) with + | _s5180_ => + (reg_name_matches_prefix _s5180_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3435_ _)) => - (match (string_drop _s3434_ _s3435_) with - | _s3436_ => - (sep_matches_prefix _s3436_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5181_ _) => + (match (string_drop _s5180_ _s5181_) with + | _s5182_ => + (sep_matches_prefix _s5182_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3437_ _)) => - (match (string_drop _s3436_ _s3437_) with - | _s3438_ => - (reg_name_matches_prefix _s3438_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5183_ _) => + (match (string_drop _s5182_ _s5183_) with + | _s5184_ => + (freg_name_matches_prefix _s5184_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3439_ _)) => - (match (string_drop _s3438_ _s3439_) with - | _s3440_ => - (sep_matches_prefix _s3440_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5185_ _) => + (match (string_drop _s5184_ _s5185_) with + | _s5186_ => + (sep_matches_prefix _s5186_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3441_ _)) => - (match (string_drop _s3440_ _s3441_) with - | _s3442_ => - (csr_name_map_matches_prefix _s3442_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5187_ _) => + (match (string_drop _s5186_ _s5187_) with + | _s5188_ => + (freg_name_matches_prefix _s5188_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s3443_ _)) => - match (string_drop _s3442_ - _s3443_) with - | s_ => - Some ((op, rd, rs1, csr, s_)) - end - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5189_ _) => + match (string_drop _s5188_ + _s5189_) with + | s_ => + Some (FLE_S, rd, rs1, rs2, s_) + end + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5157_ (_s5158_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5158_ with + | _s5159_ => + (f_bin_type_mnemonic_S_matches_prefix _s5159_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s5160_ _) => + (match (string_drop _s5159_ _s5160_) with + | _s5161_ => + (spc_matches_prefix _s5161_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5162_ _) => + (match (string_drop _s5161_ _s5162_) with + | _s5163_ => + (reg_name_matches_prefix _s5163_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5164_ _) => + (match (string_drop _s5163_ _s5164_) with + | _s5165_ => + (sep_matches_prefix _s5165_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5166_ _) => + (match (string_drop _s5165_ _s5166_) with + | _s5167_ => + (freg_name_matches_prefix _s5167_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5168_ _) => + (match (string_drop _s5167_ _s5168_) with + | _s5169_ => + (sep_matches_prefix _s5169_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5170_ _) => + (match (string_drop _s5169_ _s5170_) with + | _s5171_ => + (freg_name_matches_prefix _s5171_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5172_ _) => + match (string_drop _s5171_ + _s5172_) with + | s_ => + Some (FLT_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))). - -Definition _s3410_ (_s3411_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s3411_ with - | _s3412_ => - (csr_mnemonic_matches_prefix _s3412_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5140_ (_s5141_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5141_ with + | _s5142_ => + (f_bin_type_mnemonic_S_matches_prefix _s5142_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s3413_ _)) => - let _s3414_ := string_drop _s3412_ _s3413_ in - (if ((string_startswith _s3414_ "i")) then - (match (string_drop _s3414_ (projT1 (string_length "i"))) with - | _s3415_ => - (spc_matches_prefix _s3415_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FEQ_S, existT _ _s5143_ _) => + (match (string_drop _s5142_ _s5143_) with + | _s5144_ => + (spc_matches_prefix _s5144_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5145_ _) => + (match (string_drop _s5144_ _s5145_) with + | _s5146_ => + (reg_name_matches_prefix _s5146_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5147_ _) => + (match (string_drop _s5146_ _s5147_) with + | _s5148_ => + (sep_matches_prefix _s5148_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5149_ _) => + (match (string_drop _s5148_ _s5149_) with + | _s5150_ => + (freg_name_matches_prefix _s5150_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5151_ _) => + (match (string_drop _s5150_ _s5151_) with + | _s5152_ => + (sep_matches_prefix _s5152_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5153_ _) => + (match (string_drop _s5152_ _s5153_) with + | _s5154_ => + (freg_name_matches_prefix _s5154_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5155_ _) => + match (string_drop _s5154_ + _s5155_) with + | s_ => + Some (FEQ_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5123_ (_s5124_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5124_ with + | _s5125_ => + (f_bin_type_mnemonic_S_matches_prefix _s5125_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s5126_ _) => + (match (string_drop _s5125_ _s5126_) with + | _s5127_ => + (spc_matches_prefix _s5127_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5128_ _) => + (match (string_drop _s5127_ _s5128_) with + | _s5129_ => + (freg_name_matches_prefix _s5129_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5130_ _) => + (match (string_drop _s5129_ _s5130_) with + | _s5131_ => + (sep_matches_prefix _s5131_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5132_ _) => + (match (string_drop _s5131_ _s5132_) with + | _s5133_ => + (freg_name_matches_prefix _s5133_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5134_ _) => + (match (string_drop _s5133_ _s5134_) with + | _s5135_ => + (sep_matches_prefix _s5135_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5136_ _) => + (match (string_drop _s5135_ _s5136_) with + | _s5137_ => + (freg_name_matches_prefix _s5137_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5138_ _) => + match (string_drop _s5137_ + _s5138_) with + | s_ => + Some + (FMAX_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5106_ (_s5107_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5107_ with + | _s5108_ => + (f_bin_type_mnemonic_S_matches_prefix _s5108_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s5109_ _) => + (match (string_drop _s5108_ _s5109_) with + | _s5110_ => + (spc_matches_prefix _s5110_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5111_ _) => + (match (string_drop _s5110_ _s5111_) with + | _s5112_ => + (freg_name_matches_prefix _s5112_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5113_ _) => + (match (string_drop _s5112_ _s5113_) with + | _s5114_ => + (sep_matches_prefix _s5114_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5115_ _) => + (match (string_drop _s5114_ _s5115_) with + | _s5116_ => + (freg_name_matches_prefix _s5116_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5117_ _) => + (match (string_drop _s5116_ _s5117_) with + | _s5118_ => + (sep_matches_prefix _s5118_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5119_ _) => + (match (string_drop _s5118_ _s5119_) with + | _s5120_ => + (freg_name_matches_prefix _s5120_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5121_ _) => + match (string_drop _s5120_ + _s5121_) with + | s_ => + Some + (FMIN_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5089_ (_s5090_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5090_ with + | _s5091_ => + (f_bin_type_mnemonic_S_matches_prefix _s5091_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s5092_ _) => + (match (string_drop _s5091_ _s5092_) with + | _s5093_ => + (spc_matches_prefix _s5093_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5094_ _) => + (match (string_drop _s5093_ _s5094_) with + | _s5095_ => + (freg_name_matches_prefix _s5095_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5096_ _) => + (match (string_drop _s5095_ _s5096_) with + | _s5097_ => + (sep_matches_prefix _s5097_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5098_ _) => + (match (string_drop _s5097_ _s5098_) with + | _s5099_ => + (freg_name_matches_prefix _s5099_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5100_ _) => + (match (string_drop _s5099_ _s5100_) with + | _s5101_ => + (sep_matches_prefix _s5101_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5102_ _) => + (match (string_drop _s5101_ _s5102_) with + | _s5103_ => + (freg_name_matches_prefix _s5103_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5104_ _) => + match (string_drop _s5103_ + _s5104_) with + | s_ => + Some + (FSGNJX_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5072_ (_s5073_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5073_ with + | _s5074_ => + (f_bin_type_mnemonic_S_matches_prefix _s5074_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s5075_ _) => + (match (string_drop _s5074_ _s5075_) with + | _s5076_ => + (spc_matches_prefix _s5076_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5077_ _) => + (match (string_drop _s5076_ _s5077_) with + | _s5078_ => + (freg_name_matches_prefix _s5078_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5079_ _) => + (match (string_drop _s5078_ _s5079_) with + | _s5080_ => + (sep_matches_prefix _s5080_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5081_ _) => + (match (string_drop _s5080_ _s5081_) with + | _s5082_ => + (freg_name_matches_prefix _s5082_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5083_ _) => + (match (string_drop _s5082_ _s5083_) with + | _s5084_ => + (sep_matches_prefix _s5084_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5085_ _) => + (match (string_drop _s5084_ _s5085_) with + | _s5086_ => + (freg_name_matches_prefix _s5086_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5087_ _) => + match (string_drop _s5086_ + _s5087_) with + | s_ => + Some + (FSGNJN_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5055_ (_s5056_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s5056_ with + | _s5057_ => + (f_bin_type_mnemonic_S_matches_prefix _s5057_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_S, existT _ _s5058_ _) => + (match (string_drop _s5057_ _s5058_) with + | _s5059_ => + (spc_matches_prefix _s5059_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5060_ _) => + (match (string_drop _s5059_ _s5060_) with + | _s5061_ => + (freg_name_matches_prefix _s5061_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5062_ _) => + (match (string_drop _s5061_ _s5062_) with + | _s5063_ => + (sep_matches_prefix _s5063_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5064_ _) => + (match (string_drop _s5063_ _s5064_) with + | _s5065_ => + (freg_name_matches_prefix _s5065_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5066_ _) => + (match (string_drop _s5065_ _s5066_) with + | _s5067_ => + (sep_matches_prefix _s5067_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5068_ _) => + (match (string_drop _s5067_ _s5068_) with + | _s5069_ => + (freg_name_matches_prefix _s5069_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s5070_ _) => + match (string_drop _s5069_ + _s5070_) with + | s_ => + Some + (FSGNJ_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s5038_ (_s5039_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5039_ with + | _s5040_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5040_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s5041_ _) => + (match (string_drop _s5040_ _s5041_) with + | _s5042_ => + (spc_matches_prefix _s5042_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5043_ _) => + (match (string_drop _s5042_ _s5043_) with + | _s5044_ => + (freg_name_matches_prefix _s5044_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5045_ _) => + (match (string_drop _s5044_ _s5045_) with + | _s5046_ => + (sep_matches_prefix _s5046_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5047_ _) => + (match (string_drop _s5046_ _s5047_) with + | _s5048_ => + (reg_name_matches_prefix _s5048_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5049_ _) => + (match (string_drop _s5048_ _s5049_) with + | _s5050_ => + (sep_matches_prefix _s5050_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5051_ _) => + (match (string_drop _s5050_ _s5051_) with + | _s5052_ => + (frm_mnemonic_matches_prefix _s5052_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5053_ _) => + match (string_drop _s5052_ + _s5053_) with + | s_ => + Some + (FCVT_S_LU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5021_ (_s5022_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5022_ with + | _s5023_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5023_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s5024_ _) => + (match (string_drop _s5023_ _s5024_) with + | _s5025_ => + (spc_matches_prefix _s5025_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5026_ _) => + (match (string_drop _s5025_ _s5026_) with + | _s5027_ => + (freg_name_matches_prefix _s5027_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5028_ _) => + (match (string_drop _s5027_ _s5028_) with + | _s5029_ => + (sep_matches_prefix _s5029_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5030_ _) => + (match (string_drop _s5029_ _s5030_) with + | _s5031_ => + (reg_name_matches_prefix _s5031_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5032_ _) => + (match (string_drop _s5031_ _s5032_) with + | _s5033_ => + (sep_matches_prefix _s5033_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5034_ _) => + (match (string_drop _s5033_ _s5034_) with + | _s5035_ => + (frm_mnemonic_matches_prefix _s5035_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5036_ _) => + match (string_drop _s5035_ + _s5036_) with + | s_ => + Some + (FCVT_S_L, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5004_ (_s5005_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5005_ with + | _s5006_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5006_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s5007_ _) => + (match (string_drop _s5006_ _s5007_) with + | _s5008_ => + (spc_matches_prefix _s5008_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5009_ _) => + (match (string_drop _s5008_ _s5009_) with + | _s5010_ => + (reg_name_matches_prefix _s5010_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5011_ _) => + (match (string_drop _s5010_ _s5011_) with + | _s5012_ => + (sep_matches_prefix _s5012_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5013_ _) => + (match (string_drop _s5012_ _s5013_) with + | _s5014_ => + (freg_name_matches_prefix _s5014_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5015_ _) => + (match (string_drop _s5014_ _s5015_) with + | _s5016_ => + (sep_matches_prefix _s5016_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5017_ _) => + (match (string_drop _s5016_ _s5017_) with + | _s5018_ => + (frm_mnemonic_matches_prefix _s5018_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5019_ _) => + match (string_drop _s5018_ + _s5019_) with + | s_ => + Some + (FCVT_LU_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4987_ (_s4988_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4988_ with + | _s4989_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4989_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s4990_ _) => + (match (string_drop _s4989_ _s4990_) with + | _s4991_ => + (spc_matches_prefix _s4991_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4992_ _) => + (match (string_drop _s4991_ _s4992_) with + | _s4993_ => + (reg_name_matches_prefix _s4993_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4994_ _) => + (match (string_drop _s4993_ _s4994_) with + | _s4995_ => + (sep_matches_prefix _s4995_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4996_ _) => + (match (string_drop _s4995_ _s4996_) with + | _s4997_ => + (freg_name_matches_prefix _s4997_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4998_ _) => + (match (string_drop _s4997_ _s4998_) with + | _s4999_ => + (sep_matches_prefix _s4999_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5000_ _) => + (match (string_drop _s4999_ _s5000_) with + | _s5001_ => + (frm_mnemonic_matches_prefix _s5001_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5002_ _) => + match (string_drop _s5001_ + _s5002_) with + | s_ => + Some + (FCVT_L_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4970_ (_s4971_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4971_ with + | _s4972_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4972_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_WU, existT _ _s4973_ _) => + (match (string_drop _s4972_ _s4973_) with + | _s4974_ => + (spc_matches_prefix _s4974_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4975_ _) => + (match (string_drop _s4974_ _s4975_) with + | _s4976_ => + (freg_name_matches_prefix _s4976_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4977_ _) => + (match (string_drop _s4976_ _s4977_) with + | _s4978_ => + (sep_matches_prefix _s4978_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4979_ _) => + (match (string_drop _s4978_ _s4979_) with + | _s4980_ => + (reg_name_matches_prefix _s4980_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4981_ _) => + (match (string_drop _s4980_ _s4981_) with + | _s4982_ => + (sep_matches_prefix _s4982_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4983_ _) => + (match (string_drop _s4982_ _s4983_) with + | _s4984_ => + (frm_mnemonic_matches_prefix _s4984_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4985_ _) => + match (string_drop _s4984_ + _s4985_) with + | s_ => + Some + (FCVT_S_WU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4953_ (_s4954_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4954_ with + | _s4955_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4955_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s4956_ _) => + (match (string_drop _s4955_ _s4956_) with + | _s4957_ => + (spc_matches_prefix _s4957_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4958_ _) => + (match (string_drop _s4957_ _s4958_) with + | _s4959_ => + (freg_name_matches_prefix _s4959_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4960_ _) => + (match (string_drop _s4959_ _s4960_) with + | _s4961_ => + (sep_matches_prefix _s4961_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4962_ _) => + (match (string_drop _s4961_ _s4962_) with + | _s4963_ => + (reg_name_matches_prefix _s4963_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4964_ _) => + (match (string_drop _s4963_ _s4964_) with + | _s4965_ => + (sep_matches_prefix _s4965_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4966_ _) => + (match (string_drop _s4965_ _s4966_) with + | _s4967_ => + (frm_mnemonic_matches_prefix _s4967_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4968_ _) => + match (string_drop _s4967_ + _s4968_) with + | s_ => + Some + (FCVT_S_W, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4936_ (_s4937_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4937_ with + | _s4938_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4938_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s4939_ _) => + (match (string_drop _s4938_ _s4939_) with + | _s4940_ => + (spc_matches_prefix _s4940_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4941_ _) => + (match (string_drop _s4940_ _s4941_) with + | _s4942_ => + (reg_name_matches_prefix _s4942_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4943_ _) => + (match (string_drop _s4942_ _s4943_) with + | _s4944_ => + (sep_matches_prefix _s4944_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4945_ _) => + (match (string_drop _s4944_ _s4945_) with + | _s4946_ => + (freg_name_matches_prefix _s4946_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4947_ _) => + (match (string_drop _s4946_ _s4947_) with + | _s4948_ => + (sep_matches_prefix _s4948_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4949_ _) => + (match (string_drop _s4948_ _s4949_) with + | _s4950_ => + (frm_mnemonic_matches_prefix _s4950_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4951_ _) => + match (string_drop _s4950_ + _s4951_) with + | s_ => + Some + (FCVT_WU_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4919_ (_s4920_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4920_ with + | _s4921_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4921_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s4922_ _) => + (match (string_drop _s4921_ _s4922_) with + | _s4923_ => + (spc_matches_prefix _s4923_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4924_ _) => + (match (string_drop _s4923_ _s4924_) with + | _s4925_ => + (reg_name_matches_prefix _s4925_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4926_ _) => + (match (string_drop _s4925_ _s4926_) with + | _s4927_ => + (sep_matches_prefix _s4927_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4928_ _) => + (match (string_drop _s4927_ _s4928_) with + | _s4929_ => + (freg_name_matches_prefix _s4929_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4930_ _) => + (match (string_drop _s4929_ _s4930_) with + | _s4931_ => + (sep_matches_prefix _s4931_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4932_ _) => + (match (string_drop _s4931_ _s4932_) with + | _s4933_ => + (frm_mnemonic_matches_prefix _s4933_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4934_ _) => + match (string_drop _s4933_ + _s4934_) with + | s_ => + Some + (FCVT_W_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4902_ (_s4903_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4903_ with + | _s4904_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4904_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s4905_ _) => + (match (string_drop _s4904_ _s4905_) with + | _s4906_ => + (spc_matches_prefix _s4906_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4907_ _) => + (match (string_drop _s4906_ _s4907_) with + | _s4908_ => + (freg_name_matches_prefix _s4908_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4909_ _) => + (match (string_drop _s4908_ _s4909_) with + | _s4910_ => + (sep_matches_prefix _s4910_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4911_ _) => + (match (string_drop _s4910_ _s4911_) with + | _s4912_ => + (freg_name_matches_prefix _s4912_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4913_ _) => + (match (string_drop _s4912_ _s4913_) with + | _s4914_ => + (sep_matches_prefix _s4914_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4915_ _) => + (match (string_drop _s4914_ _s4915_) with + | _s4916_ => + (frm_mnemonic_matches_prefix _s4916_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4917_ _) => + match (string_drop _s4916_ + _s4917_) with + | s_ => + Some + (FSQRT_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4881_ (_s4882_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4882_ with + | _s4883_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s4883_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4884_ _) => + (match (string_drop _s4883_ _s4884_) with + | _s4885_ => + (spc_matches_prefix _s4885_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4886_ _) => + (match (string_drop _s4885_ _s4886_) with + | _s4887_ => + (freg_name_matches_prefix _s4887_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4888_ _) => + (match (string_drop _s4887_ _s4888_) with + | _s4889_ => + (sep_matches_prefix _s4889_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4890_ _) => + (match (string_drop _s4889_ _s4890_) with + | _s4891_ => + (freg_name_matches_prefix _s4891_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4892_ _) => + (match (string_drop _s4891_ _s4892_) with + | _s4893_ => + (sep_matches_prefix _s4893_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4894_ _) => + (match (string_drop _s4893_ _s4894_) with + | _s4895_ => + (freg_name_matches_prefix _s4895_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4896_ _) => + (match (string_drop _s4895_ _s4896_) with + | _s4897_ => + (sep_matches_prefix _s4897_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4898_ _) => + (match (string_drop _s4897_ + _s4898_) with + | _s4899_ => + (frm_mnemonic_matches_prefix + _s4899_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s4900_ _) => + match (string_drop + _s4899_ + _s4900_) with + | s_ => + Some + (op, rd, rs1, rs2, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4856_ (_s4857_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s4857_ with + | _s4858_ => + (f_madd_type_mnemonic_S_matches_prefix _s4858_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4859_ _) => + (match (string_drop _s4858_ _s4859_) with + | _s4860_ => + (spc_matches_prefix _s4860_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4861_ _) => + (match (string_drop _s4860_ _s4861_) with + | _s4862_ => + (freg_name_matches_prefix _s4862_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4863_ _) => + (match (string_drop _s4862_ _s4863_) with + | _s4864_ => + (sep_matches_prefix _s4864_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4865_ _) => + (match (string_drop _s4864_ _s4865_) with + | _s4866_ => + (freg_name_matches_prefix _s4866_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4867_ _) => + (match (string_drop _s4866_ _s4867_) with + | _s4868_ => + (sep_matches_prefix _s4868_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4869_ _) => + (match (string_drop _s4868_ _s4869_) with + | _s4870_ => + (freg_name_matches_prefix _s4870_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4871_ _) => + (match (string_drop _s4870_ _s4871_) with + | _s4872_ => + (sep_matches_prefix _s4872_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4873_ _) => + (match (string_drop _s4872_ + _s4873_) with + | _s4874_ => + (freg_name_matches_prefix + _s4874_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s4875_ _) => + (match (string_drop + _s4874_ _s4875_) with + | _s4876_ => + (sep_matches_prefix + _s4876_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s4877_ _) => + (match (string_drop + _s4876_ + _s4877_) with + | _s4878_ => + (frm_mnemonic_matches_prefix + _s4878_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s4879_ _) => + match (string_drop + _s4878_ + _s4879_) with + | s_ => + Some + (op, rd, rs1, rs2, rs3, rm, s_) + end + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s4832_ (_s4833_ : string) +: M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) := + let _s4834_ := _s4833_ in + (if string_startswith _s4834_ "fs" then + (match (string_drop _s4834_ (projT1 (string_length "fs"))) with + | _s4835_ => + (size_mnemonic_matches_prefix _s4835_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s4836_ _) => + (match (string_drop _s4835_ _s4836_) with + | _s4837_ => + (spc_matches_prefix _s4837_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3416_ _)) => - (match (string_drop _s3415_ _s3416_) with - | _s3417_ => - (reg_name_matches_prefix _s3417_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4838_ _) => + (match (string_drop _s4837_ _s4838_) with + | _s4839_ => + (freg_name_matches_prefix _s4839_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3418_ _)) => - (match (string_drop _s3417_ _s3418_) with - | _s3419_ => - (sep_matches_prefix _s3419_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s4840_ _) => + (match (string_drop _s4839_ _s4840_) with + | _s4841_ => + (sep_matches_prefix _s4841_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3420_ _)) => - (match (string_drop _s3419_ _s3420_) with - | _s3421_ => - (match (hex_bits_5_matches_prefix _s3421_) with - | Some ((rs1, existT _ _s3422_ _)) => - (match (string_drop _s3421_ _s3422_) with - | _s3423_ => - (sep_matches_prefix _s3423_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4842_ _) => + (match (string_drop _s4841_ _s4842_) with + | _s4843_ => + (match (hex_bits_12_matches_prefix _s4843_) with + | Some (imm, existT _ _s4844_ _) => + (match (string_drop _s4843_ _s4844_) with + | _s4845_ => + (opt_spc_matches_prefix _s4845_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s3424_ _)) => - (match (string_drop _s3423_ _s3424_) with - | _s3425_ => - (csr_name_map_matches_prefix _s3425_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s3426_ _)) => - match (string_drop _s3425_ - _s3426_) with - | s_ => - Some - ((op, rd, rs1, csr, s_)) - end - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + | Some (tt, existT _ _s4846_ _) => + let _s4847_ := string_drop _s4845_ _s4846_ in + (if string_startswith _s4847_ "(" then + (match (string_drop _s4847_ + (projT1 + (string_length "("))) with + | _s4848_ => + (opt_spc_matches_prefix _s4848_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4849_ _) => + (match (string_drop _s4848_ _s4849_) with + | _s4850_ => + (reg_name_matches_prefix + _s4850_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s4851_ _) => + (match (string_drop _s4850_ + _s4851_) with + | _s4852_ => + (opt_spc_matches_prefix + _s4852_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s4853_ _) => + let _s4854_ := + string_drop + _s4852_ + _s4853_ in + if string_startswith + _s4854_ + ")" + then + match (string_drop + _s4854_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (width, rs2, imm, rs1, s_) + end + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))). + +Definition _s4808_ (_s4809_ : string) +: M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) := + let _s4810_ := _s4809_ in + (if string_startswith _s4810_ "fl" then + (match (string_drop _s4810_ (projT1 (string_length "fl"))) with + | _s4811_ => + (size_mnemonic_matches_prefix _s4811_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s4812_ _) => + (match (string_drop _s4811_ _s4812_) with + | _s4813_ => + (spc_matches_prefix _s4813_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4814_ _) => + (match (string_drop _s4813_ _s4814_) with + | _s4815_ => + (freg_name_matches_prefix _s4815_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4816_ _) => + (match (string_drop _s4815_ _s4816_) with + | _s4817_ => + (sep_matches_prefix _s4817_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4818_ _) => + (match (string_drop _s4817_ _s4818_) with + | _s4819_ => + (match (hex_bits_12_matches_prefix _s4819_) with + | Some (imm, existT _ _s4820_ _) => + (match (string_drop _s4819_ _s4820_) with + | _s4821_ => + (opt_spc_matches_prefix _s4821_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s4822_ _) => + let _s4823_ := string_drop _s4821_ _s4822_ in + (if string_startswith _s4823_ "(" then + (match (string_drop _s4823_ + (projT1 + (string_length "("))) with + | _s4824_ => + (opt_spc_matches_prefix _s4824_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4825_ _) => + (match (string_drop _s4824_ _s4825_) with + | _s4826_ => + (reg_name_matches_prefix + _s4826_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s4827_ _) => + (match (string_drop _s4826_ + _s4827_) with + | _s4828_ => + (opt_spc_matches_prefix + _s4828_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s4829_ _) => + let _s4830_ := + string_drop + _s4828_ + _s4829_ in + if string_startswith + _s4830_ + ")" + then + match (string_drop + _s4830_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (width, rd, imm, rs1, s_) + end + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))). + +Definition _s4804_ (_s4805_ : string) : option string := + let _s4806_ := _s4805_ in + if string_startswith _s4806_ "uret" then + match (string_drop _s4806_ (projT1 (string_length "uret"))) with | s_ => Some s_ end + else None. + +Definition _s4787_ (_s4788_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) := + (match _s4788_ with + | _s4789_ => + (csr_mnemonic_matches_prefix _s4789_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4790_ _) => + (match (string_drop _s4789_ _s4790_) with + | _s4791_ => + (spc_matches_prefix _s4791_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4792_ _) => + (match (string_drop _s4791_ _s4792_) with + | _s4793_ => + (reg_name_matches_prefix _s4793_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4794_ _) => + (match (string_drop _s4793_ _s4794_) with + | _s4795_ => + (sep_matches_prefix _s4795_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4796_ _) => + (match (string_drop _s4795_ _s4796_) with + | _s4797_ => + (csr_name_map_matches_prefix _s4797_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s4798_ _) => + (match (string_drop _s4797_ _s4798_) with + | _s4799_ => + (sep_matches_prefix _s4799_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4800_ _) => + (match (string_drop _s4799_ _s4800_) with + | _s4801_ => + (reg_name_matches_prefix _s4801_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s4802_ _) => + match (string_drop _s4801_ + _s4802_) with + | s_ => + Some (op, rd, csr, rs1, s_) + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))). - -Definition _s3391_ (_s3392_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3393_ := _s3392_ in - (if ((string_startswith _s3393_ "rem")) then - (match (string_drop _s3393_ (projT1 (string_length "rem"))) with - | _s3394_ => - (maybe_not_u_matches_prefix _s3394_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))). + +Definition _s4769_ (_s4770_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) := + (match _s4770_ with + | _s4771_ => + (csr_mnemonic_matches_prefix _s4771_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4772_ _) => + let _s4773_ := string_drop _s4771_ _s4772_ in + (if string_startswith _s4773_ "i" then + (match (string_drop _s4773_ (projT1 (string_length "i"))) with + | _s4774_ => + (spc_matches_prefix _s4774_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4775_ _) => + (match (string_drop _s4774_ _s4775_) with + | _s4776_ => + (reg_name_matches_prefix _s4776_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4777_ _) => + (match (string_drop _s4776_ _s4777_) with + | _s4778_ => + (sep_matches_prefix _s4778_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4779_ _) => + (match (string_drop _s4778_ _s4779_) with + | _s4780_ => + (csr_name_map_matches_prefix _s4780_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s4781_ _) => + (match (string_drop _s4780_ _s4781_) with + | _s4782_ => + (sep_matches_prefix _s4782_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s4783_ _) => + match (string_drop _s4782_ _s4783_) with + | _s4784_ => + match (hex_bits_5_matches_prefix + _s4784_) with + | Some (rs1, existT _ _s4785_ _) => + match (string_drop _s4784_ + _s4785_) with + | s_ => + Some (op, rd, csr, rs1, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))). + +Definition _s4750_ (_s4751_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s4752_ := _s4751_ in + (if string_startswith _s4752_ "rem" then + (match (string_drop _s4752_ (projT1 (string_length "rem"))) with + | _s4753_ => + (maybe_not_u_matches_prefix _s4753_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3395_ _)) => - let _s3396_ := string_drop _s3394_ _s3395_ in - (if ((string_startswith _s3396_ "w")) then - (match (string_drop _s3396_ (projT1 (string_length "w"))) with - | _s3397_ => - (spc_matches_prefix _s3397_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s4754_ _) => + let _s4755_ := string_drop _s4753_ _s4754_ in + (if string_startswith _s4755_ "w" then + (match (string_drop _s4755_ (projT1 (string_length "w"))) with + | _s4756_ => + (spc_matches_prefix _s4756_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3398_ _)) => - (match (string_drop _s3397_ _s3398_) with - | _s3399_ => - (reg_name_matches_prefix _s3399_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4757_ _) => + (match (string_drop _s4756_ _s4757_) with + | _s4758_ => + (reg_name_matches_prefix _s4758_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3400_ _)) => - (match (string_drop _s3399_ _s3400_) with - | _s3401_ => - (sep_matches_prefix _s3401_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4759_ _) => + (match (string_drop _s4758_ _s4759_) with + | _s4760_ => + (sep_matches_prefix _s4760_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3402_ _)) => - (match (string_drop _s3401_ _s3402_) with - | _s3403_ => - (reg_name_matches_prefix _s3403_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4761_ _) => + (match (string_drop _s4760_ _s4761_) with + | _s4762_ => + (reg_name_matches_prefix _s4762_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3404_ _)) => - (match (string_drop _s3403_ _s3404_) with - | _s3405_ => - (sep_matches_prefix _s3405_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4763_ _) => + (match (string_drop _s4762_ _s4763_) with + | _s4764_ => + (sep_matches_prefix _s4764_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3406_ _)) => - (match (string_drop _s3405_ _s3406_) with - | _s3407_ => - (reg_name_matches_prefix _s3407_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4765_ _) => + (match (string_drop _s4764_ _s4765_) with + | _s4766_ => + (reg_name_matches_prefix _s4766_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3408_ _)) => - match (string_drop _s3407_ - _s3408_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some + (rs2, existT _ _s4767_ _) => + match (string_drop _s4766_ + _s4767_) with + | s_ => + Some + (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3372_ (_s3373_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3374_ := _s3373_ in - (if ((string_startswith _s3374_ "div")) then - (match (string_drop _s3374_ (projT1 (string_length "div"))) with - | _s3375_ => - (maybe_not_u_matches_prefix _s3375_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s4731_ (_s4732_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s4733_ := _s4732_ in + (if string_startswith _s4733_ "div" then + (match (string_drop _s4733_ (projT1 (string_length "div"))) with + | _s4734_ => + (maybe_not_u_matches_prefix _s4734_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3376_ _)) => - let _s3377_ := string_drop _s3375_ _s3376_ in - (if ((string_startswith _s3377_ "w")) then - (match (string_drop _s3377_ (projT1 (string_length "w"))) with - | _s3378_ => - (spc_matches_prefix _s3378_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s4735_ _) => + let _s4736_ := string_drop _s4734_ _s4735_ in + (if string_startswith _s4736_ "w" then + (match (string_drop _s4736_ (projT1 (string_length "w"))) with + | _s4737_ => + (spc_matches_prefix _s4737_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3379_ _)) => - (match (string_drop _s3378_ _s3379_) with - | _s3380_ => - (reg_name_matches_prefix _s3380_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4738_ _) => + (match (string_drop _s4737_ _s4738_) with + | _s4739_ => + (reg_name_matches_prefix _s4739_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3381_ _)) => - (match (string_drop _s3380_ _s3381_) with - | _s3382_ => - (sep_matches_prefix _s3382_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4740_ _) => + (match (string_drop _s4739_ _s4740_) with + | _s4741_ => + (sep_matches_prefix _s4741_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3383_ _)) => - (match (string_drop _s3382_ _s3383_) with - | _s3384_ => - (reg_name_matches_prefix _s3384_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4742_ _) => + (match (string_drop _s4741_ _s4742_) with + | _s4743_ => + (reg_name_matches_prefix _s4743_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3385_ _)) => - (match (string_drop _s3384_ _s3385_) with - | _s3386_ => - (sep_matches_prefix _s3386_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4744_ _) => + (match (string_drop _s4743_ _s4744_) with + | _s4745_ => + (sep_matches_prefix _s4745_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3387_ _)) => - (match (string_drop _s3386_ _s3387_) with - | _s3388_ => - (reg_name_matches_prefix _s3388_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4746_ _) => + (match (string_drop _s4745_ _s4746_) with + | _s4747_ => + (reg_name_matches_prefix _s4747_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3389_ _)) => - match (string_drop _s3388_ - _s3389_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some + (rs2, existT _ _s4748_ _) => + match (string_drop _s4747_ + _s4748_) with + | s_ => + Some + (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3356_ (_s3357_ : string) -: M (option ((mword 5 * mword 5 * mword 5 * string))) := - - let _s3358_ := _s3357_ in - (if ((string_startswith _s3358_ "mulw")) then - (match (string_drop _s3358_ (projT1 (string_length "mulw"))) with - | _s3359_ => - (spc_matches_prefix _s3359_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4715_ (_s4716_ : string) : M (option ((mword 5 * mword 5 * mword 5 * string))) := + let _s4717_ := _s4716_ in + (if string_startswith _s4717_ "mulw" then + (match (string_drop _s4717_ (projT1 (string_length "mulw"))) with + | _s4718_ => + (spc_matches_prefix _s4718_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3360_ _)) => - (match (string_drop _s3359_ _s3360_) with - | _s3361_ => - (reg_name_matches_prefix _s3361_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4719_ _) => + (match (string_drop _s4718_ _s4719_) with + | _s4720_ => + (reg_name_matches_prefix _s4720_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3362_ _)) => - (match (string_drop _s3361_ _s3362_) with - | _s3363_ => - (sep_matches_prefix _s3363_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4721_ _) => + (match (string_drop _s4720_ _s4721_) with + | _s4722_ => + (sep_matches_prefix _s4722_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3364_ _)) => - (match (string_drop _s3363_ _s3364_) with - | _s3365_ => - (reg_name_matches_prefix _s3365_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4723_ _) => + (match (string_drop _s4722_ _s4723_) with + | _s4724_ => + (reg_name_matches_prefix _s4724_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s3366_ _)) => - (match (string_drop _s3365_ _s3366_) with - | _s3367_ => - (sep_matches_prefix _s3367_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4725_ _) => + (match (string_drop _s4724_ _s4725_) with + | _s4726_ => + (sep_matches_prefix _s4726_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s3368_ _)) => - (match (string_drop _s3367_ _s3368_) with - | _s3369_ => - (reg_name_matches_prefix _s3369_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4727_ _) => + (match (string_drop _s4726_ _s4727_) with + | _s4728_ => + (reg_name_matches_prefix _s4728_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s3370_ _)) => - match (string_drop _s3369_ _s3370_) with - | s_ => Some ((rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (rs2, existT _ _s4729_ _) => + match (string_drop _s4728_ _s4729_) with + | s_ => Some (rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5 * string))). -Definition _s3338_ (_s3339_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3340_ := _s3339_ in - (if ((string_startswith _s3340_ "rem")) then - (match (string_drop _s3340_ (projT1 (string_length "rem"))) with - | _s3341_ => - (maybe_not_u_matches_prefix _s3341_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s4697_ (_s4698_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s4699_ := _s4698_ in + (if string_startswith _s4699_ "rem" then + (match (string_drop _s4699_ (projT1 (string_length "rem"))) with + | _s4700_ => + (maybe_not_u_matches_prefix _s4700_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3342_ _)) => - (match (string_drop _s3341_ _s3342_) with - | _s3343_ => - (spc_matches_prefix _s3343_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s4701_ _) => + (match (string_drop _s4700_ _s4701_) with + | _s4702_ => + (spc_matches_prefix _s4702_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3344_ _)) => - (match (string_drop _s3343_ _s3344_) with - | _s3345_ => - (reg_name_matches_prefix _s3345_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4703_ _) => + (match (string_drop _s4702_ _s4703_) with + | _s4704_ => + (reg_name_matches_prefix _s4704_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3346_ _)) => - (match (string_drop _s3345_ _s3346_) with - | _s3347_ => - (sep_matches_prefix _s3347_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4705_ _) => + (match (string_drop _s4704_ _s4705_) with + | _s4706_ => + (sep_matches_prefix _s4706_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3348_ _)) => - (match (string_drop _s3347_ _s3348_) with - | _s3349_ => - (reg_name_matches_prefix _s3349_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4707_ _) => + (match (string_drop _s4706_ _s4707_) with + | _s4708_ => + (reg_name_matches_prefix _s4708_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3350_ _)) => - (match (string_drop _s3349_ _s3350_) with - | _s3351_ => - (sep_matches_prefix _s3351_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4709_ _) => + (match (string_drop _s4708_ _s4709_) with + | _s4710_ => + (sep_matches_prefix _s4710_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3352_ _)) => - (match (string_drop _s3351_ _s3352_) with - | _s3353_ => - (reg_name_matches_prefix _s3353_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4711_ _) => + (match (string_drop _s4710_ _s4711_) with + | _s4712_ => + (reg_name_matches_prefix _s4712_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3354_ _)) => - match (string_drop _s3353_ - _s3354_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s4713_ _) => + match (string_drop _s4712_ + _s4713_) with + | s_ => + Some (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3320_ (_s3321_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3322_ := _s3321_ in - (if ((string_startswith _s3322_ "div")) then - (match (string_drop _s3322_ (projT1 (string_length "div"))) with - | _s3323_ => - (maybe_not_u_matches_prefix _s3323_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s4679_ (_s4680_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s4681_ := _s4680_ in + (if string_startswith _s4681_ "div" then + (match (string_drop _s4681_ (projT1 (string_length "div"))) with + | _s4682_ => + (maybe_not_u_matches_prefix _s4682_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3324_ _)) => - (match (string_drop _s3323_ _s3324_) with - | _s3325_ => - (spc_matches_prefix _s3325_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s4683_ _) => + (match (string_drop _s4682_ _s4683_) with + | _s4684_ => + (spc_matches_prefix _s4684_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3326_ _)) => - (match (string_drop _s3325_ _s3326_) with - | _s3327_ => - (reg_name_matches_prefix _s3327_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4685_ _) => + (match (string_drop _s4684_ _s4685_) with + | _s4686_ => + (reg_name_matches_prefix _s4686_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3328_ _)) => - (match (string_drop _s3327_ _s3328_) with - | _s3329_ => - (sep_matches_prefix _s3329_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4687_ _) => + (match (string_drop _s4686_ _s4687_) with + | _s4688_ => + (sep_matches_prefix _s4688_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3330_ _)) => - (match (string_drop _s3329_ _s3330_) with - | _s3331_ => - (reg_name_matches_prefix _s3331_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4689_ _) => + (match (string_drop _s4688_ _s4689_) with + | _s4690_ => + (reg_name_matches_prefix _s4690_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3332_ _)) => - (match (string_drop _s3331_ _s3332_) with - | _s3333_ => - (sep_matches_prefix _s3333_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4691_ _) => + (match (string_drop _s4690_ _s4691_) with + | _s4692_ => + (sep_matches_prefix _s4692_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3334_ _)) => - (match (string_drop _s3333_ _s3334_) with - | _s3335_ => - (reg_name_matches_prefix _s3335_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4693_ _) => + (match (string_drop _s4692_ _s4693_) with + | _s4694_ => + (reg_name_matches_prefix _s4694_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3336_ _)) => - match (string_drop _s3335_ - _s3336_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s4695_ _) => + match (string_drop _s4694_ + _s4695_) with + | s_ => + Some (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3303_ (_s3304_ : string) +Definition _s4662_ (_s4663_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - (match _s3304_ with - | _s3305_ => - (mul_mnemonic_matches_prefix _s3305_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s4663_ with + | _s4664_ => + (mul_mnemonic_matches_prefix _s4664_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s3306_ _)) => - (match (string_drop _s3305_ _s3306_) with - | _s3307_ => - (spc_matches_prefix _s3307_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s4665_ _) => + (match (string_drop _s4664_ _s4665_) with + | _s4666_ => + (spc_matches_prefix _s4666_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3308_ _)) => - (match (string_drop _s3307_ _s3308_) with - | _s3309_ => - (reg_name_matches_prefix _s3309_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4667_ _) => + (match (string_drop _s4666_ _s4667_) with + | _s4668_ => + (reg_name_matches_prefix _s4668_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3310_ _)) => - (match (string_drop _s3309_ _s3310_) with - | _s3311_ => - (sep_matches_prefix _s3311_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4669_ _) => + (match (string_drop _s4668_ _s4669_) with + | _s4670_ => + (sep_matches_prefix _s4670_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3312_ _)) => - (match (string_drop _s3311_ _s3312_) with - | _s3313_ => - (reg_name_matches_prefix _s3313_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4671_ _) => + (match (string_drop _s4670_ _s4671_) with + | _s4672_ => + (reg_name_matches_prefix _s4672_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3314_ _)) => - (match (string_drop _s3313_ _s3314_) with - | _s3315_ => - (sep_matches_prefix _s3315_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4673_ _) => + (match (string_drop _s4672_ _s4673_) with + | _s4674_ => + (sep_matches_prefix _s4674_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3316_ _)) => - (match (string_drop _s3315_ _s3316_) with - | _s3317_ => - (reg_name_matches_prefix _s3317_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4675_ _) => + (match (string_drop _s4674_ _s4675_) with + | _s4676_ => + (reg_name_matches_prefix _s4676_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s3318_ _)) => - match (string_drop _s3317_ - _s3318_) with - | s_ => - Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s4677_ _) => + match (string_drop _s4676_ + _s4677_) with + | s_ => + Some + (high, signed1, signed2, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3291_ (_s3292_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s3293_ := _s3292_ in - (if ((string_startswith _s3293_ "c.add")) then - (match (string_drop _s3293_ (projT1 (string_length "c.add"))) with - | _s3294_ => - (spc_matches_prefix _s3294_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4650_ (_s4651_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s4652_ := _s4651_ in + (if string_startswith _s4652_ "c.add" then + (match (string_drop _s4652_ (projT1 (string_length "c.add"))) with + | _s4653_ => + (spc_matches_prefix _s4653_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3295_ _)) => - (match (string_drop _s3294_ _s3295_) with - | _s3296_ => - (reg_name_matches_prefix _s3296_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4654_ _) => + (match (string_drop _s4653_ _s4654_) with + | _s4655_ => + (reg_name_matches_prefix _s4655_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3297_ _)) => - (match (string_drop _s3296_ _s3297_) with - | _s3298_ => - (sep_matches_prefix _s3298_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4656_ _) => + (match (string_drop _s4655_ _s4656_) with + | _s4657_ => + (sep_matches_prefix _s4657_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3299_ _)) => - (match (string_drop _s3298_ _s3299_) with - | _s3300_ => - (reg_name_matches_prefix _s3300_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4658_ _) => + (match (string_drop _s4657_ _s4658_) with + | _s4659_ => + (reg_name_matches_prefix _s4659_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3301_ _)) => - match (string_drop _s3300_ _s3301_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4660_ _) => + match (string_drop _s4659_ _s4660_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s3287_ (_s3288_ : string) -: option string := - - let _s3289_ := _s3288_ in - if ((string_startswith _s3289_ "c.ebreak")) then - match (string_drop _s3289_ (projT1 (string_length "c.ebreak"))) with | s_ => Some (s_) end - else None. - -Definition _s3275_ (_s3276_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s3277_ := _s3276_ in - (if ((string_startswith _s3277_ "c.mv")) then - (match (string_drop _s3277_ (projT1 (string_length "c.mv"))) with - | _s3278_ => - (spc_matches_prefix _s3278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4646_ (_s4647_ : string) : option string := + let _s4648_ := _s4647_ in + if string_startswith _s4648_ "c.ebreak" then + match (string_drop _s4648_ (projT1 (string_length "c.ebreak"))) with | s_ => Some s_ end + else None. + +Definition _s4634_ (_s4635_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s4636_ := _s4635_ in + (if string_startswith _s4636_ "c.mv" then + (match (string_drop _s4636_ (projT1 (string_length "c.mv"))) with + | _s4637_ => + (spc_matches_prefix _s4637_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3279_ _)) => - (match (string_drop _s3278_ _s3279_) with - | _s3280_ => - (reg_name_matches_prefix _s3280_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4638_ _) => + (match (string_drop _s4637_ _s4638_) with + | _s4639_ => + (reg_name_matches_prefix _s4639_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3281_ _)) => - (match (string_drop _s3280_ _s3281_) with - | _s3282_ => - (sep_matches_prefix _s3282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4640_ _) => + (match (string_drop _s4639_ _s4640_) with + | _s4641_ => + (sep_matches_prefix _s4641_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3283_ _)) => - (match (string_drop _s3282_ _s3283_) with - | _s3284_ => - (reg_name_matches_prefix _s3284_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4642_ _) => + (match (string_drop _s4641_ _s4642_) with + | _s4643_ => + (reg_name_matches_prefix _s4643_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3285_ _)) => - match (string_drop _s3284_ _s3285_) with - | s_ => Some ((rd, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4644_ _) => + match (string_drop _s4643_ _s4644_) with + | s_ => Some (rd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s3267_ (_s3268_ : string) -: M (option ((mword 5 * string))) := - - let _s3269_ := _s3268_ in - (if ((string_startswith _s3269_ "c.jalr")) then - (match (string_drop _s3269_ (projT1 (string_length "c.jalr"))) with - | _s3270_ => - (spc_matches_prefix _s3270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4626_ (_s4627_ : string) : M (option ((mword 5 * string))) := + let _s4628_ := _s4627_ in + (if string_startswith _s4628_ "c.jalr" then + (match (string_drop _s4628_ (projT1 (string_length "c.jalr"))) with + | _s4629_ => + (spc_matches_prefix _s4629_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3271_ _)) => - (match (string_drop _s3270_ _s3271_) with - | _s3272_ => - (reg_name_matches_prefix _s3272_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4630_ _) => + (match (string_drop _s4629_ _s4630_) with + | _s4631_ => + (reg_name_matches_prefix _s4631_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s3273_ _)) => - match (string_drop _s3272_ _s3273_) with | s_ => Some ((rs1, s_)) end - | _ => None - end) - : option ((mword 5 * string))) + returnm (match w__1 with + | Some (rs1, existT _ _s4632_ _) => + match (string_drop _s4631_ _s4632_) with | s_ => Some (rs1, s_) end + | _ => None + end) end) : M (option ((mword 5 * string))) - | _ => returnm (None : option ((mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * string))) end) : M (option ((mword 5 * string))) - else returnm (None : option ((mword 5 * string)))) + else returnm None) : M (option ((mword 5 * string))). -Definition _s3259_ (_s3260_ : string) -: M (option ((mword 5 * string))) := - - let _s3261_ := _s3260_ in - (if ((string_startswith _s3261_ "c.jr")) then - (match (string_drop _s3261_ (projT1 (string_length "c.jr"))) with - | _s3262_ => - (spc_matches_prefix _s3262_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4618_ (_s4619_ : string) : M (option ((mword 5 * string))) := + let _s4620_ := _s4619_ in + (if string_startswith _s4620_ "c.jr" then + (match (string_drop _s4620_ (projT1 (string_length "c.jr"))) with + | _s4621_ => + (spc_matches_prefix _s4621_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3263_ _)) => - (match (string_drop _s3262_ _s3263_) with - | _s3264_ => - (reg_name_matches_prefix _s3264_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4622_ _) => + (match (string_drop _s4621_ _s4622_) with + | _s4623_ => + (reg_name_matches_prefix _s4623_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s3265_ _)) => - match (string_drop _s3264_ _s3265_) with | s_ => Some ((rs1, s_)) end - | _ => None - end) - : option ((mword 5 * string))) + returnm (match w__1 with + | Some (rs1, existT _ _s4624_ _) => + match (string_drop _s4623_ _s4624_) with | s_ => Some (rs1, s_) end + | _ => None + end) end) : M (option ((mword 5 * string))) - | _ => returnm (None : option ((mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * string))) end) : M (option ((mword 5 * string))) - else returnm (None : option ((mword 5 * string)))) + else returnm None) : M (option ((mword 5 * string))). -Definition _s3247_ (_s3248_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3249_ := _s3248_ in - (if ((string_startswith _s3249_ "c.sdsp")) then - (match (string_drop _s3249_ (projT1 (string_length "c.sdsp"))) with - | _s3250_ => - (spc_matches_prefix _s3250_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4606_ (_s4607_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4608_ := _s4607_ in + (if string_startswith _s4608_ "c.sdsp" then + (match (string_drop _s4608_ (projT1 (string_length "c.sdsp"))) with + | _s4609_ => + (spc_matches_prefix _s4609_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3251_ _)) => - (match (string_drop _s3250_ _s3251_) with - | _s3252_ => - (reg_name_matches_prefix _s3252_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4610_ _) => + (match (string_drop _s4609_ _s4610_) with + | _s4611_ => + (reg_name_matches_prefix _s4611_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s3253_ _)) => - (match (string_drop _s3252_ _s3253_) with - | _s3254_ => - (sep_matches_prefix _s3254_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s4612_ _) => + (match (string_drop _s4611_ _s4612_) with + | _s4613_ => + (sep_matches_prefix _s4613_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3255_ _)) => - match (string_drop _s3254_ _s3255_) with - | _s3256_ => - match (hex_bits_6_matches_prefix _s3256_) with - | Some ((uimm, existT _ _s3257_ _)) => - match (string_drop _s3256_ _s3257_) with - | s_ => Some ((rs2, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4614_ _) => + match (string_drop _s4613_ _s4614_) with + | _s4615_ => + match (hex_bits_6_matches_prefix _s4615_) with + | Some (uimm, existT _ _s4616_ _) => + match (string_drop _s4615_ _s4616_) with + | s_ => Some (rs2, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3235_ (_s3236_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3237_ := _s3236_ in - (if ((string_startswith _s3237_ "c.swsp")) then - (match (string_drop _s3237_ (projT1 (string_length "c.swsp"))) with - | _s3238_ => - (spc_matches_prefix _s3238_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4594_ (_s4595_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4596_ := _s4595_ in + (if string_startswith _s4596_ "c.swsp" then + (match (string_drop _s4596_ (projT1 (string_length "c.swsp"))) with + | _s4597_ => + (spc_matches_prefix _s4597_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3239_ _)) => - (match (string_drop _s3238_ _s3239_) with - | _s3240_ => - (reg_name_matches_prefix _s3240_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4598_ _) => + (match (string_drop _s4597_ _s4598_) with + | _s4599_ => + (reg_name_matches_prefix _s4599_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3241_ _)) => - (match (string_drop _s3240_ _s3241_) with - | _s3242_ => - (sep_matches_prefix _s3242_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4600_ _) => + (match (string_drop _s4599_ _s4600_) with + | _s4601_ => + (sep_matches_prefix _s4601_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3243_ _)) => - match (string_drop _s3242_ _s3243_) with - | _s3244_ => - match (hex_bits_6_matches_prefix _s3244_) with - | Some ((uimm, existT _ _s3245_ _)) => - match (string_drop _s3244_ _s3245_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4602_ _) => + match (string_drop _s4601_ _s4602_) with + | _s4603_ => + match (hex_bits_6_matches_prefix _s4603_) with + | Some (uimm, existT _ _s4604_ _) => + match (string_drop _s4603_ _s4604_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3223_ (_s3224_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3225_ := _s3224_ in - (if ((string_startswith _s3225_ "c.ldsp")) then - (match (string_drop _s3225_ (projT1 (string_length "c.ldsp"))) with - | _s3226_ => - (spc_matches_prefix _s3226_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4582_ (_s4583_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4584_ := _s4583_ in + (if string_startswith _s4584_ "c.ldsp" then + (match (string_drop _s4584_ (projT1 (string_length "c.ldsp"))) with + | _s4585_ => + (spc_matches_prefix _s4585_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3227_ _)) => - (match (string_drop _s3226_ _s3227_) with - | _s3228_ => - (reg_name_matches_prefix _s3228_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4586_ _) => + (match (string_drop _s4585_ _s4586_) with + | _s4587_ => + (reg_name_matches_prefix _s4587_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3229_ _)) => - (match (string_drop _s3228_ _s3229_) with - | _s3230_ => - (sep_matches_prefix _s3230_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4588_ _) => + (match (string_drop _s4587_ _s4588_) with + | _s4589_ => + (sep_matches_prefix _s4589_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3231_ _)) => - match (string_drop _s3230_ _s3231_) with - | _s3232_ => - match (hex_bits_6_matches_prefix _s3232_) with - | Some ((uimm, existT _ _s3233_ _)) => - match (string_drop _s3232_ _s3233_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4590_ _) => + match (string_drop _s4589_ _s4590_) with + | _s4591_ => + match (hex_bits_6_matches_prefix _s4591_) with + | Some (uimm, existT _ _s4592_ _) => + match (string_drop _s4591_ _s4592_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3211_ (_s3212_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3213_ := _s3212_ in - (if ((string_startswith _s3213_ "c.lwsp")) then - (match (string_drop _s3213_ (projT1 (string_length "c.lwsp"))) with - | _s3214_ => - (spc_matches_prefix _s3214_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4570_ (_s4571_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4572_ := _s4571_ in + (if string_startswith _s4572_ "c.lwsp" then + (match (string_drop _s4572_ (projT1 (string_length "c.lwsp"))) with + | _s4573_ => + (spc_matches_prefix _s4573_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3215_ _)) => - (match (string_drop _s3214_ _s3215_) with - | _s3216_ => - (reg_name_matches_prefix _s3216_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4574_ _) => + (match (string_drop _s4573_ _s4574_) with + | _s4575_ => + (reg_name_matches_prefix _s4575_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3217_ _)) => - (match (string_drop _s3216_ _s3217_) with - | _s3218_ => - (sep_matches_prefix _s3218_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4576_ _) => + (match (string_drop _s4575_ _s4576_) with + | _s4577_ => + (sep_matches_prefix _s4577_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3219_ _)) => - match (string_drop _s3218_ _s3219_) with - | _s3220_ => - match (hex_bits_6_matches_prefix _s3220_) with - | Some ((uimm, existT _ _s3221_ _)) => - match (string_drop _s3220_ _s3221_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4578_ _) => + match (string_drop _s4577_ _s4578_) with + | _s4579_ => + match (hex_bits_6_matches_prefix _s4579_) with + | Some (uimm, existT _ _s4580_ _) => + match (string_drop _s4579_ _s4580_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3199_ (_s3200_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3201_ := _s3200_ in - (if ((string_startswith _s3201_ "c.slli")) then - (match (string_drop _s3201_ (projT1 (string_length "c.slli"))) with - | _s3202_ => - (spc_matches_prefix _s3202_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4558_ (_s4559_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4560_ := _s4559_ in + (if string_startswith _s4560_ "c.slli" then + (match (string_drop _s4560_ (projT1 (string_length "c.slli"))) with + | _s4561_ => + (spc_matches_prefix _s4561_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3203_ _)) => - (match (string_drop _s3202_ _s3203_) with - | _s3204_ => - (reg_name_matches_prefix _s3204_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4562_ _) => + (match (string_drop _s4561_ _s4562_) with + | _s4563_ => + (reg_name_matches_prefix _s4563_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3205_ _)) => - (match (string_drop _s3204_ _s3205_) with - | _s3206_ => - (sep_matches_prefix _s3206_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4564_ _) => + (match (string_drop _s4563_ _s4564_) with + | _s4565_ => + (sep_matches_prefix _s4565_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3207_ _)) => - match (string_drop _s3206_ _s3207_) with - | _s3208_ => - match (hex_bits_6_matches_prefix _s3208_) with - | Some ((shamt, existT _ _s3209_ _)) => - match (string_drop _s3208_ _s3209_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4566_ _) => + match (string_drop _s4565_ _s4566_) with + | _s4567_ => + match (hex_bits_6_matches_prefix _s4567_) with + | Some (shamt, existT _ _s4568_ _) => + match (string_drop _s4567_ _s4568_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3187_ (_s3188_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s3189_ := _s3188_ in - (if ((string_startswith _s3189_ "c.bnez")) then - (match (string_drop _s3189_ (projT1 (string_length "c.bnez"))) with - | _s3190_ => - (spc_matches_prefix _s3190_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4546_ (_s4547_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s4548_ := _s4547_ in + (if string_startswith _s4548_ "c.bnez" then + (match (string_drop _s4548_ (projT1 (string_length "c.bnez"))) with + | _s4549_ => + (spc_matches_prefix _s4549_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3191_ _)) => - (match (string_drop _s3190_ _s3191_) with - | _s3192_ => - (creg_name_matches_prefix _s3192_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4550_ _) => + (match (string_drop _s4549_ _s4550_) with + | _s4551_ => + (creg_name_matches_prefix _s4551_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s3193_ _)) => - (match (string_drop _s3192_ _s3193_) with - | _s3194_ => - (sep_matches_prefix _s3194_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s4552_ _) => + (match (string_drop _s4551_ _s4552_) with + | _s4553_ => + (sep_matches_prefix _s4553_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3195_ _)) => - match (string_drop _s3194_ _s3195_) with - | _s3196_ => - match (hex_bits_8_matches_prefix _s3196_) with - | Some ((imm, existT _ _s3197_ _)) => - match (string_drop _s3196_ _s3197_) with - | s_ => Some ((rs, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4554_ _) => + match (string_drop _s4553_ _s4554_) with + | _s4555_ => + match (hex_bits_8_matches_prefix _s4555_) with + | Some (imm, existT _ _s4556_ _) => + match (string_drop _s4555_ _s4556_) with + | s_ => Some (rs, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s3175_ (_s3176_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s3177_ := _s3176_ in - (if ((string_startswith _s3177_ "c.beqz")) then - (match (string_drop _s3177_ (projT1 (string_length "c.beqz"))) with - | _s3178_ => - (spc_matches_prefix _s3178_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4534_ (_s4535_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s4536_ := _s4535_ in + (if string_startswith _s4536_ "c.beqz" then + (match (string_drop _s4536_ (projT1 (string_length "c.beqz"))) with + | _s4537_ => + (spc_matches_prefix _s4537_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3179_ _)) => - (match (string_drop _s3178_ _s3179_) with - | _s3180_ => - (creg_name_matches_prefix _s3180_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4538_ _) => + (match (string_drop _s4537_ _s4538_) with + | _s4539_ => + (creg_name_matches_prefix _s4539_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s3181_ _)) => - (match (string_drop _s3180_ _s3181_) with - | _s3182_ => - (sep_matches_prefix _s3182_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s4540_ _) => + (match (string_drop _s4539_ _s4540_) with + | _s4541_ => + (sep_matches_prefix _s4541_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3183_ _)) => - match (string_drop _s3182_ _s3183_) with - | _s3184_ => - match (hex_bits_8_matches_prefix _s3184_) with - | Some ((imm, existT _ _s3185_ _)) => - match (string_drop _s3184_ _s3185_) with - | s_ => Some ((rs, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4542_ _) => + match (string_drop _s4541_ _s4542_) with + | _s4543_ => + match (hex_bits_8_matches_prefix _s4543_) with + | Some (imm, existT _ _s4544_ _) => + match (string_drop _s4543_ _s4544_) with + | s_ => Some (rs, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s3167_ (_s3168_ : string) -: M (option ((mword 11 * string))) := - - let _s3169_ := _s3168_ in - (if ((string_startswith _s3169_ "c.j")) then - (match (string_drop _s3169_ (projT1 (string_length "c.j"))) with - | _s3170_ => - (spc_matches_prefix _s3170_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3171_ _)) => - match (string_drop _s3170_ _s3171_) with - | _s3172_ => - match (hex_bits_11_matches_prefix _s3172_) with - | Some ((imm, existT _ _s3173_ _)) => - match (string_drop _s3172_ _s3173_) with | s_ => Some ((imm, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 11 * string))) +Definition _s4526_ (_s4527_ : string) : M (option ((mword 11 * string))) := + let _s4528_ := _s4527_ in + (if string_startswith _s4528_ "c.j" then + (match (string_drop _s4528_ (projT1 (string_length "c.j"))) with + | _s4529_ => + (spc_matches_prefix _s4529_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s4530_ _) => + match (string_drop _s4529_ _s4530_) with + | _s4531_ => + match (hex_bits_11_matches_prefix _s4531_) with + | Some (imm, existT _ _s4532_ _) => + match (string_drop _s4531_ _s4532_) with | s_ => Some (imm, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 11 * string))) - else returnm (None : option ((mword 11 * string)))) + else returnm None) : M (option ((mword 11 * string))). -Definition _s3155_ (_s3156_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3157_ := _s3156_ in - (if ((string_startswith _s3157_ "c.addw")) then - (match (string_drop _s3157_ (projT1 (string_length "c.addw"))) with - | _s3158_ => - (spc_matches_prefix _s3158_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4514_ (_s4515_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4516_ := _s4515_ in + (if string_startswith _s4516_ "c.addw" then + (match (string_drop _s4516_ (projT1 (string_length "c.addw"))) with + | _s4517_ => + (spc_matches_prefix _s4517_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3159_ _)) => - (match (string_drop _s3158_ _s3159_) with - | _s3160_ => - (creg_name_matches_prefix _s3160_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4518_ _) => + (match (string_drop _s4517_ _s4518_) with + | _s4519_ => + (creg_name_matches_prefix _s4519_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3161_ _)) => - (match (string_drop _s3160_ _s3161_) with - | _s3162_ => - (sep_matches_prefix _s3162_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4520_ _) => + (match (string_drop _s4519_ _s4520_) with + | _s4521_ => + (sep_matches_prefix _s4521_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3163_ _)) => - (match (string_drop _s3162_ _s3163_) with - | _s3164_ => - (creg_name_matches_prefix _s3164_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4522_ _) => + (match (string_drop _s4521_ _s4522_) with + | _s4523_ => + (creg_name_matches_prefix _s4523_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3165_ _)) => - match (string_drop _s3164_ _s3165_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4524_ _) => + match (string_drop _s4523_ _s4524_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3143_ (_s3144_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3145_ := _s3144_ in - (if ((string_startswith _s3145_ "c.subw")) then - (match (string_drop _s3145_ (projT1 (string_length "c.subw"))) with - | _s3146_ => - (spc_matches_prefix _s3146_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4502_ (_s4503_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4504_ := _s4503_ in + (if string_startswith _s4504_ "c.subw" then + (match (string_drop _s4504_ (projT1 (string_length "c.subw"))) with + | _s4505_ => + (spc_matches_prefix _s4505_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3147_ _)) => - (match (string_drop _s3146_ _s3147_) with - | _s3148_ => - (creg_name_matches_prefix _s3148_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4506_ _) => + (match (string_drop _s4505_ _s4506_) with + | _s4507_ => + (creg_name_matches_prefix _s4507_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3149_ _)) => - (match (string_drop _s3148_ _s3149_) with - | _s3150_ => - (sep_matches_prefix _s3150_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4508_ _) => + (match (string_drop _s4507_ _s4508_) with + | _s4509_ => + (sep_matches_prefix _s4509_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3151_ _)) => - (match (string_drop _s3150_ _s3151_) with - | _s3152_ => - (creg_name_matches_prefix _s3152_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4510_ _) => + (match (string_drop _s4509_ _s4510_) with + | _s4511_ => + (creg_name_matches_prefix _s4511_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3153_ _)) => - match (string_drop _s3152_ _s3153_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4512_ _) => + match (string_drop _s4511_ _s4512_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3131_ (_s3132_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3133_ := _s3132_ in - (if ((string_startswith _s3133_ "c.and")) then - (match (string_drop _s3133_ (projT1 (string_length "c.and"))) with - | _s3134_ => - (spc_matches_prefix _s3134_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4490_ (_s4491_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4492_ := _s4491_ in + (if string_startswith _s4492_ "c.and" then + (match (string_drop _s4492_ (projT1 (string_length "c.and"))) with + | _s4493_ => + (spc_matches_prefix _s4493_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3135_ _)) => - (match (string_drop _s3134_ _s3135_) with - | _s3136_ => - (creg_name_matches_prefix _s3136_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4494_ _) => + (match (string_drop _s4493_ _s4494_) with + | _s4495_ => + (creg_name_matches_prefix _s4495_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3137_ _)) => - (match (string_drop _s3136_ _s3137_) with - | _s3138_ => - (sep_matches_prefix _s3138_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4496_ _) => + (match (string_drop _s4495_ _s4496_) with + | _s4497_ => + (sep_matches_prefix _s4497_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3139_ _)) => - (match (string_drop _s3138_ _s3139_) with - | _s3140_ => - (creg_name_matches_prefix _s3140_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4498_ _) => + (match (string_drop _s4497_ _s4498_) with + | _s4499_ => + (creg_name_matches_prefix _s4499_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3141_ _)) => - match (string_drop _s3140_ _s3141_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4500_ _) => + match (string_drop _s4499_ _s4500_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3119_ (_s3120_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3121_ := _s3120_ in - (if ((string_startswith _s3121_ "c.or")) then - (match (string_drop _s3121_ (projT1 (string_length "c.or"))) with - | _s3122_ => - (spc_matches_prefix _s3122_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4478_ (_s4479_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4480_ := _s4479_ in + (if string_startswith _s4480_ "c.or" then + (match (string_drop _s4480_ (projT1 (string_length "c.or"))) with + | _s4481_ => + (spc_matches_prefix _s4481_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3123_ _)) => - (match (string_drop _s3122_ _s3123_) with - | _s3124_ => - (creg_name_matches_prefix _s3124_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4482_ _) => + (match (string_drop _s4481_ _s4482_) with + | _s4483_ => + (creg_name_matches_prefix _s4483_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3125_ _)) => - (match (string_drop _s3124_ _s3125_) with - | _s3126_ => - (sep_matches_prefix _s3126_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4484_ _) => + (match (string_drop _s4483_ _s4484_) with + | _s4485_ => + (sep_matches_prefix _s4485_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3127_ _)) => - (match (string_drop _s3126_ _s3127_) with - | _s3128_ => - (creg_name_matches_prefix _s3128_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4486_ _) => + (match (string_drop _s4485_ _s4486_) with + | _s4487_ => + (creg_name_matches_prefix _s4487_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3129_ _)) => - match (string_drop _s3128_ _s3129_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4488_ _) => + match (string_drop _s4487_ _s4488_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3107_ (_s3108_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3109_ := _s3108_ in - (if ((string_startswith _s3109_ "c.xor")) then - (match (string_drop _s3109_ (projT1 (string_length "c.xor"))) with - | _s3110_ => - (spc_matches_prefix _s3110_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4466_ (_s4467_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4468_ := _s4467_ in + (if string_startswith _s4468_ "c.xor" then + (match (string_drop _s4468_ (projT1 (string_length "c.xor"))) with + | _s4469_ => + (spc_matches_prefix _s4469_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3111_ _)) => - (match (string_drop _s3110_ _s3111_) with - | _s3112_ => - (creg_name_matches_prefix _s3112_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4470_ _) => + (match (string_drop _s4469_ _s4470_) with + | _s4471_ => + (creg_name_matches_prefix _s4471_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3113_ _)) => - (match (string_drop _s3112_ _s3113_) with - | _s3114_ => - (sep_matches_prefix _s3114_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4472_ _) => + (match (string_drop _s4471_ _s4472_) with + | _s4473_ => + (sep_matches_prefix _s4473_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3115_ _)) => - (match (string_drop _s3114_ _s3115_) with - | _s3116_ => - (creg_name_matches_prefix _s3116_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4474_ _) => + (match (string_drop _s4473_ _s4474_) with + | _s4475_ => + (creg_name_matches_prefix _s4475_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3117_ _)) => - match (string_drop _s3116_ _s3117_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4476_ _) => + match (string_drop _s4475_ _s4476_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3095_ (_s3096_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3097_ := _s3096_ in - (if ((string_startswith _s3097_ "c.sub")) then - (match (string_drop _s3097_ (projT1 (string_length "c.sub"))) with - | _s3098_ => - (spc_matches_prefix _s3098_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4454_ (_s4455_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s4456_ := _s4455_ in + (if string_startswith _s4456_ "c.sub" then + (match (string_drop _s4456_ (projT1 (string_length "c.sub"))) with + | _s4457_ => + (spc_matches_prefix _s4457_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3099_ _)) => - (match (string_drop _s3098_ _s3099_) with - | _s3100_ => - (creg_name_matches_prefix _s3100_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4458_ _) => + (match (string_drop _s4457_ _s4458_) with + | _s4459_ => + (creg_name_matches_prefix _s4459_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3101_ _)) => - (match (string_drop _s3100_ _s3101_) with - | _s3102_ => - (sep_matches_prefix _s3102_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4460_ _) => + (match (string_drop _s4459_ _s4460_) with + | _s4461_ => + (sep_matches_prefix _s4461_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3103_ _)) => - (match (string_drop _s3102_ _s3103_) with - | _s3104_ => - (creg_name_matches_prefix _s3104_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4462_ _) => + (match (string_drop _s4461_ _s4462_) with + | _s4463_ => + (creg_name_matches_prefix _s4463_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3105_ _)) => - match (string_drop _s3104_ _s3105_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4464_ _) => + match (string_drop _s4463_ _s4464_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3083_ (_s3084_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3085_ := _s3084_ in - (if ((string_startswith _s3085_ "c.andi")) then - (match (string_drop _s3085_ (projT1 (string_length "c.andi"))) with - | _s3086_ => - (spc_matches_prefix _s3086_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4442_ (_s4443_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s4444_ := _s4443_ in + (if string_startswith _s4444_ "c.andi" then + (match (string_drop _s4444_ (projT1 (string_length "c.andi"))) with + | _s4445_ => + (spc_matches_prefix _s4445_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3087_ _)) => - (match (string_drop _s3086_ _s3087_) with - | _s3088_ => - (creg_name_matches_prefix _s3088_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4446_ _) => + (match (string_drop _s4445_ _s4446_) with + | _s4447_ => + (creg_name_matches_prefix _s4447_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3089_ _)) => - (match (string_drop _s3088_ _s3089_) with - | _s3090_ => - (sep_matches_prefix _s3090_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4448_ _) => + (match (string_drop _s4447_ _s4448_) with + | _s4449_ => + (sep_matches_prefix _s4449_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3091_ _)) => - match (string_drop _s3090_ _s3091_) with - | _s3092_ => - match (hex_bits_6_matches_prefix _s3092_) with - | Some ((imm, existT _ _s3093_ _)) => - match (string_drop _s3092_ _s3093_) with - | s_ => Some ((rsd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4450_ _) => + match (string_drop _s4449_ _s4450_) with + | _s4451_ => + match (hex_bits_6_matches_prefix _s4451_) with + | Some (imm, existT _ _s4452_ _) => + match (string_drop _s4451_ _s4452_) with + | s_ => Some (rsd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3071_ (_s3072_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3073_ := _s3072_ in - (if ((string_startswith _s3073_ "c.srai")) then - (match (string_drop _s3073_ (projT1 (string_length "c.srai"))) with - | _s3074_ => - (spc_matches_prefix _s3074_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4430_ (_s4431_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s4432_ := _s4431_ in + (if string_startswith _s4432_ "c.srai" then + (match (string_drop _s4432_ (projT1 (string_length "c.srai"))) with + | _s4433_ => + (spc_matches_prefix _s4433_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3075_ _)) => - (match (string_drop _s3074_ _s3075_) with - | _s3076_ => - (creg_name_matches_prefix _s3076_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4434_ _) => + (match (string_drop _s4433_ _s4434_) with + | _s4435_ => + (creg_name_matches_prefix _s4435_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3077_ _)) => - (match (string_drop _s3076_ _s3077_) with - | _s3078_ => - (sep_matches_prefix _s3078_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4436_ _) => + (match (string_drop _s4435_ _s4436_) with + | _s4437_ => + (sep_matches_prefix _s4437_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3079_ _)) => - match (string_drop _s3078_ _s3079_) with - | _s3080_ => - match (hex_bits_6_matches_prefix _s3080_) with - | Some ((shamt, existT _ _s3081_ _)) => - match (string_drop _s3080_ _s3081_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4438_ _) => + match (string_drop _s4437_ _s4438_) with + | _s4439_ => + match (hex_bits_6_matches_prefix _s4439_) with + | Some (shamt, existT _ _s4440_ _) => + match (string_drop _s4439_ _s4440_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3059_ (_s3060_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3061_ := _s3060_ in - (if ((string_startswith _s3061_ "c.srli")) then - (match (string_drop _s3061_ (projT1 (string_length "c.srli"))) with - | _s3062_ => - (spc_matches_prefix _s3062_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4418_ (_s4419_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s4420_ := _s4419_ in + (if string_startswith _s4420_ "c.srli" then + (match (string_drop _s4420_ (projT1 (string_length "c.srli"))) with + | _s4421_ => + (spc_matches_prefix _s4421_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3063_ _)) => - (match (string_drop _s3062_ _s3063_) with - | _s3064_ => - (creg_name_matches_prefix _s3064_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4422_ _) => + (match (string_drop _s4421_ _s4422_) with + | _s4423_ => + (creg_name_matches_prefix _s4423_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3065_ _)) => - (match (string_drop _s3064_ _s3065_) with - | _s3066_ => - (sep_matches_prefix _s3066_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4424_ _) => + (match (string_drop _s4423_ _s4424_) with + | _s4425_ => + (sep_matches_prefix _s4425_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3067_ _)) => - match (string_drop _s3066_ _s3067_) with - | _s3068_ => - match (hex_bits_6_matches_prefix _s3068_) with - | Some ((shamt, existT _ _s3069_ _)) => - match (string_drop _s3068_ _s3069_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4426_ _) => + match (string_drop _s4425_ _s4426_) with + | _s4427_ => + match (hex_bits_6_matches_prefix _s4427_) with + | Some (shamt, existT _ _s4428_ _) => + match (string_drop _s4427_ _s4428_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3047_ (_s3048_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3049_ := _s3048_ in - (if ((string_startswith _s3049_ "c.lui")) then - (match (string_drop _s3049_ (projT1 (string_length "c.lui"))) with - | _s3050_ => - (spc_matches_prefix _s3050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4406_ (_s4407_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4408_ := _s4407_ in + (if string_startswith _s4408_ "c.lui" then + (match (string_drop _s4408_ (projT1 (string_length "c.lui"))) with + | _s4409_ => + (spc_matches_prefix _s4409_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3051_ _)) => - (match (string_drop _s3050_ _s3051_) with - | _s3052_ => - (reg_name_matches_prefix _s3052_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4410_ _) => + (match (string_drop _s4409_ _s4410_) with + | _s4411_ => + (reg_name_matches_prefix _s4411_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3053_ _)) => - (match (string_drop _s3052_ _s3053_) with - | _s3054_ => - (sep_matches_prefix _s3054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4412_ _) => + (match (string_drop _s4411_ _s4412_) with + | _s4413_ => + (sep_matches_prefix _s4413_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3055_ _)) => - match (string_drop _s3054_ _s3055_) with - | _s3056_ => - match (hex_bits_6_matches_prefix _s3056_) with - | Some ((imm, existT _ _s3057_ _)) => - match (string_drop _s3056_ _s3057_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4414_ _) => + match (string_drop _s4413_ _s4414_) with + | _s4415_ => + match (hex_bits_6_matches_prefix _s4415_) with + | Some (imm, existT _ _s4416_ _) => + match (string_drop _s4415_ _s4416_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3039_ (_s3040_ : string) -: M (option ((mword 6 * string))) := - - let _s3041_ := _s3040_ in - (if ((string_startswith _s3041_ "c.addi16sp")) then - (match (string_drop _s3041_ (projT1 (string_length "c.addi16sp"))) with - | _s3042_ => - (spc_matches_prefix _s3042_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3043_ _)) => - match (string_drop _s3042_ _s3043_) with - | _s3044_ => - match (hex_bits_6_matches_prefix _s3044_) with - | Some ((imm, existT _ _s3045_ _)) => - match (string_drop _s3044_ _s3045_) with | s_ => Some ((imm, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 6 * string))) +Definition _s4398_ (_s4399_ : string) : M (option ((mword 6 * string))) := + let _s4400_ := _s4399_ in + (if string_startswith _s4400_ "c.addi16sp" then + (match (string_drop _s4400_ (projT1 (string_length "c.addi16sp"))) with + | _s4401_ => + (spc_matches_prefix _s4401_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s4402_ _) => + match (string_drop _s4401_ _s4402_) with + | _s4403_ => + match (hex_bits_6_matches_prefix _s4403_) with + | Some (imm, existT _ _s4404_ _) => + match (string_drop _s4403_ _s4404_) with | s_ => Some (imm, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 6 * string))) - else returnm (None : option ((mword 6 * string)))) + else returnm None) : M (option ((mword 6 * string))). -Definition _s3027_ (_s3028_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3029_ := _s3028_ in - (if ((string_startswith _s3029_ "c.li")) then - (match (string_drop _s3029_ (projT1 (string_length "c.li"))) with - | _s3030_ => - (spc_matches_prefix _s3030_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4386_ (_s4387_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4388_ := _s4387_ in + (if string_startswith _s4388_ "c.li" then + (match (string_drop _s4388_ (projT1 (string_length "c.li"))) with + | _s4389_ => + (spc_matches_prefix _s4389_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3031_ _)) => - (match (string_drop _s3030_ _s3031_) with - | _s3032_ => - (reg_name_matches_prefix _s3032_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4390_ _) => + (match (string_drop _s4389_ _s4390_) with + | _s4391_ => + (reg_name_matches_prefix _s4391_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3033_ _)) => - (match (string_drop _s3032_ _s3033_) with - | _s3034_ => - (sep_matches_prefix _s3034_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4392_ _) => + (match (string_drop _s4391_ _s4392_) with + | _s4393_ => + (sep_matches_prefix _s4393_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3035_ _)) => - match (string_drop _s3034_ _s3035_) with - | _s3036_ => - match (hex_bits_6_matches_prefix _s3036_) with - | Some ((imm, existT _ _s3037_ _)) => - match (string_drop _s3036_ _s3037_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4394_ _) => + match (string_drop _s4393_ _s4394_) with + | _s4395_ => + match (hex_bits_6_matches_prefix _s4395_) with + | Some (imm, existT _ _s4396_ _) => + match (string_drop _s4395_ _s4396_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3015_ (_s3016_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3017_ := _s3016_ in - (if ((string_startswith _s3017_ "c.addiw")) then - (match (string_drop _s3017_ (projT1 (string_length "c.addiw"))) with - | _s3018_ => - (spc_matches_prefix _s3018_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4374_ (_s4375_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4376_ := _s4375_ in + (if string_startswith _s4376_ "c.addiw" then + (match (string_drop _s4376_ (projT1 (string_length "c.addiw"))) with + | _s4377_ => + (spc_matches_prefix _s4377_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3019_ _)) => - (match (string_drop _s3018_ _s3019_) with - | _s3020_ => - (reg_name_matches_prefix _s3020_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4378_ _) => + (match (string_drop _s4377_ _s4378_) with + | _s4379_ => + (reg_name_matches_prefix _s4379_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3021_ _)) => - (match (string_drop _s3020_ _s3021_) with - | _s3022_ => - (sep_matches_prefix _s3022_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4380_ _) => + (match (string_drop _s4379_ _s4380_) with + | _s4381_ => + (sep_matches_prefix _s4381_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3023_ _)) => - match (string_drop _s3022_ _s3023_) with - | _s3024_ => - match (hex_bits_6_matches_prefix _s3024_) with - | Some ((imm, existT _ _s3025_ _)) => - match (string_drop _s3024_ _s3025_) with - | s_ => Some ((rsd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4382_ _) => + match (string_drop _s4381_ _s4382_) with + | _s4383_ => + match (hex_bits_6_matches_prefix _s4383_) with + | Some (imm, existT _ _s4384_ _) => + match (string_drop _s4383_ _s4384_) with + | s_ => Some (rsd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3007_ (_s3008_ : string) -: M (option ((mword 11 * string))) := - - let _s3009_ := _s3008_ in - (if ((string_startswith _s3009_ "c.jal")) then - (match (string_drop _s3009_ (projT1 (string_length "c.jal"))) with - | _s3010_ => - (spc_matches_prefix _s3010_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3011_ _)) => - match (string_drop _s3010_ _s3011_) with - | _s3012_ => - match (hex_bits_12_matches_prefix _s3012_) with - | Some ((v__826, existT _ _s3013_ _)) => - if ((eq_vec (subrange_vec_dec v__826 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__826 11 1 in - let imm : mword 11 := subrange_vec_dec v__826 11 1 in - match (string_drop _s3012_ _s3013_) with | s_ => Some ((imm, s_)) end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 11 * string))) +Definition _s4366_ (_s4367_ : string) : M (option ((mword 11 * string))) := + let _s4368_ := _s4367_ in + (if string_startswith _s4368_ "c.jal" then + (match (string_drop _s4368_ (projT1 (string_length "c.jal"))) with + | _s4369_ => + (spc_matches_prefix _s4369_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s4370_ _) => + match (string_drop _s4369_ _s4370_) with + | _s4371_ => + match (hex_bits_12_matches_prefix _s4371_) with + | Some (v__1112, existT _ _s4372_ _) => + if eq_vec (subrange_vec_dec v__1112 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1112 11 1 in + let imm : mword 11 := subrange_vec_dec v__1112 11 1 in + match (string_drop _s4371_ _s4372_) with | s_ => Some (imm, s_) end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 11 * string))) - else returnm (None : option ((mword 11 * string)))) + else returnm None) : M (option ((mword 11 * string))). -Definition _s2995_ (_s2996_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s2997_ := _s2996_ in - (if ((string_startswith _s2997_ "c.addi")) then - (match (string_drop _s2997_ (projT1 (string_length "c.addi"))) with - | _s2998_ => - (spc_matches_prefix _s2998_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4354_ (_s4355_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s4356_ := _s4355_ in + (if string_startswith _s4356_ "c.addi" then + (match (string_drop _s4356_ (projT1 (string_length "c.addi"))) with + | _s4357_ => + (spc_matches_prefix _s4357_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2999_ _)) => - (match (string_drop _s2998_ _s2999_) with - | _s3000_ => - (reg_name_matches_prefix _s3000_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4358_ _) => + (match (string_drop _s4357_ _s4358_) with + | _s4359_ => + (reg_name_matches_prefix _s4359_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3001_ _)) => - (match (string_drop _s3000_ _s3001_) with - | _s3002_ => - (sep_matches_prefix _s3002_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s4360_ _) => + (match (string_drop _s4359_ _s4360_) with + | _s4361_ => + (sep_matches_prefix _s4361_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3003_ _)) => - match (string_drop _s3002_ _s3003_) with - | _s3004_ => - match (hex_bits_6_matches_prefix _s3004_) with - | Some ((nzi, existT _ _s3005_ _)) => - match (string_drop _s3004_ _s3005_) with - | s_ => Some ((rsd, nzi, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4362_ _) => + match (string_drop _s4361_ _s4362_) with + | _s4363_ => + match (hex_bits_6_matches_prefix _s4363_) with + | Some (nzi, existT _ _s4364_ _) => + match (string_drop _s4363_ _s4364_) with + | s_ => Some (rsd, nzi, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s2979_ (_s2980_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2981_ := _s2980_ in - (if ((string_startswith _s2981_ "c.sd")) then - (match (string_drop _s2981_ (projT1 (string_length "c.sd"))) with - | _s2982_ => - (spc_matches_prefix _s2982_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4338_ (_s4339_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s4340_ := _s4339_ in + (if string_startswith _s4340_ "c.sd" then + (match (string_drop _s4340_ (projT1 (string_length "c.sd"))) with + | _s4341_ => + (spc_matches_prefix _s4341_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2983_ _)) => - (match (string_drop _s2982_ _s2983_) with - | _s2984_ => - (creg_name_matches_prefix _s2984_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4342_ _) => + (match (string_drop _s4341_ _s4342_) with + | _s4343_ => + (creg_name_matches_prefix _s4343_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2985_ _)) => - (match (string_drop _s2984_ _s2985_) with - | _s2986_ => - (sep_matches_prefix _s2986_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s4344_ _) => + (match (string_drop _s4343_ _s4344_) with + | _s4345_ => + (sep_matches_prefix _s4345_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2987_ _)) => - (match (string_drop _s2986_ _s2987_) with - | _s2988_ => - (creg_name_matches_prefix _s2988_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4346_ _) => + (match (string_drop _s4345_ _s4346_) with + | _s4347_ => + (creg_name_matches_prefix _s4347_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2989_ _)) => - (match (string_drop _s2988_ _s2989_) with - | _s2990_ => - (sep_matches_prefix _s2990_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s4348_ _) => + (match (string_drop _s4347_ _s4348_) with + | _s4349_ => + (sep_matches_prefix _s4349_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2991_ _)) => - match (string_drop _s2990_ _s2991_) with - | _s2992_ => - match (hex_bits_8_matches_prefix _s2992_) with - | Some ((v__828, existT _ _s2993_ _)) => - if ((eq_vec - (subrange_vec_dec v__828 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__828 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__828 7 3 in - match (string_drop _s2992_ _s2993_) with - | s_ => Some ((rsc1, rsc2, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4350_ _) => + match (string_drop _s4349_ _s4350_) with + | _s4351_ => + match (hex_bits_8_matches_prefix _s4351_) with + | Some (v__1114, existT _ _s4352_ _) => + if eq_vec (subrange_vec_dec v__1114 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1114 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1114 7 3 in + match (string_drop _s4351_ _s4352_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2963_ (_s2964_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2965_ := _s2964_ in - (if ((string_startswith _s2965_ "c.sw")) then - (match (string_drop _s2965_ (projT1 (string_length "c.sw"))) with - | _s2966_ => - (spc_matches_prefix _s2966_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4322_ (_s4323_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s4324_ := _s4323_ in + (if string_startswith _s4324_ "c.sw" then + (match (string_drop _s4324_ (projT1 (string_length "c.sw"))) with + | _s4325_ => + (spc_matches_prefix _s4325_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2967_ _)) => - (match (string_drop _s2966_ _s2967_) with - | _s2968_ => - (creg_name_matches_prefix _s2968_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4326_ _) => + (match (string_drop _s4325_ _s4326_) with + | _s4327_ => + (creg_name_matches_prefix _s4327_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2969_ _)) => - (match (string_drop _s2968_ _s2969_) with - | _s2970_ => - (sep_matches_prefix _s2970_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s4328_ _) => + (match (string_drop _s4327_ _s4328_) with + | _s4329_ => + (sep_matches_prefix _s4329_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2971_ _)) => - (match (string_drop _s2970_ _s2971_) with - | _s2972_ => - (creg_name_matches_prefix _s2972_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4330_ _) => + (match (string_drop _s4329_ _s4330_) with + | _s4331_ => + (creg_name_matches_prefix _s4331_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2973_ _)) => - (match (string_drop _s2972_ _s2973_) with - | _s2974_ => - (sep_matches_prefix _s2974_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s4332_ _) => + (match (string_drop _s4331_ _s4332_) with + | _s4333_ => + (sep_matches_prefix _s4333_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2975_ _)) => - match (string_drop _s2974_ _s2975_) with - | _s2976_ => - match (hex_bits_7_matches_prefix _s2976_) with - | Some ((v__830, existT _ _s2977_ _)) => - if ((eq_vec - (subrange_vec_dec v__830 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__830 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__830 6 2 in - match (string_drop _s2976_ _s2977_) with - | s_ => Some ((rsc1, rsc2, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4334_ _) => + match (string_drop _s4333_ _s4334_) with + | _s4335_ => + match (hex_bits_7_matches_prefix _s4335_) with + | Some (v__1116, existT _ _s4336_ _) => + if eq_vec (subrange_vec_dec v__1116 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1116 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1116 6 2 in + match (string_drop _s4335_ _s4336_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2947_ (_s2948_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2949_ := _s2948_ in - (if ((string_startswith _s2949_ "c.ld")) then - (match (string_drop _s2949_ (projT1 (string_length "c.ld"))) with - | _s2950_ => - (spc_matches_prefix _s2950_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4306_ (_s4307_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s4308_ := _s4307_ in + (if string_startswith _s4308_ "c.ld" then + (match (string_drop _s4308_ (projT1 (string_length "c.ld"))) with + | _s4309_ => + (spc_matches_prefix _s4309_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2951_ _)) => - (match (string_drop _s2950_ _s2951_) with - | _s2952_ => - (creg_name_matches_prefix _s2952_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4310_ _) => + (match (string_drop _s4309_ _s4310_) with + | _s4311_ => + (creg_name_matches_prefix _s4311_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2953_ _)) => - (match (string_drop _s2952_ _s2953_) with - | _s2954_ => - (sep_matches_prefix _s2954_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s4312_ _) => + (match (string_drop _s4311_ _s4312_) with + | _s4313_ => + (sep_matches_prefix _s4313_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2955_ _)) => - (match (string_drop _s2954_ _s2955_) with - | _s2956_ => - (creg_name_matches_prefix _s2956_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4314_ _) => + (match (string_drop _s4313_ _s4314_) with + | _s4315_ => + (creg_name_matches_prefix _s4315_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2957_ _)) => - (match (string_drop _s2956_ _s2957_) with - | _s2958_ => - (sep_matches_prefix _s2958_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s4316_ _) => + (match (string_drop _s4315_ _s4316_) with + | _s4317_ => + (sep_matches_prefix _s4317_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2959_ _)) => - match (string_drop _s2958_ _s2959_) with - | _s2960_ => - match (hex_bits_8_matches_prefix _s2960_) with - | Some ((v__832, existT _ _s2961_ _)) => - if ((eq_vec - (subrange_vec_dec v__832 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__832 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__832 7 3 in - match (string_drop _s2960_ _s2961_) with - | s_ => Some ((rdc, rsc, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4318_ _) => + match (string_drop _s4317_ _s4318_) with + | _s4319_ => + match (hex_bits_8_matches_prefix _s4319_) with + | Some (v__1118, existT _ _s4320_ _) => + if eq_vec (subrange_vec_dec v__1118 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1118 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1118 7 3 in + match (string_drop _s4319_ _s4320_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2931_ (_s2932_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2933_ := _s2932_ in - (if ((string_startswith _s2933_ "c.lw")) then - (match (string_drop _s2933_ (projT1 (string_length "c.lw"))) with - | _s2934_ => - (spc_matches_prefix _s2934_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4290_ (_s4291_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s4292_ := _s4291_ in + (if string_startswith _s4292_ "c.lw" then + (match (string_drop _s4292_ (projT1 (string_length "c.lw"))) with + | _s4293_ => + (spc_matches_prefix _s4293_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2935_ _)) => - (match (string_drop _s2934_ _s2935_) with - | _s2936_ => - (creg_name_matches_prefix _s2936_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4294_ _) => + (match (string_drop _s4293_ _s4294_) with + | _s4295_ => + (creg_name_matches_prefix _s4295_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2937_ _)) => - (match (string_drop _s2936_ _s2937_) with - | _s2938_ => - (sep_matches_prefix _s2938_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s4296_ _) => + (match (string_drop _s4295_ _s4296_) with + | _s4297_ => + (sep_matches_prefix _s4297_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2939_ _)) => - (match (string_drop _s2938_ _s2939_) with - | _s2940_ => - (creg_name_matches_prefix _s2940_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4298_ _) => + (match (string_drop _s4297_ _s4298_) with + | _s4299_ => + (creg_name_matches_prefix _s4299_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2941_ _)) => - (match (string_drop _s2940_ _s2941_) with - | _s2942_ => - (sep_matches_prefix _s2942_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s4300_ _) => + (match (string_drop _s4299_ _s4300_) with + | _s4301_ => + (sep_matches_prefix _s4301_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2943_ _)) => - match (string_drop _s2942_ _s2943_) with - | _s2944_ => - match (hex_bits_7_matches_prefix _s2944_) with - | Some ((v__834, existT _ _s2945_ _)) => - if ((eq_vec - (subrange_vec_dec v__834 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__834 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__834 6 2 in - match (string_drop _s2944_ _s2945_) with - | s_ => Some ((rdc, rsc, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4302_ _) => + match (string_drop _s4301_ _s4302_) with + | _s4303_ => + match (hex_bits_7_matches_prefix _s4303_) with + | Some (v__1120, existT _ _s4304_ _) => + if eq_vec (subrange_vec_dec v__1120 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1120 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1120 6 2 in + match (string_drop _s4303_ _s4304_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2919_ (_s2920_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s2921_ := _s2920_ in - (if ((string_startswith _s2921_ "c.addi4spn")) then - (match (string_drop _s2921_ (projT1 (string_length "c.addi4spn"))) with - | _s2922_ => - (spc_matches_prefix _s2922_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4278_ (_s4279_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s4280_ := _s4279_ in + (if string_startswith _s4280_ "c.addi4spn" then + (match (string_drop _s4280_ (projT1 (string_length "c.addi4spn"))) with + | _s4281_ => + (spc_matches_prefix _s4281_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2923_ _)) => - (match (string_drop _s2922_ _s2923_) with - | _s2924_ => - (creg_name_matches_prefix _s2924_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4282_ _) => + (match (string_drop _s4281_ _s4282_) with + | _s4283_ => + (creg_name_matches_prefix _s4283_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2925_ _)) => - (match (string_drop _s2924_ _s2925_) with - | _s2926_ => - (sep_matches_prefix _s2926_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s4284_ _) => + (match (string_drop _s4283_ _s4284_) with + | _s4285_ => + (sep_matches_prefix _s4285_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2927_ _)) => - match (string_drop _s2926_ _s2927_) with - | _s2928_ => - match (hex_bits_10_matches_prefix _s2928_) with - | Some ((v__836, existT _ _s2929_ _)) => - if ((eq_vec (subrange_vec_dec v__836 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__836 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__836 9 2 in - match (string_drop _s2928_ _s2929_) with - | s_ => Some ((rdc, nzimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4286_ _) => + match (string_drop _s4285_ _s4286_) with + | _s4287_ => + match (hex_bits_10_matches_prefix _s4287_) with + | Some (v__1122, existT _ _s4288_ _) => + if eq_vec (subrange_vec_dec v__1122 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1122 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1122 9 2 in + match (string_drop _s4287_ _s4288_) with + | s_ => Some (rdc, nzimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s2915_ (_s2916_ : string) -: option string := - - let _s2917_ := _s2916_ in - if ((string_startswith _s2917_ "c.nop")) then - match (string_drop _s2917_ (projT1 (string_length "c.nop"))) with | s_ => Some (s_) end +Definition _s4274_ (_s4275_ : string) : option string := + let _s4276_ := _s4275_ in + if string_startswith _s4276_ "c.nop" then + match (string_drop _s4276_ (projT1 (string_length "c.nop"))) with | s_ => Some s_ end else None. -Definition _s2891_ (_s2892_ : string) +Definition _s4248_ (_s4249_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2892_ with - | _s2893_ => - (amo_mnemonic_matches_prefix _s2893_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s4249_ with + | _s4250_ => + (amo_mnemonic_matches_prefix _s4250_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2894_ _)) => - let _s2895_ := string_drop _s2893_ _s2894_ in - (if ((string_startswith _s2895_ ".")) then - (match (string_drop _s2895_ (projT1 (string_length "."))) with - | _s2896_ => - (size_mnemonic_matches_prefix _s2896_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4251_ _) => + let _s4252_ := string_drop _s4250_ _s4251_ in + (if string_startswith _s4252_ "." then + (match (string_drop _s4252_ (projT1 (string_length "."))) with + | _s4253_ => + (size_mnemonic_matches_prefix _s4253_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s2897_ _)) => - (match (string_drop _s2896_ _s2897_) with - | _s2898_ => - (maybe_aq_matches_prefix _s2898_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s4254_ _) => + (match (string_drop _s4253_ _s4254_) with + | _s4255_ => + (maybe_aq_matches_prefix _s4255_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2899_ _)) => - (match (string_drop _s2898_ _s2899_) with - | _s2900_ => - (maybe_rl_matches_prefix _s2900_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s4256_ _) => + (match (string_drop _s4255_ _s4256_) with + | _s4257_ => + (maybe_rl_matches_prefix _s4257_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2901_ _)) => - (match (string_drop _s2900_ _s2901_) with - | _s2902_ => - (spc_matches_prefix _s2902_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s4258_ _) => + (match (string_drop _s4257_ _s4258_) with + | _s4259_ => + (spc_matches_prefix _s4259_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2903_ _)) => - (match (string_drop _s2902_ _s2903_) with - | _s2904_ => - (reg_name_matches_prefix _s2904_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4260_ _) => + (match (string_drop _s4259_ _s4260_) with + | _s4261_ => + (reg_name_matches_prefix _s4261_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2905_ _)) => - (match (string_drop _s2904_ _s2905_) with - | _s2906_ => - (sep_matches_prefix _s2906_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4262_ _) => + (match (string_drop _s4261_ _s4262_) with + | _s4263_ => + (sep_matches_prefix _s4263_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2907_ _)) => - (match (string_drop _s2906_ _s2907_) with - | _s2908_ => - (reg_name_matches_prefix _s2908_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4264_ _) => + (match (string_drop _s4263_ _s4264_) with + | _s4265_ => + (reg_name_matches_prefix _s4265_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s2909_ _)) => - (match (string_drop _s2908_ - _s2909_) with - | _s2910_ => + | Some (rs2, existT _ _s4266_ _) => + (match (string_drop _s4265_ + _s4266_) with + | _s4267_ => (sep_matches_prefix - _s2910_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s4267_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2911_ _)) => - (match (string_drop - _s2910_ - _s2911_) with - | _s2912_ => - (reg_name_matches_prefix - _s2912_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s2913_ _)) => - match (string_drop - _s2912_ - _s2913_) with - | s_ => - Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) - end - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - end) + (tt, existT _ _s4268_ _) => + let _s4269_ := + string_drop _s4267_ + _s4268_ in + (if string_startswith + _s4269_ "(" then + (match (string_drop + _s4269_ + (projT1 + (string_length + "("))) with + | _s4270_ => + (reg_name_matches_prefix + _s4270_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s4271_ _) => + let _s4272_ := + string_drop + _s4270_ + _s4271_ in + if string_startswith + _s4272_ + ")" + then + match (string_drop + _s4272_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (op, width, aq, rl, rd, rs2, rs1, s_) + end + else + None + | _ => + None + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s2869_ (_s2870_ : string) +Definition _s4226_ (_s4227_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s2871_ := _s2870_ in - (if ((string_startswith _s2871_ "sc.")) then - (match (string_drop _s2871_ (projT1 (string_length "sc."))) with - | _s2872_ => - (size_mnemonic_matches_prefix _s2872_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s4228_ := _s4227_ in + (if string_startswith _s4228_ "sc." then + (match (string_drop _s4228_ (projT1 (string_length "sc."))) with + | _s4229_ => + (size_mnemonic_matches_prefix _s4229_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2873_ _)) => - (match (string_drop _s2872_ _s2873_) with - | _s2874_ => - (maybe_aq_matches_prefix _s2874_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s4230_ _) => + (match (string_drop _s4229_ _s4230_) with + | _s4231_ => + (maybe_aq_matches_prefix _s4231_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2875_ _)) => - (match (string_drop _s2874_ _s2875_) with - | _s2876_ => - (maybe_rl_matches_prefix _s2876_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s4232_ _) => + (match (string_drop _s4231_ _s4232_) with + | _s4233_ => + (maybe_rl_matches_prefix _s4233_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2877_ _)) => - (match (string_drop _s2876_ _s2877_) with - | _s2878_ => - (spc_matches_prefix _s2878_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s4234_ _) => + (match (string_drop _s4233_ _s4234_) with + | _s4235_ => + (spc_matches_prefix _s4235_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2879_ _)) => - (match (string_drop _s2878_ _s2879_) with - | _s2880_ => - (reg_name_matches_prefix _s2880_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4236_ _) => + (match (string_drop _s4235_ _s4236_) with + | _s4237_ => + (reg_name_matches_prefix _s4237_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s2881_ _)) => - (match (string_drop _s2880_ _s2881_) with - | _s2882_ => - (sep_matches_prefix _s2882_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4238_ _) => + (match (string_drop _s4237_ _s4238_) with + | _s4239_ => + (sep_matches_prefix _s4239_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2883_ _)) => - (match (string_drop _s2882_ _s2883_) with - | _s2884_ => - (reg_name_matches_prefix _s2884_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4240_ _) => + (match (string_drop _s4239_ _s4240_) with + | _s4241_ => + (reg_name_matches_prefix _s4241_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s2885_ _)) => - (match (string_drop _s2884_ _s2885_) with - | _s2886_ => - (sep_matches_prefix _s2886_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4242_ _) => + (match (string_drop _s4241_ _s4242_) with + | _s4243_ => + (sep_matches_prefix _s4243_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s2887_ _)) => - (match (string_drop _s2886_ - _s2887_) with - | _s2888_ => + | Some (tt, existT _ _s4244_ _) => + (match (string_drop _s4243_ + _s4244_) with + | _s4245_ => (reg_name_matches_prefix - _s2888_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s4245_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s2889_ _)) => - match (string_drop - _s2888_ - _s2889_) with - | s_ => - Some - ((size, aq, rl, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__8 with + | Some + (rs2, existT _ _s4246_ _) => + match (string_drop + _s4245_ + _s4246_) with + | s_ => + Some + (size, aq, rl, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s2851_ (_s2852_ : string) +Definition _s4208_ (_s4209_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) := - - let _s2853_ := _s2852_ in - (if ((string_startswith _s2853_ "lr.")) then - (match (string_drop _s2853_ (projT1 (string_length "lr."))) with - | _s2854_ => - (size_mnemonic_matches_prefix _s2854_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s4210_ := _s4209_ in + (if string_startswith _s4210_ "lr." then + (match (string_drop _s4210_ (projT1 (string_length "lr."))) with + | _s4211_ => + (size_mnemonic_matches_prefix _s4211_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2855_ _)) => - (match (string_drop _s2854_ _s2855_) with - | _s2856_ => - (maybe_aq_matches_prefix _s2856_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s4212_ _) => + (match (string_drop _s4211_ _s4212_) with + | _s4213_ => + (maybe_aq_matches_prefix _s4213_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2857_ _)) => - (match (string_drop _s2856_ _s2857_) with - | _s2858_ => - (maybe_rl_matches_prefix _s2858_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s4214_ _) => + (match (string_drop _s4213_ _s4214_) with + | _s4215_ => + (maybe_rl_matches_prefix _s4215_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2859_ _)) => - (match (string_drop _s2858_ _s2859_) with - | _s2860_ => - (spc_matches_prefix _s2860_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s4216_ _) => + (match (string_drop _s4215_ _s4216_) with + | _s4217_ => + (spc_matches_prefix _s4217_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2861_ _)) => - (match (string_drop _s2860_ _s2861_) with - | _s2862_ => - (reg_name_matches_prefix _s2862_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4218_ _) => + (match (string_drop _s4217_ _s4218_) with + | _s4219_ => + (reg_name_matches_prefix _s4219_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s2863_ _)) => - (match (string_drop _s2862_ _s2863_) with - | _s2864_ => - (sep_matches_prefix _s2864_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4220_ _) => + (match (string_drop _s4219_ _s4220_) with + | _s4221_ => + (sep_matches_prefix _s4221_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2865_ _)) => - (match (string_drop _s2864_ _s2865_) with - | _s2866_ => - (reg_name_matches_prefix _s2866_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4222_ _) => + (match (string_drop _s4221_ _s4222_) with + | _s4223_ => + (reg_name_matches_prefix _s4223_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s2867_ _)) => - match (string_drop _s2866_ - _s2867_) with - | s_ => - Some - ((size, aq, rl, rd, rs1, s_)) - end - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs1, existT _ _s4224_ _) => + match (string_drop _s4223_ + _s4224_) with + | s_ => + Some + (size, aq, rl, rd, rs1, s_) + end + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))). -Definition _s2839_ (_s2840_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s2841_ := _s2840_ in - (if ((string_startswith _s2841_ "sfence.vma")) then - (match (string_drop _s2841_ (projT1 (string_length "sfence.vma"))) with - | _s2842_ => - (spc_matches_prefix _s2842_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4196_ (_s4197_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s4198_ := _s4197_ in + (if string_startswith _s4198_ "sfence.vma" then + (match (string_drop _s4198_ (projT1 (string_length "sfence.vma"))) with + | _s4199_ => + (spc_matches_prefix _s4199_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2843_ _)) => - (match (string_drop _s2842_ _s2843_) with - | _s2844_ => - (reg_name_matches_prefix _s2844_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4200_ _) => + (match (string_drop _s4199_ _s4200_) with + | _s4201_ => + (reg_name_matches_prefix _s4201_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s2845_ _)) => - (match (string_drop _s2844_ _s2845_) with - | _s2846_ => - (sep_matches_prefix _s2846_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4202_ _) => + (match (string_drop _s4201_ _s4202_) with + | _s4203_ => + (sep_matches_prefix _s4203_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2847_ _)) => - (match (string_drop _s2846_ _s2847_) with - | _s2848_ => - (reg_name_matches_prefix _s2848_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4204_ _) => + (match (string_drop _s4203_ _s4204_) with + | _s4205_ => + (reg_name_matches_prefix _s4205_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2849_ _)) => - match (string_drop _s2848_ _s2849_) with - | s_ => Some ((rs1, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s4206_ _) => + match (string_drop _s4205_ _s4206_) with + | s_ => Some (rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s2835_ (_s2836_ : string) -: option string := - - let _s2837_ := _s2836_ in - if ((string_startswith _s2837_ "wfi")) then - match (string_drop _s2837_ (projT1 (string_length "wfi"))) with | s_ => Some (s_) end - else None. - -Definition _s2831_ (_s2832_ : string) -: option string := - - let _s2833_ := _s2832_ in - if ((string_startswith _s2833_ "ebreak")) then - match (string_drop _s2833_ (projT1 (string_length "ebreak"))) with | s_ => Some (s_) end - else None. - -Definition _s2827_ (_s2828_ : string) -: option string := - - let _s2829_ := _s2828_ in - if ((string_startswith _s2829_ "sret")) then - match (string_drop _s2829_ (projT1 (string_length "sret"))) with | s_ => Some (s_) end - else None. - -Definition _s2823_ (_s2824_ : string) -: option string := - - let _s2825_ := _s2824_ in - if ((string_startswith _s2825_ "mret")) then - match (string_drop _s2825_ (projT1 (string_length "mret"))) with | s_ => Some (s_) end - else None. - -Definition _s2819_ (_s2820_ : string) -: option string := - - let _s2821_ := _s2820_ in - if ((string_startswith _s2821_ "ecall")) then - match (string_drop _s2821_ (projT1 (string_length "ecall"))) with | s_ => Some (s_) end - else None. - -Definition _s2815_ (_s2816_ : string) -: option string := - - let _s2817_ := _s2816_ in - if ((string_startswith _s2817_ "fence.i")) then - match (string_drop _s2817_ (projT1 (string_length "fence.i"))) with | s_ => Some (s_) end - else None. - -Definition _s2803_ (_s2804_ : string) -: M (option ((mword 4 * mword 4 * string))) := - - let _s2805_ := _s2804_ in - (if ((string_startswith _s2805_ "fence.tso")) then - (match (string_drop _s2805_ (projT1 (string_length "fence.tso"))) with - | _s2806_ => - (spc_matches_prefix _s2806_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4192_ (_s4193_ : string) : option string := + let _s4194_ := _s4193_ in + if string_startswith _s4194_ "wfi" then + match (string_drop _s4194_ (projT1 (string_length "wfi"))) with | s_ => Some s_ end + else None. + +Definition _s4188_ (_s4189_ : string) : option string := + let _s4190_ := _s4189_ in + if string_startswith _s4190_ "ebreak" then + match (string_drop _s4190_ (projT1 (string_length "ebreak"))) with | s_ => Some s_ end + else None. + +Definition _s4184_ (_s4185_ : string) : option string := + let _s4186_ := _s4185_ in + if string_startswith _s4186_ "sret" then + match (string_drop _s4186_ (projT1 (string_length "sret"))) with | s_ => Some s_ end + else None. + +Definition _s4180_ (_s4181_ : string) : option string := + let _s4182_ := _s4181_ in + if string_startswith _s4182_ "mret" then + match (string_drop _s4182_ (projT1 (string_length "mret"))) with | s_ => Some s_ end + else None. + +Definition _s4176_ (_s4177_ : string) : option string := + let _s4178_ := _s4177_ in + if string_startswith _s4178_ "ecall" then + match (string_drop _s4178_ (projT1 (string_length "ecall"))) with | s_ => Some s_ end + else None. + +Definition _s4172_ (_s4173_ : string) : option string := + let _s4174_ := _s4173_ in + if string_startswith _s4174_ "fence.i" then + match (string_drop _s4174_ (projT1 (string_length "fence.i"))) with | s_ => Some s_ end + else None. + +Definition _s4160_ (_s4161_ : string) : M (option ((mword 4 * mword 4 * string))) := + let _s4162_ := _s4161_ in + (if string_startswith _s4162_ "fence.tso" then + (match (string_drop _s4162_ (projT1 (string_length "fence.tso"))) with + | _s4163_ => + (spc_matches_prefix _s4163_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2807_ _)) => - (match (string_drop _s2806_ _s2807_) with - | _s2808_ => - (fence_bits_matches_prefix _s2808_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4164_ _) => + (match (string_drop _s4163_ _s4164_) with + | _s4165_ => + (fence_bits_matches_prefix _s4165_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s2809_ _)) => - (match (string_drop _s2808_ _s2809_) with - | _s2810_ => - (sep_matches_prefix _s2810_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s4166_ _) => + (match (string_drop _s4165_ _s4166_) with + | _s4167_ => + (sep_matches_prefix _s4167_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2811_ _)) => - (match (string_drop _s2810_ _s2811_) with - | _s2812_ => - (fence_bits_matches_prefix _s2812_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4168_ _) => + (match (string_drop _s4167_ _s4168_) with + | _s4169_ => + (fence_bits_matches_prefix _s4169_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s2813_ _)) => - match (string_drop _s2812_ _s2813_) with - | s_ => Some ((pred, succ, s_)) - end - | _ => None - end) - : option ((mword 4 * mword 4 * string))) + returnm (match w__3 with + | Some (succ, existT _ _s4170_ _) => + match (string_drop _s4169_ _s4170_) with + | s_ => Some (pred, succ, s_) + end + | _ => None + end) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - else returnm (None : option ((mword 4 * mword 4 * string)))) + else returnm None) : M (option ((mword 4 * mword 4 * string))). -Definition _s2791_ (_s2792_ : string) -: M (option ((mword 4 * mword 4 * string))) := - - let _s2793_ := _s2792_ in - (if ((string_startswith _s2793_ "fence")) then - (match (string_drop _s2793_ (projT1 (string_length "fence"))) with - | _s2794_ => - (spc_matches_prefix _s2794_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4148_ (_s4149_ : string) : M (option ((mword 4 * mword 4 * string))) := + let _s4150_ := _s4149_ in + (if string_startswith _s4150_ "fence" then + (match (string_drop _s4150_ (projT1 (string_length "fence"))) with + | _s4151_ => + (spc_matches_prefix _s4151_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2795_ _)) => - (match (string_drop _s2794_ _s2795_) with - | _s2796_ => - (fence_bits_matches_prefix _s2796_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4152_ _) => + (match (string_drop _s4151_ _s4152_) with + | _s4153_ => + (fence_bits_matches_prefix _s4153_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s2797_ _)) => - (match (string_drop _s2796_ _s2797_) with - | _s2798_ => - (sep_matches_prefix _s2798_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s4154_ _) => + (match (string_drop _s4153_ _s4154_) with + | _s4155_ => + (sep_matches_prefix _s4155_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2799_ _)) => - (match (string_drop _s2798_ _s2799_) with - | _s2800_ => - (fence_bits_matches_prefix _s2800_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4156_ _) => + (match (string_drop _s4155_ _s4156_) with + | _s4157_ => + (fence_bits_matches_prefix _s4157_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s2801_ _)) => - match (string_drop _s2800_ _s2801_) with - | s_ => Some ((pred, succ, s_)) - end - | _ => None - end) - : option ((mword 4 * mword 4 * string))) + returnm (match w__3 with + | Some (succ, existT _ _s4158_ _) => + match (string_drop _s4157_ _s4158_) with + | s_ => Some (pred, succ, s_) + end + | _ => None + end) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - else returnm (None : option ((mword 4 * mword 4 * string)))) + else returnm None) : M (option ((mword 4 * mword 4 * string))). -Definition _s2774_ (_s2775_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2775_ with - | _s2776_ => - (shiftiwop_mnemonic_matches_prefix _s2776_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s4131_ (_s4132_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) := + (match _s4132_ with + | _s4133_ => + (shiftiwop_mnemonic_matches_prefix _s4133_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2777_ _)) => - (match (string_drop _s2776_ _s2777_) with - | _s2778_ => - (spc_matches_prefix _s2778_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4134_ _) => + (match (string_drop _s4133_ _s4134_) with + | _s4135_ => + (spc_matches_prefix _s4135_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2779_ _)) => - (match (string_drop _s2778_ _s2779_) with - | _s2780_ => - (reg_name_matches_prefix _s2780_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4136_ _) => + (match (string_drop _s4135_ _s4136_) with + | _s4137_ => + (reg_name_matches_prefix _s4137_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2781_ _)) => - (match (string_drop _s2780_ _s2781_) with - | _s2782_ => - (sep_matches_prefix _s2782_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4138_ _) => + (match (string_drop _s4137_ _s4138_) with + | _s4139_ => + (sep_matches_prefix _s4139_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2783_ _)) => - (match (string_drop _s2782_ _s2783_) with - | _s2784_ => - (reg_name_matches_prefix _s2784_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4140_ _) => + (match (string_drop _s4139_ _s4140_) with + | _s4141_ => + (reg_name_matches_prefix _s4141_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2785_ _)) => - (match (string_drop _s2784_ _s2785_) with - | _s2786_ => - (sep_matches_prefix _s2786_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4142_ _) => + (match (string_drop _s4141_ _s4142_) with + | _s4143_ => + (sep_matches_prefix _s4143_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2787_ _)) => - match (string_drop _s2786_ _s2787_) with - | _s2788_ => - match (hex_bits_5_matches_prefix - _s2788_) with - | Some ((shamt, existT _ _s2789_ _)) => - match (string_drop _s2788_ _s2789_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s4144_ _) => + match (string_drop _s4143_ _s4144_) with + | _s4145_ => + match (hex_bits_5_matches_prefix + _s4145_) with + | Some (shamt, existT _ _s4146_ _) => + match (string_drop _s4145_ _s4146_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))). -Definition _s2757_ (_s2758_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2758_ with - | _s2759_ => - (rtypew_mnemonic_matches_prefix _s2759_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s4114_ (_s4115_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) := + (match _s4115_ with + | _s4116_ => + (rtypew_mnemonic_matches_prefix _s4116_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2760_ _)) => - (match (string_drop _s2759_ _s2760_) with - | _s2761_ => - (spc_matches_prefix _s2761_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4117_ _) => + (match (string_drop _s4116_ _s4117_) with + | _s4118_ => + (spc_matches_prefix _s4118_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2762_ _)) => - (match (string_drop _s2761_ _s2762_) with - | _s2763_ => - (reg_name_matches_prefix _s2763_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4119_ _) => + (match (string_drop _s4118_ _s4119_) with + | _s4120_ => + (reg_name_matches_prefix _s4120_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2764_ _)) => - (match (string_drop _s2763_ _s2764_) with - | _s2765_ => - (sep_matches_prefix _s2765_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4121_ _) => + (match (string_drop _s4120_ _s4121_) with + | _s4122_ => + (sep_matches_prefix _s4122_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2766_ _)) => - (match (string_drop _s2765_ _s2766_) with - | _s2767_ => - (reg_name_matches_prefix _s2767_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4123_ _) => + (match (string_drop _s4122_ _s4123_) with + | _s4124_ => + (reg_name_matches_prefix _s4124_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2768_ _)) => - (match (string_drop _s2767_ _s2768_) with - | _s2769_ => - (sep_matches_prefix _s2769_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4125_ _) => + (match (string_drop _s4124_ _s4125_) with + | _s4126_ => + (sep_matches_prefix _s4126_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2770_ _)) => - (match (string_drop _s2769_ _s2770_) with - | _s2771_ => - (reg_name_matches_prefix _s2771_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4127_ _) => + (match (string_drop _s4126_ _s4127_) with + | _s4128_ => + (reg_name_matches_prefix _s4128_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2772_ _)) => - match (string_drop _s2771_ - _s2772_) with - | s_ => - Some ((op, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s4129_ _) => + match (string_drop _s4128_ + _s4129_) with + | s_ => + Some (op, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))). -Definition _s2740_ (_s2741_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2741_ with - | _s2742_ => - (shiftw_mnemonic_matches_prefix _s2742_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s4097_ (_s4098_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) := + (match _s4098_ with + | _s4099_ => + (shiftw_mnemonic_matches_prefix _s4099_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2743_ _)) => - (match (string_drop _s2742_ _s2743_) with - | _s2744_ => - (spc_matches_prefix _s2744_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4100_ _) => + (match (string_drop _s4099_ _s4100_) with + | _s4101_ => + (spc_matches_prefix _s4101_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2745_ _)) => - (match (string_drop _s2744_ _s2745_) with - | _s2746_ => - (reg_name_matches_prefix _s2746_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4102_ _) => + (match (string_drop _s4101_ _s4102_) with + | _s4103_ => + (reg_name_matches_prefix _s4103_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2747_ _)) => - (match (string_drop _s2746_ _s2747_) with - | _s2748_ => - (sep_matches_prefix _s2748_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4104_ _) => + (match (string_drop _s4103_ _s4104_) with + | _s4105_ => + (sep_matches_prefix _s4105_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2749_ _)) => - (match (string_drop _s2748_ _s2749_) with - | _s2750_ => - (reg_name_matches_prefix _s2750_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4106_ _) => + (match (string_drop _s4105_ _s4106_) with + | _s4107_ => + (reg_name_matches_prefix _s4107_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2751_ _)) => - (match (string_drop _s2750_ _s2751_) with - | _s2752_ => - (sep_matches_prefix _s2752_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4108_ _) => + (match (string_drop _s4107_ _s4108_) with + | _s4109_ => + (sep_matches_prefix _s4109_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2753_ _)) => - match (string_drop _s2752_ _s2753_) with - | _s2754_ => - match (hex_bits_5_matches_prefix - _s2754_) with - | Some ((shamt, existT _ _s2755_ _)) => - match (string_drop _s2754_ _s2755_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s4110_ _) => + match (string_drop _s4109_ _s4110_) with + | _s4111_ => + match (hex_bits_5_matches_prefix + _s4111_) with + | Some (shamt, existT _ _s4112_ _) => + match (string_drop _s4111_ _s4112_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))). -Definition _s2724_ (_s2725_ : string) -: M (option ((mword 5 * mword 5 * mword 12 * string))) := - - let _s2726_ := _s2725_ in - (if ((string_startswith _s2726_ "addiw")) then - (match (string_drop _s2726_ (projT1 (string_length "addiw"))) with - | _s2727_ => - (spc_matches_prefix _s2727_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4081_ (_s4082_ : string) : M (option ((mword 5 * mword 5 * mword 12 * string))) := + let _s4083_ := _s4082_ in + (if string_startswith _s4083_ "addiw" then + (match (string_drop _s4083_ (projT1 (string_length "addiw"))) with + | _s4084_ => + (spc_matches_prefix _s4084_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2728_ _)) => - (match (string_drop _s2727_ _s2728_) with - | _s2729_ => - (reg_name_matches_prefix _s2729_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4085_ _) => + (match (string_drop _s4084_ _s4085_) with + | _s4086_ => + (reg_name_matches_prefix _s4086_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2730_ _)) => - (match (string_drop _s2729_ _s2730_) with - | _s2731_ => - (sep_matches_prefix _s2731_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4087_ _) => + (match (string_drop _s4086_ _s4087_) with + | _s4088_ => + (sep_matches_prefix _s4088_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2732_ _)) => - (match (string_drop _s2731_ _s2732_) with - | _s2733_ => - (reg_name_matches_prefix _s2733_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4089_ _) => + (match (string_drop _s4088_ _s4089_) with + | _s4090_ => + (reg_name_matches_prefix _s4090_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2734_ _)) => - (match (string_drop _s2733_ _s2734_) with - | _s2735_ => - (sep_matches_prefix _s2735_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4091_ _) => + (match (string_drop _s4090_ _s4091_) with + | _s4092_ => + (sep_matches_prefix _s4092_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2736_ _)) => - match (string_drop _s2735_ _s2736_) with - | _s2737_ => - match (hex_bits_12_matches_prefix _s2737_) with - | Some ((imm, existT _ _s2738_ _)) => - match (string_drop _s2737_ _s2738_) with - | s_ => Some ((rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4093_ _) => + match (string_drop _s4092_ _s4093_) with + | _s4094_ => + match (hex_bits_12_matches_prefix _s4094_) with + | Some (imm, existT _ _s4095_ _) => + match (string_drop _s4094_ _s4095_) with + | s_ => Some (rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 12 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12 * string))). -Definition _s2696_ (_s2697_ : string) +Definition _s4053_ (_s4054_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) := - - let _s2698_ := _s2697_ in - (if ((string_startswith _s2698_ "s")) then - (match (string_drop _s2698_ (projT1 (string_length "s"))) with - | _s2699_ => - (size_mnemonic_matches_prefix _s2699_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s4055_ := _s4054_ in + (if string_startswith _s4055_ "s" then + (match (string_drop _s4055_ (projT1 (string_length "s"))) with + | _s4056_ => + (size_mnemonic_matches_prefix _s4056_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2700_ _)) => - (match (string_drop _s2699_ _s2700_) with - | _s2701_ => - (maybe_aq_matches_prefix _s2701_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s4057_ _) => + (match (string_drop _s4056_ _s4057_) with + | _s4058_ => + (maybe_aq_matches_prefix _s4058_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2702_ _)) => - (match (string_drop _s2701_ _s2702_) with - | _s2703_ => - (maybe_rl_matches_prefix _s2703_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s4059_ _) => + (match (string_drop _s4058_ _s4059_) with + | _s4060_ => + (maybe_rl_matches_prefix _s4060_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2704_ _)) => - (match (string_drop _s2703_ _s2704_) with - | _s2705_ => - (spc_matches_prefix _s2705_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s4061_ _) => + (match (string_drop _s4060_ _s4061_) with + | _s4062_ => + (spc_matches_prefix _s4062_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2706_ _)) => - (match (string_drop _s2705_ _s2706_) with - | _s2707_ => - (reg_name_matches_prefix _s2707_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4063_ _) => + (match (string_drop _s4062_ _s4063_) with + | _s4064_ => + (reg_name_matches_prefix _s4064_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s2708_ _)) => - (match (string_drop _s2707_ _s2708_) with - | _s2709_ => - (sep_matches_prefix _s2709_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s4065_ _) => + (match (string_drop _s4064_ _s4065_) with + | _s4066_ => + (sep_matches_prefix _s4066_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2710_ _)) => - (match (string_drop _s2709_ _s2710_) with - | _s2711_ => - (match (hex_bits_12_matches_prefix _s2711_) with - | Some ((imm, existT _ _s2712_ _)) => - (match (string_drop _s2711_ _s2712_) with - | _s2713_ => - (opt_spc_matches_prefix _s2713_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4067_ _) => + (match (string_drop _s4066_ _s4067_) with + | _s4068_ => + (match (hex_bits_12_matches_prefix _s4068_) with + | Some (imm, existT _ _s4069_ _) => + (match (string_drop _s4068_ _s4069_) with + | _s4070_ => + (opt_spc_matches_prefix _s4070_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2714_ _)) => - let _s2715_ := - string_drop _s2713_ _s2714_ in - (if ((string_startswith - _s2715_ "(")) then - (match (string_drop _s2715_ + | Some (tt, existT _ _s4071_ _) => + let _s4072_ := + string_drop _s4070_ _s4071_ in + (if string_startswith _s4072_ + "(" then + (match (string_drop _s4072_ (projT1 (string_length "("))) with - | _s2716_ => + | _s4073_ => (opt_spc_matches_prefix - _s2716_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s4073_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s2717_ _)) => + (tt, existT _ _s4074_ _) => (match (string_drop - _s2716_ - _s2717_) with - | _s2718_ => + _s4073_ + _s4074_) with + | _s4075_ => (reg_name_matches_prefix - _s2718_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s4075_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s2719_ _)) => + (rs1, existT _ _s4076_ _) => (match (string_drop - _s2718_ - _s2719_) with - | _s2720_ => + _s4075_ + _s4076_) with + | _s4077_ => (opt_spc_matches_prefix - _s2720_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s4077_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s2721_ _)) => - let _s2722_ := - string_drop - _s2720_ - _s2721_ in - if - ((string_startswith - _s2722_ - ")")) - then - match (string_drop - _s2722_ - (projT1 - (string_length - ")"))) with - | s_ => - Some - ((size, aq, rl, rs2, imm, rs1, s_)) - end - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm (match w__9 with + | Some + (tt, existT _ _s4078_ _) => + let _s4079_ := + string_drop + _s4077_ + _s4078_ in + if + string_startswith + _s4079_ + ")" + then + match (string_drop + _s4079_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (size, aq, rl, rs2, imm, rs1, s_) + end + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))). -Definition _s2666_ (_s2667_ : string) +Definition _s4023_ (_s4024_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) := - - let _s2668_ := _s2667_ in - (if ((string_startswith _s2668_ "l")) then - (match (string_drop _s2668_ (projT1 (string_length "l"))) with - | _s2669_ => - (size_mnemonic_matches_prefix _s2669_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s4025_ := _s4024_ in + (if string_startswith _s4025_ "l" then + (match (string_drop _s4025_ (projT1 (string_length "l"))) with + | _s4026_ => + (size_mnemonic_matches_prefix _s4026_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2670_ _)) => - (match (string_drop _s2669_ _s2670_) with - | _s2671_ => - (maybe_u_matches_prefix _s2671_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s4027_ _) => + (match (string_drop _s4026_ _s4027_) with + | _s4028_ => + (maybe_u_matches_prefix _s4028_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s2672_ _)) => - (match (string_drop _s2671_ _s2672_) with - | _s2673_ => - (maybe_aq_matches_prefix _s2673_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s4029_ _) => + (match (string_drop _s4028_ _s4029_) with + | _s4030_ => + (maybe_aq_matches_prefix _s4030_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2674_ _)) => - (match (string_drop _s2673_ _s2674_) with - | _s2675_ => - (maybe_rl_matches_prefix _s2675_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s4031_ _) => + (match (string_drop _s4030_ _s4031_) with + | _s4032_ => + (maybe_rl_matches_prefix _s4032_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2676_ _)) => - (match (string_drop _s2675_ _s2676_) with - | _s2677_ => - (spc_matches_prefix _s2677_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s4033_ _) => + (match (string_drop _s4032_ _s4033_) with + | _s4034_ => + (spc_matches_prefix _s4034_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2678_ _)) => - (match (string_drop _s2677_ _s2678_) with - | _s2679_ => - (reg_name_matches_prefix _s2679_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4035_ _) => + (match (string_drop _s4034_ _s4035_) with + | _s4036_ => + (reg_name_matches_prefix _s4036_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2680_ _)) => - (match (string_drop _s2679_ _s2680_) with - | _s2681_ => - (sep_matches_prefix _s2681_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4037_ _) => + (match (string_drop _s4036_ _s4037_) with + | _s4038_ => + (sep_matches_prefix _s4038_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2682_ _)) => - (match (string_drop _s2681_ _s2682_) with - | _s2683_ => + | Some (tt, existT _ _s4039_ _) => + (match (string_drop _s4038_ _s4039_) with + | _s4040_ => (match (hex_bits_12_matches_prefix - _s2683_) with - | Some - ((imm, existT _ _s2684_ _)) => - (match (string_drop _s2683_ - _s2684_) with - | _s2685_ => + _s4040_) with + | Some (imm, existT _ _s4041_ _) => + (match (string_drop _s4040_ + _s4041_) with + | _s4042_ => (opt_spc_matches_prefix - _s2685_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s4042_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s2686_ _)) => - let _s2687_ := - string_drop _s2685_ - _s2686_ in - (if ((string_startswith - _s2687_ "(")) - then + (tt, existT _ _s4043_ _) => + let _s4044_ := + string_drop _s4042_ + _s4043_ in + (if string_startswith + _s4044_ "(" then (match (string_drop - _s2687_ + _s4044_ (projT1 (string_length "("))) with - | _s2688_ => + | _s4045_ => (opt_spc_matches_prefix - _s2688_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s4045_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2689_ _)) => + (tt, existT _ _s4046_ _) => (match (string_drop - _s2688_ - _s2689_) with - | _s2690_ => + _s4045_ + _s4046_) with + | _s4047_ => (reg_name_matches_prefix - _s2690_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s4047_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s2691_ _)) => + (rs1, existT _ _s4048_ _) => (match (string_drop - _s2690_ - _s2691_) with - | _s2692_ => + _s4047_ + _s4048_) with + | _s4049_ => (opt_spc_matches_prefix - _s2692_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s4049_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s2693_ _)) => - let _s2694_ := - string_drop - _s2692_ - _s2693_ in - if - ((string_startswith - _s2694_ - ")")) - then - match (string_drop - _s2694_ - (projT1 - (string_length - ")"))) with - | s_ => - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) - end - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm (match w__10 with + | Some + (tt, existT _ _s4050_ _) => + let _s4051_ := + string_drop + _s4049_ + _s4050_ in + if + string_startswith + _s4051_ + ")" + then + match (string_drop + _s4051_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (size, is_unsigned, aq, rl, rd, imm, rs1, s_) + end + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))). -Definition _s2649_ (_s2650_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2650_ with - | _s2651_ => - (rtype_mnemonic_matches_prefix _s2651_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s4006_ (_s4007_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) := + (match _s4007_ with + | _s4008_ => + (rtype_mnemonic_matches_prefix _s4008_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2652_ _)) => - (match (string_drop _s2651_ _s2652_) with - | _s2653_ => - (spc_matches_prefix _s2653_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4009_ _) => + (match (string_drop _s4008_ _s4009_) with + | _s4010_ => + (spc_matches_prefix _s4010_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2654_ _)) => - (match (string_drop _s2653_ _s2654_) with - | _s2655_ => - (reg_name_matches_prefix _s2655_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4011_ _) => + (match (string_drop _s4010_ _s4011_) with + | _s4012_ => + (reg_name_matches_prefix _s4012_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2656_ _)) => - (match (string_drop _s2655_ _s2656_) with - | _s2657_ => - (sep_matches_prefix _s2657_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4013_ _) => + (match (string_drop _s4012_ _s4013_) with + | _s4014_ => + (sep_matches_prefix _s4014_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2658_ _)) => - (match (string_drop _s2657_ _s2658_) with - | _s2659_ => - (reg_name_matches_prefix _s2659_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4015_ _) => + (match (string_drop _s4014_ _s4015_) with + | _s4016_ => + (reg_name_matches_prefix _s4016_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2660_ _)) => - (match (string_drop _s2659_ _s2660_) with - | _s2661_ => - (sep_matches_prefix _s2661_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4017_ _) => + (match (string_drop _s4016_ _s4017_) with + | _s4018_ => + (sep_matches_prefix _s4018_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2662_ _)) => - (match (string_drop _s2661_ _s2662_) with - | _s2663_ => - (reg_name_matches_prefix _s2663_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4019_ _) => + (match (string_drop _s4018_ _s4019_) with + | _s4020_ => + (reg_name_matches_prefix _s4020_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2664_ _)) => - match (string_drop _s2663_ - _s2664_) with - | s_ => - Some ((op, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s4021_ _) => + match (string_drop _s4020_ + _s4021_) with + | s_ => + Some (op, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))). -Definition _s2632_ (_s2633_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6 * string))) := - - (match _s2633_ with - | _s2634_ => - (shiftiop_mnemonic_matches_prefix _s2634_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s3989_ (_s3990_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) := + (match _s3990_ with + | _s3991_ => + (shiftiop_mnemonic_matches_prefix _s3991_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2635_ _)) => - (match (string_drop _s2634_ _s2635_) with - | _s2636_ => - (spc_matches_prefix _s2636_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3992_ _) => + (match (string_drop _s3991_ _s3992_) with + | _s3993_ => + (spc_matches_prefix _s3993_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2637_ _)) => - (match (string_drop _s2636_ _s2637_) with - | _s2638_ => - (reg_name_matches_prefix _s2638_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3994_ _) => + (match (string_drop _s3993_ _s3994_) with + | _s3995_ => + (reg_name_matches_prefix _s3995_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2639_ _)) => - (match (string_drop _s2638_ _s2639_) with - | _s2640_ => - (sep_matches_prefix _s2640_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3996_ _) => + (match (string_drop _s3995_ _s3996_) with + | _s3997_ => + (sep_matches_prefix _s3997_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2641_ _)) => - (match (string_drop _s2640_ _s2641_) with - | _s2642_ => - (reg_name_matches_prefix _s2642_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3998_ _) => + (match (string_drop _s3997_ _s3998_) with + | _s3999_ => + (reg_name_matches_prefix _s3999_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2643_ _)) => - (match (string_drop _s2642_ _s2643_) with - | _s2644_ => - (sep_matches_prefix _s2644_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4000_ _) => + (match (string_drop _s3999_ _s4000_) with + | _s4001_ => + (sep_matches_prefix _s4001_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2645_ _)) => - match (string_drop _s2644_ _s2645_) with - | _s2646_ => - match (hex_bits_6_matches_prefix - _s2646_) with - | Some ((shamt, existT _ _s2647_ _)) => - match (string_drop _s2646_ _s2647_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s4002_ _) => + match (string_drop _s4001_ _s4002_) with + | _s4003_ => + match (hex_bits_6_matches_prefix + _s4003_) with + | Some (shamt, existT _ _s4004_ _) => + match (string_drop _s4003_ _s4004_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))). -Definition _s2615_ (_s2616_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s2616_ with - | _s2617_ => - (itype_mnemonic_matches_prefix _s2617_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s3972_ (_s3973_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) := + (match _s3973_ with + | _s3974_ => + (itype_mnemonic_matches_prefix _s3974_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2618_ _)) => - (match (string_drop _s2617_ _s2618_) with - | _s2619_ => - (spc_matches_prefix _s2619_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3975_ _) => + (match (string_drop _s3974_ _s3975_) with + | _s3976_ => + (spc_matches_prefix _s3976_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2620_ _)) => - (match (string_drop _s2619_ _s2620_) with - | _s2621_ => - (reg_name_matches_prefix _s2621_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3977_ _) => + (match (string_drop _s3976_ _s3977_) with + | _s3978_ => + (reg_name_matches_prefix _s3978_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2622_ _)) => - (match (string_drop _s2621_ _s2622_) with - | _s2623_ => - (sep_matches_prefix _s2623_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3979_ _) => + (match (string_drop _s3978_ _s3979_) with + | _s3980_ => + (sep_matches_prefix _s3980_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2624_ _)) => - (match (string_drop _s2623_ _s2624_) with - | _s2625_ => - (reg_name_matches_prefix _s2625_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3981_ _) => + (match (string_drop _s3980_ _s3981_) with + | _s3982_ => + (reg_name_matches_prefix _s3982_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2626_ _)) => - (match (string_drop _s2625_ _s2626_) with - | _s2627_ => - (sep_matches_prefix _s2627_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3983_ _) => + (match (string_drop _s3982_ _s3983_) with + | _s3984_ => + (sep_matches_prefix _s3984_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2628_ _)) => - match (string_drop _s2627_ _s2628_) with - | _s2629_ => - match (hex_bits_12_matches_prefix - _s2629_) with - | Some ((imm, existT _ _s2630_ _)) => - match (string_drop _s2629_ _s2630_) with - | s_ => - Some ((op, rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s3985_ _) => + match (string_drop _s3984_ _s3985_) with + | _s3986_ => + match (hex_bits_12_matches_prefix + _s3986_) with + | Some (imm, existT _ _s3987_ _) => + match (string_drop _s3986_ _s3987_) with + | s_ => Some (op, rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))). -Definition _s2598_ (_s2599_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13 * string))) := - - (match _s2599_ with - | _s2600_ => - (btype_mnemonic_matches_prefix _s2600_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s3955_ (_s3956_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) := + (match _s3956_ with + | _s3957_ => + (btype_mnemonic_matches_prefix _s3957_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2601_ _)) => - (match (string_drop _s2600_ _s2601_) with - | _s2602_ => - (spc_matches_prefix _s2602_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3958_ _) => + (match (string_drop _s3957_ _s3958_) with + | _s3959_ => + (spc_matches_prefix _s3959_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2603_ _)) => - (match (string_drop _s2602_ _s2603_) with - | _s2604_ => - (reg_name_matches_prefix _s2604_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3960_ _) => + (match (string_drop _s3959_ _s3960_) with + | _s3961_ => + (reg_name_matches_prefix _s3961_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s2605_ _)) => - (match (string_drop _s2604_ _s2605_) with - | _s2606_ => - (sep_matches_prefix _s2606_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3962_ _) => + (match (string_drop _s3961_ _s3962_) with + | _s3963_ => + (sep_matches_prefix _s3963_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2607_ _)) => - (match (string_drop _s2606_ _s2607_) with - | _s2608_ => - (reg_name_matches_prefix _s2608_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3964_ _) => + (match (string_drop _s3963_ _s3964_) with + | _s3965_ => + (reg_name_matches_prefix _s3965_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s2609_ _)) => - (match (string_drop _s2608_ _s2609_) with - | _s2610_ => - (sep_matches_prefix _s2610_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3966_ _) => + (match (string_drop _s3965_ _s3966_) with + | _s3967_ => + (sep_matches_prefix _s3967_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2611_ _)) => - match (string_drop _s2610_ _s2611_) with - | _s2612_ => - match (hex_bits_13_matches_prefix - _s2612_) with - | Some ((imm, existT _ _s2613_ _)) => - match (string_drop _s2612_ _s2613_) with - | s_ => - Some ((op, rs1, rs2, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s3968_ _) => + match (string_drop _s3967_ _s3968_) with + | _s3969_ => + match (hex_bits_13_matches_prefix + _s3969_) with + | Some (imm, existT _ _s3970_ _) => + match (string_drop _s3969_ _s3970_) with + | s_ => + Some (op, rs1, rs2, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))). -Definition _s2582_ (_s2583_ : string) -: M (option ((mword 5 * mword 5 * mword 12 * string))) := - - let _s2584_ := _s2583_ in - (if ((string_startswith _s2584_ "jalr")) then - (match (string_drop _s2584_ (projT1 (string_length "jalr"))) with - | _s2585_ => - (spc_matches_prefix _s2585_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3939_ (_s3940_ : string) : M (option ((mword 5 * mword 5 * mword 12 * string))) := + let _s3941_ := _s3940_ in + (if string_startswith _s3941_ "jalr" then + (match (string_drop _s3941_ (projT1 (string_length "jalr"))) with + | _s3942_ => + (spc_matches_prefix _s3942_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2586_ _)) => - (match (string_drop _s2585_ _s2586_) with - | _s2587_ => - (reg_name_matches_prefix _s2587_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3943_ _) => + (match (string_drop _s3942_ _s3943_) with + | _s3944_ => + (reg_name_matches_prefix _s3944_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2588_ _)) => - (match (string_drop _s2587_ _s2588_) with - | _s2589_ => - (sep_matches_prefix _s2589_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3945_ _) => + (match (string_drop _s3944_ _s3945_) with + | _s3946_ => + (sep_matches_prefix _s3946_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2590_ _)) => - (match (string_drop _s2589_ _s2590_) with - | _s2591_ => - (reg_name_matches_prefix _s2591_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3947_ _) => + (match (string_drop _s3946_ _s3947_) with + | _s3948_ => + (reg_name_matches_prefix _s3948_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2592_ _)) => - (match (string_drop _s2591_ _s2592_) with - | _s2593_ => - (sep_matches_prefix _s2593_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3949_ _) => + (match (string_drop _s3948_ _s3949_) with + | _s3950_ => + (sep_matches_prefix _s3950_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2594_ _)) => - match (string_drop _s2593_ _s2594_) with - | _s2595_ => - match (hex_bits_12_matches_prefix _s2595_) with - | Some ((imm, existT _ _s2596_ _)) => - match (string_drop _s2595_ _s2596_) with - | s_ => Some ((rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s3951_ _) => + match (string_drop _s3950_ _s3951_) with + | _s3952_ => + match (hex_bits_12_matches_prefix _s3952_) with + | Some (imm, existT _ _s3953_ _) => + match (string_drop _s3952_ _s3953_) with + | s_ => Some (rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 12 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12 * string))). -Definition _s2570_ (_s2571_ : string) -: M (option ((mword 5 * mword 21 * string))) := - - let _s2572_ := _s2571_ in - (if ((string_startswith _s2572_ "jal")) then - (match (string_drop _s2572_ (projT1 (string_length "jal"))) with - | _s2573_ => - (spc_matches_prefix _s2573_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3927_ (_s3928_ : string) : M (option ((mword 5 * mword 21 * string))) := + let _s3929_ := _s3928_ in + (if string_startswith _s3929_ "jal" then + (match (string_drop _s3929_ (projT1 (string_length "jal"))) with + | _s3930_ => + (spc_matches_prefix _s3930_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2574_ _)) => - (match (string_drop _s2573_ _s2574_) with - | _s2575_ => - (reg_name_matches_prefix _s2575_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3931_ _) => + (match (string_drop _s3930_ _s3931_) with + | _s3932_ => + (reg_name_matches_prefix _s3932_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2576_ _)) => - (match (string_drop _s2575_ _s2576_) with - | _s2577_ => - (sep_matches_prefix _s2577_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3933_ _) => + (match (string_drop _s3932_ _s3933_) with + | _s3934_ => + (sep_matches_prefix _s3934_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2578_ _)) => - match (string_drop _s2577_ _s2578_) with - | _s2579_ => - match (hex_bits_21_matches_prefix _s2579_) with - | Some ((imm, existT _ _s2580_ _)) => - match (string_drop _s2579_ _s2580_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s3935_ _) => + match (string_drop _s3934_ _s3935_) with + | _s3936_ => + match (hex_bits_21_matches_prefix _s3936_) with + | Some (imm, existT _ _s3937_ _) => + match (string_drop _s3936_ _s3937_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21 * string))) - | _ => returnm (None : option ((mword 5 * mword 21 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 21 * string))) end) : M (option ((mword 5 * mword 21 * string))) - | _ => returnm (None : option ((mword 5 * mword 21 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 21 * string))) end) : M (option ((mword 5 * mword 21 * string))) - else returnm (None : option ((mword 5 * mword 21 * string)))) + else returnm None) : M (option ((mword 5 * mword 21 * string))). -Definition _s2557_ (_s2558_ : string) -: M (option ((uop * mword 5 * mword 20 * string))) := - - (match _s2558_ with - | _s2559_ => - (utype_mnemonic_matches_prefix _s2559_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s3914_ (_s3915_ : string) : M (option ((uop * mword 5 * mword 20 * string))) := + (match _s3915_ with + | _s3916_ => + (utype_mnemonic_matches_prefix _s3916_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2560_ _)) => - (match (string_drop _s2559_ _s2560_) with - | _s2561_ => - (spc_matches_prefix _s2561_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3917_ _) => + (match (string_drop _s3916_ _s3917_) with + | _s3918_ => + (spc_matches_prefix _s3918_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2562_ _)) => - (match (string_drop _s2561_ _s2562_) with - | _s2563_ => - (reg_name_matches_prefix _s2563_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3919_ _) => + (match (string_drop _s3918_ _s3919_) with + | _s3920_ => + (reg_name_matches_prefix _s3920_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2564_ _)) => - (match (string_drop _s2563_ _s2564_) with - | _s2565_ => - (sep_matches_prefix _s2565_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3921_ _) => + (match (string_drop _s3920_ _s3921_) with + | _s3922_ => + (sep_matches_prefix _s3922_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s2566_ _)) => - match (string_drop _s2565_ _s2566_) with - | _s2567_ => - match (hex_bits_20_matches_prefix _s2567_) with - | Some ((imm, existT _ _s2568_ _)) => - match (string_drop _s2567_ _s2568_) with - | s_ => Some ((op, rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20 * string))) + returnm (match w__3 with + | Some (tt, existT _ _s3923_ _) => + match (string_drop _s3922_ _s3923_) with + | _s3924_ => + match (hex_bits_20_matches_prefix _s3924_) with + | Some (imm, existT _ _s3925_ _) => + match (string_drop _s3924_ _s3925_) with + | s_ => Some (op, rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))). -Definition assembly_matches_prefix (arg_ : string) -: M (option ((ast * {n : Z & ArithFact (n >= 0)}))) := - - let _s2569_ := arg_ in - (_s2557_ _s2569_) >>= fun w__0 : option ((uop * mword 5 * mword 20 * string)) => - (if ((match w__0 with | Some ((op, rd, imm, s_)) => true | _ => false end)) then - (_s2557_ _s2569_) >>= fun w__1 : option ((uop * mword 5 * mword 20 * string)) => +Definition assembly_matches_prefix (arg_ : string) +: M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) := + let _s3926_ := arg_ in + (_s3914_ _s3926_) >>= fun w__0 : option ((uop * mword 5 * mword 20 * string)) => + (if match w__0 with | Some (op, rd, imm, s_) => true | _ => false end then + (_s3914_ _s3926_) >>= fun w__1 : option ((uop * mword 5 * mword 20 * string)) => (match w__1 with - | Some ((op, rd, imm, s_)) => - returnm ((Some - ((UTYPE - ((imm, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, imm, s_) => + returnm (Some + (UTYPE (imm, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2570_ _s2569_) >>= fun w__4 : option ((mword 5 * mword 21 * string)) => - (if ((match w__4 with | Some ((rd, imm, s_)) => true | _ => false end)) then - (_s2570_ _s2569_) >>= fun w__5 : option ((mword 5 * mword 21 * string)) => + (_s3927_ _s3926_) >>= fun w__4 : option ((mword 5 * mword 21 * string)) => + (if match w__4 with | Some (rd, imm, s_) => true | _ => false end then + (_s3927_ _s3926_) >>= fun w__5 : option ((mword 5 * mword 21 * string)) => (match w__5 with - | Some ((rd, imm, s_)) => - returnm ((Some - ((RISCV_JAL - ((imm, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, imm, s_) => + returnm (Some + (RISCV_JAL (imm, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2582_ _s2569_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__8 with | Some ((rd, rs1, imm, s_)) => true | _ => false end)) then - (_s2582_ _s2569_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12 * string)) => + (_s3939_ _s3926_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12 * string)) => + (if match w__8 with | Some (rd, rs1, imm, s_) => true | _ => false end then + (_s3939_ _s3926_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12 * string)) => (match w__9 with - | Some ((rd, rs1, imm, s_)) => - returnm ((Some - ((RISCV_JALR - ((imm, rs1, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, rs1, imm, s_) => + returnm (Some + (RISCV_JALR (imm, rs1, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2598_ _s2569_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm, s_)) => true | _ => false end)) then - (_s2598_ _s2569_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => + (_s3955_ _s3926_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => + (if match w__12 with | Some (op, rs1, rs2, imm, s_) => true | _ => false end then + (_s3955_ _s3926_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => (match w__13 with - | Some ((op, rs1, rs2, imm, s_)) => - returnm ((Some - ((BTYPE - ((imm, rs2, rs1, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rs1, rs2, imm, s_) => + returnm (Some + (BTYPE (imm, rs2, rs1, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2615_ _s2569_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm, s_)) => true | _ => false end)) - then - (_s2615_ _s2569_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => + (_s3972_ _s3926_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => + (if match w__16 with | Some (op, rd, rs1, imm, s_) => true | _ => false end then + (_s3972_ _s3926_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => (match w__17 with - | Some ((op, rd, rs1, imm, s_)) => - returnm ((Some - ((ITYPE - ((imm, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, imm, s_) => + returnm (Some + (ITYPE (imm, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2632_ _s2569_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt, s_)) => true | _ => false end)) - then - (_s2632_ _s2569_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => + (_s3989_ _s3926_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => + (if match w__20 with | Some (op, rd, rs1, shamt, s_) => true | _ => false end then + (_s3989_ _s3926_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => (match w__21 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTIOP - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTIOP (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2649_ _s2569_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2, s_)) => true | _ => false end)) + (_s4006_ _s3926_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => + (if match w__24 with | Some (op, rd, rs1, rs2, s_) => true | _ => false end then - (_s2649_ _s2569_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => + (_s4006_ _s3926_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => (match w__25 with - | Some ((op, rd, rs1, rs2, s_)) => - returnm ((Some - ((RTYPE - ((rs2, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, rs2, s_) => + returnm (Some + (RTYPE (rs2, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2666_ _s2569_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) => true - | _ => false - end)) then - (_s2666_ _s2569_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (_s4023_ _s3926_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1, s_) => true + | _ => false + end then + (_s4023_ _s3926_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) => - returnm ((Some - ((LOAD - ((imm, rs1, rd, is_unsigned, size, aq, rl)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1, s_) => + returnm (Some + (LOAD (imm, rs1, rd, is_unsigned, size, aq, rl), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2696_ _s2569_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1, s_)) => true - | _ => false - end)) then - (_s2696_ _s2569_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (_s4053_ _s3926_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1, s_) => true + | _ => false + end then + (_s4053_ _s3926_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1, s_)) => - returnm ((Some - ((STORE - ((imm, rs2, rs1, size, aq, rl)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (size, aq, rl, rs2, imm, rs1, s_) => + returnm (Some + (STORE (imm, rs2, rs1, size, aq, rl), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2724_ _s2569_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__36 with - | Some ((rd, rs1, imm, s_)) => Z.eqb 32 64 - | _ => false - end)) then - (_s2724_ _s2569_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12 * string)) => + (_s4081_ _s3926_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12 * string)) => + (if match w__36 with + | Some (rd, rs1, imm, s_) => Z.eqb 32 64 + | _ => false + end then + (_s4081_ _s3926_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12 * string)) => (match w__37 with - | Some ((rd, rs1, imm, s_)) => - returnm ((Some - ((ADDIW - ((imm, rs1, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, rs1, imm, s_) => + returnm (Some + (ADDIW (imm, rs1, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => - exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2740_ _s2569_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt, s_)) => Z.eqb 32 64 - | _ => false - end)) then - (_s2740_ _s2569_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => + (_s4097_ _s3926_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => + (if match w__40 with + | Some (op, rd, rs1, shamt, s_) => Z.eqb 32 64 + | _ => false + end then + (_s4097_ _s3926_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => (match w__41 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTW - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTW (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => - exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2757_ _s2569_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2, s_)) => Z.eqb 32 64 - | _ => false - end)) then - (_s2757_ _s2569_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => + (_s4114_ _s3926_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => + (if match w__44 with + | Some (op, rd, rs1, rs2, s_) => Z.eqb 32 64 + | _ => false + end then + (_s4114_ _s3926_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => (match w__45 with - | Some ((op, rd, rs1, rs2, s_)) => - returnm ((Some - ((RTYPEW - ((rs2, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, rs2, s_) => + returnm (Some + (RTYPEW (rs2, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2774_ _s2569_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt, s_)) => Z.eqb 32 64 - | _ => false - end)) then - (_s2774_ _s2569_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => + (_s4131_ _s3926_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => + (if match w__48 with + | Some (op, rd, rs1, shamt, s_) => Z.eqb 32 64 + | _ => false + end then + (_s4131_ _s3926_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => (match w__49 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTIWOP - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTIWOP (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2791_ _s2569_) >>= fun w__52 : option ((mword 4 * mword 4 * string)) => - (if ((match w__52 with - | Some ((pred, succ, s_)) => true - | _ => false - end)) then - (_s2791_ _s2569_) >>= fun w__53 : option ((mword 4 * mword 4 * string)) => + (_s4148_ _s3926_) >>= fun w__52 : option ((mword 4 * mword 4 * string)) => + (if match w__52 with + | Some (pred, succ, s_) => true + | _ => false + end then + (_s4148_ _s3926_) >>= fun w__53 : option ((mword 4 * mword 4 * string)) => (match w__53 with - | Some ((pred, succ, s_)) => - returnm ((Some - ((FENCE - ((pred, succ)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (pred, succ, s_) => + returnm (Some + (FENCE (pred, succ), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2803_ _s2569_) >>= fun w__56 : option ((mword 4 * mword 4 * string)) => - (if ((match w__56 with - | Some ((pred, succ, s_)) => true - | _ => false - end)) then - (_s2803_ _s2569_) >>= fun w__57 : option ((mword 4 * mword 4 * string)) => + (_s4160_ _s3926_) >>= fun w__56 : option ((mword 4 * mword 4 * string)) => + (if match w__56 with + | Some (pred, succ, s_) => true + | _ => false + end then + (_s4160_ _s3926_) >>= fun w__57 : option ((mword 4 * mword 4 * string)) => (match w__57 with - | Some ((pred, succ, s_)) => - returnm ((Some - ((FENCE_TSO - ((pred, succ)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (pred, succ, s_) => + returnm (Some + (FENCE_TSO (pred, succ), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2815_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2815_ _s2569_) with - | Some (s_) => - returnm ((Some - ((FENCEI - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4172_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4172_ _s3926_) with + | Some s_ => + returnm (Some + (FENCEI tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2819_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2819_ _s2569_) with - | Some (s_) => - returnm ((Some - ((ECALL - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4176_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4176_ _s3926_) with + | Some s_ => + returnm (Some + (ECALL tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2823_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2823_ _s2569_) with - | Some (s_) => - returnm ((Some - ((MRET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4180_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4180_ _s3926_) with + | Some s_ => + returnm (Some + (MRET tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2827_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2827_ _s2569_) with - | Some (s_) => - returnm ((Some - ((SRET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4184_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4184_ _s3926_) with + | Some s_ => + returnm (Some + (SRET tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2831_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2831_ _s2569_) with - | Some (s_) => - returnm ((Some - ((EBREAK - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4188_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4188_ _s3926_) with + | Some s_ => + returnm (Some + (EBREAK tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2835_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2835_ _s2569_) with - | Some (s_) => - returnm ((Some - ((WFI - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s4192_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4192_ _s3926_) with + | Some s_ => + returnm (Some + (WFI tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2839_ _s2569_) >>= fun w__72 : option ((mword 5 * mword 5 * string)) => - (if ((match w__72 with - | Some ((rs1, rs2, s_)) => true - | _ => false - end)) then - (_s2839_ _s2569_) >>= fun w__73 : option ((mword 5 * mword 5 * string)) => + (_s4196_ _s3926_) >>= fun w__72 : option ((mword 5 * mword 5 * string)) => + (if match w__72 with + | Some (rs1, rs2, s_) => true + | _ => false + end then + (_s4196_ _s3926_) >>= fun w__73 : option ((mword 5 * mword 5 * string)) => (match w__73 with - | Some ((rs1, rs2, s_)) => - returnm ((Some - ((SFENCE_VMA - ((rs1, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rs1, rs2, s_) => + returnm (Some + (SFENCE_VMA (rs1, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2851_ _s2569_) >>= fun w__76 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => - (if ((match w__76 with - | Some ((size, aq, rl, rd, rs1, s_)) => - true - | _ => false - end)) then - (_s2851_ _s2569_) >>= fun w__77 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => + (_s4208_ _s3926_) >>= fun w__76 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => + (if match w__76 with + | Some (size, aq, rl, rd, rs1, s_) => true + | _ => false + end then + (_s4208_ _s3926_) >>= fun w__77 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => (match w__77 with - | Some ((size, aq, rl, rd, rs1, s_)) => - returnm ((Some - ((LOADRES - ((aq, rl, rs1, size, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (size, aq, rl, rd, rs1, s_) => + returnm (Some + (LOADRES + (aq, rl, rs1, size, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2869_ _s2569_) >>= fun w__80 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__80 with - | Some - ((size, aq, rl, rd, rs1, rs2, s_)) => - true - | _ => false - end)) then - (_s2869_ _s2569_) >>= fun w__81 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4226_ _s3926_) >>= fun w__80 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (if match w__80 with + | Some (size, aq, rl, rd, rs1, rs2, s_) => + true + | _ => false + end then + (_s4226_ _s3926_) >>= fun w__81 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__81 with - | Some ((size, aq, rl, rd, rs1, rs2, s_)) => - returnm ((Some - ((STORECON - ((aq, rl, rs2, rs1, size, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (size, aq, rl, rd, rs1, rs2, s_) => + returnm (Some + (STORECON + (aq, rl, rs2, rs1, size, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2891_ _s2569_) >>= fun w__84 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__84 with - | Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) => - true - | _ => false - end)) then - (_s2891_ _s2569_) >>= fun w__85 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4248_ _s3926_) >>= fun w__84 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (if match w__84 with + | Some + (op, width, aq, rl, rd, rs2, rs1, s_) => + true + | _ => false + end then + (_s4248_ _s3926_) >>= fun w__85 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__85 with | Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) => - returnm ((Some - ((AMO - ((op, aq, rl, rs2, rs1, width, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, width, aq, rl, rd, rs2, rs1, s_) => + returnm (Some + (AMO + (op, aq, rl, rs2, rs1, width, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) - else if ((match (_s2915_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2915_ _s2569_) with - | Some (s_) => - returnm ((Some - ((C_NOP - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + else if match (_s4274_ _s3926_) with + | Some s_ => true + | _ => false + end then + (match (_s4274_ _s3926_) with + | Some s_ => + returnm (Some + (C_NOP tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2919_ _s2569_) >>= fun w__90 : option ((mword 3 * mword 8 * string)) => - (if ((match w__90 with - | Some ((rdc, nzimm, s_)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s2919_ _s2569_) >>= fun w__91 : option ((mword 3 * mword 8 * string)) => + (_s4278_ _s3926_) >>= fun w__90 : option ((mword 3 * mword 8 * string)) => + (if match w__90 with + | Some (rdc, nzimm, s_) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s4278_ _s3926_) >>= fun w__91 : option ((mword 3 * mword 8 * string)) => (match w__91 with - | Some ((rdc, nzimm, s_)) => - returnm ((Some - ((C_ADDI4SPN - ((rdc, nzimm)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, nzimm, s_) => + returnm (Some + (C_ADDI4SPN + (rdc, nzimm), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2931_ _s2569_) >>= fun w__94 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__94 with - | Some ((rdc, rsc, uimm, s_)) => - true - | _ => false - end)) then - (_s2931_ _s2569_) >>= fun w__95 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s4290_ _s3926_) >>= fun w__94 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__94 with + | Some (rdc, rsc, uimm, s_) => + true + | _ => false + end then + (_s4290_ _s3926_) >>= fun w__95 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__95 with - | Some ((rdc, rsc, uimm, s_)) => - returnm ((Some - ((C_LW - ((uimm, rsc, rdc)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, rsc, uimm, s_) => + returnm (Some + (C_LW + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2947_ _s2569_) >>= fun w__98 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__98 with - | Some - ((rdc, rsc, uimm, s_)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s2947_ _s2569_) >>= fun w__99 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s4306_ _s3926_) >>= fun w__98 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__98 with + | Some (rdc, rsc, uimm, s_) => + Z.eqb 32 64 + | _ => false + end then + (_s4306_ _s3926_) >>= fun w__99 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__99 with - | Some ((rdc, rsc, uimm, s_)) => - returnm ((Some - ((C_LD - ((uimm, rsc, rdc)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, rsc, uimm, s_) => + returnm (Some + (C_LD + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2963_ _s2569_) >>= fun w__102 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__102 with - | Some - ((rsc1, rsc2, uimm, s_)) => - true - | _ => false - end)) then - (_s2963_ _s2569_) >>= fun w__103 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s4322_ _s3926_) >>= fun w__102 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__102 with + | Some + (rsc1, rsc2, uimm, s_) => + true + | _ => false + end then + (_s4322_ _s3926_) >>= fun w__103 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__103 with | Some - ((rsc1, rsc2, uimm, s_)) => - returnm ((Some - ((C_SW - ((uimm, rsc1, rsc2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_SW + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2979_ _s2569_) >>= fun w__106 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__106 with - | Some - ((rsc1, rsc2, uimm, s_)) => - Z.eqb 32 64 - | _ => false - end)) then - (_s2979_ _s2569_) >>= fun w__107 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s4338_ _s3926_) >>= fun w__106 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__106 with + | Some + (rsc1, rsc2, uimm, s_) => + Z.eqb 32 64 + | _ => false + end then + (_s4338_ _s3926_) >>= fun w__107 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__107 with | Some - ((rsc1, rsc2, uimm, s_)) => - returnm ((Some - ((C_SD - ((uimm, rsc1, rsc2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_SD + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2995_ _s2569_) >>= fun w__110 : option ((mword 5 * mword 6 * string)) => - (if ((match w__110 with - | Some - ((rsd, nzi, s_)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s2995_ _s2569_) >>= fun w__111 : option ((mword 5 * mword 6 * string)) => + (_s4354_ _s3926_) >>= fun w__110 : option ((mword 5 * mword 6 * string)) => + (if match w__110 with + | Some (rsd, nzi, s_) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s4354_ _s3926_) >>= fun w__111 : option ((mword 5 * mword 6 * string)) => (match w__111 with - | Some - ((rsd, nzi, s_)) => - returnm ((Some - ((C_ADDI - ((nzi, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rsd, nzi, s_) => + returnm (Some + (C_ADDI + (nzi, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3007_ _s2569_) >>= fun w__114 : option ((mword 11 * string)) => - (if ((match w__114 with - | Some - ((imm, s_)) => - Z.eqb 32 32 - | _ => false - end)) then - (_s3007_ _s2569_) >>= fun w__115 : option ((mword 11 * string)) => + (_s4366_ _s3926_) >>= fun w__114 : option ((mword 11 * string)) => + (if match w__114 with + | Some (imm, s_) => + Z.eqb 32 32 + | _ => false + end then + (_s4366_ _s3926_) >>= fun w__115 : option ((mword 11 * string)) => (match w__115 with - | Some ((imm, s_)) => - returnm ((Some - ((C_JAL - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (imm, s_) => + returnm (Some + (C_JAL + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3015_ _s2569_) >>= fun w__118 : option ((mword 5 * mword 6 * string)) => - (if ((match w__118 with - | Some - ((rsd, imm, s_)) => - Z.eqb 32 - 64 - | _ => false - end)) then - (_s3015_ _s2569_) >>= fun w__119 : option ((mword 5 * mword 6 * string)) => + (_s4374_ _s3926_) >>= fun w__118 : option ((mword 5 * mword 6 * string)) => + (if match w__118 with + | Some + (rsd, imm, s_) => + Z.eqb 32 64 + | _ => false + end then + (_s4374_ _s3926_) >>= fun w__119 : option ((mword 5 * mword 6 * string)) => (match w__119 with | Some - ((rsd, imm, s_)) => - returnm ((Some - ((C_ADDIW - ((imm, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, imm, s_) => + returnm (Some + (C_ADDIW + (imm, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3027_ _s2569_) >>= fun w__122 : option ((mword 5 * mword 6 * string)) => - (if ((match w__122 with - | Some - ((rd, imm, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s3027_ - _s2569_) >>= fun w__123 : option ((mword 5 * mword 6 * string)) => + (_s4386_ _s3926_) >>= fun w__122 : option ((mword 5 * mword 6 * string)) => + (if match w__122 with + | Some + (rd, imm, s_) => + neq_vec + rd zreg + | _ => false + end then + (_s4386_ + _s3926_) >>= fun w__123 : option ((mword 5 * mword 6 * string)) => (match w__123 with | Some - ((rd, imm, s_)) => - returnm ((Some - ((C_LI - ((imm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, imm, s_) => + returnm (Some + (C_LI + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3039_ - _s2569_) >>= fun w__126 : option ((mword 6 * string)) => - (if ((match w__126 with - | Some - ((imm, s_)) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s3039_ - _s2569_) >>= fun w__127 : option ((mword 6 * string)) => + (_s4398_ + _s3926_) >>= fun w__126 : option ((mword 6 * string)) => + (if match w__126 with + | Some + (imm, s_) => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s4398_ + _s3926_) >>= fun w__127 : option ((mword 6 * string)) => (match w__127 with | Some - ((imm, s_)) => - returnm ((Some - ((C_ADDI16SP - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (imm, s_) => + returnm (Some + (C_ADDI16SP + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3047_ - _s2569_) >>= fun w__130 : option ((mword 5 * mword 6 * string)) => - (if ((match w__130 with - | Some - ((rd, imm, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s4406_ + _s3926_) >>= fun w__130 : option ((mword 5 * mword 6 * string)) => + (if match w__130 with + | Some + (rd, imm, s_) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s3047_ - _s2569_) >>= fun w__131 : option ((mword 5 * mword 6 * string)) => + (_s4406_ + _s3926_) >>= fun w__131 : option ((mword 5 * mword 6 * string)) => (match w__131 with | Some - ((rd, imm, s_)) => - returnm ((Some - ((C_LUI - ((imm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, imm, s_) => + returnm (Some + (C_LUI + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3059_ - _s2569_) >>= fun w__134 : option ((mword 3 * mword 6 * string)) => - (if ((match w__134 with - | Some - ((rsd, shamt, s_)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s4418_ + _s3926_) >>= fun w__134 : option ((mword 3 * mword 6 * string)) => + (if match w__134 with + | Some + (rsd, shamt, s_) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s3059_ - _s2569_) >>= fun w__135 : option ((mword 3 * mword 6 * string)) => + (_s4418_ + _s3926_) >>= fun w__135 : option ((mword 3 * mword 6 * string)) => (match w__135 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SRLI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SRLI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3071_ - _s2569_) >>= fun w__138 : option ((mword 3 * mword 6 * string)) => - (if ((match w__138 with - | Some - ((rsd, shamt, s_)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s4430_ + _s3926_) >>= fun w__138 : option ((mword 3 * mword 6 * string)) => + (if match w__138 with + | Some + (rsd, shamt, s_) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s3071_ - _s2569_) >>= fun w__139 : option ((mword 3 * mword 6 * string)) => + (_s4430_ + _s3926_) >>= fun w__139 : option ((mword 3 * mword 6 * string)) => (match w__139 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SRAI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SRAI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3083_ - _s2569_) >>= fun w__142 : option ((mword 3 * mword 6 * string)) => + (_s4442_ + _s3926_) >>= fun w__142 : option ((mword 3 * mword 6 * string)) => (if - ((match w__142 with - | Some - ((rsd, imm, s_)) => - true - | _ => - false - end)) + match w__142 with + | Some + (rsd, imm, s_) => + true + | _ => + false + end then - (_s3083_ - _s2569_) >>= fun w__143 : option ((mword 3 * mword 6 * string)) => + (_s4442_ + _s3926_) >>= fun w__143 : option ((mword 3 * mword 6 * string)) => (match w__143 with | Some - ((rsd, imm, s_)) => - returnm ((Some - ((C_ANDI - ((imm, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, imm, s_) => + returnm (Some + (C_ANDI + (imm, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3095_ - _s2569_) >>= fun w__146 : option ((mword 3 * mword 3 * string)) => + (_s4454_ + _s3926_) >>= fun w__146 : option ((mword 3 * mword 3 * string)) => (if - ((match w__146 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__146 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3095_ - _s2569_) >>= fun w__147 : option ((mword 3 * mword 3 * string)) => + (_s4454_ + _s3926_) >>= fun w__147 : option ((mword 3 * mword 3 * string)) => (match w__147 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_SUB - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_SUB + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3107_ - _s2569_) >>= fun w__150 : option ((mword 3 * mword 3 * string)) => + (_s4466_ + _s3926_) >>= fun w__150 : option ((mword 3 * mword 3 * string)) => (if - ((match w__150 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__150 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3107_ - _s2569_) >>= fun w__151 : option ((mword 3 * mword 3 * string)) => + (_s4466_ + _s3926_) >>= fun w__151 : option ((mword 3 * mword 3 * string)) => (match w__151 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_XOR - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_XOR + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3119_ - _s2569_) >>= fun w__154 : option ((mword 3 * mword 3 * string)) => + (_s4478_ + _s3926_) >>= fun w__154 : option ((mword 3 * mword 3 * string)) => (if - ((match w__154 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__154 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3119_ - _s2569_) >>= fun w__155 : option ((mword 3 * mword 3 * string)) => + (_s4478_ + _s3926_) >>= fun w__155 : option ((mword 3 * mword 3 * string)) => (match w__155 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_OR - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_OR + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3131_ - _s2569_) >>= fun w__158 : option ((mword 3 * mword 3 * string)) => + (_s4490_ + _s3926_) >>= fun w__158 : option ((mword 3 * mword 3 * string)) => (if - ((match w__158 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__158 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3131_ - _s2569_) >>= fun w__159 : option ((mword 3 * mword 3 * string)) => + (_s4490_ + _s3926_) >>= fun w__159 : option ((mword 3 * mword 3 * string)) => (match w__159 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_AND - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_AND + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3143_ - _s2569_) >>= fun w__162 : option ((mword 3 * mword 3 * string)) => + (_s4502_ + _s3926_) >>= fun w__162 : option ((mword 3 * mword 3 * string)) => (if - ((match w__162 with - | Some - ((rsd, rs2, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__162 with + | Some + (rsd, rs2, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3143_ - _s2569_) >>= fun w__163 : option ((mword 3 * mword 3 * string)) => + (_s4502_ + _s3926_) >>= fun w__163 : option ((mword 3 * mword 3 * string)) => (match w__163 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_SUBW - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_SUBW + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3155_ - _s2569_) >>= fun w__166 : option ((mword 3 * mword 3 * string)) => + (_s4514_ + _s3926_) >>= fun w__166 : option ((mword 3 * mword 3 * string)) => (if - ((match w__166 with - | Some - ((rsd, rs2, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__166 with + | Some + (rsd, rs2, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3155_ - _s2569_) >>= fun w__167 : option ((mword 3 * mword 3 * string)) => + (_s4514_ + _s3926_) >>= fun w__167 : option ((mword 3 * mword 3 * string)) => (match w__167 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_ADDW - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_ADDW + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3167_ - _s2569_) >>= fun w__170 : option ((mword 11 * string)) => + (_s4526_ + _s3926_) >>= fun w__170 : option ((mword 11 * string)) => (if - ((match w__170 with - | Some - ((imm, s_)) => - true - | _ => - false - end)) + match w__170 with + | Some + (imm, s_) => + true + | _ => + false + end then - (_s3167_ - _s2569_) >>= fun w__171 : option ((mword 11 * string)) => + (_s4526_ + _s3926_) >>= fun w__171 : option ((mword 11 * string)) => (match w__171 with | Some - ((imm, s_)) => - returnm ((Some - ((C_J - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (imm, s_) => + returnm (Some + (C_J + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3175_ - _s2569_) >>= fun w__174 : option ((mword 3 * mword 8 * string)) => + (_s4534_ + _s3926_) >>= fun w__174 : option ((mword 3 * mword 8 * string)) => (if - ((match w__174 with - | Some - ((rs, imm, s_)) => - true - | _ => - false - end)) + match w__174 with + | Some + (rs, imm, s_) => + true + | _ => + false + end then - (_s3175_ - _s2569_) >>= fun w__175 : option ((mword 3 * mword 8 * string)) => + (_s4534_ + _s3926_) >>= fun w__175 : option ((mword 3 * mword 8 * string)) => (match w__175 with | Some - ((rs, imm, s_)) => - returnm ((Some - ((C_BEQZ - ((imm, rs)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs, imm, s_) => + returnm (Some + (C_BEQZ + (imm, rs), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3187_ - _s2569_) >>= fun w__178 : option ((mword 3 * mword 8 * string)) => + (_s4546_ + _s3926_) >>= fun w__178 : option ((mword 3 * mword 8 * string)) => (if - ((match w__178 with - | Some - ((rs, imm, s_)) => - true - | _ => - false - end)) + match w__178 with + | Some + (rs, imm, s_) => + true + | _ => + false + end then - (_s3187_ - _s2569_) >>= fun w__179 : option ((mword 3 * mword 8 * string)) => + (_s4546_ + _s3926_) >>= fun w__179 : option ((mword 3 * mword 8 * string)) => (match w__179 with | Some - ((rs, imm, s_)) => - returnm ((Some - ((C_BNEZ - ((imm, rs)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs, imm, s_) => + returnm (Some + (C_BNEZ + (imm, rs), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3199_ - _s2569_) >>= fun w__182 : option ((mword 5 * mword 6 * string)) => + (_s4558_ + _s3926_) >>= fun w__182 : option ((mword 5 * mword 6 * string)) => (if - ((match w__182 with - | Some - ((rsd, shamt, s_)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__182 with + | Some + (rsd, shamt, s_) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s3199_ - _s2569_) >>= fun w__183 : option ((mword 5 * mword 6 * string)) => + (_s4558_ + _s3926_) >>= fun w__183 : option ((mword 5 * mword 6 * string)) => (match w__183 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SLLI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SLLI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3211_ - _s2569_) >>= fun w__186 : option ((mword 5 * mword 6 * string)) => + (_s4570_ + _s3926_) >>= fun w__186 : option ((mword 5 * mword 6 * string)) => (if - ((match w__186 with - | Some - ((rd, uimm, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__186 with + | Some + (rd, uimm, s_) => + neq_vec + rd + zreg + | _ => + false + end then - (_s3211_ - _s2569_) >>= fun w__187 : option ((mword 5 * mword 6 * string)) => + (_s4570_ + _s3926_) >>= fun w__187 : option ((mword 5 * mword 6 * string)) => (match w__187 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_LWSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_LWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3223_ - _s2569_) >>= fun w__190 : option ((mword 5 * mword 6 * string)) => + (_s4582_ + _s3926_) >>= fun w__190 : option ((mword 5 * mword 6 * string)) => (if - ((match w__190 with - | Some - ((rd, uimm, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 32 - 64) - | _ => - false - end)) + match w__190 with + | Some + (rd, uimm, s_) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 32 + 64) + | _ => + false + end then - (_s3223_ - _s2569_) >>= fun w__191 : option ((mword 5 * mword 6 * string)) => + (_s4582_ + _s3926_) >>= fun w__191 : option ((mword 5 * mword 6 * string)) => (match w__191 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_LDSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_LDSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3235_ - _s2569_) >>= fun w__194 : option ((mword 5 * mword 6 * string)) => + (_s4594_ + _s3926_) >>= fun w__194 : option ((mword 5 * mword 6 * string)) => (if - ((match w__194 with - | Some - ((rd, uimm, s_)) => - true - | _ => - false - end)) + match w__194 with + | Some + (rd, uimm, s_) => + true + | _ => + false + end then - (_s3235_ - _s2569_) >>= fun w__195 : option ((mword 5 * mword 6 * string)) => + (_s4594_ + _s3926_) >>= fun w__195 : option ((mword 5 * mword 6 * string)) => (match w__195 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_SWSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_SWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3247_ - _s2569_) >>= fun w__198 : option ((mword 5 * mword 6 * string)) => + (_s4606_ + _s3926_) >>= fun w__198 : option ((mword 5 * mword 6 * string)) => (if - ((match w__198 with - | Some - ((rs2, uimm, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__198 with + | Some + (rs2, uimm, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3247_ - _s2569_) >>= fun w__199 : option ((mword 5 * mword 6 * string)) => + (_s4606_ + _s3926_) >>= fun w__199 : option ((mword 5 * mword 6 * string)) => (match w__199 with | Some - ((rs2, uimm, s_)) => - returnm ((Some - ((C_SDSP - ((uimm, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs2, uimm, s_) => + returnm (Some + (C_SDSP + (uimm, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3259_ - _s2569_) >>= fun w__202 : option ((mword 5 * string)) => + (_s4618_ + _s3926_) >>= fun w__202 : option ((mword 5 * string)) => (if - ((match w__202 with - | Some - ((rs1, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__202 with + | Some + (rs1, s_) => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s3259_ - _s2569_) >>= fun w__203 : option ((mword 5 * string)) => + (_s4618_ + _s3926_) >>= fun w__203 : option ((mword 5 * string)) => (match w__203 with | Some - ((rs1, s_)) => - returnm ((Some - ((C_JR - (rs1), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs1, s_) => + returnm (Some + (C_JR + rs1, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3267_ - _s2569_) >>= fun w__206 : option ((mword 5 * string)) => + (_s4626_ + _s3926_) >>= fun w__206 : option ((mword 5 * string)) => (if - ((match w__206 with - | Some - ((rs1, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__206 with + | Some + (rs1, s_) => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s3267_ - _s2569_) >>= fun w__207 : option ((mword 5 * string)) => + (_s4626_ + _s3926_) >>= fun w__207 : option ((mword 5 * string)) => (match w__207 with | Some - ((rs1, s_)) => - returnm ((Some - ((C_JALR - (rs1), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs1, s_) => + returnm (Some + (C_JALR + rs1, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3275_ - _s2569_) >>= fun w__210 : option ((mword 5 * mword 5 * string)) => + (_s4634_ + _s3926_) >>= fun w__210 : option ((mword 5 * mword 5 * string)) => (if - ((match w__210 with - | Some - ((rd, rs2, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__210 with + | Some + (rd, rs2, s_) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s3275_ - _s2569_) >>= fun w__211 : option ((mword 5 * mword 5 * string)) => + (_s4634_ + _s3926_) >>= fun w__211 : option ((mword 5 * mword 5 * string)) => (match w__211 with | Some - ((rd, rs2, s_)) => - returnm ((Some - ((C_MV - ((rd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, rs2, s_) => + returnm (Some + (C_MV + (rd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else if - ((match (_s3287_ - _s2569_) with - | Some - (s_) => - true - | _ => - false - end)) + match (_s4646_ + _s3926_) with + | Some + s_ => + true + | _ => + false + end then - (match (_s3287_ - _s2569_) with + (match (_s4646_ + _s3926_) with | Some - (s_) => - returnm ((Some - ((C_EBREAK - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + s_ => + returnm (Some + (C_EBREAK + tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3291_ - _s2569_) >>= fun w__216 : option ((mword 5 * mword 5 * string)) => + (_s4650_ + _s3926_) >>= fun w__216 : option ((mword 5 * mword 5 * string)) => (if - ((match w__216 with - | Some - ((rsd, rs2, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__216 with + | Some + (rsd, rs2, s_) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s3291_ - _s2569_) >>= fun w__217 : option ((mword 5 * mword 5 * string)) => + (_s4650_ + _s3926_) >>= fun w__217 : option ((mword 5 * mword 5 * string)) => (match w__217 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_ADD - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_ADD + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3303_ - _s2569_) >>= fun w__220 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4662_ + _s3926_) >>= fun w__220 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__220 with - | Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__220 with + | Some + (high, signed1, signed2, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3303_ - _s2569_) >>= fun w__221 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4662_ + _s3926_) >>= fun w__221 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__221 with | Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) => - returnm ((Some - ((MUL - ((rs2, rs1, rd, high, signed1, signed2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (high, signed1, signed2, rd, rs1, rs2, s_) => + returnm (Some + (MUL + (rs2, rs1, rd, high, signed1, signed2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3320_ - _s2569_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4679_ + _s3926_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3320_ - _s2569_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4679_ + _s3926_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__225 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((DIV - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (DIV + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3338_ - _s2569_) >>= fun w__228 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4697_ + _s3926_) >>= fun w__228 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__228 with - | Some - ((s, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__228 with + | Some + (s, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3338_ - _s2569_) >>= fun w__229 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4697_ + _s3926_) >>= fun w__229 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__229 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((REM - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (REM + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3356_ - _s2569_) >>= fun w__232 : option ((mword 5 * mword 5 * mword 5 * string)) => + (_s4715_ + _s3926_) >>= fun w__232 : option ((mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__232 with - | Some - ((rd, rs1, rs2, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__232 with + | Some + (rd, rs1, rs2, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3356_ - _s2569_) >>= fun w__233 : option ((mword 5 * mword 5 * mword 5 * string)) => + (_s4715_ + _s3926_) >>= fun w__233 : option ((mword 5 * mword 5 * mword 5 * string)) => (match w__233 with | Some - ((rd, rs1, rs2, s_)) => - returnm ((Some - ((MULW - ((rs2, rs1, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, rs1, rs2, s_) => + returnm (Some + (MULW + (rs2, rs1, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3372_ - _s2569_) >>= fun w__236 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4731_ + _s3926_) >>= fun w__236 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__236 with - | Some - ((s, rd, rs1, rs2, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__236 with + | Some + (s, rd, rs1, rs2, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3372_ - _s2569_) >>= fun w__237 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4731_ + _s3926_) >>= fun w__237 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__237 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((DIVW - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (DIVW + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3391_ - _s2569_) >>= fun w__240 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4750_ + _s3926_) >>= fun w__240 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__240 with - | Some - ((s, rd, rs1, rs2, s_)) => - Z.eqb - 32 - 64 - | _ => - false - end)) + match w__240 with + | Some + (s, rd, rs1, rs2, s_) => + Z.eqb + 32 + 64 + | _ => + false + end then - (_s3391_ - _s2569_) >>= fun w__241 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s4750_ + _s3926_) >>= fun w__241 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__241 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((REMW - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (REMW + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3410_ - _s2569_) >>= fun w__244 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s4769_ + _s3926_) >>= fun w__244 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__244 with - | Some - ((op, rd, rs1, csr, s_)) => - true - | _ => - false - end)) + match w__244 with + | Some + (op, rd, csr, rs1, s_) => + true + | _ => + false + end then - (_s3410_ - _s2569_) >>= fun w__245 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s4769_ + _s3926_) >>= fun w__245 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (match w__245 with | Some - ((op, rd, rs1, csr, s_)) => - returnm ((Some - ((CSR - ((csr, rs1, rd, true, op)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, rd, csr, rs1, s_) => + returnm (Some + (CSR + (csr, rs1, rd, true, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3428_ - _s2569_) >>= fun w__248 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s4787_ + _s3926_) >>= fun w__248 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__248 with - | Some - ((op, rd, rs1, csr, s_)) => - true - | _ => - false - end)) + match w__248 with + | Some + (op, rd, csr, rs1, s_) => + true + | _ => + false + end then - (_s3428_ - _s2569_) >>= fun w__249 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s4787_ + _s3926_) >>= fun w__249 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (match w__249 with | Some - ((op, rd, rs1, csr, s_)) => - returnm ((Some - ((CSR - ((csr, rs1, rd, false, op)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, rd, csr, rs1, s_) => + returnm (Some + (CSR + (csr, rs1, rd, false, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else if - ((match (_s3445_ - _s2569_) with - | Some - (s_) => - true - | _ => - false - end)) + match (_s4804_ + _s3926_) with + | Some + s_ => + true + | _ => + false + end then - (match (_s3445_ - _s2569_) with + (match (_s4804_ + _s3926_) with | Some - (s_) => - returnm ((Some - ((URET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + s_ => + returnm (Some + (URET + tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3449_ - _s2569_) >>= fun w__254 : option ((mword 32 * string)) => + (_s4808_ + _s3926_) >>= fun w__254 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__254 with - | Some - ((s, s_)) => - true - | _ => - false - end)) + match w__254 with + | Some + (width, rd, imm, rs1, s_) => + true + | _ => + false + end then - (_s3449_ - _s2569_) >>= fun w__255 : option ((mword 32 * string)) => + (_s4808_ + _s3926_) >>= fun w__255 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (match w__255 with | Some - ((s, s_)) => - returnm ((Some - ((ILLEGAL - (s), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (width, rd, imm, rs1, s_) => + returnm (Some + (LOAD_FP + (imm, rs1, rd, width), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3457_ - _s2569_) >>= fun w__258 : option ((mword 16 * string)) => + (_s4832_ + _s3926_) >>= fun w__258 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__258 with - | Some - ((s, s_)) => - true - | _ => - false - end)) + match w__258 with + | Some + (width, rs2, imm, rs1, s_) => + true + | _ => + false + end then - (_s3457_ - _s2569_) >>= fun w__259 : option ((mword 16 * string)) => + (_s4832_ + _s3926_) >>= fun w__259 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (match w__259 with | Some - ((s, s_)) => - returnm ((Some - ((C_ILLEGAL - (s), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (width, rs2, imm, rs1, s_) => + returnm (Some + (STORE_FP + (imm, rs2, rs1, width), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - returnm (None - : option ((ast * {n : Z & ArithFact (n >= + (_s4856_ + _s3926_) >>= fun w__262 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__262 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + true + | _ => + false + end + then + (_s4856_ + _s3926_) >>= fun w__263 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__263 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + returnm (Some + (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4881_ + _s3926_) >>= fun w__266 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__266 with + | Some + (op, rd, rs1, rs2, rm, s_) => + true + | _ => + false + end + then + (_s4881_ + _s3926_) >>= fun w__267 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__267 with + | Some + (op, rd, rs1, rs2, rm, s_) => + returnm (Some + (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4902_ + _s3926_) >>= fun w__270 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__270 with + | Some + (FSQRT_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4902_ + _s3926_) >>= fun w__271 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__271 with + | Some + (FSQRT_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4919_ + _s3926_) >>= fun w__274 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__274 with + | Some + (FCVT_W_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4919_ + _s3926_) >>= fun w__275 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__275 with + | Some + (FCVT_W_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4936_ + _s3926_) >>= fun w__278 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__278 with + | Some + (FCVT_WU_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4936_ + _s3926_) >>= fun w__279 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__279 with + | Some + (FCVT_WU_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4953_ + _s3926_) >>= fun w__282 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__282 with + | Some + (FCVT_S_W, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4953_ + _s3926_) >>= fun w__283 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__283 with + | Some + (FCVT_S_W, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4970_ + _s3926_) >>= fun w__286 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__286 with + | Some + (FCVT_S_WU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4970_ + _s3926_) >>= fun w__287 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__287 with + | Some + (FCVT_S_WU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s4987_ + _s3926_) >>= fun w__290 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__290 with + | Some + (FCVT_L_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s4987_ + _s3926_) >>= fun w__291 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__291 with + | Some + (FCVT_L_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5004_ + _s3926_) >>= fun w__294 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__294 with + | Some + (FCVT_LU_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5004_ + _s3926_) >>= fun w__295 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__295 with + | Some + (FCVT_LU_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5021_ + _s3926_) >>= fun w__298 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__298 with + | Some + (FCVT_S_L, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5021_ + _s3926_) >>= fun w__299 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__299 with + | Some + (FCVT_S_L, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5038_ + _s3926_) >>= fun w__302 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__302 with + | Some + (FCVT_S_LU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5038_ + _s3926_) >>= fun w__303 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__303 with + | Some + (FCVT_S_LU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5055_ + _s3926_) >>= fun w__306 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__306 with + | Some + (FSGNJ_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5055_ + _s3926_) >>= fun w__307 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__307 with + | Some + (FSGNJ_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5072_ + _s3926_) >>= fun w__310 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__310 with + | Some + (FSGNJN_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5072_ + _s3926_) >>= fun w__311 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__311 with + | Some + (FSGNJN_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5089_ + _s3926_) >>= fun w__314 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__314 with + | Some + (FSGNJX_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5089_ + _s3926_) >>= fun w__315 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__315 with + | Some + (FSGNJX_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5106_ + _s3926_) >>= fun w__318 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__318 with + | Some + (FMIN_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5106_ + _s3926_) >>= fun w__319 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__319 with + | Some + (FMIN_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5123_ + _s3926_) >>= fun w__322 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__322 with + | Some + (FMAX_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5123_ + _s3926_) >>= fun w__323 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__323 with + | Some + (FMAX_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5140_ + _s3926_) >>= fun w__326 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__326 with + | Some + (FEQ_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5140_ + _s3926_) >>= fun w__327 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__327 with + | Some + (FEQ_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5157_ + _s3926_) >>= fun w__330 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__330 with + | Some + (FLT_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5157_ + _s3926_) >>= fun w__331 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__331 with + | Some + (FLT_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5174_ + _s3926_) >>= fun w__334 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__334 with + | Some + (FLE_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s5174_ + _s3926_) >>= fun w__335 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__335 with + | Some + (FLE_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5191_ + _s3926_) >>= fun w__338 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__338 with + | Some + (FMV_X_W, rd, rs1, s_) => + true + | _ => + false + end + then + (_s5191_ + _s3926_) >>= fun w__339 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__339 with + | Some + (FMV_X_W, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FMV_X_W), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5204_ + _s3926_) >>= fun w__342 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__342 with + | Some + (FMV_W_X, rd, rs1, s_) => + true + | _ => + false + end + then + (_s5204_ + _s3926_) >>= fun w__343 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__343 with + | Some + (FMV_W_X, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FMV_W_X), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5217_ + _s3926_) >>= fun w__346 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__346 with + | Some + (FCLASS_S, rd, rs1, s_) => + true + | _ => + false + end + then + (_s5217_ + _s3926_) >>= fun w__347 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__347 with + | Some + (FCLASS_S, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FCLASS_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5230_ + _s3926_) >>= fun w__350 : option ((mword 5 * mword 6 * string)) => + (if + match w__350 with + | Some + (rd, imm, s_) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s5230_ + _s3926_) >>= fun w__351 : option ((mword 5 * mword 6 * string)) => + (match w__351 with + | Some + (rd, imm, s_) => + returnm (Some + (C_FLWSP + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5242_ + _s3926_) >>= fun w__354 : option ((mword 5 * mword 6 * string)) => + (if + match w__354 with + | Some + (rd, uimm, s_) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s5242_ + _s3926_) >>= fun w__355 : option ((mword 5 * mword 6 * string)) => + (match w__355 with + | Some + (rd, uimm, s_) => + returnm (Some + (C_FSWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5254_ + _s3926_) >>= fun w__358 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__358 with + | Some + (rdc, rsc, uimm, s_) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s5254_ + _s3926_) >>= fun w__359 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__359 with + | Some + (rdc, rsc, uimm, s_) => + returnm (Some + (C_FLW + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5270_ + _s3926_) >>= fun w__362 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__362 with + | Some + (rsc1, rsc2, uimm, s_) => + Z.eqb + 32 + 32 + | _ => + false + end + then + (_s5270_ + _s3926_) >>= fun w__363 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__363 with + | Some + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_FSW + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5286_ + _s3926_) >>= fun w__366 : option ((mword 32 * string)) => + (if + match w__366 with + | Some + (s, s_) => + true + | _ => + false + end + then + (_s5286_ + _s3926_) >>= fun w__367 : option ((mword 32 * string)) => + (match w__367 with + | Some + (s, s_) => + returnm (Some + (ILLEGAL + s, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5294_ + _s3926_) >>= fun w__370 : option ((mword 16 * string)) => + (if + match w__370 with + | Some + (s, s_) => + true + | _ => + false + end + then + (_s5294_ + _s3926_) >>= fun w__371 : option ((mword 16 * string)) => + (match w__371 with + | Some + (s, s_) => + returnm (Some + (C_ILLEGAL + s, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + returnm None) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))). - -Definition print_insn (insn : ast) : M (string) := (assembly_forwards insn) : M (string). - -Definition decode (bv : mword 32) : M (ast) := (encdec_backwards bv) : M (ast). - -Definition decodeCompressed (bv : mword 16) : ast := encdec_compressed_backwards bv. - - -End Content. + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))). + +Definition print_insn (insn : ast) : M (string) := (assembly_forwards insn) : M (string). + +Definition decode (bv : mword 32) : M (ast) := (encdec_backwards bv) : M (ast). + +Definition decodeCompressed (bv : mword 16) : M (ast) := + (encdec_compressed_backwards bv) : M (ast). + + + diff --git a/prover_snapshots/coq/RV32/riscv_extras.v b/prover_snapshots/coq/RV32/riscv_extras.v index 84f6761..02d5609 100644 --- a/prover_snapshots/coq/RV32/riscv_extras.v +++ b/prover_snapshots/coq/RV32/riscv_extras.v @@ -1,13 +1,8 @@ -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. +Require Import Sail.Base. Require Import String. Require Import List. Import List.ListNotations. - -Axiom real : Type. +Open Scope Z. Definition MEM_fence_rw_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_rw_rw tt). Definition MEM_fence_r_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_r_rw tt). @@ -45,12 +40,12 @@ val MEMr_reserved_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => inte val MEMr_reserved_strong_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> monad 'rv (bitvector 'b) 'e *) -Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. -Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. -Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. -Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. -Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. -Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. +Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. +Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. +Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. +Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. +Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. +Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. (* val MEMw : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> bitvector 'b -> monad 'rv bool 'e @@ -87,14 +82,14 @@ Definition undefined_string {rv e} (_:unit) : monad rv string e := returnm ""%st Definition undefined_unit {rv e} (_:unit) : monad rv unit e := returnm tt. Definition undefined_int {rv e} (_:unit) : monad rv Z e := returnm (0:ii). (*val undefined_vector : forall 'rv 'a 'e. integer -> 'a -> monad 'rv (list 'a) 'e*) -Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >= 0)} : monad rv (vec a len) e := returnm (vec_init u len). +Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >=? 0)} : monad rv (vec a len) e := returnm (vec_init u len). (*val undefined_bitvector : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) -Definition undefined_bitvector {rv e} len `{ArithFact (len >= 0)} : monad rv (mword len) e := returnm (mword_of_int 0). +Definition undefined_bitvector {rv e} len `{ArithFact (len >=? 0)} : monad rv (mword len) e := returnm (mword_of_int 0). (*val undefined_bits : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) Definition undefined_bits {rv e} := @undefined_bitvector rv e. Definition undefined_bit {rv e} (_:unit) : monad rv bitU e := returnm BU. (*Definition undefined_real {rv e} (_:unit) : monad rv real e := returnm (realFromFrac 0 1).*) -Definition undefined_range {rv e} i j `{ArithFact (i <= j)} : monad rv {z : Z & ArithFact (i <= z /\ z <= j)} e := returnm (build_ex i). +Definition undefined_range {rv e} i j `{ArithFact (i <=? j)} : monad rv {z : Z & ArithFact (i <=? z <=? j)} e := returnm (build_ex i). Definition undefined_atom {rv e} i : monad rv Z e := returnm i. Definition undefined_nat {rv e} (_:unit) : monad rv Z e := returnm (0:ii). @@ -119,10 +114,12 @@ Definition eq_bit (x : bitU) (y : bitU) : bool := end. Require Import Zeuclid. -Definition euclid_modulo (m n : Z) `{ArithFact (n > 0)} : {z : Z & ArithFact (0 <= z <= n-1)}. +Definition euclid_modulo (m n : Z) `{ArithFact (n >? 0)} : {z : Z & ArithFact (0 <=? z <=? n-1)}. apply existT with (x := ZEuclid.modulo m n). constructor. destruct H. +unbool_comparisons. +unbool_comparisons_goal. assert (Z.abs n = n). { rewrite Z.abs_eq; auto with zarith. } rewrite <- H at 3. lapply (ZEuclid.mod_always_pos m n); omega. @@ -143,6 +140,7 @@ Definition string_of_int z := DecimalString.NilZero.string_of_int (Z.to_int z). Axiom sys_enable_writable_misa : unit -> bool. Axiom sys_enable_rvc : unit -> bool. +Axiom sys_enable_fdext : unit -> bool. (* The constraint solver can do this itself, but a Coq bug puts anonymous_subproof into the term instead of an actual subproof. *) diff --git a/prover_snapshots/coq/RV32/riscv_types.v b/prover_snapshots/coq/RV32/riscv_types.v index 79dfb2a..9002adc 100644 --- a/prover_snapshots/coq/RV32/riscv_types.v +++ b/prover_snapshots/coq/RV32/riscv_types.v @@ -1,19 +1,17 @@ (*Generated by Sail from riscv.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Import ListNotations. +Open Scope string. +Open Scope bool. +Open Scope Z. + Definition bits (n : Z) : Type := mword n. Inductive regfp := | RFull : string -> regfp - | RSlice : (string * {n : Z & ArithFact (n >= 0)} * {n : Z & ArithFact (n >= 0)}) -> regfp - | RSliceBit : (string * {n : Z & ArithFact (n >= 0)}) -> regfp + | RSlice : (string * {n : Z & ArithFact (n >=? 0)} * {n : Z & ArithFact (n >=? 0)}) -> regfp + | RSliceBit : (string * {n : Z & ArithFact (n >=? 0)}) -> regfp | RField : (string * string) -> regfp. Arguments regfp : clear implicits. @@ -68,11 +66,27 @@ Hint Unfold xlen_bytes : sail. Definition xlenbits : Type := bits 32. +Definition flen : Z := 32. +Hint Unfold flen : sail. + +Definition flen_bytes : Z := 4. +Hint Unfold flen_bytes : sail. + +Definition flenbits : Type := bits 32. + Definition mem_meta : Type := unit. Definition max_mem_access : Z := 16. Hint Unfold max_mem_access : sail. +Definition exc_code : Type := bits 8. + +Definition ext_ptw : Type := unit. + +Definition ext_ptw_error : Type := unit. + +Definition ext_exc_type : Type := unit. + Definition half : Type := bits 16. Definition word : Type := bits 32. @@ -83,7 +97,7 @@ Definition cregidx : Type := bits 3. Definition csreg : Type := bits 12. -Definition regno (n : Z)`{ArithFact (0 <= n /\ n < 32)} : Type := Z. +Definition regno (n : Z)`{ArithFact ((0 <=? n) && (n <? 32))} : Type := Z. Definition opcode : Type := bits 7. @@ -109,6 +123,38 @@ Instance Decidable_eq_Privilege : forall (x y : Privilege), Decidable (x = y) := Decidable_eq_from_dec Privilege_eq_dec. +Inductive AccessType {a : Type} := + | Read : a -> AccessType + | Write : a -> AccessType + | ReadWrite : a -> AccessType + | Execute : unit -> AccessType. +Arguments AccessType : clear implicits. +Instance Decidable_eq_AccessType {a : Type} `{forall x y : a, Decidable (x = y)}: +forall (x y : AccessType a), Decidable (x = y). +refine (Decidable_eq_from_dec (fun x y => _)). +decide equality; refine (generic_dec _ _). +Defined. + +Inductive ExceptionType := + | E_Fetch_Addr_Align : unit -> ExceptionType + | E_Fetch_Access_Fault : unit -> ExceptionType + | E_Illegal_Instr : unit -> ExceptionType + | E_Breakpoint : unit -> ExceptionType + | E_Load_Addr_Align : unit -> ExceptionType + | E_Load_Access_Fault : unit -> ExceptionType + | E_SAMO_Addr_Align : unit -> ExceptionType + | E_SAMO_Access_Fault : unit -> ExceptionType + | E_U_EnvCall : unit -> ExceptionType + | E_S_EnvCall : unit -> ExceptionType + | E_Reserved_10 : unit -> ExceptionType + | E_M_EnvCall : unit -> ExceptionType + | E_Fetch_Page_Fault : unit -> ExceptionType + | E_Load_Page_Fault : unit -> ExceptionType + | E_Reserved_14 : unit -> ExceptionType + | E_SAMO_Page_Fault : unit -> ExceptionType + | E_Extension : ext_exc_type -> ExceptionType. +Arguments ExceptionType : clear implicits. + Inductive amoop := AMOSWAP | AMOADD | AMOXOR | AMOAND | AMOOR | AMOMIN | AMOMAX | AMOMINU | AMOMAXU. Scheme Equality for amoop. Instance Decidable_eq_amoop : @@ -127,6 +173,45 @@ Instance Decidable_eq_csrop : forall (x y : csrop), Decidable (x = y) := Decidable_eq_from_dec csrop_eq_dec. +Inductive f_bin_op_S := FSGNJ_S | FSGNJN_S | FSGNJX_S | FMIN_S | FMAX_S | FEQ_S | FLT_S | FLE_S. +Scheme Equality for f_bin_op_S. +Instance Decidable_eq_f_bin_op_S : +forall (x y : f_bin_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_bin_op_S_eq_dec. + +Inductive f_bin_rm_op_S := FADD_S | FSUB_S | FMUL_S | FDIV_S. +Scheme Equality for f_bin_rm_op_S. +Instance Decidable_eq_f_bin_rm_op_S : +forall (x y : f_bin_rm_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_bin_rm_op_S_eq_dec. + +Inductive f_madd_op_S := FMADD_S | FMSUB_S | FNMSUB_S | FNMADD_S. +Scheme Equality for f_madd_op_S. +Instance Decidable_eq_f_madd_op_S : +forall (x y : f_madd_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_madd_op_S_eq_dec. + +Inductive f_un_op_S := FCLASS_S | FMV_X_W | FMV_W_X. +Scheme Equality for f_un_op_S. +Instance Decidable_eq_f_un_op_S : +forall (x y : f_un_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_un_op_S_eq_dec. + +Inductive f_un_rm_op_S := + FSQRT_S + | FCVT_W_S + | FCVT_WU_S + | FCVT_S_W + | FCVT_S_WU + | FCVT_L_S + | FCVT_LU_S + | FCVT_S_L + | FCVT_S_LU. +Scheme Equality for f_un_rm_op_S. +Instance Decidable_eq_f_un_rm_op_S : +forall (x y : f_un_rm_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_un_rm_op_S_eq_dec. + Inductive iop := RISCV_ADDI | RISCV_SLTI | RISCV_SLTIU | RISCV_XORI | RISCV_ORI | RISCV_ANDI. Scheme Equality for iop. Instance Decidable_eq_iop : @@ -155,6 +240,12 @@ Instance Decidable_eq_ropw : forall (x y : ropw), Decidable (x = y) := Decidable_eq_from_dec ropw_eq_dec. +Inductive rounding_mode := RM_RNE | RM_RTZ | RM_RDN | RM_RUP | RM_RMM | RM_DYN. +Scheme Equality for rounding_mode. +Instance Decidable_eq_rounding_mode : +forall (x y : rounding_mode), Decidable (x = y) := +Decidable_eq_from_dec rounding_mode_eq_dec. + Inductive sop := RISCV_SLLI | RISCV_SRLI | RISCV_SRAI. Scheme Equality for sop. Instance Decidable_eq_sop : @@ -247,24 +338,37 @@ Inductive ast := | REMW : (regidx * regidx * regidx * bool) -> ast | CSR : (bits 12 * regidx * regidx * bool * csrop) -> ast | URET : unit -> ast + | LOAD_FP : (bits 12 * regidx * regidx * word_width) -> ast + | STORE_FP : (bits 12 * regidx * regidx * word_width) -> ast + | F_MADD_TYPE_S : (regidx * regidx * regidx * rounding_mode * regidx * f_madd_op_S) -> ast + | F_BIN_RM_TYPE_S : (regidx * regidx * rounding_mode * regidx * f_bin_rm_op_S) -> ast + | F_UN_RM_TYPE_S : (regidx * rounding_mode * regidx * f_un_rm_op_S) -> ast + | F_BIN_TYPE_S : (regidx * regidx * regidx * f_bin_op_S) -> ast + | F_UN_TYPE_S : (regidx * regidx * f_un_op_S) -> ast + | C_FLWSP : (bits 6 * regidx) -> ast + | C_FSWSP : (bits 6 * regidx) -> ast + | C_FLW : (bits 5 * cregidx * cregidx) -> ast + | C_FSW : (bits 5 * cregidx * cregidx) -> ast | ILLEGAL : word -> ast | C_ILLEGAL : half -> ast. Arguments ast : clear implicits. +Inductive PTW_Error := + | PTW_Invalid_Addr : unit -> PTW_Error + | PTW_Access : unit -> PTW_Error + | PTW_Invalid_PTE : unit -> PTW_Error + | PTW_No_Permission : unit -> PTW_Error + | PTW_Misaligned : unit -> PTW_Error + | PTW_PTE_Update : unit -> PTW_Error + | PTW_Ext_Error : ext_ptw_error -> PTW_Error. +Arguments PTW_Error : clear implicits. + Inductive Retired := RETIRE_SUCCESS | RETIRE_FAIL. Scheme Equality for Retired. Instance Decidable_eq_Retired : forall (x y : Retired), Decidable (x = y) := Decidable_eq_from_dec Retired_eq_dec. -Inductive AccessType := Read | Write | ReadWrite | Execute. -Scheme Equality for AccessType. -Instance Decidable_eq_AccessType : -forall (x y : AccessType), Decidable (x = y) := -Decidable_eq_from_dec AccessType_eq_dec. - -Definition exc_code : Type := bits 8. - Inductive InterruptType := I_U_Software | I_S_Software @@ -280,29 +384,6 @@ Instance Decidable_eq_InterruptType : forall (x y : InterruptType), Decidable (x = y) := Decidable_eq_from_dec InterruptType_eq_dec. -Inductive ExceptionType := - E_Fetch_Addr_Align - | E_Fetch_Access_Fault - | E_Illegal_Instr - | E_Breakpoint - | E_Load_Addr_Align - | E_Load_Access_Fault - | E_SAMO_Addr_Align - | E_SAMO_Access_Fault - | E_U_EnvCall - | E_S_EnvCall - | E_Reserved_10 - | E_M_EnvCall - | E_Fetch_Page_Fault - | E_Load_Page_Fault - | E_Reserved_14 - | E_SAMO_Page_Fault - | E_CHERI. -Scheme Equality for ExceptionType. -Instance Decidable_eq_ExceptionType : -forall (x y : ExceptionType), Decidable (x = y) := -Decidable_eq_from_dec ExceptionType_eq_dec. - Inductive exception := | Error_not_implemented : string -> exception | Error_internal_error : unit -> exception. Arguments exception : clear implicits. @@ -333,16 +414,95 @@ Decidable_eq_from_dec SATPMode_eq_dec. Definition csrRW : Type := bits 2. +Definition ext_access_type : Type := unit. + Definition regtype : Type := xlenbits. +Definition fregtype : Type := flenbits. + +Inductive f_madd_op_D := FMADD_D | FMSUB_D | FNMSUB_D | FNMADD_D. +Scheme Equality for f_madd_op_D. +Instance Decidable_eq_f_madd_op_D : +forall (x y : f_madd_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_madd_op_D_eq_dec. + +Inductive f_bin_rm_op_D := FADD_D | FSUB_D | FMUL_D | FDIV_D. +Scheme Equality for f_bin_rm_op_D. +Instance Decidable_eq_f_bin_rm_op_D : +forall (x y : f_bin_rm_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_bin_rm_op_D_eq_dec. + +Inductive f_un_rm_op_D := + FSQRT_D + | FCVT_W_D + | FCVT_WU_D + | FCVT_D_W + | FCVT_D_WU + | FCVT_S_D + | FCVT_D_S + | FCVT_L_D + | FCVT_LU_D + | FCVT_D_L + | FCVT_D_LU. +Scheme Equality for f_un_rm_op_D. +Instance Decidable_eq_f_un_rm_op_D : +forall (x y : f_un_rm_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_un_rm_op_D_eq_dec. + +Inductive f_bin_op_D := FSGNJ_D | FSGNJN_D | FSGNJX_D | FMIN_D | FMAX_D | FEQ_D | FLT_D | FLE_D. +Scheme Equality for f_bin_op_D. +Instance Decidable_eq_f_bin_op_D : +forall (x y : f_bin_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_bin_op_D_eq_dec. + +Inductive f_un_op_D := FCLASS_D | FMV_X_D | FMV_D_X. +Scheme Equality for f_un_op_D. +Instance Decidable_eq_f_un_op_D : +forall (x y : f_un_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_un_op_D_eq_dec. + Record Misa := { Misa_Misa_chunk_0 : mword 32; }. Arguments Misa : clear implicits. Notation "{[ r 'with' 'Misa_Misa_chunk_0' := e ]}" := {| Misa_Misa_chunk_0 := e |} (only parsing). -Record SV48_PTE := { SV48_PTE_SV48_PTE_chunk_0 : mword 64; }. -Arguments SV48_PTE : clear implicits. -Notation "{[ r 'with' 'SV48_PTE_SV48_PTE_chunk_0' := e ]}" := - {| SV48_PTE_SV48_PTE_chunk_0 := e |} (only parsing). +Record Counteren := { Counteren_Counteren_chunk_0 : mword 32; }. +Arguments Counteren : clear implicits. +Notation "{[ r 'with' 'Counteren_Counteren_chunk_0' := e ]}" := + {| Counteren_Counteren_chunk_0 := e |} (only parsing). + +Record Counterin := { Counterin_Counterin_chunk_0 : mword 32; }. +Arguments Counterin : clear implicits. +Notation "{[ r 'with' 'Counterin_Counterin_chunk_0' := e ]}" := + {| Counterin_Counterin_chunk_0 := e |} (only parsing). + +Record Fcsr := { Fcsr_Fcsr_chunk_0 : mword 32; }. +Arguments Fcsr : clear implicits. +Notation "{[ r 'with' 'Fcsr_Fcsr_chunk_0' := e ]}" := {| Fcsr_Fcsr_chunk_0 := e |} (only parsing). + +Record Mcause := { Mcause_Mcause_chunk_0 : mword 32; }. +Arguments Mcause : clear implicits. +Notation "{[ r 'with' 'Mcause_Mcause_chunk_0' := e ]}" := + {| Mcause_Mcause_chunk_0 := e |} (only parsing). + +Record Medeleg := { Medeleg_Medeleg_chunk_0 : mword 32; }. +Arguments Medeleg : clear implicits. +Notation "{[ r 'with' 'Medeleg_Medeleg_chunk_0' := e ]}" := + {| Medeleg_Medeleg_chunk_0 := e |} (only parsing). + +Record Minterrupts := { Minterrupts_Minterrupts_chunk_0 : mword 32; }. +Arguments Minterrupts : clear implicits. +Notation "{[ r 'with' 'Minterrupts_Minterrupts_chunk_0' := e ]}" := + {| Minterrupts_Minterrupts_chunk_0 := e |} (only parsing). + +Record Mstatus := { Mstatus_Mstatus_chunk_0 : mword 32; }. +Arguments Mstatus : clear implicits. +Notation "{[ r 'with' 'Mstatus_Mstatus_chunk_0' := e ]}" := + {| Mstatus_Mstatus_chunk_0 := e |} (only parsing). + +Record Mtvec := { Mtvec_Mtvec_chunk_0 : mword 32; }. +Arguments Mtvec : clear implicits. +Notation "{[ r 'with' 'Mtvec_Mtvec_chunk_0' := e ]}" := + {| Mtvec_Mtvec_chunk_0 := e |} (only parsing). Record PTE_Bits := { PTE_Bits_PTE_Bits_chunk_0 : mword 8; }. Arguments PTE_Bits : clear implicits. @@ -354,71 +514,91 @@ Arguments Pmpcfg_ent : clear implicits. Notation "{[ r 'with' 'Pmpcfg_ent_Pmpcfg_ent_chunk_0' := e ]}" := {| Pmpcfg_ent_Pmpcfg_ent_chunk_0 := e |} (only parsing). -Record Mstatus := { Mstatus_Mstatus_chunk_0 : mword 32; }. -Arguments Mstatus : clear implicits. -Notation "{[ r 'with' 'Mstatus_Mstatus_chunk_0' := e ]}" := - {| Mstatus_Mstatus_chunk_0 := e |} (only parsing). +Record SV32_PTE := { SV32_PTE_SV32_PTE_chunk_0 : mword 32; }. +Arguments SV32_PTE : clear implicits. +Notation "{[ r 'with' 'SV32_PTE_SV32_PTE_chunk_0' := e ]}" := + {| SV32_PTE_SV32_PTE_chunk_0 := e |} (only parsing). -Record Sstatus := { Sstatus_Sstatus_chunk_0 : mword 32; }. -Arguments Sstatus : clear implicits. -Notation "{[ r 'with' 'Sstatus_Sstatus_chunk_0' := e ]}" := - {| Sstatus_Sstatus_chunk_0 := e |} (only parsing). +Record SV32_Paddr := { SV32_Paddr_SV32_Paddr_chunk_0 : mword 34; }. +Arguments SV32_Paddr : clear implicits. +Notation "{[ r 'with' 'SV32_Paddr_SV32_Paddr_chunk_0' := e ]}" := + {| SV32_Paddr_SV32_Paddr_chunk_0 := e |} (only parsing). -Record Ustatus := { Ustatus_Ustatus_chunk_0 : mword 32; }. -Arguments Ustatus : clear implicits. -Notation "{[ r 'with' 'Ustatus_Ustatus_chunk_0' := e ]}" := - {| Ustatus_Ustatus_chunk_0 := e |} (only parsing). +Record SV32_Vaddr := { SV32_Vaddr_SV32_Vaddr_chunk_0 : mword 32; }. +Arguments SV32_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV32_Vaddr_SV32_Vaddr_chunk_0' := e ]}" := + {| SV32_Vaddr_SV32_Vaddr_chunk_0 := e |} (only parsing). -Record Minterrupts := { Minterrupts_Minterrupts_chunk_0 : mword 32; }. -Arguments Minterrupts : clear implicits. -Notation "{[ r 'with' 'Minterrupts_Minterrupts_chunk_0' := e ]}" := - {| Minterrupts_Minterrupts_chunk_0 := e |} (only parsing). +Record SV39_PTE := { SV39_PTE_SV39_PTE_chunk_0 : mword 64; }. +Arguments SV39_PTE : clear implicits. +Notation "{[ r 'with' 'SV39_PTE_SV39_PTE_chunk_0' := e ]}" := + {| SV39_PTE_SV39_PTE_chunk_0 := e |} (only parsing). -Record Sinterrupts := { Sinterrupts_Sinterrupts_chunk_0 : mword 32; }. -Arguments Sinterrupts : clear implicits. -Notation "{[ r 'with' 'Sinterrupts_Sinterrupts_chunk_0' := e ]}" := - {| Sinterrupts_Sinterrupts_chunk_0 := e |} (only parsing). +Record SV39_Paddr := { SV39_Paddr_SV39_Paddr_chunk_0 : mword 56; }. +Arguments SV39_Paddr : clear implicits. +Notation "{[ r 'with' 'SV39_Paddr_SV39_Paddr_chunk_0' := e ]}" := + {| SV39_Paddr_SV39_Paddr_chunk_0 := e |} (only parsing). -Record Uinterrupts := { Uinterrupts_Uinterrupts_chunk_0 : mword 32; }. -Arguments Uinterrupts : clear implicits. -Notation "{[ r 'with' 'Uinterrupts_Uinterrupts_chunk_0' := e ]}" := - {| Uinterrupts_Uinterrupts_chunk_0 := e |} (only parsing). +Record SV39_Vaddr := { SV39_Vaddr_SV39_Vaddr_chunk_0 : mword 39; }. +Arguments SV39_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV39_Vaddr_SV39_Vaddr_chunk_0' := e ]}" := + {| SV39_Vaddr_SV39_Vaddr_chunk_0 := e |} (only parsing). -Record Medeleg := { Medeleg_Medeleg_chunk_0 : mword 32; }. -Arguments Medeleg : clear implicits. -Notation "{[ r 'with' 'Medeleg_Medeleg_chunk_0' := e ]}" := - {| Medeleg_Medeleg_chunk_0 := e |} (only parsing). +Record SV48_PTE := { SV48_PTE_SV48_PTE_chunk_0 : mword 64; }. +Arguments SV48_PTE : clear implicits. +Notation "{[ r 'with' 'SV48_PTE_SV48_PTE_chunk_0' := e ]}" := + {| SV48_PTE_SV48_PTE_chunk_0 := e |} (only parsing). -Record Sedeleg := { Sedeleg_Sedeleg_chunk_0 : mword 32; }. -Arguments Sedeleg : clear implicits. -Notation "{[ r 'with' 'Sedeleg_Sedeleg_chunk_0' := e ]}" := - {| Sedeleg_Sedeleg_chunk_0 := e |} (only parsing). +Record SV48_Paddr := { SV48_Paddr_SV48_Paddr_chunk_0 : mword 56; }. +Arguments SV48_Paddr : clear implicits. +Notation "{[ r 'with' 'SV48_Paddr_SV48_Paddr_chunk_0' := e ]}" := + {| SV48_Paddr_SV48_Paddr_chunk_0 := e |} (only parsing). -Record Mtvec := { Mtvec_Mtvec_chunk_0 : mword 32; }. -Arguments Mtvec : clear implicits. -Notation "{[ r 'with' 'Mtvec_Mtvec_chunk_0' := e ]}" := - {| Mtvec_Mtvec_chunk_0 := e |} (only parsing). +Record SV48_Vaddr := { SV48_Vaddr_SV48_Vaddr_chunk_0 : mword 48; }. +Arguments SV48_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV48_Vaddr_SV48_Vaddr_chunk_0' := e ]}" := + {| SV48_Vaddr_SV48_Vaddr_chunk_0 := e |} (only parsing). Record Satp32 := { Satp32_Satp32_chunk_0 : mword 32; }. Arguments Satp32 : clear implicits. Notation "{[ r 'with' 'Satp32_Satp32_chunk_0' := e ]}" := {| Satp32_Satp32_chunk_0 := e |} (only parsing). -Record Mcause := { Mcause_Mcause_chunk_0 : mword 32; }. -Arguments Mcause : clear implicits. -Notation "{[ r 'with' 'Mcause_Mcause_chunk_0' := e ]}" := - {| Mcause_Mcause_chunk_0 := e |} (only parsing). - -Record Counteren := { Counteren_Counteren_chunk_0 : mword 32; }. -Arguments Counteren : clear implicits. -Notation "{[ r 'with' 'Counteren_Counteren_chunk_0' := e ]}" := - {| Counteren_Counteren_chunk_0 := e |} (only parsing). - Record Satp64 := { Satp64_Satp64_chunk_0 : mword 64; }. Arguments Satp64 : clear implicits. Notation "{[ r 'with' 'Satp64_Satp64_chunk_0' := e ]}" := {| Satp64_Satp64_chunk_0 := e |} (only parsing). +Record Sedeleg := { Sedeleg_Sedeleg_chunk_0 : mword 32; }. +Arguments Sedeleg : clear implicits. +Notation "{[ r 'with' 'Sedeleg_Sedeleg_chunk_0' := e ]}" := + {| Sedeleg_Sedeleg_chunk_0 := e |} (only parsing). + +Record Sinterrupts := { Sinterrupts_Sinterrupts_chunk_0 : mword 32; }. +Arguments Sinterrupts : clear implicits. +Notation "{[ r 'with' 'Sinterrupts_Sinterrupts_chunk_0' := e ]}" := + {| Sinterrupts_Sinterrupts_chunk_0 := e |} (only parsing). + +Record Sstatus := { Sstatus_Sstatus_chunk_0 : mword 32; }. +Arguments Sstatus : clear implicits. +Notation "{[ r 'with' 'Sstatus_Sstatus_chunk_0' := e ]}" := + {| Sstatus_Sstatus_chunk_0 := e |} (only parsing). + +Record Uinterrupts := { Uinterrupts_Uinterrupts_chunk_0 : mword 32; }. +Arguments Uinterrupts : clear implicits. +Notation "{[ r 'with' 'Uinterrupts_Uinterrupts_chunk_0' := e ]}" := + {| Uinterrupts_Uinterrupts_chunk_0 := e |} (only parsing). + +Record Ustatus := { Ustatus_Ustatus_chunk_0 : mword 32; }. +Arguments Ustatus : clear implicits. +Notation "{[ r 'with' 'Ustatus_Ustatus_chunk_0' := e ]}" := + {| Ustatus_Ustatus_chunk_0 := e |} (only parsing). + +Record htif_cmd := { htif_cmd_htif_cmd_chunk_0 : mword 64; }. +Arguments htif_cmd : clear implicits. +Notation "{[ r 'with' 'htif_cmd_htif_cmd_chunk_0' := e ]}" := + {| htif_cmd_htif_cmd_chunk_0 := e |} (only parsing). + Inductive PmpAddrMatchType := OFF | TOR | NA4 | NAPOT. Scheme Equality for PmpAddrMatchType. Instance Decidable_eq_PmpAddrMatchType : @@ -466,21 +646,28 @@ Record sync_exception := sync_exception_excinfo : option xlenbits; sync_exception_ext : option ext_exception; }. Arguments sync_exception : clear implicits. -Notation "{[ r 'with' 'sync_exception_trap' := e ]}" := {| - sync_exception_trap := e; - sync_exception_excinfo := sync_exception_excinfo r; - sync_exception_ext := sync_exception_ext r - |}. -Notation "{[ r 'with' 'sync_exception_excinfo' := e ]}" := {| - sync_exception_excinfo := e; - sync_exception_trap := sync_exception_trap r; - sync_exception_ext := sync_exception_ext r - |}. -Notation "{[ r 'with' 'sync_exception_ext' := e ]}" := {| - sync_exception_ext := e; - sync_exception_trap := sync_exception_trap r; - sync_exception_excinfo := sync_exception_excinfo r - |}. +Notation "{[ r 'with' 'sync_exception_trap' := e ]}" := + match r with Build_sync_exception _ f1 f2 => Build_sync_exception e f1 f2 end. +Notation "{[ r 'with' 'sync_exception_excinfo' := e ]}" := + match r with Build_sync_exception f0 _ f2 => Build_sync_exception f0 e f2 end. +Notation "{[ r 'with' 'sync_exception_ext' := e ]}" := + match r with Build_sync_exception f0 f1 _ => Build_sync_exception f0 f1 e end. + +Definition bits_rm : Type := bits 3. + +Definition bits_fflags : Type := bits 5. + +Definition bits_S : Type := bits 32. + +Definition bits_D : Type := bits 64. + +Definition bits_W : Type := bits 32. + +Definition bits_WU : Type := bits 32. + +Definition bits_L : Type := bits 64. + +Definition bits_LU : Type := bits 64. Inductive interrupt_set := | Ints_Pending : xlenbits -> interrupt_set @@ -499,19 +686,13 @@ Inductive MemoryOpResult {a : Type} := | MemValue : a -> MemoryOpResult | MemException : ExceptionType -> MemoryOpResult. Arguments MemoryOpResult : clear implicits. -Record htif_cmd := { htif_cmd_htif_cmd_chunk_0 : mword 64; }. -Arguments htif_cmd : clear implicits. -Notation "{[ r 'with' 'htif_cmd_htif_cmd_chunk_0' := e ]}" := - {| htif_cmd_htif_cmd_chunk_0 := e |} (only parsing). - Definition pteAttribs : Type := bits 8. -Inductive PTW_Error := - PTW_Access | PTW_Invalid_PTE | PTW_No_Permission | PTW_Misaligned | PTW_PTE_Update. -Scheme Equality for PTW_Error. -Instance Decidable_eq_PTW_Error : -forall (x y : PTW_Error), Decidable (x = y) := -Decidable_eq_from_dec PTW_Error_eq_dec. +Definition extPte : Type := bits 10. + +Inductive PTE_Check := + | PTE_Check_Success : ext_ptw -> PTE_Check | PTE_Check_Failure : ext_ptw -> PTE_Check. +Arguments PTE_Check : clear implicits. Definition vaddr32 : Type := bits 32. @@ -521,31 +702,6 @@ Definition pte32 : Type := bits 32. Definition asid32 : Type := bits 9. -Record SV32_Vaddr := { SV32_Vaddr_SV32_Vaddr_chunk_0 : mword 32; }. -Arguments SV32_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV32_Vaddr_SV32_Vaddr_chunk_0' := e ]}" := - {| SV32_Vaddr_SV32_Vaddr_chunk_0 := e |} (only parsing). - -Record SV48_Vaddr := { SV48_Vaddr_SV48_Vaddr_chunk_0 : mword 48; }. -Arguments SV48_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV48_Vaddr_SV48_Vaddr_chunk_0' := e ]}" := - {| SV48_Vaddr_SV48_Vaddr_chunk_0 := e |} (only parsing). - -Record SV48_Paddr := { SV48_Paddr_SV48_Paddr_chunk_0 : mword 56; }. -Arguments SV48_Paddr : clear implicits. -Notation "{[ r 'with' 'SV48_Paddr_SV48_Paddr_chunk_0' := e ]}" := - {| SV48_Paddr_SV48_Paddr_chunk_0 := e |} (only parsing). - -Record SV32_Paddr := { SV32_Paddr_SV32_Paddr_chunk_0 : mword 34; }. -Arguments SV32_Paddr : clear implicits. -Notation "{[ r 'with' 'SV32_Paddr_SV32_Paddr_chunk_0' := e ]}" := - {| SV32_Paddr_SV32_Paddr_chunk_0 := e |} (only parsing). - -Record SV32_PTE := { SV32_PTE_SV32_PTE_chunk_0 : mword 32; }. -Arguments SV32_PTE : clear implicits. -Notation "{[ r 'with' 'SV32_PTE_SV32_PTE_chunk_0' := e ]}" := - {| SV32_PTE_SV32_PTE_chunk_0 := e |} (only parsing). - Definition paddr64 : Type := bits 56. Definition pte64 : Type := bits 64. @@ -554,32 +710,17 @@ Definition asid64 : Type := bits 16. Definition vaddr39 : Type := bits 39. -Record SV39_Vaddr := { SV39_Vaddr_SV39_Vaddr_chunk_0 : mword 39; }. -Arguments SV39_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV39_Vaddr_SV39_Vaddr_chunk_0' := e ]}" := - {| SV39_Vaddr_SV39_Vaddr_chunk_0 := e |} (only parsing). - -Record SV39_Paddr := { SV39_Paddr_SV39_Paddr_chunk_0 : mword 56; }. -Arguments SV39_Paddr : clear implicits. -Notation "{[ r 'with' 'SV39_Paddr_SV39_Paddr_chunk_0' := e ]}" := - {| SV39_Paddr_SV39_Paddr_chunk_0 := e |} (only parsing). - -Record SV39_PTE := { SV39_PTE_SV39_PTE_chunk_0 : mword 64; }. -Arguments SV39_PTE : clear implicits. -Notation "{[ r 'with' 'SV39_PTE_SV39_PTE_chunk_0' := e ]}" := - {| SV39_PTE_SV39_PTE_chunk_0 := e |} (only parsing). - Definition vaddr48 : Type := bits 48. Definition pte48 : Type := bits 64. Inductive PTW_Result {paddr : Type} {pte : Type} := - | PTW_Success : (paddr * pte * paddr * {n : Z & ArithFact (n >= 0)} * bool) -> PTW_Result - | PTW_Failure : PTW_Error -> PTW_Result. + | PTW_Success : (paddr * pte * paddr * {n : Z & ArithFact (n >=? 0)} * bool * ext_ptw) -> PTW_Result + | PTW_Failure : (PTW_Error * ext_ptw) -> PTW_Result. Arguments PTW_Result : clear implicits. Inductive TR_Result {paddr : Type} {failure : Type} := - | TR_Address : paddr -> TR_Result | TR_Failure : failure -> TR_Result. + | TR_Address : (paddr * ext_ptw) -> TR_Result | TR_Failure : (failure * ext_ptw) -> TR_Result. Arguments TR_Result : clear implicits. Record TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} := @@ -593,113 +734,43 @@ Record TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} := TLB_Entry_pteAddr : bits palen; TLB_Entry_age : bits 64; }. Arguments TLB_Entry : clear implicits. -Notation "{[ r 'with' 'TLB_Entry_asid' := e ]}" := {| - TLB_Entry_asid := e; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_global' := e ]}" := {| - TLB_Entry_global := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vAddr' := e ]}" := {| - TLB_Entry_vAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pAddr' := e ]}" := {| - TLB_Entry_pAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vMatchMask' := e ]}" := {| - TLB_Entry_vMatchMask := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vAddrMask' := e ]}" := {| - TLB_Entry_vAddrMask := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pte' := e ]}" := {| - TLB_Entry_pte := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pteAddr' := e ]}" := {| - TLB_Entry_pteAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_age' := e ]}" := {| - TLB_Entry_age := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r - |}. +Notation "{[ r 'with' 'TLB_Entry_asid' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ _ f1 f2 f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ e f1 f2 f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_global' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 _ f2 f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 e f2 f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 _ f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 e f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 _ f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 e f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vMatchMask' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 _ f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 e f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vAddrMask' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 _ f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 e f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pte' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 _ f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 e f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pteAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 _ f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 e f8 end. +Notation "{[ r 'with' 'TLB_Entry_age' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 f7 _ => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 f7 e end. Definition TLB32_Entry : Type := TLB_Entry 9 32 34 32. Inductive register_value := - | Regval_vector : (Z * bool * list register_value) -> register_value + | Regval_vector : list register_value -> register_value | Regval_list : list register_value -> register_value | Regval_option : option register_value -> register_value | Regval_Counteren : Counteren -> register_value + | Regval_Counterin : Counterin -> register_value + | Regval_Fcsr : Fcsr -> register_value | Regval_Mcause : Mcause -> register_value | Regval_Medeleg : Medeleg -> register_value | Regval_Minterrupts : Minterrupts -> register_value @@ -724,6 +795,42 @@ Record regstate := htif_done : bool; htif_tohost : mword 64; mtimecmp : mword 64; + fcsr : Fcsr; + f31 : mword 32; + f30 : mword 32; + f29 : mword 32; + f28 : mword 32; + f27 : mword 32; + f26 : mword 32; + f25 : mword 32; + f24 : mword 32; + f23 : mword 32; + f22 : mword 32; + f21 : mword 32; + f20 : mword 32; + f19 : mword 32; + f18 : mword 32; + f17 : mword 32; + f16 : mword 32; + f15 : mword 32; + f14 : mword 32; + f13 : mword 32; + f12 : mword 32; + f11 : mword 32; + f10 : mword 32; + f9 : mword 32; + f8 : mword 32; + f7 : mword 32; + f6 : mword 32; + f5 : mword 32; + f4 : mword 32; + f3 : mword 32; + f2 : mword 32; + f1 : mword 32; + f0 : mword 32; + fs : vec (mword 32) 32; + float_fflags : mword 64; + float_result : mword 64; utval : mword 32; ucause : Mcause; uepc : mword 32; @@ -777,6 +884,7 @@ Record regstate := minstret : mword 64; mtime : mword 64; mcycle : mword 64; + mcountinhibit : Counterin; scounteren : Counteren; mcounteren : Counteren; mscratch : mword 32; @@ -828,12240 +936,693 @@ Record regstate := nextPC : mword 32; PC : mword 32; }. Arguments regstate : clear implicits. -Notation "{[ r 'with' 'satp' := e ]}" := {| - satp := e; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'tlb32' := e ]}" := {| - tlb32 := e; - satp := satp r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_exit_code' := e ]}" := {| - htif_exit_code := e; - satp := satp r; - tlb32 := tlb32 r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_done' := e ]}" := {| - htif_done := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_tohost' := e ]}" := {| - htif_tohost := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtimecmp' := e ]}" := {| - mtimecmp := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'utval' := e ]}" := {| - utval := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'ucause' := e ]}" := {| - ucause := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'uepc' := e ]}" := {| - uepc := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'uscratch' := e ]}" := {| - uscratch := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'utvec' := e ]}" := {| - utvec := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr15' := e ]}" := {| - pmpaddr15 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr14' := e ]}" := {| - pmpaddr14 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr13' := e ]}" := {| - pmpaddr13 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr12' := e ]}" := {| - pmpaddr12 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr11' := e ]}" := {| - pmpaddr11 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr10' := e ]}" := {| - pmpaddr10 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr9' := e ]}" := {| - pmpaddr9 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr8' := e ]}" := {| - pmpaddr8 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr7' := e ]}" := {| - pmpaddr7 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr6' := e ]}" := {| - pmpaddr6 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr5' := e ]}" := {| - pmpaddr5 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr4' := e ]}" := {| - pmpaddr4 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr3' := e ]}" := {| - pmpaddr3 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr2' := e ]}" := {| - pmpaddr2 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr1' := e ]}" := {| - pmpaddr1 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr0' := e ]}" := {| - pmpaddr0 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp15cfg' := e ]}" := {| - pmp15cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp14cfg' := e ]}" := {| - pmp14cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp13cfg' := e ]}" := {| - pmp13cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp12cfg' := e ]}" := {| - pmp12cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp11cfg' := e ]}" := {| - pmp11cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp10cfg' := e ]}" := {| - pmp10cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp9cfg' := e ]}" := {| - pmp9cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp8cfg' := e ]}" := {| - pmp8cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp7cfg' := e ]}" := {| - pmp7cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp6cfg' := e ]}" := {| - pmp6cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp5cfg' := e ]}" := {| - pmp5cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp4cfg' := e ]}" := {| - pmp4cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp3cfg' := e ]}" := {| - pmp3cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp2cfg' := e ]}" := {| - pmp2cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp1cfg' := e ]}" := {| - pmp1cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp0cfg' := e ]}" := {| - pmp0cfg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'tselect' := e ]}" := {| - tselect := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'stval' := e ]}" := {| - stval := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'scause' := e ]}" := {| - scause := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sepc' := e ]}" := {| - sepc := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sscratch' := e ]}" := {| - sscratch := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'stvec' := e ]}" := {| - stvec := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sideleg' := e ]}" := {| - sideleg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sedeleg' := e ]}" := {| - sedeleg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mhartid' := e ]}" := {| - mhartid := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'marchid' := e ]}" := {| - marchid := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mimpid' := e ]}" := {| - mimpid := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mvendorid' := e ]}" := {| - mvendorid := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'minstret_written' := e ]}" := {| - minstret_written := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'minstret' := e ]}" := {| - minstret := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtime' := e ]}" := {| - mtime := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcycle' := e ]}" := {| - mcycle := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'scounteren' := e ]}" := {| - scounteren := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcounteren' := e ]}" := {| - mcounteren := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mscratch' := e ]}" := {| - mscratch := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtval' := e ]}" := {| - mtval := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mepc' := e ]}" := {| - mepc := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcause' := e ]}" := {| - mcause := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtvec' := e ]}" := {| - mtvec := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'medeleg' := e ]}" := {| - medeleg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mideleg' := e ]}" := {| - mideleg := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mie' := e ]}" := {| - mie := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mip' := e ]}" := {| - mip := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mstatus' := e ]}" := {| - mstatus := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'misa' := e ]}" := {| - misa := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'cur_inst' := e ]}" := {| - cur_inst := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'cur_privilege' := e ]}" := {| - cur_privilege := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x31' := e ]}" := {| - x31 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x30' := e ]}" := {| - x30 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x29' := e ]}" := {| - x29 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x28' := e ]}" := {| - x28 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x27' := e ]}" := {| - x27 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x26' := e ]}" := {| - x26 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x25' := e ]}" := {| - x25 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x24' := e ]}" := {| - x24 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x23' := e ]}" := {| - x23 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x22' := e ]}" := {| - x22 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x21' := e ]}" := {| - x21 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x20' := e ]}" := {| - x20 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x19' := e ]}" := {| - x19 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x18' := e ]}" := {| - x18 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x17' := e ]}" := {| - x17 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x16' := e ]}" := {| - x16 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x15' := e ]}" := {| - x15 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x14' := e ]}" := {| - x14 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x13' := e ]}" := {| - x13 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x12' := e ]}" := {| - x12 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x11' := e ]}" := {| - x11 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x10' := e ]}" := {| - x10 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x9' := e ]}" := {| - x9 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x8' := e ]}" := {| - x8 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x7' := e ]}" := {| - x7 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x6' := e ]}" := {| - x6 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x5' := e ]}" := {| - x5 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x4' := e ]}" := {| - x4 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x3' := e ]}" := {| - x3 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x2' := e ]}" := {| - x2 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x1' := e ]}" := {| - x1 := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'Xs' := e ]}" := {| - Xs := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'instbits' := e ]}" := {| - instbits := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'nextPC' := e ]}" := {| - nextPC := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - PC := PC r - |}. -Notation "{[ r 'with' 'PC' := e ]}" := {| - PC := e; - satp := satp r; - tlb32 := tlb32 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r - |}. - - - -Definition Counteren_of_regval (merge_var : register_value) -: option Counteren := - - match merge_var with | Regval_Counteren (v) => Some (v) | _ => None end. - -Definition regval_of_Counteren (v : Counteren) : register_value := Regval_Counteren (v). - -Definition Mcause_of_regval (merge_var : register_value) -: option Mcause := - - match merge_var with | Regval_Mcause (v) => Some (v) | _ => None end. - -Definition regval_of_Mcause (v : Mcause) : register_value := Regval_Mcause (v). - -Definition Medeleg_of_regval (merge_var : register_value) -: option Medeleg := - - match merge_var with | Regval_Medeleg (v) => Some (v) | _ => None end. - -Definition regval_of_Medeleg (v : Medeleg) : register_value := Regval_Medeleg (v). - -Definition Minterrupts_of_regval (merge_var : register_value) -: option Minterrupts := - - match merge_var with | Regval_Minterrupts (v) => Some (v) | _ => None end. - -Definition regval_of_Minterrupts (v : Minterrupts) : register_value := Regval_Minterrupts (v). - -Definition Misa_of_regval (merge_var : register_value) -: option Misa := - - match merge_var with | Regval_Misa (v) => Some (v) | _ => None end. - -Definition regval_of_Misa (v : Misa) : register_value := Regval_Misa (v). - -Definition Mstatus_of_regval (merge_var : register_value) -: option Mstatus := - - match merge_var with | Regval_Mstatus (v) => Some (v) | _ => None end. - -Definition regval_of_Mstatus (v : Mstatus) : register_value := Regval_Mstatus (v). - -Definition Mtvec_of_regval (merge_var : register_value) -: option Mtvec := - - match merge_var with | Regval_Mtvec (v) => Some (v) | _ => None end. - -Definition regval_of_Mtvec (v : Mtvec) : register_value := Regval_Mtvec (v). - -Definition Pmpcfg_ent_of_regval (merge_var : register_value) -: option Pmpcfg_ent := - - match merge_var with | Regval_Pmpcfg_ent (v) => Some (v) | _ => None end. - -Definition regval_of_Pmpcfg_ent (v : Pmpcfg_ent) : register_value := Regval_Pmpcfg_ent (v). - -Definition Privilege_of_regval (merge_var : register_value) -: option Privilege := - - match merge_var with | Regval_Privilege (v) => Some (v) | _ => None end. - -Definition regval_of_Privilege (v : Privilege) : register_value := Regval_Privilege (v). - -Definition Sedeleg_of_regval (merge_var : register_value) -: option Sedeleg := - - match merge_var with | Regval_Sedeleg (v) => Some (v) | _ => None end. - -Definition regval_of_Sedeleg (v : Sedeleg) : register_value := Regval_Sedeleg (v). - -Definition Sinterrupts_of_regval (merge_var : register_value) -: option Sinterrupts := - - match merge_var with | Regval_Sinterrupts (v) => Some (v) | _ => None end. - -Definition regval_of_Sinterrupts (v : Sinterrupts) : register_value := Regval_Sinterrupts (v). +Notation "{[ r 'with' 'satp' := e ]}" := + match r with Build_regstate _ f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate e f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'tlb32' := e ]}" := + match r with Build_regstate f0 _ f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 e f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'htif_exit_code' := e ]}" := + match r with Build_regstate f0 f1 _ f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 e f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'htif_done' := e ]}" := + match r with Build_regstate f0 f1 f2 _ f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 e f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'htif_tohost' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 _ f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 e f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mtimecmp' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 _ f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 e f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'fcsr' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 _ f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 e f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f31' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 _ f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 e f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f30' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 _ f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 e f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f29' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 _ f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 e f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f28' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 _ f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 e f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f27' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 _ f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 e f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f26' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 _ f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 e f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f25' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 _ f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 e f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f24' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 _ f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 e f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f23' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 _ f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 e f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f22' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 _ f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 e f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f21' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 _ f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 e f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f20' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 _ f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 e f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f19' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 _ f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 e f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f18' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 _ f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 e f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f17' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 _ f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 e f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f16' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 _ f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 e f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 _ f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 e f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 _ f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 e f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 _ f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 e f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 _ f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 e f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 _ f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 e f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 _ f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 e f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 _ f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 e f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 _ f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 e f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 _ f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 e f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 _ f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 e f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 _ f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 e f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 _ f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 e f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 _ f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 e f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 _ f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 e f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 _ f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 e f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'f0' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 _ f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 e f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'fs' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 _ f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 e f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'float_fflags' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 _ f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 e f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'float_result' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 _ f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 e f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'utval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 _ f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 e f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'ucause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 _ f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 e f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'uepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 _ f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 e f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'uscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 _ f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 e f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'utvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 _ f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 e f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 _ f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 e f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 _ f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 e f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 _ f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 e f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 _ f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 e f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 _ f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 e f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 _ f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 e f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 _ f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 e f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 _ f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 e f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 _ f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 e f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 _ f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 e f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 _ f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 e f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 _ f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 e f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 _ f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 e f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 _ f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 e f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 _ f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 e f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmpaddr0' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 _ f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 e f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp15cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 _ f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 e f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp14cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 _ f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 e f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp13cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 _ f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 e f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp12cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 _ f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 e f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp11cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 _ f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 e f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp10cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 _ f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 e f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp9cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 _ f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 e f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp8cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 _ f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 e f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp7cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 _ f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 e f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp6cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 _ f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 e f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp5cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 _ f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 e f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp4cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 _ f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 e f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp3cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 _ f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 e f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp2cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 _ f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 e f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp1cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 _ f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 e f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'pmp0cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 _ f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 e f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'tselect' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 _ f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 e f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'stval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 _ f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 e f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'scause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 _ f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 e f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'sepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 _ f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 e f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'sscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 _ f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 e f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'stvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 _ f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 e f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'sideleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 _ f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 e f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'sedeleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 _ f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 e f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mhartid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 _ f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 e f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'marchid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 _ f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 e f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mimpid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 _ f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 e f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mvendorid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 _ f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 e f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'minstret_written' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 _ f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 e f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'minstret' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 _ f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 e f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mtime' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 _ f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 e f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mcycle' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 _ f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 e f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mcountinhibit' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 _ f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 e f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'scounteren' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 _ f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 e f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mcounteren' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 _ f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 e f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 _ f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 e f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mtval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 _ f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 e f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 _ f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 e f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mcause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 _ f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 e f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mtvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 _ f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 e f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'medeleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 _ f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 e f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mideleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 _ f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 e f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mie' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 _ f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 e f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mip' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 _ f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 e f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'mstatus' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 _ f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 e f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'misa' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 _ f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 e f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'cur_inst' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 _ f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 e f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'cur_privilege' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 _ f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 e f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x31' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 _ f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 e f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x30' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 _ f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 e f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x29' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 _ f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 e f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x28' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 _ f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 e f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x27' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 _ f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 e f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x26' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 _ f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 e f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x25' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 _ f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 e f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x24' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 _ f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 e f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x23' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 _ f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 e f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x22' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 _ f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 e f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x21' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 _ f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 e f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x20' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 _ f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 e f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x19' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 _ f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 e f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x18' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 _ f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 e f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x17' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 _ f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 e f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x16' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 _ f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 e f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 _ f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 e f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 _ f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 e f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 _ f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 e f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 _ f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 e f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 _ f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 e f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 _ f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 e f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 _ f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 e f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 _ f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 e f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 _ f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 e f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 _ f137 f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 e f137 f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 _ f138 f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 e f138 f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 _ f139 f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 e f139 f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 _ f140 f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 e f140 f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 _ f141 f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 e f141 f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'x1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 _ f142 f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 e f142 f143 f144 f145 + end. +Notation "{[ r 'with' 'Xs' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 _ f143 f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 e f143 f144 f145 + end. +Notation "{[ r 'with' 'instbits' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 _ f144 f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 e f144 f145 + end. +Notation "{[ r 'with' 'nextPC' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 _ f145 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 e f145 + end. +Notation "{[ r 'with' 'PC' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 _ => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 e + end. + + + +Definition Counteren_of_regval (merge_var : register_value) : option Counteren := + match merge_var with | Regval_Counteren v => Some v | _ => None end. + +Definition regval_of_Counteren (v : Counteren) : register_value := Regval_Counteren v. + +Definition Counterin_of_regval (merge_var : register_value) : option Counterin := + match merge_var with | Regval_Counterin v => Some v | _ => None end. + +Definition regval_of_Counterin (v : Counterin) : register_value := Regval_Counterin v. + +Definition Fcsr_of_regval (merge_var : register_value) : option Fcsr := + match merge_var with | Regval_Fcsr v => Some v | _ => None end. + +Definition regval_of_Fcsr (v : Fcsr) : register_value := Regval_Fcsr v. + +Definition Mcause_of_regval (merge_var : register_value) : option Mcause := + match merge_var with | Regval_Mcause v => Some v | _ => None end. + +Definition regval_of_Mcause (v : Mcause) : register_value := Regval_Mcause v. + +Definition Medeleg_of_regval (merge_var : register_value) : option Medeleg := + match merge_var with | Regval_Medeleg v => Some v | _ => None end. + +Definition regval_of_Medeleg (v : Medeleg) : register_value := Regval_Medeleg v. + +Definition Minterrupts_of_regval (merge_var : register_value) : option Minterrupts := + match merge_var with | Regval_Minterrupts v => Some v | _ => None end. + +Definition regval_of_Minterrupts (v : Minterrupts) : register_value := Regval_Minterrupts v. + +Definition Misa_of_regval (merge_var : register_value) : option Misa := + match merge_var with | Regval_Misa v => Some v | _ => None end. + +Definition regval_of_Misa (v : Misa) : register_value := Regval_Misa v. + +Definition Mstatus_of_regval (merge_var : register_value) : option Mstatus := + match merge_var with | Regval_Mstatus v => Some v | _ => None end. + +Definition regval_of_Mstatus (v : Mstatus) : register_value := Regval_Mstatus v. + +Definition Mtvec_of_regval (merge_var : register_value) : option Mtvec := + match merge_var with | Regval_Mtvec v => Some v | _ => None end. + +Definition regval_of_Mtvec (v : Mtvec) : register_value := Regval_Mtvec v. + +Definition Pmpcfg_ent_of_regval (merge_var : register_value) : option Pmpcfg_ent := + match merge_var with | Regval_Pmpcfg_ent v => Some v | _ => None end. -Definition TLB_Entry_9_32_34_32_of_regval (merge_var : register_value) +Definition regval_of_Pmpcfg_ent (v : Pmpcfg_ent) : register_value := Regval_Pmpcfg_ent v. + +Definition Privilege_of_regval (merge_var : register_value) : option Privilege := + match merge_var with | Regval_Privilege v => Some v | _ => None end. + +Definition regval_of_Privilege (v : Privilege) : register_value := Regval_Privilege v. + +Definition Sedeleg_of_regval (merge_var : register_value) : option Sedeleg := + match merge_var with | Regval_Sedeleg v => Some v | _ => None end. + +Definition regval_of_Sedeleg (v : Sedeleg) : register_value := Regval_Sedeleg v. + +Definition Sinterrupts_of_regval (merge_var : register_value) : option Sinterrupts := + match merge_var with | Regval_Sinterrupts v => Some v | _ => None end. + +Definition regval_of_Sinterrupts (v : Sinterrupts) : register_value := Regval_Sinterrupts v. + +Definition TLB_Entry_9_32_34_32_of_regval (merge_var : register_value) : option (TLB_Entry 9 32 34 32) := - - match merge_var with | Regval_TLB_Entry_9_32_34_32 (v) => Some (v) | _ => None end. + match merge_var with | Regval_TLB_Entry_9_32_34_32 v => Some v | _ => None end. -Definition regval_of_TLB_Entry_9_32_34_32 (v : TLB_Entry 9 32 34 32) -: register_value := - - Regval_TLB_Entry_9_32_34_32 - (v). +Definition regval_of_TLB_Entry_9_32_34_32 (v : TLB_Entry 9 32 34 32) : register_value := + Regval_TLB_Entry_9_32_34_32 v. -Definition bit_of_regval (merge_var : register_value) -: option bitU := - - match merge_var with | Regval_bit (v) => Some (v) | _ => None end. +Definition bit_of_regval (merge_var : register_value) : option bitU := + match merge_var with | Regval_bit v => Some v | _ => None end. -Definition regval_of_bit (v : bitU) : register_value := Regval_bit (v). +Definition regval_of_bit (v : bitU) : register_value := Regval_bit v. -Definition bitvector_32_dec_of_regval (merge_var : register_value) -: option (mword 32) := - - match merge_var with | Regval_bitvector_32_dec (v) => Some (v) | _ => None end. +Definition bitvector_32_dec_of_regval (merge_var : register_value) : option (mword 32) := + match merge_var with | Regval_bitvector_32_dec v => Some v | _ => None end. -Definition regval_of_bitvector_32_dec (v : mword 32) -: register_value := - - Regval_bitvector_32_dec - (v). +Definition regval_of_bitvector_32_dec (v : mword 32) : register_value := Regval_bitvector_32_dec v. -Definition bitvector_64_dec_of_regval (merge_var : register_value) -: option (mword 64) := - - match merge_var with | Regval_bitvector_64_dec (v) => Some (v) | _ => None end. +Definition bitvector_64_dec_of_regval (merge_var : register_value) : option (mword 64) := + match merge_var with | Regval_bitvector_64_dec v => Some v | _ => None end. -Definition regval_of_bitvector_64_dec (v : mword 64) -: register_value := - - Regval_bitvector_64_dec - (v). +Definition regval_of_bitvector_64_dec (v : mword 64) : register_value := Regval_bitvector_64_dec v. -Definition bool_of_regval (merge_var : register_value) -: option bool := - - match merge_var with | Regval_bool (v) => Some (v) | _ => None end. +Definition bool_of_regval (merge_var : register_value) : option bool := + match merge_var with | Regval_bool v => Some v | _ => None end. -Definition regval_of_bool (v : bool) : register_value := Regval_bool (v). +Definition regval_of_bool (v : bool) : register_value := Regval_bool v. Definition vector_of_regval {a} n (of_regval : register_value -> option a) (rv : register_value) : option (vec a n) := match rv with - | Regval_vector (n', _, v) => if n =? n' then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None + | Regval_vector v => if n =? length_list v then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None | _ => None end. -Definition regval_of_vector {a} (regval_of : a -> register_value) (size : Z) (is_inc : bool) (xs : vec a size) : register_value := Regval_vector (size, is_inc, List.map regval_of (list_of_vec xs)). +Definition regval_of_vector {a size} (regval_of : a -> register_value) (xs : vec a size) : register_value := Regval_vector (List.map regval_of (list_of_vec xs)). Definition list_of_regval {a} (of_regval : register_value -> option a) (rv : register_value) : option (list a) := match rv with | Regval_list v => just_list (List.map of_regval v) @@ -13120,6 +1681,258 @@ Definition mtimecmp_ref := {| of_regval := (fun v => bitvector_64_dec_of_regval v); regval_of := (fun v => regval_of_bitvector_64_dec v) |}. +Definition fcsr_ref := {| + name := "fcsr"; + read_from := (fun s => s.(fcsr)); + write_to := (fun v s => ({[ s with fcsr := v ]})); + of_regval := (fun v => Fcsr_of_regval v); + regval_of := (fun v => regval_of_Fcsr v) |}. + +Definition f31_ref := {| + name := "f31"; + read_from := (fun s => s.(f31)); + write_to := (fun v s => ({[ s with f31 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f30_ref := {| + name := "f30"; + read_from := (fun s => s.(f30)); + write_to := (fun v s => ({[ s with f30 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f29_ref := {| + name := "f29"; + read_from := (fun s => s.(f29)); + write_to := (fun v s => ({[ s with f29 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f28_ref := {| + name := "f28"; + read_from := (fun s => s.(f28)); + write_to := (fun v s => ({[ s with f28 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f27_ref := {| + name := "f27"; + read_from := (fun s => s.(f27)); + write_to := (fun v s => ({[ s with f27 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f26_ref := {| + name := "f26"; + read_from := (fun s => s.(f26)); + write_to := (fun v s => ({[ s with f26 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f25_ref := {| + name := "f25"; + read_from := (fun s => s.(f25)); + write_to := (fun v s => ({[ s with f25 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f24_ref := {| + name := "f24"; + read_from := (fun s => s.(f24)); + write_to := (fun v s => ({[ s with f24 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f23_ref := {| + name := "f23"; + read_from := (fun s => s.(f23)); + write_to := (fun v s => ({[ s with f23 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f22_ref := {| + name := "f22"; + read_from := (fun s => s.(f22)); + write_to := (fun v s => ({[ s with f22 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f21_ref := {| + name := "f21"; + read_from := (fun s => s.(f21)); + write_to := (fun v s => ({[ s with f21 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f20_ref := {| + name := "f20"; + read_from := (fun s => s.(f20)); + write_to := (fun v s => ({[ s with f20 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f19_ref := {| + name := "f19"; + read_from := (fun s => s.(f19)); + write_to := (fun v s => ({[ s with f19 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f18_ref := {| + name := "f18"; + read_from := (fun s => s.(f18)); + write_to := (fun v s => ({[ s with f18 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f17_ref := {| + name := "f17"; + read_from := (fun s => s.(f17)); + write_to := (fun v s => ({[ s with f17 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f16_ref := {| + name := "f16"; + read_from := (fun s => s.(f16)); + write_to := (fun v s => ({[ s with f16 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f15_ref := {| + name := "f15"; + read_from := (fun s => s.(f15)); + write_to := (fun v s => ({[ s with f15 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f14_ref := {| + name := "f14"; + read_from := (fun s => s.(f14)); + write_to := (fun v s => ({[ s with f14 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f13_ref := {| + name := "f13"; + read_from := (fun s => s.(f13)); + write_to := (fun v s => ({[ s with f13 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f12_ref := {| + name := "f12"; + read_from := (fun s => s.(f12)); + write_to := (fun v s => ({[ s with f12 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f11_ref := {| + name := "f11"; + read_from := (fun s => s.(f11)); + write_to := (fun v s => ({[ s with f11 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f10_ref := {| + name := "f10"; + read_from := (fun s => s.(f10)); + write_to := (fun v s => ({[ s with f10 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f9_ref := {| + name := "f9"; + read_from := (fun s => s.(f9)); + write_to := (fun v s => ({[ s with f9 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f8_ref := {| + name := "f8"; + read_from := (fun s => s.(f8)); + write_to := (fun v s => ({[ s with f8 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f7_ref := {| + name := "f7"; + read_from := (fun s => s.(f7)); + write_to := (fun v s => ({[ s with f7 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f6_ref := {| + name := "f6"; + read_from := (fun s => s.(f6)); + write_to := (fun v s => ({[ s with f6 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f5_ref := {| + name := "f5"; + read_from := (fun s => s.(f5)); + write_to := (fun v s => ({[ s with f5 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f4_ref := {| + name := "f4"; + read_from := (fun s => s.(f4)); + write_to := (fun v s => ({[ s with f4 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f3_ref := {| + name := "f3"; + read_from := (fun s => s.(f3)); + write_to := (fun v s => ({[ s with f3 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f2_ref := {| + name := "f2"; + read_from := (fun s => s.(f2)); + write_to := (fun v s => ({[ s with f2 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f1_ref := {| + name := "f1"; + read_from := (fun s => s.(f1)); + write_to := (fun v s => ({[ s with f1 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition f0_ref := {| + name := "f0"; + read_from := (fun s => s.(f0)); + write_to := (fun v s => ({[ s with f0 := v ]})); + of_regval := (fun v => bitvector_32_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_32_dec v) |}. + +Definition fs_ref := {| + name := "fs"; + read_from := (fun s => s.(fs)); + write_to := (fun v s => ({[ s with fs := v ]})); + of_regval := (fun v => vector_of_regval 32 (fun v => bitvector_32_dec_of_regval v) v); + regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_32_dec v) v) |}. + +Definition float_fflags_ref := {| + name := "float_fflags"; + read_from := (fun s => s.(float_fflags)); + write_to := (fun v s => ({[ s with float_fflags := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition float_result_ref := {| + name := "float_result"; + read_from := (fun s => s.(float_result)); + write_to := (fun v s => ({[ s with float_result := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + Definition utval_ref := {| name := "utval"; read_from := (fun s => s.(utval)); @@ -13491,6 +2304,13 @@ Definition mcycle_ref := {| of_regval := (fun v => bitvector_64_dec_of_regval v); regval_of := (fun v => regval_of_bitvector_64_dec v) |}. +Definition mcountinhibit_ref := {| + name := "mcountinhibit"; + read_from := (fun s => s.(mcountinhibit)); + write_to := (fun v s => ({[ s with mcountinhibit := v ]})); + of_regval := (fun v => Counterin_of_regval v); + regval_of := (fun v => regval_of_Counterin v) |}. + Definition scounteren_ref := {| name := "scounteren"; read_from := (fun s => s.(scounteren)); @@ -13818,7 +2638,7 @@ Definition Xs_ref := {| read_from := (fun s => s.(Xs)); write_to := (fun v s => ({[ s with Xs := v ]})); of_regval := (fun v => vector_of_regval 32 (fun v => bitvector_32_dec_of_regval v) v); - regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_32_dec v) 32 false v) |}. + regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_32_dec v) v) |}. Definition instbits_ref := {| name := "instbits"; @@ -13849,6 +2669,42 @@ Definition get_regval (reg_name : string) (s : regstate) : option register_value if string_dec reg_name "htif_done" then Some (htif_done_ref.(regval_of) (htif_done_ref.(read_from) s)) else if string_dec reg_name "htif_tohost" then Some (htif_tohost_ref.(regval_of) (htif_tohost_ref.(read_from) s)) else if string_dec reg_name "mtimecmp" then Some (mtimecmp_ref.(regval_of) (mtimecmp_ref.(read_from) s)) else + if string_dec reg_name "fcsr" then Some (fcsr_ref.(regval_of) (fcsr_ref.(read_from) s)) else + if string_dec reg_name "f31" then Some (f31_ref.(regval_of) (f31_ref.(read_from) s)) else + if string_dec reg_name "f30" then Some (f30_ref.(regval_of) (f30_ref.(read_from) s)) else + if string_dec reg_name "f29" then Some (f29_ref.(regval_of) (f29_ref.(read_from) s)) else + if string_dec reg_name "f28" then Some (f28_ref.(regval_of) (f28_ref.(read_from) s)) else + if string_dec reg_name "f27" then Some (f27_ref.(regval_of) (f27_ref.(read_from) s)) else + if string_dec reg_name "f26" then Some (f26_ref.(regval_of) (f26_ref.(read_from) s)) else + if string_dec reg_name "f25" then Some (f25_ref.(regval_of) (f25_ref.(read_from) s)) else + if string_dec reg_name "f24" then Some (f24_ref.(regval_of) (f24_ref.(read_from) s)) else + if string_dec reg_name "f23" then Some (f23_ref.(regval_of) (f23_ref.(read_from) s)) else + if string_dec reg_name "f22" then Some (f22_ref.(regval_of) (f22_ref.(read_from) s)) else + if string_dec reg_name "f21" then Some (f21_ref.(regval_of) (f21_ref.(read_from) s)) else + if string_dec reg_name "f20" then Some (f20_ref.(regval_of) (f20_ref.(read_from) s)) else + if string_dec reg_name "f19" then Some (f19_ref.(regval_of) (f19_ref.(read_from) s)) else + if string_dec reg_name "f18" then Some (f18_ref.(regval_of) (f18_ref.(read_from) s)) else + if string_dec reg_name "f17" then Some (f17_ref.(regval_of) (f17_ref.(read_from) s)) else + if string_dec reg_name "f16" then Some (f16_ref.(regval_of) (f16_ref.(read_from) s)) else + if string_dec reg_name "f15" then Some (f15_ref.(regval_of) (f15_ref.(read_from) s)) else + if string_dec reg_name "f14" then Some (f14_ref.(regval_of) (f14_ref.(read_from) s)) else + if string_dec reg_name "f13" then Some (f13_ref.(regval_of) (f13_ref.(read_from) s)) else + if string_dec reg_name "f12" then Some (f12_ref.(regval_of) (f12_ref.(read_from) s)) else + if string_dec reg_name "f11" then Some (f11_ref.(regval_of) (f11_ref.(read_from) s)) else + if string_dec reg_name "f10" then Some (f10_ref.(regval_of) (f10_ref.(read_from) s)) else + if string_dec reg_name "f9" then Some (f9_ref.(regval_of) (f9_ref.(read_from) s)) else + if string_dec reg_name "f8" then Some (f8_ref.(regval_of) (f8_ref.(read_from) s)) else + if string_dec reg_name "f7" then Some (f7_ref.(regval_of) (f7_ref.(read_from) s)) else + if string_dec reg_name "f6" then Some (f6_ref.(regval_of) (f6_ref.(read_from) s)) else + if string_dec reg_name "f5" then Some (f5_ref.(regval_of) (f5_ref.(read_from) s)) else + if string_dec reg_name "f4" then Some (f4_ref.(regval_of) (f4_ref.(read_from) s)) else + if string_dec reg_name "f3" then Some (f3_ref.(regval_of) (f3_ref.(read_from) s)) else + if string_dec reg_name "f2" then Some (f2_ref.(regval_of) (f2_ref.(read_from) s)) else + if string_dec reg_name "f1" then Some (f1_ref.(regval_of) (f1_ref.(read_from) s)) else + if string_dec reg_name "f0" then Some (f0_ref.(regval_of) (f0_ref.(read_from) s)) else + if string_dec reg_name "fs" then Some (fs_ref.(regval_of) (fs_ref.(read_from) s)) else + if string_dec reg_name "float_fflags" then Some (float_fflags_ref.(regval_of) (float_fflags_ref.(read_from) s)) else + if string_dec reg_name "float_result" then Some (float_result_ref.(regval_of) (float_result_ref.(read_from) s)) else if string_dec reg_name "utval" then Some (utval_ref.(regval_of) (utval_ref.(read_from) s)) else if string_dec reg_name "ucause" then Some (ucause_ref.(regval_of) (ucause_ref.(read_from) s)) else if string_dec reg_name "uepc" then Some (uepc_ref.(regval_of) (uepc_ref.(read_from) s)) else @@ -13902,6 +2758,7 @@ Definition get_regval (reg_name : string) (s : regstate) : option register_value if string_dec reg_name "minstret" then Some (minstret_ref.(regval_of) (minstret_ref.(read_from) s)) else if string_dec reg_name "mtime" then Some (mtime_ref.(regval_of) (mtime_ref.(read_from) s)) else if string_dec reg_name "mcycle" then Some (mcycle_ref.(regval_of) (mcycle_ref.(read_from) s)) else + if string_dec reg_name "mcountinhibit" then Some (mcountinhibit_ref.(regval_of) (mcountinhibit_ref.(read_from) s)) else if string_dec reg_name "scounteren" then Some (scounteren_ref.(regval_of) (scounteren_ref.(read_from) s)) else if string_dec reg_name "mcounteren" then Some (mcounteren_ref.(regval_of) (mcounteren_ref.(read_from) s)) else if string_dec reg_name "mscratch" then Some (mscratch_ref.(regval_of) (mscratch_ref.(read_from) s)) else @@ -13961,6 +2818,42 @@ Definition set_regval (reg_name : string) (v : register_value) (s : regstate) : if string_dec reg_name "htif_done" then option_map (fun v => htif_done_ref.(write_to) v s) (htif_done_ref.(of_regval) v) else if string_dec reg_name "htif_tohost" then option_map (fun v => htif_tohost_ref.(write_to) v s) (htif_tohost_ref.(of_regval) v) else if string_dec reg_name "mtimecmp" then option_map (fun v => mtimecmp_ref.(write_to) v s) (mtimecmp_ref.(of_regval) v) else + if string_dec reg_name "fcsr" then option_map (fun v => fcsr_ref.(write_to) v s) (fcsr_ref.(of_regval) v) else + if string_dec reg_name "f31" then option_map (fun v => f31_ref.(write_to) v s) (f31_ref.(of_regval) v) else + if string_dec reg_name "f30" then option_map (fun v => f30_ref.(write_to) v s) (f30_ref.(of_regval) v) else + if string_dec reg_name "f29" then option_map (fun v => f29_ref.(write_to) v s) (f29_ref.(of_regval) v) else + if string_dec reg_name "f28" then option_map (fun v => f28_ref.(write_to) v s) (f28_ref.(of_regval) v) else + if string_dec reg_name "f27" then option_map (fun v => f27_ref.(write_to) v s) (f27_ref.(of_regval) v) else + if string_dec reg_name "f26" then option_map (fun v => f26_ref.(write_to) v s) (f26_ref.(of_regval) v) else + if string_dec reg_name "f25" then option_map (fun v => f25_ref.(write_to) v s) (f25_ref.(of_regval) v) else + if string_dec reg_name "f24" then option_map (fun v => f24_ref.(write_to) v s) (f24_ref.(of_regval) v) else + if string_dec reg_name "f23" then option_map (fun v => f23_ref.(write_to) v s) (f23_ref.(of_regval) v) else + if string_dec reg_name "f22" then option_map (fun v => f22_ref.(write_to) v s) (f22_ref.(of_regval) v) else + if string_dec reg_name "f21" then option_map (fun v => f21_ref.(write_to) v s) (f21_ref.(of_regval) v) else + if string_dec reg_name "f20" then option_map (fun v => f20_ref.(write_to) v s) (f20_ref.(of_regval) v) else + if string_dec reg_name "f19" then option_map (fun v => f19_ref.(write_to) v s) (f19_ref.(of_regval) v) else + if string_dec reg_name "f18" then option_map (fun v => f18_ref.(write_to) v s) (f18_ref.(of_regval) v) else + if string_dec reg_name "f17" then option_map (fun v => f17_ref.(write_to) v s) (f17_ref.(of_regval) v) else + if string_dec reg_name "f16" then option_map (fun v => f16_ref.(write_to) v s) (f16_ref.(of_regval) v) else + if string_dec reg_name "f15" then option_map (fun v => f15_ref.(write_to) v s) (f15_ref.(of_regval) v) else + if string_dec reg_name "f14" then option_map (fun v => f14_ref.(write_to) v s) (f14_ref.(of_regval) v) else + if string_dec reg_name "f13" then option_map (fun v => f13_ref.(write_to) v s) (f13_ref.(of_regval) v) else + if string_dec reg_name "f12" then option_map (fun v => f12_ref.(write_to) v s) (f12_ref.(of_regval) v) else + if string_dec reg_name "f11" then option_map (fun v => f11_ref.(write_to) v s) (f11_ref.(of_regval) v) else + if string_dec reg_name "f10" then option_map (fun v => f10_ref.(write_to) v s) (f10_ref.(of_regval) v) else + if string_dec reg_name "f9" then option_map (fun v => f9_ref.(write_to) v s) (f9_ref.(of_regval) v) else + if string_dec reg_name "f8" then option_map (fun v => f8_ref.(write_to) v s) (f8_ref.(of_regval) v) else + if string_dec reg_name "f7" then option_map (fun v => f7_ref.(write_to) v s) (f7_ref.(of_regval) v) else + if string_dec reg_name "f6" then option_map (fun v => f6_ref.(write_to) v s) (f6_ref.(of_regval) v) else + if string_dec reg_name "f5" then option_map (fun v => f5_ref.(write_to) v s) (f5_ref.(of_regval) v) else + if string_dec reg_name "f4" then option_map (fun v => f4_ref.(write_to) v s) (f4_ref.(of_regval) v) else + if string_dec reg_name "f3" then option_map (fun v => f3_ref.(write_to) v s) (f3_ref.(of_regval) v) else + if string_dec reg_name "f2" then option_map (fun v => f2_ref.(write_to) v s) (f2_ref.(of_regval) v) else + if string_dec reg_name "f1" then option_map (fun v => f1_ref.(write_to) v s) (f1_ref.(of_regval) v) else + if string_dec reg_name "f0" then option_map (fun v => f0_ref.(write_to) v s) (f0_ref.(of_regval) v) else + if string_dec reg_name "fs" then option_map (fun v => fs_ref.(write_to) v s) (fs_ref.(of_regval) v) else + if string_dec reg_name "float_fflags" then option_map (fun v => float_fflags_ref.(write_to) v s) (float_fflags_ref.(of_regval) v) else + if string_dec reg_name "float_result" then option_map (fun v => float_result_ref.(write_to) v s) (float_result_ref.(of_regval) v) else if string_dec reg_name "utval" then option_map (fun v => utval_ref.(write_to) v s) (utval_ref.(of_regval) v) else if string_dec reg_name "ucause" then option_map (fun v => ucause_ref.(write_to) v s) (ucause_ref.(of_regval) v) else if string_dec reg_name "uepc" then option_map (fun v => uepc_ref.(write_to) v s) (uepc_ref.(of_regval) v) else @@ -14014,6 +2907,7 @@ Definition set_regval (reg_name : string) (v : register_value) (s : regstate) : if string_dec reg_name "minstret" then option_map (fun v => minstret_ref.(write_to) v s) (minstret_ref.(of_regval) v) else if string_dec reg_name "mtime" then option_map (fun v => mtime_ref.(write_to) v s) (mtime_ref.(of_regval) v) else if string_dec reg_name "mcycle" then option_map (fun v => mcycle_ref.(write_to) v s) (mcycle_ref.(of_regval) v) else + if string_dec reg_name "mcountinhibit" then option_map (fun v => mcountinhibit_ref.(write_to) v s) (mcountinhibit_ref.(of_regval) v) else if string_dec reg_name "scounteren" then option_map (fun v => scounteren_ref.(write_to) v s) (scounteren_ref.(of_regval) v) else if string_dec reg_name "mcounteren" then option_map (fun v => mcounteren_ref.(write_to) v s) (mcounteren_ref.(of_regval) v) else if string_dec reg_name "mscratch" then option_map (fun v => mscratch_ref.(write_to) v s) (mscratch_ref.(of_regval) v) else diff --git a/prover_snapshots/coq/RV64/mem_metadata.v b/prover_snapshots/coq/RV64/mem_metadata.v new file mode 100644 index 0000000..bbfc856 --- /dev/null +++ b/prover_snapshots/coq/RV64/mem_metadata.v @@ -0,0 +1,8 @@ +Require Import Sail.Base. +Open Scope Z. + +Definition write_ram {rv e a} wk (addr : mword a) size (v : mword (8 * size)) (meta : unit) : monad rv bool e := write_mem wk a addr size v. + +Definition read_ram {rv e a} rk (addr : mword a) size (read_tag : bool) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size) * unit) e := + read_mem rk a addr size >>= fun data => + returnm (data, tt). diff --git a/prover_snapshots/coq/RV64/riscv.v b/prover_snapshots/coq/RV64/riscv.v index fc0e61d..57c4eaa 100644 --- a/prover_snapshots/coq/RV64/riscv.v +++ b/prover_snapshots/coq/RV64/riscv.v @@ -1,387 +1,347 @@ (*Generated by Sail from riscv.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Require Import riscv_types. +Require Import mem_metadata. Require Import riscv_extras. Import ListNotations. Open Scope string. Open Scope bool. -Section Content. +Open Scope Z. -Definition is_none {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => false | None => true end. -Definition is_some {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => true | None => false end. +Definition is_none {a : Type} (opt : option a) : bool := + match opt with | Some _ => false | None => true end. + +Definition is_some {a : Type} (opt : option a) : bool := + match opt with | Some _ => true | None => false end. + +Definition eq_unit (_ : unit) (_ : unit) : {_bool : bool & ArithFact (_bool)} := build_ex (true). + +Definition neq_int (x : Z) (y : Z) : {_bool : bool & ArithFact (Bool.eqb (negb (x =? y)) _bool)} := + build_ex (negb (Z.eqb x y)). -Definition eq_unit (_ : unit) (_ : unit) -: {_bool : bool & ArithFact (_bool = true)} := - - build_ex(true). +Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). -Definition neq_int (x : Z) (y : Z) -: {_bool : bool & ArithFact (iff (_bool = true) (x <> y))} := - - build_ex(negb (Z.eqb x y)). +Definition __id (x : Z) : {_retval : Z & ArithFact (_retval =? x)} := build_ex (x). -Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). +Definition fdiv_int (n : Z) (m : Z) : Z := + if sumbool_of_bool (andb (Z.ltb n 0) (Z.gtb m 0)) then Z.sub (Z.quot (Z.add n 1) m) 1 + else if sumbool_of_bool (andb (Z.gtb n 0) (Z.ltb m 0)) then Z.sub (Z.quot (Z.sub n 1) m) 1 + else Z.quot n m. -Definition __id (x : Z) : {_retval : Z & ArithFact (_retval = x)} := build_ex(x). +Definition fmod_int (n : Z) (m : Z) : Z := Z.sub n (Z.mul m (fdiv_int n m)). -Definition concat_str_bits {n : Z} (str : string) (x : mword n) -: string := - +Definition concat_str_bits {n : Z} (str : string) (x : mword n) : string := String.append str (string_of_bits x). -Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). +Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). -Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact (len >= 0 /\ v0 >= 0)} +Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact ((len >=? 0) && (v0 >=? 0))} : mword len := - - if sumbool_of_bool ((Z.leb len (length_mword v))) then vector_truncate v len - else zero_extend v len. + if sumbool_of_bool (Z.leb len (length_mword v)) then vector_truncate v len else zero_extend v len. -Definition sail_ones (n : Z) `{ArithFact (n >= 0)} : mword n := not_vec (zeros n). +Definition sail_ones (n : Z) `{ArithFact (n >=? 0)} : mword n := not_vec (zeros n). -Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >= 0)} -: mword n := - - if sumbool_of_bool ((Z.geb l n)) then shiftl (sail_ones n) i +Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >=? 0)} : mword n := + if sumbool_of_bool (Z.geb l n) then shiftl (sail_ones n) i else - let one : bits n := sail_mask n ((vec_of_bits [B1] : mword 1) : bits 1) in + let one : bits n := sail_mask n ('b"1" : bits 1) in shiftl (sub_vec (shiftl one l) one) i. -Definition read_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 11)} -: read_kind := - - let l__196 := arg_ in - if sumbool_of_bool ((Z.eqb l__196 0)) then Read_plain - else if sumbool_of_bool ((Z.eqb l__196 1)) then Read_reserve - else if sumbool_of_bool ((Z.eqb l__196 2)) then Read_acquire - else if sumbool_of_bool ((Z.eqb l__196 3)) then Read_exclusive - else if sumbool_of_bool ((Z.eqb l__196 4)) then Read_exclusive_acquire - else if sumbool_of_bool ((Z.eqb l__196 5)) then Read_stream - else if sumbool_of_bool ((Z.eqb l__196 6)) then Read_RISCV_acquire - else if sumbool_of_bool ((Z.eqb l__196 7)) then Read_RISCV_strong_acquire - else if sumbool_of_bool ((Z.eqb l__196 8)) then Read_RISCV_reserved - else if sumbool_of_bool ((Z.eqb l__196 9)) then Read_RISCV_reserved_acquire - else if sumbool_of_bool ((Z.eqb l__196 10)) then Read_RISCV_reserved_strong_acquire +Definition read_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 11))} : read_kind := + let l__292 := arg_ in + if sumbool_of_bool (Z.eqb l__292 0) then Read_plain + else if sumbool_of_bool (Z.eqb l__292 1) then Read_reserve + else if sumbool_of_bool (Z.eqb l__292 2) then Read_acquire + else if sumbool_of_bool (Z.eqb l__292 3) then Read_exclusive + else if sumbool_of_bool (Z.eqb l__292 4) then Read_exclusive_acquire + else if sumbool_of_bool (Z.eqb l__292 5) then Read_stream + else if sumbool_of_bool (Z.eqb l__292 6) then Read_RISCV_acquire + else if sumbool_of_bool (Z.eqb l__292 7) then Read_RISCV_strong_acquire + else if sumbool_of_bool (Z.eqb l__292 8) then Read_RISCV_reserved + else if sumbool_of_bool (Z.eqb l__292 9) then Read_RISCV_reserved_acquire + else if sumbool_of_bool (Z.eqb l__292 10) then Read_RISCV_reserved_strong_acquire else Read_X86_locked. -Definition num_of_read_kind (arg_ : read_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 11)} := - - build_ex(match arg_ with - | Read_plain => 0 - | Read_reserve => 1 - | Read_acquire => 2 - | Read_exclusive => 3 - | Read_exclusive_acquire => 4 - | Read_stream => 5 - | Read_RISCV_acquire => 6 - | Read_RISCV_strong_acquire => 7 - | Read_RISCV_reserved => 8 - | Read_RISCV_reserved_acquire => 9 - | Read_RISCV_reserved_strong_acquire => 10 - | Read_X86_locked => 11 - end). - -Definition write_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} -: write_kind := - - let l__186 := arg_ in - if sumbool_of_bool ((Z.eqb l__186 0)) then Write_plain - else if sumbool_of_bool ((Z.eqb l__186 1)) then Write_conditional - else if sumbool_of_bool ((Z.eqb l__186 2)) then Write_release - else if sumbool_of_bool ((Z.eqb l__186 3)) then Write_exclusive - else if sumbool_of_bool ((Z.eqb l__186 4)) then Write_exclusive_release - else if sumbool_of_bool ((Z.eqb l__186 5)) then Write_RISCV_release - else if sumbool_of_bool ((Z.eqb l__186 6)) then Write_RISCV_strong_release - else if sumbool_of_bool ((Z.eqb l__186 7)) then Write_RISCV_conditional - else if sumbool_of_bool ((Z.eqb l__186 8)) then Write_RISCV_conditional_release - else if sumbool_of_bool ((Z.eqb l__186 9)) then Write_RISCV_conditional_strong_release +Definition num_of_read_kind (arg_ : read_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 11))} := + build_ex ( + match arg_ with + | Read_plain => 0 + | Read_reserve => 1 + | Read_acquire => 2 + | Read_exclusive => 3 + | Read_exclusive_acquire => 4 + | Read_stream => 5 + | Read_RISCV_acquire => 6 + | Read_RISCV_strong_acquire => 7 + | Read_RISCV_reserved => 8 + | Read_RISCV_reserved_acquire => 9 + | Read_RISCV_reserved_strong_acquire => 10 + | Read_X86_locked => 11 + end + ). + +Definition write_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : write_kind := + let l__282 := arg_ in + if sumbool_of_bool (Z.eqb l__282 0) then Write_plain + else if sumbool_of_bool (Z.eqb l__282 1) then Write_conditional + else if sumbool_of_bool (Z.eqb l__282 2) then Write_release + else if sumbool_of_bool (Z.eqb l__282 3) then Write_exclusive + else if sumbool_of_bool (Z.eqb l__282 4) then Write_exclusive_release + else if sumbool_of_bool (Z.eqb l__282 5) then Write_RISCV_release + else if sumbool_of_bool (Z.eqb l__282 6) then Write_RISCV_strong_release + else if sumbool_of_bool (Z.eqb l__282 7) then Write_RISCV_conditional + else if sumbool_of_bool (Z.eqb l__282 8) then Write_RISCV_conditional_release + else if sumbool_of_bool (Z.eqb l__282 9) then Write_RISCV_conditional_strong_release else Write_X86_locked. -Definition num_of_write_kind (arg_ : write_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Write_plain => 0 - | Write_conditional => 1 - | Write_release => 2 - | Write_exclusive => 3 - | Write_exclusive_release => 4 - | Write_RISCV_release => 5 - | Write_RISCV_strong_release => 6 - | Write_RISCV_conditional => 7 - | Write_RISCV_conditional_release => 8 - | Write_RISCV_conditional_strong_release => 9 - | Write_X86_locked => 10 - end). - -Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} +Definition num_of_write_kind (arg_ : write_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Write_plain => 0 + | Write_conditional => 1 + | Write_release => 2 + | Write_exclusive => 3 + | Write_exclusive_release => 4 + | Write_RISCV_release => 5 + | Write_RISCV_strong_release => 6 + | Write_RISCV_conditional => 7 + | Write_RISCV_conditional_release => 8 + | Write_RISCV_conditional_strong_release => 9 + | Write_X86_locked => 10 + end + ). + +Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : a64_barrier_domain := - - let l__183 := arg_ in - if sumbool_of_bool ((Z.eqb l__183 0)) then A64_FullShare - else if sumbool_of_bool ((Z.eqb l__183 1)) then A64_InnerShare - else if sumbool_of_bool ((Z.eqb l__183 2)) then A64_OuterShare + let l__279 := arg_ in + if sumbool_of_bool (Z.eqb l__279 0) then A64_FullShare + else if sumbool_of_bool (Z.eqb l__279 1) then A64_InnerShare + else if sumbool_of_bool (Z.eqb l__279 2) then A64_OuterShare else A64_NonShare. -Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with - | A64_FullShare => 0 - | A64_InnerShare => 1 - | A64_OuterShare => 2 - | A64_NonShare => 3 - end). - -Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} +Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex ( + match arg_ with + | A64_FullShare => 0 + | A64_InnerShare => 1 + | A64_OuterShare => 2 + | A64_NonShare => 3 + end + ). + +Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : a64_barrier_type := - - let l__181 := arg_ in - if sumbool_of_bool ((Z.eqb l__181 0)) then A64_barrier_all - else if sumbool_of_bool ((Z.eqb l__181 1)) then A64_barrier_LD + let l__277 := arg_ in + if sumbool_of_bool (Z.eqb l__277 0) then A64_barrier_all + else if sumbool_of_bool (Z.eqb l__277 1) then A64_barrier_LD else A64_barrier_ST. -Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). - -Definition trans_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: trans_kind := - - let l__179 := arg_ in - if sumbool_of_bool ((Z.eqb l__179 0)) then Transaction_start - else if sumbool_of_bool ((Z.eqb l__179 1)) then Transaction_commit +Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). + +Definition trans_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : trans_kind := + let l__275 := arg_ in + if sumbool_of_bool (Z.eqb l__275 0) then Transaction_start + else if sumbool_of_bool (Z.eqb l__275 1) then Transaction_commit else Transaction_abort. -Definition num_of_trans_kind (arg_ : trans_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with - | Transaction_start => 0 - | Transaction_commit => 1 - | Transaction_abort => 2 - end). +Definition num_of_trans_kind (arg_ : trans_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex ( + match arg_ with + | Transaction_start => 0 + | Transaction_commit => 1 + | Transaction_abort => 2 + end + ). -Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} +Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : cache_op_kind := - - let l__169 := arg_ in - if sumbool_of_bool ((Z.eqb l__169 0)) then Cache_op_D_IVAC - else if sumbool_of_bool ((Z.eqb l__169 1)) then Cache_op_D_ISW - else if sumbool_of_bool ((Z.eqb l__169 2)) then Cache_op_D_CSW - else if sumbool_of_bool ((Z.eqb l__169 3)) then Cache_op_D_CISW - else if sumbool_of_bool ((Z.eqb l__169 4)) then Cache_op_D_ZVA - else if sumbool_of_bool ((Z.eqb l__169 5)) then Cache_op_D_CVAC - else if sumbool_of_bool ((Z.eqb l__169 6)) then Cache_op_D_CVAU - else if sumbool_of_bool ((Z.eqb l__169 7)) then Cache_op_D_CIVAC - else if sumbool_of_bool ((Z.eqb l__169 8)) then Cache_op_I_IALLUIS - else if sumbool_of_bool ((Z.eqb l__169 9)) then Cache_op_I_IALLU + let l__265 := arg_ in + if sumbool_of_bool (Z.eqb l__265 0) then Cache_op_D_IVAC + else if sumbool_of_bool (Z.eqb l__265 1) then Cache_op_D_ISW + else if sumbool_of_bool (Z.eqb l__265 2) then Cache_op_D_CSW + else if sumbool_of_bool (Z.eqb l__265 3) then Cache_op_D_CISW + else if sumbool_of_bool (Z.eqb l__265 4) then Cache_op_D_ZVA + else if sumbool_of_bool (Z.eqb l__265 5) then Cache_op_D_CVAC + else if sumbool_of_bool (Z.eqb l__265 6) then Cache_op_D_CVAU + else if sumbool_of_bool (Z.eqb l__265 7) then Cache_op_D_CIVAC + else if sumbool_of_bool (Z.eqb l__265 8) then Cache_op_I_IALLUIS + else if sumbool_of_bool (Z.eqb l__265 9) then Cache_op_I_IALLU else Cache_op_I_IVAU. -Definition num_of_cache_op_kind (arg_ : cache_op_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Cache_op_D_IVAC => 0 - | Cache_op_D_ISW => 1 - | Cache_op_D_CSW => 2 - | Cache_op_D_CISW => 3 - | Cache_op_D_ZVA => 4 - | Cache_op_D_CVAC => 5 - | Cache_op_D_CVAU => 6 - | Cache_op_D_CIVAC => 7 - | Cache_op_I_IALLUIS => 8 - | Cache_op_I_IALLU => 9 - | Cache_op_I_IVAU => 10 - end). +Definition num_of_cache_op_kind (arg_ : cache_op_kind) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Cache_op_D_IVAC => 0 + | Cache_op_D_ISW => 1 + | Cache_op_D_CSW => 2 + | Cache_op_D_CISW => 3 + | Cache_op_D_ZVA => 4 + | Cache_op_D_CVAC => 5 + | Cache_op_D_CVAU => 6 + | Cache_op_D_CIVAC => 7 + | Cache_op_I_IALLUIS => 8 + | Cache_op_I_IALLU => 9 + | Cache_op_I_IVAU => 10 + end + ). -Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). +Definition not_bit (b : bitU) : bitU := if eq_bit b B1 then B0 else B1. +Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). -Definition cast_unit_vec (b : bitU) -: M (mword 1) := - - (match b with - | B0 => returnm ((vec_of_bits [B0] : mword 1) : mword 1) - | B1 => returnm ((vec_of_bits [B1] : mword 1) : mword 1) - | _ => exit tt : M (mword 1) - end) - : M (mword 1). -Definition get_config_print_instr '(tt : unit) : bool := false. +Definition string_of_bit (b : bitU) : M (string) := + (match b with | B0 => returnm "0b0" | B1 => returnm "0b1" | _ => exit tt : M (string) end) + : M (string). + +Definition get_config_print_instr '(tt : unit) : bool := false. -Definition get_config_print_reg '(tt : unit) : bool := false. +Definition get_config_print_reg '(tt : unit) : bool := false. -Definition get_config_print_mem '(tt : unit) : bool := false. +Definition get_config_print_mem '(tt : unit) : bool := false. -Definition get_config_print_platform '(tt : unit) : bool := false. +Definition get_config_print_platform '(tt : unit) : bool := false. -Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := sign_extend v m. +Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := sign_extend v m. -Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := zero_extend v m. +Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := zero_extend v m. -Definition zeros_implicit (n : Z) `{ArithFact (n >= 0)} : mword n := zeros n. +Definition zeros_implicit (n : Z) `{ArithFact (n >=? 0)} : mword n := zeros n. -Definition ones (n : Z) `{ArithFact (n >= 0)} : mword n := sail_ones n. +Definition ones (n : Z) `{ArithFact (n >=? 0)} : mword n := sail_ones n. -Definition bool_to_bits (x : bool) -: mword 1 := - - if sumbool_of_bool (x) then (vec_of_bits [B1] : mword 1) - else (vec_of_bits [B0] : mword 1). +Definition bool_to_bits (x : bool) : mword 1 := + if sumbool_of_bool x then 'b"1" : mword 1 else 'b"0" : mword 1. -Definition bit_to_bool (b : bitU) -: M (bool) := - - (match b with - | B1 => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | B0 => returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) - | _ => exit tt : M (bool) - end) +Definition bit_to_bool (b : bitU) : M (bool) := + (match b with | B1 => returnm true | B0 => returnm false | _ => exit tt : M (bool) end) : M (bool). -Definition to_bits (l : Z) (n : Z) `{ArithFact (l >= 0)} : mword l := get_slice_int l n 0. +Definition to_bits (l : Z) (n : Z) `{ArithFact (l >=? 0)} : mword l := get_slice_int l n 0. -Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.ltb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.geb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) : bool := Z.ltb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.geb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.leb (projT1 (uint x)) (projT1 (uint y)). -Definition shift_right_arith64 (v : mword 64) (shift : mword 6) -: mword 64 := - +Definition shift_right_arith64 (v : mword 64) (shift : mword 6) : mword 64 := let v128 : bits 128 := EXTS 128 v in subrange_vec_dec (shift_bits_right v128 shift) 63 0. -Definition shift_right_arith32 (v : mword 32) (shift : mword 5) -: mword 32 := - +Definition shift_right_arith32 (v : mword 32) (shift : mword 5) : mword 32 := let v64 : bits 64 := EXTS 64 v in subrange_vec_dec (shift_bits_right v64 shift) 31 0. -Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M ({n : Z & ArithFact (n >= 0)}) := - +Axiom spc_forwards_matches : forall (_ : unit) , bool. + +Axiom spc_backwards_matches : forall (_ : string) , bool. + +Axiom opt_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom opt_spc_backwards_matches : forall (_ : string) , bool. + +Axiom def_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom def_spc_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_forwards : forall {n : Z} (_ : (Z * mword n)) , string. + +Axiom hex_bits_backwards : forall {n : Z} (_ : string) , (Z * mword n). + +Axiom hex_bits_forwards_matches : forall {n : Z} (_ : (Z * mword n)) , bool. + +Axiom hex_bits_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_matches_prefix : forall +{n : Z} +(_ : string) +, +option (((Z * mword n) * {n : Z & ArithFact (n >=? 0)})). + +Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M ({n : Z & ArithFact (n >=? 0)}). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let p0_ := s in - (if ((generic_eq p0_ "")) then returnm (build_ex (0 : Z)) + (if generic_eq p0_ "" then returnm (build_ex 0) else let p0_ := string_take s 1 in - (if ((generic_eq p0_ " ")) then - (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= + (if generic_eq p0_ " " then + (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => - returnm (build_ex - (projT1 - (build_ex - (Z.add 1 w__0) - : {_atom : Z & ArithFact (exists ex98922_ , _atom = (1 + ex98922_) /\ 0 <= ex98922_)}))) - else returnm (build_ex (0 : Z))) - : M ({n : Z & ArithFact (n >= 0)})) - : M ({n : Z & ArithFact (n >= 0)}). - -Definition n_leading_spaces (s : string) -: M ({n : Z & ArithFact (n >= 0)}) := - + returnm (build_ex (Z.add 1 w__0)) + else returnm (build_ex 0)) + : M ({n : Z & ArithFact (n >=? 0)})) + : M ({n : Z & ArithFact (n >=? 0)}) +). +Defined. + + +Definition n_leading_spaces (s : string) : M ({n : Z & ArithFact (n >=? 0)}) := (_rec_n_leading_spaces s ((projT1 (string_length s)) : Z) (Zwf_guarded _)) - : M ({n : Z & ArithFact (n >= 0)}). + : M ({n : Z & ArithFact (n >=? 0)}). -Definition spc_forwards '(tt : unit) : string := " ". +Definition spc_forwards '(tt : unit) : string := " ". -Definition spc_backwards (s : string) : unit := tt. +Definition spc_backwards (s : string) : unit := tt. -Definition spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - +Definition spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := (n_leading_spaces s) >>= fun '(existT _ n _) => - let l__168 := n in - returnm ((if sumbool_of_bool ((Z.eqb l__168 0)) then None - else Some ((tt, build_ex n))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). + let l__264 := n in + returnm (if sumbool_of_bool (Z.eqb l__264 0) then None else Some (tt, build_ex n)). -Definition opt_spc_forwards '(tt : unit) : string := "". +Definition opt_spc_forwards '(tt : unit) : string := "". -Definition opt_spc_backwards (s : string) : unit := tt. +Definition opt_spc_backwards (s : string) : unit := tt. -Definition opt_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= 0)}) => - returnm ((Some - ((tt, build_ex - w__0))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). +Definition opt_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => + returnm (Some (tt, build_ex w__0)). -Definition def_spc_forwards '(tt : unit) : string := " ". +Definition def_spc_forwards '(tt : unit) : string := " ". -Definition def_spc_backwards (s : string) : unit := tt. +Definition def_spc_backwards (s : string) : unit := tt. -Definition def_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (opt_spc_matches_prefix s) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))). +Definition def_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (opt_spc_matches_prefix s) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))). -Definition hex_bits_1_forwards_matches (bv : mword 1) : bool := true. +Definition hex_bits_1_forwards_matches (bv : mword 1) : bool := true. -Definition hex_bits_1_backwards_matches (s : string) -: bool := - +Definition hex_bits_1_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_1_matches_prefix s) with - | Some ((g__258, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_1_matches_prefix s) with + | Some (g__361, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_1_backwards (s : string) -: M (mword 1) := - +Definition hex_bits_1_backwards (s : string) : M (mword 1) := (match (hex_bits_1_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 1) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 49:2 - 51:3" >>= fun _ => exit tt) @@ -392,28 +352,24 @@ Definition hex_bits_1_backwards (s : string) end) : M (mword 1). -Definition hex_bits_2_forwards_matches (bv : mword 2) : bool := true. +Definition hex_bits_2_forwards_matches (bv : mword 2) : bool := true. -Definition hex_bits_2_backwards_matches (s : string) -: bool := - +Definition hex_bits_2_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_2_matches_prefix s) with - | Some ((g__257, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_2_matches_prefix s) with + | Some (g__360, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_2_backwards (s : string) -: M (mword 2) := - +Definition hex_bits_2_backwards (s : string) : M (mword 2) := (match (hex_bits_2_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 2) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 68:2 - 70:3" >>= fun _ => exit tt) @@ -424,28 +380,24 @@ Definition hex_bits_2_backwards (s : string) end) : M (mword 2). -Definition hex_bits_3_forwards_matches (bv : mword 3) : bool := true. +Definition hex_bits_3_forwards_matches (bv : mword 3) : bool := true. -Definition hex_bits_3_backwards_matches (s : string) -: bool := - +Definition hex_bits_3_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_3_matches_prefix s) with - | Some ((g__256, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_3_matches_prefix s) with + | Some (g__359, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_3_backwards (s : string) -: M (mword 3) := - +Definition hex_bits_3_backwards (s : string) : M (mword 3) := (match (hex_bits_3_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 3) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 87:2 - 89:3" >>= fun _ => exit tt) @@ -456,28 +408,24 @@ Definition hex_bits_3_backwards (s : string) end) : M (mword 3). -Definition hex_bits_4_forwards_matches (bv : mword 4) : bool := true. +Definition hex_bits_4_forwards_matches (bv : mword 4) : bool := true. -Definition hex_bits_4_backwards_matches (s : string) -: bool := - +Definition hex_bits_4_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_4_matches_prefix s) with - | Some ((g__255, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_4_matches_prefix s) with + | Some (g__358, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_4_backwards (s : string) -: M (mword 4) := - +Definition hex_bits_4_backwards (s : string) : M (mword 4) := (match (hex_bits_4_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 4) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 106:2 - 108:3" >>= fun _ => exit tt) @@ -488,28 +436,24 @@ Definition hex_bits_4_backwards (s : string) end) : M (mword 4). -Definition hex_bits_5_forwards_matches (bv : mword 5) : bool := true. +Definition hex_bits_5_forwards_matches (bv : mword 5) : bool := true. -Definition hex_bits_5_backwards_matches (s : string) -: bool := - +Definition hex_bits_5_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_5_matches_prefix s) with - | Some ((g__254, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_5_matches_prefix s) with + | Some (g__357, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_5_backwards (s : string) -: M (mword 5) := - +Definition hex_bits_5_backwards (s : string) : M (mword 5) := (match (hex_bits_5_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 5) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 125:2 - 127:3" >>= fun _ => exit tt) @@ -520,28 +464,24 @@ Definition hex_bits_5_backwards (s : string) end) : M (mword 5). -Definition hex_bits_6_forwards_matches (bv : mword 6) : bool := true. +Definition hex_bits_6_forwards_matches (bv : mword 6) : bool := true. -Definition hex_bits_6_backwards_matches (s : string) -: bool := - +Definition hex_bits_6_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_6_matches_prefix s) with - | Some ((g__253, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_6_matches_prefix s) with + | Some (g__356, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_6_backwards (s : string) -: M (mword 6) := - +Definition hex_bits_6_backwards (s : string) : M (mword 6) := (match (hex_bits_6_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 6) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 144:2 - 146:3" >>= fun _ => exit tt) @@ -552,28 +492,24 @@ Definition hex_bits_6_backwards (s : string) end) : M (mword 6). -Definition hex_bits_7_forwards_matches (bv : mword 7) : bool := true. +Definition hex_bits_7_forwards_matches (bv : mword 7) : bool := true. -Definition hex_bits_7_backwards_matches (s : string) -: bool := - +Definition hex_bits_7_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_7_matches_prefix s) with - | Some ((g__252, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_7_matches_prefix s) with + | Some (g__355, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_7_backwards (s : string) -: M (mword 7) := - +Definition hex_bits_7_backwards (s : string) : M (mword 7) := (match (hex_bits_7_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 7) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 163:2 - 165:3" >>= fun _ => exit tt) @@ -584,28 +520,24 @@ Definition hex_bits_7_backwards (s : string) end) : M (mword 7). -Definition hex_bits_8_forwards_matches (bv : mword 8) : bool := true. +Definition hex_bits_8_forwards_matches (bv : mword 8) : bool := true. -Definition hex_bits_8_backwards_matches (s : string) -: bool := - +Definition hex_bits_8_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_8_matches_prefix s) with - | Some ((g__251, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_8_matches_prefix s) with + | Some (g__354, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_8_backwards (s : string) -: M (mword 8) := - +Definition hex_bits_8_backwards (s : string) : M (mword 8) := (match (hex_bits_8_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 8) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 182:2 - 184:3" >>= fun _ => exit tt) @@ -616,28 +548,24 @@ Definition hex_bits_8_backwards (s : string) end) : M (mword 8). -Definition hex_bits_9_forwards_matches (bv : mword 9) : bool := true. +Definition hex_bits_9_forwards_matches (bv : mword 9) : bool := true. -Definition hex_bits_9_backwards_matches (s : string) -: bool := - +Definition hex_bits_9_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_9_matches_prefix s) with - | Some ((g__250, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_9_matches_prefix s) with + | Some (g__353, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_9_backwards (s : string) -: M (mword 9) := - +Definition hex_bits_9_backwards (s : string) : M (mword 9) := (match (hex_bits_9_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 9) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 201:2 - 203:3" >>= fun _ => exit tt) @@ -648,28 +576,24 @@ Definition hex_bits_9_backwards (s : string) end) : M (mword 9). -Definition hex_bits_10_forwards_matches (bv : mword 10) : bool := true. +Definition hex_bits_10_forwards_matches (bv : mword 10) : bool := true. -Definition hex_bits_10_backwards_matches (s : string) -: bool := - +Definition hex_bits_10_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_10_matches_prefix s) with - | Some ((g__249, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_10_matches_prefix s) with + | Some (g__352, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_10_backwards (s : string) -: M (mword 10) := - +Definition hex_bits_10_backwards (s : string) : M (mword 10) := (match (hex_bits_10_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 10) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 220:2 - 222:3" >>= fun _ => exit tt) @@ -680,28 +604,24 @@ Definition hex_bits_10_backwards (s : string) end) : M (mword 10). -Definition hex_bits_11_forwards_matches (bv : mword 11) : bool := true. +Definition hex_bits_11_forwards_matches (bv : mword 11) : bool := true. -Definition hex_bits_11_backwards_matches (s : string) -: bool := - +Definition hex_bits_11_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_11_matches_prefix s) with - | Some ((g__248, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_11_matches_prefix s) with + | Some (g__351, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_11_backwards (s : string) -: M (mword 11) := - +Definition hex_bits_11_backwards (s : string) : M (mword 11) := (match (hex_bits_11_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 11) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else assert_exp' false "Pattern match failure at model/prelude_mapping.sail 239:2 - 241:3" >>= fun _ => exit tt) @@ -712,813 +632,712 @@ Definition hex_bits_11_backwards (s : string) end) : M (mword 11). -Definition hex_bits_12_forwards_matches (bv : mword 12) : bool := true. +Definition hex_bits_12_forwards_matches (bv : mword 12) : bool := true. -Definition hex_bits_12_backwards_matches (s : string) -: bool := - +Definition hex_bits_12_matches_prefix (s : string) +: option ((mword 12 * {n : Z & ArithFact (n >=? 0)})) := + None. + +Definition hex_bits_12_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_12_matches_prefix s) with - | Some ((g__247, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_12_matches_prefix s) with + | Some (g__350, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_12_backwards (s : string) -: M (mword 12) := - +Definition hex_bits_12_backwards (s : string) : M (mword 12) := (match (hex_bits_12_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 12) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 262:2 - 264:3" >>= fun _ => exit tt) : M (mword 12) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 262:2 - 264:3" >>= fun _ => exit tt end) : M (mword 12). -Definition hex_bits_13_forwards_matches (bv : mword 13) : bool := true. +Definition hex_bits_13_forwards_matches (bv : mword 13) : bool := true. -Definition hex_bits_13_backwards_matches (s : string) -: bool := - +Definition hex_bits_13_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_13_matches_prefix s) with - | Some ((g__246, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_13_matches_prefix s) with + | Some (g__349, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_13_backwards (s : string) -: M (mword 13) := - +Definition hex_bits_13_backwards (s : string) : M (mword 13) := (match (hex_bits_13_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 13) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 281:2 - 283:3" >>= fun _ => exit tt) : M (mword 13) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 281:2 - 283:3" >>= fun _ => exit tt end) : M (mword 13). -Definition hex_bits_14_forwards_matches (bv : mword 14) : bool := true. +Definition hex_bits_14_forwards_matches (bv : mword 14) : bool := true. -Definition hex_bits_14_backwards_matches (s : string) -: bool := - +Definition hex_bits_14_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_14_matches_prefix s) with - | Some ((g__245, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_14_matches_prefix s) with + | Some (g__348, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_14_backwards (s : string) -: M (mword 14) := - +Definition hex_bits_14_backwards (s : string) : M (mword 14) := (match (hex_bits_14_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 14) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 300:2 - 302:3" >>= fun _ => exit tt) : M (mword 14) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 300:2 - 302:3" >>= fun _ => exit tt end) : M (mword 14). -Definition hex_bits_15_forwards_matches (bv : mword 15) : bool := true. +Definition hex_bits_15_forwards_matches (bv : mword 15) : bool := true. -Definition hex_bits_15_backwards_matches (s : string) -: bool := - +Definition hex_bits_15_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_15_matches_prefix s) with - | Some ((g__244, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_15_matches_prefix s) with + | Some (g__347, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_15_backwards (s : string) -: M (mword 15) := - +Definition hex_bits_15_backwards (s : string) : M (mword 15) := (match (hex_bits_15_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 15) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 319:2 - 321:3" >>= fun _ => exit tt) : M (mword 15) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 319:2 - 321:3" >>= fun _ => exit tt end) : M (mword 15). -Definition hex_bits_16_forwards_matches (bv : mword 16) : bool := true. +Definition hex_bits_16_forwards_matches (bv : mword 16) : bool := true. -Definition hex_bits_16_backwards_matches (s : string) -: bool := - +Definition hex_bits_16_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_16_matches_prefix s) with - | Some ((g__243, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_16_matches_prefix s) with + | Some (g__346, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_16_backwards (s : string) -: M (mword 16) := - +Definition hex_bits_16_backwards (s : string) : M (mword 16) := (match (hex_bits_16_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 16) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 338:2 - 340:3" >>= fun _ => exit tt) : M (mword 16) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 338:2 - 340:3" >>= fun _ => exit tt end) : M (mword 16). -Definition hex_bits_17_forwards_matches (bv : mword 17) : bool := true. +Definition hex_bits_17_forwards_matches (bv : mword 17) : bool := true. -Definition hex_bits_17_backwards_matches (s : string) -: bool := - +Definition hex_bits_17_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_17_matches_prefix s) with - | Some ((g__242, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_17_matches_prefix s) with + | Some (g__345, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_17_backwards (s : string) -: M (mword 17) := - +Definition hex_bits_17_backwards (s : string) : M (mword 17) := (match (hex_bits_17_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 17) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 357:2 - 359:3" >>= fun _ => exit tt) : M (mword 17) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 357:2 - 359:3" >>= fun _ => exit tt end) : M (mword 17). -Definition hex_bits_18_forwards_matches (bv : mword 18) : bool := true. +Definition hex_bits_18_forwards_matches (bv : mword 18) : bool := true. -Definition hex_bits_18_backwards_matches (s : string) -: bool := - +Definition hex_bits_18_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_18_matches_prefix s) with - | Some ((g__241, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_18_matches_prefix s) with + | Some (g__344, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_18_backwards (s : string) -: M (mword 18) := - +Definition hex_bits_18_backwards (s : string) : M (mword 18) := (match (hex_bits_18_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 18) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 376:2 - 378:3" >>= fun _ => exit tt) : M (mword 18) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 376:2 - 378:3" >>= fun _ => exit tt end) : M (mword 18). -Definition hex_bits_19_forwards_matches (bv : mword 19) : bool := true. +Definition hex_bits_19_forwards_matches (bv : mword 19) : bool := true. -Definition hex_bits_19_backwards_matches (s : string) -: bool := - +Definition hex_bits_19_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_19_matches_prefix s) with - | Some ((g__240, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_19_matches_prefix s) with + | Some (g__343, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_19_backwards (s : string) -: M (mword 19) := - +Definition hex_bits_19_backwards (s : string) : M (mword 19) := (match (hex_bits_19_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 19) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 395:2 - 397:3" >>= fun _ => exit tt) : M (mword 19) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 395:2 - 397:3" >>= fun _ => exit tt end) : M (mword 19). -Definition hex_bits_20_forwards_matches (bv : mword 20) : bool := true. +Definition hex_bits_20_forwards_matches (bv : mword 20) : bool := true. -Definition hex_bits_20_backwards_matches (s : string) -: bool := - +Definition hex_bits_20_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_20_matches_prefix s) with - | Some ((g__239, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_20_matches_prefix s) with + | Some (g__342, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_20_backwards (s : string) -: M (mword 20) := - +Definition hex_bits_20_backwards (s : string) : M (mword 20) := (match (hex_bits_20_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 20) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 414:2 - 416:3" >>= fun _ => exit tt) : M (mword 20) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 414:2 - 416:3" >>= fun _ => exit tt end) : M (mword 20). -Definition hex_bits_21_forwards_matches (bv : mword 21) : bool := true. +Definition hex_bits_21_forwards_matches (bv : mword 21) : bool := true. -Definition hex_bits_21_backwards_matches (s : string) -: bool := - +Definition hex_bits_21_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_21_matches_prefix s) with - | Some ((g__238, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_21_matches_prefix s) with + | Some (g__341, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_21_backwards (s : string) -: M (mword 21) := - +Definition hex_bits_21_backwards (s : string) : M (mword 21) := (match (hex_bits_21_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 21) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 433:2 - 435:3" >>= fun _ => exit tt) : M (mword 21) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 433:2 - 435:3" >>= fun _ => exit tt end) : M (mword 21). -Definition hex_bits_22_forwards_matches (bv : mword 22) : bool := true. +Definition hex_bits_22_forwards_matches (bv : mword 22) : bool := true. -Definition hex_bits_22_backwards_matches (s : string) -: bool := - +Definition hex_bits_22_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_22_matches_prefix s) with - | Some ((g__237, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_22_matches_prefix s) with + | Some (g__340, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_22_backwards (s : string) -: M (mword 22) := - +Definition hex_bits_22_backwards (s : string) : M (mword 22) := (match (hex_bits_22_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 22) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 452:2 - 454:3" >>= fun _ => exit tt) : M (mword 22) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 452:2 - 454:3" >>= fun _ => exit tt end) : M (mword 22). -Definition hex_bits_23_forwards_matches (bv : mword 23) : bool := true. +Definition hex_bits_23_forwards_matches (bv : mword 23) : bool := true. -Definition hex_bits_23_backwards_matches (s : string) -: bool := - +Definition hex_bits_23_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_23_matches_prefix s) with - | Some ((g__236, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_23_matches_prefix s) with + | Some (g__339, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_23_backwards (s : string) -: M (mword 23) := - +Definition hex_bits_23_backwards (s : string) : M (mword 23) := (match (hex_bits_23_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 23) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 471:2 - 473:3" >>= fun _ => exit tt) : M (mword 23) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 471:2 - 473:3" >>= fun _ => exit tt end) : M (mword 23). -Definition hex_bits_24_forwards_matches (bv : mword 24) : bool := true. +Definition hex_bits_24_forwards_matches (bv : mword 24) : bool := true. -Definition hex_bits_24_backwards_matches (s : string) -: bool := - +Definition hex_bits_24_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_24_matches_prefix s) with - | Some ((g__235, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_24_matches_prefix s) with + | Some (g__338, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_24_backwards (s : string) -: M (mword 24) := - +Definition hex_bits_24_backwards (s : string) : M (mword 24) := (match (hex_bits_24_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 24) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 490:2 - 492:3" >>= fun _ => exit tt) : M (mword 24) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 490:2 - 492:3" >>= fun _ => exit tt end) : M (mword 24). -Definition hex_bits_25_forwards_matches (bv : mword 25) : bool := true. +Definition hex_bits_25_forwards_matches (bv : mword 25) : bool := true. -Definition hex_bits_25_backwards_matches (s : string) -: bool := - +Definition hex_bits_25_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_25_matches_prefix s) with - | Some ((g__234, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_25_matches_prefix s) with + | Some (g__337, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_25_backwards (s : string) -: M (mword 25) := - +Definition hex_bits_25_backwards (s : string) : M (mword 25) := (match (hex_bits_25_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 25) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 509:2 - 511:3" >>= fun _ => exit tt) : M (mword 25) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 509:2 - 511:3" >>= fun _ => exit tt end) : M (mword 25). -Definition hex_bits_26_forwards_matches (bv : mword 26) : bool := true. +Definition hex_bits_26_forwards_matches (bv : mword 26) : bool := true. -Definition hex_bits_26_backwards_matches (s : string) -: bool := - +Definition hex_bits_26_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_26_matches_prefix s) with - | Some ((g__233, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_26_matches_prefix s) with + | Some (g__336, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_26_backwards (s : string) -: M (mword 26) := - +Definition hex_bits_26_backwards (s : string) : M (mword 26) := (match (hex_bits_26_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 26) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 528:2 - 530:3" >>= fun _ => exit tt) : M (mword 26) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 528:2 - 530:3" >>= fun _ => exit tt end) : M (mword 26). -Definition hex_bits_27_forwards_matches (bv : mword 27) : bool := true. +Definition hex_bits_27_forwards_matches (bv : mword 27) : bool := true. -Definition hex_bits_27_backwards_matches (s : string) -: bool := - +Definition hex_bits_27_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_27_matches_prefix s) with - | Some ((g__232, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_27_matches_prefix s) with + | Some (g__335, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_27_backwards (s : string) -: M (mword 27) := - +Definition hex_bits_27_backwards (s : string) : M (mword 27) := (match (hex_bits_27_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 27) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 547:2 - 549:3" >>= fun _ => exit tt) : M (mword 27) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 547:2 - 549:3" >>= fun _ => exit tt end) : M (mword 27). -Definition hex_bits_28_forwards_matches (bv : mword 28) : bool := true. +Definition hex_bits_28_forwards_matches (bv : mword 28) : bool := true. -Definition hex_bits_28_backwards_matches (s : string) -: bool := - +Definition hex_bits_28_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_28_matches_prefix s) with - | Some ((g__231, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_28_matches_prefix s) with + | Some (g__334, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_28_backwards (s : string) -: M (mword 28) := - +Definition hex_bits_28_backwards (s : string) : M (mword 28) := (match (hex_bits_28_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 28) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 566:2 - 568:3" >>= fun _ => exit tt) : M (mword 28) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 566:2 - 568:3" >>= fun _ => exit tt end) : M (mword 28). -Definition hex_bits_29_forwards_matches (bv : mword 29) : bool := true. +Definition hex_bits_29_forwards_matches (bv : mword 29) : bool := true. -Definition hex_bits_29_backwards_matches (s : string) -: bool := - +Definition hex_bits_29_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_29_matches_prefix s) with - | Some ((g__230, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_29_matches_prefix s) with + | Some (g__333, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_29_backwards (s : string) -: M (mword 29) := - +Definition hex_bits_29_backwards (s : string) : M (mword 29) := (match (hex_bits_29_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 29) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 585:2 - 587:3" >>= fun _ => exit tt) : M (mword 29) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 585:2 - 587:3" >>= fun _ => exit tt end) : M (mword 29). -Definition hex_bits_30_forwards_matches (bv : mword 30) : bool := true. +Definition hex_bits_30_forwards_matches (bv : mword 30) : bool := true. -Definition hex_bits_30_backwards_matches (s : string) -: bool := - +Definition hex_bits_30_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_30_matches_prefix s) with - | Some ((g__229, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_30_matches_prefix s) with + | Some (g__332, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_30_backwards (s : string) -: M (mword 30) := - +Definition hex_bits_30_backwards (s : string) : M (mword 30) := (match (hex_bits_30_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 30) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 604:2 - 606:3" >>= fun _ => exit tt) : M (mword 30) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 604:2 - 606:3" >>= fun _ => exit tt end) : M (mword 30). -Definition hex_bits_31_forwards_matches (bv : mword 31) : bool := true. +Definition hex_bits_31_forwards_matches (bv : mword 31) : bool := true. -Definition hex_bits_31_backwards_matches (s : string) -: bool := - +Definition hex_bits_31_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_31_matches_prefix s) with - | Some ((g__228, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_31_matches_prefix s) with + | Some (g__331, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_31_backwards (s : string) -: M (mword 31) := - +Definition hex_bits_31_backwards (s : string) : M (mword 31) := (match (hex_bits_31_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 31) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 623:2 - 625:3" >>= fun _ => exit tt) : M (mword 31) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 623:2 - 625:3" >>= fun _ => exit tt end) : M (mword 31). -Definition hex_bits_32_forwards_matches (bv : mword 32) : bool := true. +Definition hex_bits_32_forwards_matches (bv : mword 32) : bool := true. -Definition hex_bits_32_backwards_matches (s : string) -: bool := - +Definition hex_bits_32_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_32_matches_prefix s) with - | Some ((g__227, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_32_matches_prefix s) with + | Some (g__330, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_32_backwards (s : string) -: M (mword 32) := - +Definition hex_bits_32_backwards (s : string) : M (mword 32) := (match (hex_bits_32_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 32) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 642:2 - 644:3" >>= fun _ => exit tt) : M (mword 32) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 642:2 - 644:3" >>= fun _ => exit tt end) : M (mword 32). -Definition hex_bits_33_forwards_matches (bv : mword 33) : bool := true. +Definition hex_bits_33_forwards_matches (bv : mword 33) : bool := true. -Definition hex_bits_33_backwards_matches (s : string) -: bool := - +Definition hex_bits_33_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_33_matches_prefix s) with - | Some ((g__226, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_33_matches_prefix s) with + | Some (g__329, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_33_backwards (s : string) -: M (mword 33) := - +Definition hex_bits_33_backwards (s : string) : M (mword 33) := (match (hex_bits_33_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 33) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 661:2 - 663:3" >>= fun _ => exit tt) : M (mword 33) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 661:2 - 663:3" >>= fun _ => exit tt end) : M (mword 33). -Definition hex_bits_48_forwards_matches (bv : mword 48) : bool := true. +Definition hex_bits_48_forwards_matches (bv : mword 48) : bool := true. -Definition hex_bits_48_backwards_matches (s : string) -: bool := - +Definition hex_bits_48_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_48_matches_prefix s) with - | Some ((g__225, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_48_matches_prefix s) with + | Some (g__328, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_48_backwards (s : string) -: M (mword 48) := - +Definition hex_bits_48_backwards (s : string) : M (mword 48) := (match (hex_bits_48_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 48) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 680:2 - 682:3" >>= fun _ => exit tt) : M (mword 48) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 680:2 - 682:3" >>= fun _ => exit tt end) : M (mword 48). -Definition hex_bits_64_forwards_matches (bv : mword 64) : bool := true. +Definition hex_bits_64_forwards_matches (bv : mword 64) : bool := true. -Definition hex_bits_64_backwards_matches (s : string) -: bool := - +Definition hex_bits_64_backwards_matches (s : string) : bool := match s with | s => - if ((match (hex_bits_64_matches_prefix s) with - | Some ((g__224, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then + if match (hex_bits_64_matches_prefix s) with + | Some (g__327, existT _ n _) => + if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then true else false + | _ => false + end then true else false end. -Definition hex_bits_64_backwards (s : string) -: M (mword 64) := - +Definition hex_bits_64_backwards (s : string) : M (mword 64) := (match (hex_bits_64_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 64) + | Some (bv, existT _ n _) => + (if sumbool_of_bool (Z.eqb n (projT1 (string_length s))) then returnm bv else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 699:2 - 701:3" >>= fun _ => exit tt) : M (mword 64) | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/prelude_mapping.sail 699:2 - 701:3" >>= fun _ => exit tt end) : M (mword 64). Definition default_meta : mem_meta := tt. Hint Unfold default_meta : sail. -Definition __WriteRAM_Meta (addr : mword 64) (width : Z) (meta : unit) -: M (unit) := - - returnm (tt - : unit). - -Definition __ReadRAM_Meta (addr : mword 64) (width : Z) : M (unit) := returnm (tt : unit). - -Definition write_ram -(wk : write_kind) (addr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} -: M (bool) := - - (write_mem wk 64 addr width data) >>= fun ret : bool => - (if sumbool_of_bool (ret) then (__WriteRAM_Meta addr width meta) : M (unit) - else returnm (tt : unit)) >> - returnm (ret - : bool). +Definition __WriteRAM_Meta (addr : mword 64) (width : Z) (meta : unit) : M (unit) := returnm tt. + +Definition __ReadRAM_Meta (addr : mword 64) (width : Z) : M (unit) := returnm tt. + + Definition write_ram_ea (wk : write_kind) (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : M (unit) := - - (write_mem_ea wk 64 addr width) - : M (unit). + (write_mem_ea wk 64 addr width) : M (unit). + -Definition read_ram (rk : read_kind) (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} -: M (mword (8 * width)) := - - (read_mem rk 64 addr width) - : M (mword (8 * width)). Axiom __TraceMemoryWrite : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. Axiom __TraceMemoryRead : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. +Definition init_ext_ptw : ext_ptw := tt. +Hint Unfold init_ext_ptw : sail. +Definition ext_translate_exception (e : unit) : unit := e. + +Definition ext_exc_type_to_bits (e : unit) : mword 8 := Ox"18" : mword 8. + +Definition num_of_ext_exc_type (e : unit) : {n : Z & ArithFact ((0 <=? n) && (n <? xlen))} := + build_ex (24). + +Definition ext_exc_type_to_str (e : unit) : string := "extension-exception". + Definition xlen_val := 64. Hint Unfold xlen_val : sail. Definition xlen_max_unsigned := Z.sub (projT1 (pow2 64)) 1. @@ -1527,2188 +1346,2023 @@ Definition xlen_max_signed := Z.sub (projT1 (pow2 (Z.sub 64 1))) 1. Hint Unfold xlen_max_signed : sail. Definition xlen_min_signed := Z.sub 0 (projT1 (pow2 (Z.sub 64 1))). Hint Unfold xlen_min_signed : sail. -Definition regidx_to_regno (b : mword 5) -: {n : Z & ArithFact (0 <= n /\ n < 32)} := - - build_ex(let 'r := projT1 (uint b) in - r). - -Definition creg2reg_idx (creg : mword 3) -: mword 5 := - - concat_vec (vec_of_bits [B0;B1] : mword 2) creg. - -Definition zreg : regidx := (vec_of_bits [B0;B0;B0;B0;B0] : mword 5). +Definition regidx_to_regno (b : mword 5) : {n : Z & ArithFact ((0 <=? n) && (n <? 32))} := + build_ex ( + let r := projT1 (uint b) in + r + ). + +Definition creg2reg_idx (creg : mword 3) : mword 5 := concat_vec ('b"01" : mword 2) creg. + +Definition zreg : regidx := 'b"00000" : mword 5. Hint Unfold zreg : sail. -Definition ra : regidx := (vec_of_bits [B0;B0;B0;B0;B1] : mword 5). +Definition ra : regidx := 'b"00001" : mword 5. Hint Unfold ra : sail. -Definition sp : regidx := (vec_of_bits [B0;B0;B0;B1;B0] : mword 5). +Definition sp : regidx := 'b"00010" : mword 5. Hint Unfold sp : sail. -Definition Architecture_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: Architecture := - - let l__166 := arg_ in - if sumbool_of_bool ((Z.eqb l__166 0)) then RV32 - else if sumbool_of_bool ((Z.eqb l__166 1)) then RV64 +Definition Architecture_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : Architecture := + let l__262 := arg_ in + if sumbool_of_bool (Z.eqb l__262 0) then RV32 + else if sumbool_of_bool (Z.eqb l__262 1) then RV64 else RV128. -Definition num_of_Architecture (arg_ : Architecture) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RV32 => 0 | RV64 => 1 | RV128 => 2 end). +Definition num_of_Architecture (arg_ : Architecture) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RV32 => 0 | RV64 => 1 | RV128 => 2 end). -Definition architecture (a : mword 2) -: option Architecture := - +Definition architecture (a : mword 2) : option Architecture := let b__0 := a in - if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then Some (RV32) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then Some (RV64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then Some (RV128) + if eq_vec b__0 ('b"01" : mword 2) then Some RV32 + else if eq_vec b__0 ('b"10" : mword 2) then Some RV64 + else if eq_vec b__0 ('b"11" : mword 2) then Some RV128 else None. -Definition arch_to_bits (a : Architecture) -: mword 2 := - +Definition arch_to_bits (a : Architecture) : mword 2 := match a with - | RV32 => (vec_of_bits [B0;B1] : mword 2) - | RV64 => (vec_of_bits [B1;B0] : mword 2) - | RV128 => (vec_of_bits [B1;B1] : mword 2) + | RV32 => 'b"01" : mword 2 + | RV64 => 'b"10" : mword 2 + | RV128 => 'b"11" : mword 2 end. -Definition Privilege_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: Privilege := - - let l__164 := arg_ in - if sumbool_of_bool ((Z.eqb l__164 0)) then User - else if sumbool_of_bool ((Z.eqb l__164 1)) then Supervisor +Definition Privilege_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : Privilege := + let l__260 := arg_ in + if sumbool_of_bool (Z.eqb l__260 0) then User + else if sumbool_of_bool (Z.eqb l__260 1) then Supervisor else Machine. -Definition num_of_Privilege (arg_ : Privilege) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | User => 0 | Supervisor => 1 | Machine => 2 end). +Definition num_of_Privilege (arg_ : Privilege) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | User => 0 | Supervisor => 1 | Machine => 2 end). -Definition privLevel_to_bits (p : Privilege) -: mword 2 := - +Definition privLevel_to_bits (p : Privilege) : mword 2 := match p with - | User => (vec_of_bits [B0;B0] : mword 2) - | Supervisor => (vec_of_bits [B0;B1] : mword 2) - | Machine => (vec_of_bits [B1;B1] : mword 2) + | User => 'b"00" : mword 2 + | Supervisor => 'b"01" : mword 2 + | Machine => 'b"11" : mword 2 end. -Definition privLevel_of_bits (p : mword 2) -: M (Privilege) := - +Definition privLevel_of_bits (p : mword 2) : M (Privilege) := let b__0 := p in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (User : Privilege) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (Supervisor : Privilege) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (Machine : Privilege) + (if eq_vec b__0 ('b"00" : mword 2) then returnm User + else if eq_vec b__0 ('b"01" : mword 2) then returnm Supervisor + else if eq_vec b__0 ('b"11" : mword 2) then returnm Machine else assert_exp' false "Pattern match failure at model/riscv_types.sail 78:2 - 82:3" >>= fun _ => exit tt) : M (Privilege). -Definition privLevel_to_str (p : Privilege) -: string := - +Definition privLevel_to_str (p : Privilege) : string := match p with | User => "U" | Supervisor => "S" | Machine => "M" end. -Definition Retired_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 1)} -: Retired := - - let l__163 := arg_ in - if sumbool_of_bool ((Z.eqb l__163 0)) then RETIRE_SUCCESS +Definition Retired_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 1))} : Retired := + let l__259 := arg_ in + if sumbool_of_bool (Z.eqb l__259 0) then RETIRE_SUCCESS else RETIRE_FAIL. -Definition num_of_Retired (arg_ : Retired) -: {e : Z & ArithFact (0 <= e /\ e <= 1)} := - - build_ex(match arg_ with | RETIRE_SUCCESS => 0 | RETIRE_FAIL => 1 end). - -Definition AccessType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: AccessType := - - let l__160 := arg_ in - if sumbool_of_bool ((Z.eqb l__160 0)) then Read - else if sumbool_of_bool ((Z.eqb l__160 1)) then Write - else if sumbool_of_bool ((Z.eqb l__160 2)) then ReadWrite - else Execute. - -Definition num_of_AccessType (arg_ : AccessType) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Read => 0 | Write => 1 | ReadWrite => 2 | Execute => 3 end). - -Definition accessType_to_str (a : AccessType) -: string := - - match a with | Read => "R" | Write => "W" | ReadWrite => "RW" | Execute => "X" end. - -Definition word_width_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: word_width := - - let l__157 := arg_ in - if sumbool_of_bool ((Z.eqb l__157 0)) then BYTE - else if sumbool_of_bool ((Z.eqb l__157 1)) then HALF - else if sumbool_of_bool ((Z.eqb l__157 2)) then WORD +Definition num_of_Retired (arg_ : Retired) : {e : Z & ArithFact ((0 <=? e) && (e <=? 1))} := + build_ex (match arg_ with | RETIRE_SUCCESS => 0 | RETIRE_FAIL => 1 end). + +Definition word_width_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : word_width := + let l__256 := arg_ in + if sumbool_of_bool (Z.eqb l__256 0) then BYTE + else if sumbool_of_bool (Z.eqb l__256 1) then HALF + else if sumbool_of_bool (Z.eqb l__256 2) then WORD else DOUBLE. -Definition num_of_word_width (arg_ : word_width) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | BYTE => 0 | HALF => 1 | WORD => 2 | DOUBLE => 3 end). +Definition num_of_word_width (arg_ : word_width) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | BYTE => 0 | HALF => 1 | WORD => 2 | DOUBLE => 3 end). -Definition InterruptType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 8)} +Definition InterruptType_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : InterruptType := - - let l__149 := arg_ in - if sumbool_of_bool ((Z.eqb l__149 0)) then I_U_Software - else if sumbool_of_bool ((Z.eqb l__149 1)) then I_S_Software - else if sumbool_of_bool ((Z.eqb l__149 2)) then I_M_Software - else if sumbool_of_bool ((Z.eqb l__149 3)) then I_U_Timer - else if sumbool_of_bool ((Z.eqb l__149 4)) then I_S_Timer - else if sumbool_of_bool ((Z.eqb l__149 5)) then I_M_Timer - else if sumbool_of_bool ((Z.eqb l__149 6)) then I_U_External - else if sumbool_of_bool ((Z.eqb l__149 7)) then I_S_External + let l__248 := arg_ in + if sumbool_of_bool (Z.eqb l__248 0) then I_U_Software + else if sumbool_of_bool (Z.eqb l__248 1) then I_S_Software + else if sumbool_of_bool (Z.eqb l__248 2) then I_M_Software + else if sumbool_of_bool (Z.eqb l__248 3) then I_U_Timer + else if sumbool_of_bool (Z.eqb l__248 4) then I_S_Timer + else if sumbool_of_bool (Z.eqb l__248 5) then I_M_Timer + else if sumbool_of_bool (Z.eqb l__248 6) then I_U_External + else if sumbool_of_bool (Z.eqb l__248 7) then I_S_External else I_M_External. -Definition num_of_InterruptType (arg_ : InterruptType) -: {e : Z & ArithFact (0 <= e /\ e <= 8)} := - - build_ex(match arg_ with - | I_U_Software => 0 - | I_S_Software => 1 - | I_M_Software => 2 - | I_U_Timer => 3 - | I_S_Timer => 4 - | I_M_Timer => 5 - | I_U_External => 6 - | I_S_External => 7 - | I_M_External => 8 - end). - -Definition interruptType_to_bits (i : InterruptType) -: mword 8 := - +Definition num_of_InterruptType (arg_ : InterruptType) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | I_U_Software => 0 + | I_S_Software => 1 + | I_M_Software => 2 + | I_U_Timer => 3 + | I_S_Timer => 4 + | I_M_Timer => 5 + | I_U_External => 6 + | I_S_External => 7 + | I_M_External => 8 + end + ). + +Definition interruptType_to_bits (i : InterruptType) : mword 8 := match i with - | I_U_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8) - | I_S_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8) - | I_M_Software => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B1] : mword 8) - | I_U_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0] : mword 8) - | I_S_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B1] : mword 8) - | I_M_Timer => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B1] : mword 8) - | I_U_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B0] : mword 8) - | I_S_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B1] : mword 8) - | I_M_External => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1] : mword 8) + | I_U_Software => Ox"00" : mword 8 + | I_S_Software => Ox"01" : mword 8 + | I_M_Software => Ox"03" : mword 8 + | I_U_Timer => Ox"04" : mword 8 + | I_S_Timer => Ox"05" : mword 8 + | I_M_Timer => Ox"07" : mword 8 + | I_U_External => Ox"08" : mword 8 + | I_S_External => Ox"09" : mword 8 + | I_M_External => Ox"0B" : mword 8 end. -Definition ExceptionType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 16)} -: ExceptionType := - - let l__133 := arg_ in - if sumbool_of_bool ((Z.eqb l__133 0)) then E_Fetch_Addr_Align - else if sumbool_of_bool ((Z.eqb l__133 1)) then E_Fetch_Access_Fault - else if sumbool_of_bool ((Z.eqb l__133 2)) then E_Illegal_Instr - else if sumbool_of_bool ((Z.eqb l__133 3)) then E_Breakpoint - else if sumbool_of_bool ((Z.eqb l__133 4)) then E_Load_Addr_Align - else if sumbool_of_bool ((Z.eqb l__133 5)) then E_Load_Access_Fault - else if sumbool_of_bool ((Z.eqb l__133 6)) then E_SAMO_Addr_Align - else if sumbool_of_bool ((Z.eqb l__133 7)) then E_SAMO_Access_Fault - else if sumbool_of_bool ((Z.eqb l__133 8)) then E_U_EnvCall - else if sumbool_of_bool ((Z.eqb l__133 9)) then E_S_EnvCall - else if sumbool_of_bool ((Z.eqb l__133 10)) then E_Reserved_10 - else if sumbool_of_bool ((Z.eqb l__133 11)) then E_M_EnvCall - else if sumbool_of_bool ((Z.eqb l__133 12)) then E_Fetch_Page_Fault - else if sumbool_of_bool ((Z.eqb l__133 13)) then E_Load_Page_Fault - else if sumbool_of_bool ((Z.eqb l__133 14)) then E_Reserved_14 - else if sumbool_of_bool ((Z.eqb l__133 15)) then E_SAMO_Page_Fault - else E_CHERI. - -Definition num_of_ExceptionType (arg_ : ExceptionType) -: {e : Z & ArithFact (0 <= e /\ e <= 16)} := - - build_ex(match arg_ with - | E_Fetch_Addr_Align => 0 - | E_Fetch_Access_Fault => 1 - | E_Illegal_Instr => 2 - | E_Breakpoint => 3 - | E_Load_Addr_Align => 4 - | E_Load_Access_Fault => 5 - | E_SAMO_Addr_Align => 6 - | E_SAMO_Access_Fault => 7 - | E_U_EnvCall => 8 - | E_S_EnvCall => 9 - | E_Reserved_10 => 10 - | E_M_EnvCall => 11 - | E_Fetch_Page_Fault => 12 - | E_Load_Page_Fault => 13 - | E_Reserved_14 => 14 - | E_SAMO_Page_Fault => 15 - | E_CHERI => 16 - end). - -Definition exceptionType_to_bits (e : ExceptionType) -: mword 8 := - +Definition exceptionType_to_bits (e : ExceptionType) : mword 8 := match e with - | E_Fetch_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8) - | E_Fetch_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8) - | E_Illegal_Instr => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B0] : mword 8) - | E_Breakpoint => (vec_of_bits [B0;B0;B0;B0;B0;B0;B1;B1] : mword 8) - | E_Load_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0] : mword 8) - | E_Load_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B1] : mword 8) - | E_SAMO_Addr_Align => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B0] : mword 8) - | E_SAMO_Access_Fault => (vec_of_bits [B0;B0;B0;B0;B0;B1;B1;B1] : mword 8) - | E_U_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B0] : mword 8) - | E_S_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B0;B1] : mword 8) - | E_Reserved_10 => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B0] : mword 8) - | E_M_EnvCall => (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1] : mword 8) - | E_Fetch_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B0;B0] : mword 8) - | E_Load_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B0;B1] : mword 8) - | E_Reserved_14 => (vec_of_bits [B0;B0;B0;B0;B1;B1;B1;B0] : mword 8) - | E_SAMO_Page_Fault => (vec_of_bits [B0;B0;B0;B0;B1;B1;B1;B1] : mword 8) - | E_CHERI => (vec_of_bits [B0;B0;B1;B0;B0;B0;B0;B0] : mword 8) + | E_Fetch_Addr_Align tt => Ox"00" : mword 8 + | E_Fetch_Access_Fault tt => Ox"01" : mword 8 + | E_Illegal_Instr tt => Ox"02" : mword 8 + | E_Breakpoint tt => Ox"03" : mword 8 + | E_Load_Addr_Align tt => Ox"04" : mword 8 + | E_Load_Access_Fault tt => Ox"05" : mword 8 + | E_SAMO_Addr_Align tt => Ox"06" : mword 8 + | E_SAMO_Access_Fault tt => Ox"07" : mword 8 + | E_U_EnvCall tt => Ox"08" : mword 8 + | E_S_EnvCall tt => Ox"09" : mword 8 + | E_Reserved_10 tt => Ox"0A" : mword 8 + | E_M_EnvCall tt => Ox"0B" : mword 8 + | E_Fetch_Page_Fault tt => Ox"0C" : mword 8 + | E_Load_Page_Fault tt => Ox"0D" : mword 8 + | E_Reserved_14 tt => Ox"0E" : mword 8 + | E_SAMO_Page_Fault tt => Ox"0F" : mword 8 + | E_Extension e => ext_exc_type_to_bits e end. -Definition exceptionType_to_str (e : ExceptionType) -: string := - +Definition num_of_ExceptionType (e : ExceptionType) : {n : Z & ArithFact ((0 <=? n) && (n <? xlen))} := + build_ex ( + match e with + | E_Fetch_Addr_Align tt => 0 + | E_Fetch_Access_Fault tt => 1 + | E_Illegal_Instr tt => 2 + | E_Breakpoint tt => 3 + | E_Load_Addr_Align tt => 4 + | E_Load_Access_Fault tt => 5 + | E_SAMO_Addr_Align tt => 6 + | E_SAMO_Access_Fault tt => 7 + | E_U_EnvCall tt => 8 + | E_S_EnvCall tt => 9 + | E_Reserved_10 tt => 10 + | E_M_EnvCall tt => 11 + | E_Fetch_Page_Fault tt => 12 + | E_Load_Page_Fault tt => 13 + | E_Reserved_14 tt => 14 + | E_SAMO_Page_Fault tt => 15 + | E_Extension e => projT1 (num_of_ext_exc_type e) + end + ). + +Definition exceptionType_to_str (e : ExceptionType) : string := match e with - | E_Fetch_Addr_Align => "misaligned-fetch" - | E_Fetch_Access_Fault => "fetch-access-fault" - | E_Illegal_Instr => "illegal-instruction" - | E_Breakpoint => "breakpoint" - | E_Load_Addr_Align => "misaligned-load" - | E_Load_Access_Fault => "load-access-fault" - | E_SAMO_Addr_Align => "misaliged-store/amo" - | E_SAMO_Access_Fault => "store/amo-access-fault" - | E_U_EnvCall => "u-call" - | E_S_EnvCall => "s-call" - | E_Reserved_10 => "reserved-0" - | E_M_EnvCall => "m-call" - | E_Fetch_Page_Fault => "fetch-page-fault" - | E_Load_Page_Fault => "load-page-fault" - | E_Reserved_14 => "reserved-1" - | E_SAMO_Page_Fault => "store/amo-page-fault" - | E_CHERI => "CHERI" + | E_Fetch_Addr_Align tt => "misaligned-fetch" + | E_Fetch_Access_Fault tt => "fetch-access-fault" + | E_Illegal_Instr tt => "illegal-instruction" + | E_Breakpoint tt => "breakpoint" + | E_Load_Addr_Align tt => "misaligned-load" + | E_Load_Access_Fault tt => "load-access-fault" + | E_SAMO_Addr_Align tt => "misaliged-store/amo" + | E_SAMO_Access_Fault tt => "store/amo-access-fault" + | E_U_EnvCall tt => "u-call" + | E_S_EnvCall tt => "s-call" + | E_Reserved_10 tt => "reserved-0" + | E_M_EnvCall tt => "m-call" + | E_Fetch_Page_Fault tt => "fetch-page-fault" + | E_Load_Page_Fault tt => "load-page-fault" + | E_Reserved_14 tt => "reserved-1" + | E_SAMO_Page_Fault tt => "store/amo-page-fault" + | E_Extension e => ext_exc_type_to_str e end. -Definition not_implemented {a : Type} (message : string) -: M (a) := - - throw (Error_not_implemented - (message)). +Definition not_implemented {a : Type} (message : string) : M (a) := + throw (Error_not_implemented message). -Definition internal_error {a : Type} (s : string) -: M (a) := - +Definition internal_error {a : Type} (s : string) : M (a) := assert_exp' false s >>= fun _ => exit tt. -Definition TrapVectorMode_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} +Definition TrapVectorMode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : TrapVectorMode := - - let l__131 := arg_ in - if sumbool_of_bool ((Z.eqb l__131 0)) then TV_Direct - else if sumbool_of_bool ((Z.eqb l__131 1)) then TV_Vector + let l__246 := arg_ in + if sumbool_of_bool (Z.eqb l__246 0) then TV_Direct + else if sumbool_of_bool (Z.eqb l__246 1) then TV_Vector else TV_Reserved. -Definition num_of_TrapVectorMode (arg_ : TrapVectorMode) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | TV_Direct => 0 | TV_Vector => 1 | TV_Reserved => 2 end). +Definition num_of_TrapVectorMode (arg_ : TrapVectorMode) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | TV_Direct => 0 | TV_Vector => 1 | TV_Reserved => 2 end). -Definition trapVectorMode_of_bits (m : mword 2) -: TrapVectorMode := - +Definition trapVectorMode_of_bits (m : mword 2) : TrapVectorMode := let b__0 := m in - if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then TV_Direct - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then TV_Vector + if eq_vec b__0 ('b"00" : mword 2) then TV_Direct + else if eq_vec b__0 ('b"01" : mword 2) then TV_Vector else TV_Reserved. -Definition ExtStatus_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: ExtStatus := - - let l__128 := arg_ in - if sumbool_of_bool ((Z.eqb l__128 0)) then Off - else if sumbool_of_bool ((Z.eqb l__128 1)) then Initial - else if sumbool_of_bool ((Z.eqb l__128 2)) then Clean +Definition ExtStatus_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : ExtStatus := + let l__243 := arg_ in + if sumbool_of_bool (Z.eqb l__243 0) then Off + else if sumbool_of_bool (Z.eqb l__243 1) then Initial + else if sumbool_of_bool (Z.eqb l__243 2) then Clean else Dirty. -Definition num_of_ExtStatus (arg_ : ExtStatus) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Off => 0 | Initial => 1 | Clean => 2 | Dirty => 3 end). +Definition num_of_ExtStatus (arg_ : ExtStatus) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | Off => 0 | Initial => 1 | Clean => 2 | Dirty => 3 end). -Definition extStatus_to_bits (e : ExtStatus) -: mword 2 := - +Definition extStatus_to_bits (e : ExtStatus) : mword 2 := match e with - | Off => (vec_of_bits [B0;B0] : mword 2) - | Initial => (vec_of_bits [B0;B1] : mword 2) - | Clean => (vec_of_bits [B1;B0] : mword 2) - | Dirty => (vec_of_bits [B1;B1] : mword 2) + | Off => 'b"00" : mword 2 + | Initial => 'b"01" : mword 2 + | Clean => 'b"10" : mword 2 + | Dirty => 'b"11" : mword 2 end. -Definition extStatus_of_bits (e : mword 2) -: M (ExtStatus) := - +Definition extStatus_of_bits (e : mword 2) : M (ExtStatus) := let b__0 := e in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (Off : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (Initial : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (Clean : ExtStatus) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (Dirty : ExtStatus) + (if eq_vec b__0 ('b"00" : mword 2) then returnm Off + else if eq_vec b__0 ('b"01" : mword 2) then returnm Initial + else if eq_vec b__0 ('b"10" : mword 2) then returnm Clean + else if eq_vec b__0 ('b"11" : mword 2) then returnm Dirty else - assert_exp' false "Pattern match failure at model/riscv_types.sail 264:2 - 269:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_types.sail 281:2 - 286:3" >>= fun _ => exit tt) : M (ExtStatus). -Definition SATPMode_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} -: SATPMode := - - let l__125 := arg_ in - if sumbool_of_bool ((Z.eqb l__125 0)) then Sbare - else if sumbool_of_bool ((Z.eqb l__125 1)) then Sv32 - else if sumbool_of_bool ((Z.eqb l__125 2)) then Sv39 +Definition SATPMode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : SATPMode := + let l__240 := arg_ in + if sumbool_of_bool (Z.eqb l__240 0) then Sbare + else if sumbool_of_bool (Z.eqb l__240 1) then Sv32 + else if sumbool_of_bool (Z.eqb l__240 2) then Sv39 else Sv48. -Definition num_of_SATPMode (arg_ : SATPMode) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | Sbare => 0 | Sv32 => 1 | Sv39 => 2 | Sv48 => 3 end). +Definition num_of_SATPMode (arg_ : SATPMode) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | Sbare => 0 | Sv32 => 1 | Sv39 => 2 | Sv48 => 3 end). -Definition satp64Mode_of_bits (a : Architecture) (m : mword 4) -: option SATPMode := - +Definition satp64Mode_of_bits (a : Architecture) (m : mword 4) : option SATPMode := match (a, m) with - | (g__223, b__0) => - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0] : mword 4))) then Some (Sbare) + | (g__326, b__0) => + if eq_vec b__0 (Ox"0" : mword 4) then Some Sbare else - match (g__223, b__0) with + match (g__326, b__0) with | (RV32, b__0) => - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1] : mword 4))) then Some (Sv32) + if eq_vec b__0 (Ox"1" : mword 4) then Some Sv32 else match (RV32, b__0) with | (_, _) => None end | (RV64, b__0) => - if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0] : mword 4))) then Some (Sv39) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1] : mword 4))) then Some (Sv48) + if eq_vec b__0 (Ox"8" : mword 4) then Some Sv39 + else if eq_vec b__0 (Ox"9" : mword 4) then Some Sv48 else match (RV64, b__0) with | (_, _) => None end | (_, _) => None end end. -Definition uop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 1)} -: uop := - - let l__124 := arg_ in - if sumbool_of_bool ((Z.eqb l__124 0)) then RISCV_LUI +Definition uop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 1))} : uop := + let l__239 := arg_ in + if sumbool_of_bool (Z.eqb l__239 0) then RISCV_LUI else RISCV_AUIPC. -Definition num_of_uop (arg_ : uop) -: {e : Z & ArithFact (0 <= e /\ e <= 1)} := - - build_ex(match arg_ with | RISCV_LUI => 0 | RISCV_AUIPC => 1 end). - -Definition bop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 5)} -: bop := - - let l__119 := arg_ in - if sumbool_of_bool ((Z.eqb l__119 0)) then RISCV_BEQ - else if sumbool_of_bool ((Z.eqb l__119 1)) then RISCV_BNE - else if sumbool_of_bool ((Z.eqb l__119 2)) then RISCV_BLT - else if sumbool_of_bool ((Z.eqb l__119 3)) then RISCV_BGE - else if sumbool_of_bool ((Z.eqb l__119 4)) then RISCV_BLTU - else RISCV_BGEU. +Definition num_of_uop (arg_ : uop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 1))} := + build_ex (match arg_ with | RISCV_LUI => 0 | RISCV_AUIPC => 1 end). -Definition num_of_bop (arg_ : bop) -: {e : Z & ArithFact (0 <= e /\ e <= 5)} := - - build_ex(match arg_ with - | RISCV_BEQ => 0 - | RISCV_BNE => 1 - | RISCV_BLT => 2 - | RISCV_BGE => 3 - | RISCV_BLTU => 4 - | RISCV_BGEU => 5 - end). +Definition bop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} : bop := + let l__234 := arg_ in + if sumbool_of_bool (Z.eqb l__234 0) then RISCV_BEQ + else if sumbool_of_bool (Z.eqb l__234 1) then RISCV_BNE + else if sumbool_of_bool (Z.eqb l__234 2) then RISCV_BLT + else if sumbool_of_bool (Z.eqb l__234 3) then RISCV_BGE + else if sumbool_of_bool (Z.eqb l__234 4) then RISCV_BLTU + else RISCV_BGEU. -Definition iop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 5)} -: iop := - - let l__114 := arg_ in - if sumbool_of_bool ((Z.eqb l__114 0)) then RISCV_ADDI - else if sumbool_of_bool ((Z.eqb l__114 1)) then RISCV_SLTI - else if sumbool_of_bool ((Z.eqb l__114 2)) then RISCV_SLTIU - else if sumbool_of_bool ((Z.eqb l__114 3)) then RISCV_XORI - else if sumbool_of_bool ((Z.eqb l__114 4)) then RISCV_ORI +Definition num_of_bop (arg_ : bop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RISCV_BEQ => 0 + | RISCV_BNE => 1 + | RISCV_BLT => 2 + | RISCV_BGE => 3 + | RISCV_BLTU => 4 + | RISCV_BGEU => 5 + end + ). + +Definition iop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} : iop := + let l__229 := arg_ in + if sumbool_of_bool (Z.eqb l__229 0) then RISCV_ADDI + else if sumbool_of_bool (Z.eqb l__229 1) then RISCV_SLTI + else if sumbool_of_bool (Z.eqb l__229 2) then RISCV_SLTIU + else if sumbool_of_bool (Z.eqb l__229 3) then RISCV_XORI + else if sumbool_of_bool (Z.eqb l__229 4) then RISCV_ORI else RISCV_ANDI. -Definition num_of_iop (arg_ : iop) -: {e : Z & ArithFact (0 <= e /\ e <= 5)} := - - build_ex(match arg_ with - | RISCV_ADDI => 0 - | RISCV_SLTI => 1 - | RISCV_SLTIU => 2 - | RISCV_XORI => 3 - | RISCV_ORI => 4 - | RISCV_ANDI => 5 - end). - -Definition sop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: sop := - - let l__112 := arg_ in - if sumbool_of_bool ((Z.eqb l__112 0)) then RISCV_SLLI - else if sumbool_of_bool ((Z.eqb l__112 1)) then RISCV_SRLI +Definition num_of_iop (arg_ : iop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RISCV_ADDI => 0 + | RISCV_SLTI => 1 + | RISCV_SLTIU => 2 + | RISCV_XORI => 3 + | RISCV_ORI => 4 + | RISCV_ANDI => 5 + end + ). + +Definition sop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : sop := + let l__227 := arg_ in + if sumbool_of_bool (Z.eqb l__227 0) then RISCV_SLLI + else if sumbool_of_bool (Z.eqb l__227 1) then RISCV_SRLI else RISCV_SRAI. -Definition num_of_sop (arg_ : sop) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RISCV_SLLI => 0 | RISCV_SRLI => 1 | RISCV_SRAI => 2 end). - -Definition rop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 9)} -: rop := - - let l__103 := arg_ in - if sumbool_of_bool ((Z.eqb l__103 0)) then RISCV_ADD - else if sumbool_of_bool ((Z.eqb l__103 1)) then RISCV_SUB - else if sumbool_of_bool ((Z.eqb l__103 2)) then RISCV_SLL - else if sumbool_of_bool ((Z.eqb l__103 3)) then RISCV_SLT - else if sumbool_of_bool ((Z.eqb l__103 4)) then RISCV_SLTU - else if sumbool_of_bool ((Z.eqb l__103 5)) then RISCV_XOR - else if sumbool_of_bool ((Z.eqb l__103 6)) then RISCV_SRL - else if sumbool_of_bool ((Z.eqb l__103 7)) then RISCV_SRA - else if sumbool_of_bool ((Z.eqb l__103 8)) then RISCV_OR +Definition num_of_sop (arg_ : sop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RISCV_SLLI => 0 | RISCV_SRLI => 1 | RISCV_SRAI => 2 end). + +Definition rop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 9))} : rop := + let l__218 := arg_ in + if sumbool_of_bool (Z.eqb l__218 0) then RISCV_ADD + else if sumbool_of_bool (Z.eqb l__218 1) then RISCV_SUB + else if sumbool_of_bool (Z.eqb l__218 2) then RISCV_SLL + else if sumbool_of_bool (Z.eqb l__218 3) then RISCV_SLT + else if sumbool_of_bool (Z.eqb l__218 4) then RISCV_SLTU + else if sumbool_of_bool (Z.eqb l__218 5) then RISCV_XOR + else if sumbool_of_bool (Z.eqb l__218 6) then RISCV_SRL + else if sumbool_of_bool (Z.eqb l__218 7) then RISCV_SRA + else if sumbool_of_bool (Z.eqb l__218 8) then RISCV_OR else RISCV_AND. -Definition num_of_rop (arg_ : rop) -: {e : Z & ArithFact (0 <= e /\ e <= 9)} := - - build_ex(match arg_ with - | RISCV_ADD => 0 - | RISCV_SUB => 1 - | RISCV_SLL => 2 - | RISCV_SLT => 3 - | RISCV_SLTU => 4 - | RISCV_XOR => 5 - | RISCV_SRL => 6 - | RISCV_SRA => 7 - | RISCV_OR => 8 - | RISCV_AND => 9 - end). - -Definition ropw_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 4)} -: ropw := - - let l__99 := arg_ in - if sumbool_of_bool ((Z.eqb l__99 0)) then RISCV_ADDW - else if sumbool_of_bool ((Z.eqb l__99 1)) then RISCV_SUBW - else if sumbool_of_bool ((Z.eqb l__99 2)) then RISCV_SLLW - else if sumbool_of_bool ((Z.eqb l__99 3)) then RISCV_SRLW +Definition num_of_rop (arg_ : rop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 9))} := + build_ex ( + match arg_ with + | RISCV_ADD => 0 + | RISCV_SUB => 1 + | RISCV_SLL => 2 + | RISCV_SLT => 3 + | RISCV_SLTU => 4 + | RISCV_XOR => 5 + | RISCV_SRL => 6 + | RISCV_SRA => 7 + | RISCV_OR => 8 + | RISCV_AND => 9 + end + ). + +Definition ropw_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 4))} : ropw := + let l__214 := arg_ in + if sumbool_of_bool (Z.eqb l__214 0) then RISCV_ADDW + else if sumbool_of_bool (Z.eqb l__214 1) then RISCV_SUBW + else if sumbool_of_bool (Z.eqb l__214 2) then RISCV_SLLW + else if sumbool_of_bool (Z.eqb l__214 3) then RISCV_SRLW else RISCV_SRAW. -Definition num_of_ropw (arg_ : ropw) -: {e : Z & ArithFact (0 <= e /\ e <= 4)} := - - build_ex(match arg_ with - | RISCV_ADDW => 0 - | RISCV_SUBW => 1 - | RISCV_SLLW => 2 - | RISCV_SRLW => 3 - | RISCV_SRAW => 4 - end). - -Definition sopw_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: sopw := - - let l__97 := arg_ in - if sumbool_of_bool ((Z.eqb l__97 0)) then RISCV_SLLIW - else if sumbool_of_bool ((Z.eqb l__97 1)) then RISCV_SRLIW +Definition num_of_ropw (arg_ : ropw) : {e : Z & ArithFact ((0 <=? e) && (e <=? 4))} := + build_ex ( + match arg_ with + | RISCV_ADDW => 0 + | RISCV_SUBW => 1 + | RISCV_SLLW => 2 + | RISCV_SRLW => 3 + | RISCV_SRAW => 4 + end + ). + +Definition sopw_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : sopw := + let l__212 := arg_ in + if sumbool_of_bool (Z.eqb l__212 0) then RISCV_SLLIW + else if sumbool_of_bool (Z.eqb l__212 1) then RISCV_SRLIW else RISCV_SRAIW. -Definition num_of_sopw (arg_ : sopw) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | RISCV_SLLIW => 0 | RISCV_SRLIW => 1 | RISCV_SRAIW => 2 end). - -Definition amoop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 8)} -: amoop := - - let l__89 := arg_ in - if sumbool_of_bool ((Z.eqb l__89 0)) then AMOSWAP - else if sumbool_of_bool ((Z.eqb l__89 1)) then AMOADD - else if sumbool_of_bool ((Z.eqb l__89 2)) then AMOXOR - else if sumbool_of_bool ((Z.eqb l__89 3)) then AMOAND - else if sumbool_of_bool ((Z.eqb l__89 4)) then AMOOR - else if sumbool_of_bool ((Z.eqb l__89 5)) then AMOMIN - else if sumbool_of_bool ((Z.eqb l__89 6)) then AMOMAX - else if sumbool_of_bool ((Z.eqb l__89 7)) then AMOMINU +Definition num_of_sopw (arg_ : sopw) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | RISCV_SLLIW => 0 | RISCV_SRLIW => 1 | RISCV_SRAIW => 2 end). + +Definition amoop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : amoop := + let l__204 := arg_ in + if sumbool_of_bool (Z.eqb l__204 0) then AMOSWAP + else if sumbool_of_bool (Z.eqb l__204 1) then AMOADD + else if sumbool_of_bool (Z.eqb l__204 2) then AMOXOR + else if sumbool_of_bool (Z.eqb l__204 3) then AMOAND + else if sumbool_of_bool (Z.eqb l__204 4) then AMOOR + else if sumbool_of_bool (Z.eqb l__204 5) then AMOMIN + else if sumbool_of_bool (Z.eqb l__204 6) then AMOMAX + else if sumbool_of_bool (Z.eqb l__204 7) then AMOMINU else AMOMAXU. -Definition num_of_amoop (arg_ : amoop) -: {e : Z & ArithFact (0 <= e /\ e <= 8)} := - - build_ex(match arg_ with - | AMOSWAP => 0 - | AMOADD => 1 - | AMOXOR => 2 - | AMOAND => 3 - | AMOOR => 4 - | AMOMIN => 5 - | AMOMAX => 6 - | AMOMINU => 7 - | AMOMAXU => 8 - end). - -Definition csrop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: csrop := - - let l__87 := arg_ in - if sumbool_of_bool ((Z.eqb l__87 0)) then CSRRW - else if sumbool_of_bool ((Z.eqb l__87 1)) then CSRRS +Definition num_of_amoop (arg_ : amoop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | AMOSWAP => 0 + | AMOADD => 1 + | AMOXOR => 2 + | AMOAND => 3 + | AMOOR => 4 + | AMOMIN => 5 + | AMOMAX => 6 + | AMOMINU => 7 + | AMOMAXU => 8 + end + ). + +Definition csrop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : csrop := + let l__202 := arg_ in + if sumbool_of_bool (Z.eqb l__202 0) then CSRRW + else if sumbool_of_bool (Z.eqb l__202 1) then CSRRS else CSRRC. -Definition num_of_csrop (arg_ : csrop) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | CSRRW => 0 | CSRRS => 1 | CSRRC => 2 end). +Definition num_of_csrop (arg_ : csrop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | CSRRW => 0 | CSRRS => 1 | CSRRC => 2 end). -Definition sep_forwards (arg_ : unit) -: string := - +Definition sep_forwards (arg_ : unit) : string := match arg_ with | tt => string_append (opt_spc_forwards tt) (string_append "," (string_append (def_spc_forwards tt) "")) end. -Definition _s0_ (_s1_ : string) -: M (option unit) := - +Definition _s0_ (_s1_ : string) : M (option unit) := (match _s1_ with | _s2_ => - (opt_spc_matches_prefix _s2_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s2_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3_ _)) => + | Some (tt, existT _ _s3_ _) => let _s4_ := string_drop _s2_ _s3_ in - (if ((string_startswith _s4_ ",")) then + (if string_startswith _s4_ "," then (match (string_drop _s4_ (projT1 (string_length ","))) with | _s5_ => - (def_spc_matches_prefix _s5_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s5_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s6_ _)) => - let p0_ := string_drop _s5_ _s6_ in - if ((generic_eq p0_ "")) then Some (tt) - else None - | _ => None - end) - : option unit) + returnm (match w__1 with + | Some (tt, existT _ _s6_ _) => + let p0_ := string_drop _s5_ _s6_ in + if generic_eq p0_ "" then Some tt + else None + | _ => None + end) end) : M (option unit) - else returnm (None : option unit)) + else returnm None) : M (option unit) - | _ => returnm (None : option unit) + | _ => returnm None end) : M (option unit) end) : M (option unit). -Definition sep_backwards (arg_ : string) -: M (unit) := - +Definition sep_backwards (arg_ : string) : M (unit) := let _s7_ := arg_ in (_s0_ _s7_) >>= fun w__0 : option unit => - (if ((match w__0 with | Some (tt) => true | _ => false end)) then + (if match w__0 with | Some tt => true | _ => false end then (_s0_ _s7_) >>= fun w__1 : option unit => - (match w__1 with | Some (tt) => returnm (tt : unit) | _ => exit tt : M (unit) end) + (match w__1 with | Some tt => returnm tt | _ => exit tt : M (unit) end) : M (unit) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (unit). -Definition sep_forwards_matches (arg_ : unit) : bool := match arg_ with | tt => true end. +Definition sep_forwards_matches (arg_ : unit) : bool := match arg_ with | tt => true end. -Definition _s8_ (_s9_ : string) -: M (option unit) := - +Definition _s8_ (_s9_ : string) : M (option unit) := (match _s9_ with | _s10_ => - (opt_spc_matches_prefix _s10_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s10_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s11_ _)) => + | Some (tt, existT _ _s11_ _) => let _s12_ := string_drop _s10_ _s11_ in - (if ((string_startswith _s12_ ",")) then + (if string_startswith _s12_ "," then (match (string_drop _s12_ (projT1 (string_length ","))) with | _s13_ => - (def_spc_matches_prefix _s13_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s13_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s14_ _)) => - let p0_ := string_drop _s13_ _s14_ in - if ((generic_eq p0_ "")) then Some (tt) - else None - | _ => None - end) - : option unit) + returnm (match w__1 with + | Some (tt, existT _ _s14_ _) => + let p0_ := string_drop _s13_ _s14_ in + if generic_eq p0_ "" then Some tt + else None + | _ => None + end) end) : M (option unit) - else returnm (None : option unit)) + else returnm None) : M (option unit) - | _ => returnm (None : option unit) + | _ => returnm None end) : M (option unit) end) : M (option unit). -Definition sep_backwards_matches (arg_ : string) -: M (bool) := - +Definition sep_backwards_matches (arg_ : string) : M (bool) := let _s15_ := arg_ in (_s8_ _s15_) >>= fun w__0 : option unit => - (if ((match w__0 with | Some (tt) => true | _ => false end)) then + (if match w__0 with | Some tt => true | _ => false end then (_s8_ _s15_) >>= fun w__1 : option unit => - (match w__1 with - | Some (tt) => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (match w__1 with | Some tt => returnm true | _ => exit tt : M (bool) end) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else returnm false) : M (bool). -Definition _s16_ (_s17_ : string) -: M (option string) := - +Definition _s16_ (_s17_ : string) : M (option string) := (match _s17_ with | _s18_ => - (opt_spc_matches_prefix _s18_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + (opt_spc_matches_prefix _s18_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s19_ _)) => + | Some (tt, existT _ _s19_ _) => let _s20_ := string_drop _s18_ _s19_ in - (if ((string_startswith _s20_ ",")) then + (if string_startswith _s20_ "," then (match (string_drop _s20_ (projT1 (string_length ","))) with | _s21_ => - (def_spc_matches_prefix _s21_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + (def_spc_matches_prefix _s21_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((tt, existT _ _s22_ _)) => - match (string_drop _s21_ _s22_) with | s_ => Some (s_) end - | _ => None - end) - : option string) + returnm (match w__1 with + | Some (tt, existT _ _s22_ _) => + match (string_drop _s21_ _s22_) with | s_ => Some s_ end + | _ => None + end) end) : M (option string) - else returnm (None : option string)) + else returnm None) : M (option string) - | _ => returnm (None : option string) + | _ => returnm None end) : M (option string) end) : M (option string). -Definition sep_matches_prefix (arg_ : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - +Definition sep_matches_prefix (arg_ : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := let _s23_ := arg_ in (_s16_ _s23_) >>= fun w__0 : option string => - (if ((match w__0 with | Some (s_) => true | _ => false end)) then + (if match w__0 with | Some s_ => true | _ => false end then (_s16_ _s23_) >>= fun w__1 : option string => (match w__1 with - | Some (s_) => - returnm ((Some - ((tt, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((unit * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (tt, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((unit * {n : Z & ArithFact (n >= 0)})))) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))). + : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))). -Definition bool_bits_forwards (arg_ : bool) -: mword 1 := - - match arg_ with - | true => (vec_of_bits [B1] : mword 1) - | false => (vec_of_bits [B0] : mword 1) - end. +Definition bool_bits_forwards (arg_ : bool) : mword 1 := + match arg_ with | true => 'b"1" : mword 1 | false => 'b"0" : mword 1 end. -Definition bool_bits_backwards (arg_ : mword 1) -: M (bool) := - +Definition bool_bits_backwards (arg_ : mword 1) : M (bool) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if eq_vec b__0 ('b"1" : mword 1) then returnm true + else if eq_vec b__0 ('b"0" : mword 1) then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition bool_bits_forwards_matches (arg_ : bool) -: bool := - +Definition bool_bits_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition bool_bits_backwards_matches (arg_ : mword 1) -: bool := - +Definition bool_bits_backwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bool_not_bits_forwards (arg_ : bool) -: mword 1 := - - match arg_ with - | true => (vec_of_bits [B0] : mword 1) - | false => (vec_of_bits [B1] : mword 1) - end. +Definition bool_not_bits_forwards (arg_ : bool) : mword 1 := + match arg_ with | true => 'b"0" : mword 1 | false => 'b"1" : mword 1 end. -Definition bool_not_bits_backwards (arg_ : mword 1) -: M (bool) := - +Definition bool_not_bits_backwards (arg_ : mword 1) : M (bool) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if eq_vec b__0 ('b"0" : mword 1) then returnm true + else if eq_vec b__0 ('b"1" : mword 1) then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition bool_not_bits_forwards_matches (arg_ : bool) -: bool := - +Definition bool_not_bits_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition bool_not_bits_backwards_matches (arg_ : mword 1) -: bool := - +Definition bool_not_bits_backwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true + if eq_vec b__0 ('b"0" : mword 1) then true + else if eq_vec b__0 ('b"1" : mword 1) then true else false. -Definition size_bits_forwards (arg_ : word_width) -: mword 2 := - +Definition size_bits_forwards (arg_ : word_width) : mword 2 := match arg_ with - | BYTE => (vec_of_bits [B0;B0] : mword 2) - | HALF => (vec_of_bits [B0;B1] : mword 2) - | WORD => (vec_of_bits [B1;B0] : mword 2) - | DOUBLE => (vec_of_bits [B1;B1] : mword 2) + | BYTE => 'b"00" : mword 2 + | HALF => 'b"01" : mword 2 + | WORD => 'b"10" : mword 2 + | DOUBLE => 'b"11" : mword 2 end. -Definition size_bits_backwards (arg_ : mword 2) -: M (word_width) := - +Definition size_bits_backwards (arg_ : mword 2) : M (word_width) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (BYTE : word_width) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (HALF : word_width) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (WORD : word_width) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (DOUBLE : word_width) + (if eq_vec b__0 ('b"00" : mword 2) then returnm BYTE + else if eq_vec b__0 ('b"01" : mword 2) then returnm HALF + else if eq_vec b__0 ('b"10" : mword 2) then returnm WORD + else if eq_vec b__0 ('b"11" : mword 2) then returnm DOUBLE else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (word_width). -Definition size_bits_forwards_matches (arg_ : word_width) -: bool := - +Definition size_bits_forwards_matches (arg_ : word_width) : bool := match arg_ with | BYTE => true | HALF => true | WORD => true | DOUBLE => true end. -Definition size_bits_backwards_matches (arg_ : mword 2) -: bool := - +Definition size_bits_backwards_matches (arg_ : mword 2) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then true + if eq_vec b__0 ('b"00" : mword 2) then true + else if eq_vec b__0 ('b"01" : mword 2) then true + else if eq_vec b__0 ('b"10" : mword 2) then true + else if eq_vec b__0 ('b"11" : mword 2) then true else false. -Definition size_mnemonic_forwards (arg_ : word_width) -: string := - +Definition size_mnemonic_forwards (arg_ : word_width) : string := match arg_ with | BYTE => "b" | HALF => "h" | WORD => "w" | DOUBLE => "d" end. -Definition size_mnemonic_backwards (arg_ : string) -: M (word_width) := - +Definition size_mnemonic_backwards (arg_ : string) : M (word_width) := let p0_ := arg_ in - (if ((generic_eq p0_ "b")) then returnm (BYTE : word_width) - else if ((generic_eq p0_ "h")) then returnm (HALF : word_width) - else if ((generic_eq p0_ "w")) then returnm (WORD : word_width) - else if ((generic_eq p0_ "d")) then returnm (DOUBLE : word_width) + (if generic_eq p0_ "b" then returnm BYTE + else if generic_eq p0_ "h" then returnm HALF + else if generic_eq p0_ "w" then returnm WORD + else if generic_eq p0_ "d" then returnm DOUBLE else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (word_width). -Definition size_mnemonic_forwards_matches (arg_ : word_width) -: bool := - +Definition size_mnemonic_forwards_matches (arg_ : word_width) : bool := match arg_ with | BYTE => true | HALF => true | WORD => true | DOUBLE => true end. -Definition size_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition size_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "b")) then true - else if ((generic_eq p0_ "h")) then true - else if ((generic_eq p0_ "w")) then true - else if ((generic_eq p0_ "d")) then true + if generic_eq p0_ "b" then true + else if generic_eq p0_ "h" then true + else if generic_eq p0_ "w" then true + else if generic_eq p0_ "d" then true else false. -Definition _s36_ (_s37_ : string) -: option string := - +Definition _s36_ (_s37_ : string) : option string := let _s38_ := _s37_ in - if ((string_startswith _s38_ "d")) then - match (string_drop _s38_ (projT1 (string_length "d"))) with | s_ => Some (s_) end + if string_startswith _s38_ "d" then + match (string_drop _s38_ (projT1 (string_length "d"))) with | s_ => Some s_ end else None. -Definition _s32_ (_s33_ : string) -: option string := - +Definition _s32_ (_s33_ : string) : option string := let _s34_ := _s33_ in - if ((string_startswith _s34_ "w")) then - match (string_drop _s34_ (projT1 (string_length "w"))) with | s_ => Some (s_) end + if string_startswith _s34_ "w" then + match (string_drop _s34_ (projT1 (string_length "w"))) with | s_ => Some s_ end else None. -Definition _s28_ (_s29_ : string) -: option string := - +Definition _s28_ (_s29_ : string) : option string := let _s30_ := _s29_ in - if ((string_startswith _s30_ "h")) then - match (string_drop _s30_ (projT1 (string_length "h"))) with | s_ => Some (s_) end + if string_startswith _s30_ "h" then + match (string_drop _s30_ (projT1 (string_length "h"))) with | s_ => Some s_ end else None. -Definition _s24_ (_s25_ : string) -: option string := - +Definition _s24_ (_s25_ : string) : option string := let _s26_ := _s25_ in - if ((string_startswith _s26_ "b")) then - match (string_drop _s26_ (projT1 (string_length "b"))) with | s_ => Some (s_) end + if string_startswith _s26_ "b" then + match (string_drop _s26_ (projT1 (string_length "b"))) with | s_ => Some s_ end else None. -Definition size_mnemonic_matches_prefix (arg_ : string) -: M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) := - +Definition size_mnemonic_matches_prefix (arg_ : string) +: M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) := let _s27_ := arg_ in - (if ((match (_s24_ _s27_) with | Some (s_) => true | _ => false end)) then + (if match (_s24_ _s27_) with | Some s_ => true | _ => false end then (match (_s24_ _s27_) with - | Some (s_) => - returnm ((Some - ((BYTE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (BYTE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s28_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s28_ _s27_) with | Some s_ => true | _ => false end then (match (_s28_ _s27_) with - | Some (s_) => - returnm ((Some - ((HALF, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (HALF, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s32_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s32_ _s27_) with | Some s_ => true | _ => false end then (match (_s32_ _s27_) with - | Some (s_) => - returnm ((Some - ((WORD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (WORD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s36_ _s27_) with | Some (s_) => true | _ => false end)) then + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s36_ _s27_) with | Some s_ => true | _ => false end then (match (_s36_ _s27_) with - | Some (s_) => - returnm ((Some - ((DOUBLE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((word_width * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + (DOUBLE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((word_width * {n : Z & ArithFact (n >= 0)})))) - : M (option ((word_width * {n : Z & ArithFact (n >= 0)}))). - -Definition word_width_bytes (width : word_width) -: {s : Z & ArithFact (s = 1 \/ s = 2 \/ s = 4 \/ s = 8)} := - - build_ex(match width with | BYTE => 1 | HALF => 2 | WORD => 4 | DOUBLE => 8 end). + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((word_width * {n : Z & ArithFact (n >=? 0)}))). + +Definition word_width_bytes (width : word_width) +: {s : Z & ArithFact ((s =? 1) || ((s =? 2) || ((s =? 4) || (s =? 8))))} := + build_ex (match width with | BYTE => 1 | HALF => 2 | WORD => 4 | DOUBLE => 8 end). + +Definition Data : ext_access_type := tt. +Hint Unfold Data : sail. +Definition default_write_acc : ext_access_type := Data. +Hint Unfold default_write_acc : sail. +Definition accessType_to_str (a : AccessType unit) : string := + match a with + | Read Data => "R" + | Write Data => "W" + | ReadWrite Data => "RW" + | Execute tt => "X" + end. -Definition zero_reg : regtype := EXTZ 64 (vec_of_bits [B0;B0;B0;B0] : mword 4). +Definition zero_reg : regtype := EXTZ 64 (Ox"0" : mword 4). Hint Unfold zero_reg : sail. -Definition RegStr (r : mword 64) : string := string_of_bits r. - -Definition regval_from_reg (r : mword 64) : mword 64 := r. +Definition RegStr (r : mword 64) : string := string_of_bits r. + +Definition regval_from_reg (r : mword 64) : mword 64 := r. + +Definition regval_into_reg (v : mword 64) : mword 64 := v. + +Definition zero_freg : fregtype := EXTZ 64 (Ox"0" : mword 4). +Hint Unfold zero_freg : sail. +Definition FRegStr (r : mword 64) : string := string_of_bits r. + +Definition fregval_from_freg (r : mword 64) : mword 64 := r. + +Definition fregval_into_freg (v : mword 64) : mword 64 := v. + +Definition rounding_mode_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} +: rounding_mode := + let l__197 := arg_ in + if sumbool_of_bool (Z.eqb l__197 0) then RM_RNE + else if sumbool_of_bool (Z.eqb l__197 1) then RM_RTZ + else if sumbool_of_bool (Z.eqb l__197 2) then RM_RDN + else if sumbool_of_bool (Z.eqb l__197 3) then RM_RUP + else if sumbool_of_bool (Z.eqb l__197 4) then RM_RMM + else RM_DYN. + +Definition num_of_rounding_mode (arg_ : rounding_mode) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RM_RNE => 0 + | RM_RTZ => 1 + | RM_RDN => 2 + | RM_RUP => 3 + | RM_RMM => 4 + | RM_DYN => 5 + end + ). + +Definition f_madd_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : f_madd_op_S := + let l__194 := arg_ in + if sumbool_of_bool (Z.eqb l__194 0) then FMADD_S + else if sumbool_of_bool (Z.eqb l__194 1) then FMSUB_S + else if sumbool_of_bool (Z.eqb l__194 2) then FNMSUB_S + else FNMADD_S. + +Definition num_of_f_madd_op_S (arg_ : f_madd_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FMADD_S => 0 | FMSUB_S => 1 | FNMSUB_S => 2 | FNMADD_S => 3 end). + +Definition f_bin_rm_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} +: f_bin_rm_op_S := + let l__191 := arg_ in + if sumbool_of_bool (Z.eqb l__191 0) then FADD_S + else if sumbool_of_bool (Z.eqb l__191 1) then FSUB_S + else if sumbool_of_bool (Z.eqb l__191 2) then FMUL_S + else FDIV_S. + +Definition num_of_f_bin_rm_op_S (arg_ : f_bin_rm_op_S) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FADD_S => 0 | FSUB_S => 1 | FMUL_S => 2 | FDIV_S => 3 end). + +Definition f_un_rm_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 8))} : f_un_rm_op_S := + let l__183 := arg_ in + if sumbool_of_bool (Z.eqb l__183 0) then FSQRT_S + else if sumbool_of_bool (Z.eqb l__183 1) then FCVT_W_S + else if sumbool_of_bool (Z.eqb l__183 2) then FCVT_WU_S + else if sumbool_of_bool (Z.eqb l__183 3) then FCVT_S_W + else if sumbool_of_bool (Z.eqb l__183 4) then FCVT_S_WU + else if sumbool_of_bool (Z.eqb l__183 5) then FCVT_L_S + else if sumbool_of_bool (Z.eqb l__183 6) then FCVT_LU_S + else if sumbool_of_bool (Z.eqb l__183 7) then FCVT_S_L + else FCVT_S_LU. + +Definition num_of_f_un_rm_op_S (arg_ : f_un_rm_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 8))} := + build_ex ( + match arg_ with + | FSQRT_S => 0 + | FCVT_W_S => 1 + | FCVT_WU_S => 2 + | FCVT_S_W => 3 + | FCVT_S_WU => 4 + | FCVT_L_S => 5 + | FCVT_LU_S => 6 + | FCVT_S_L => 7 + | FCVT_S_LU => 8 + end + ). + +Definition f_un_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : f_un_op_S := + let l__181 := arg_ in + if sumbool_of_bool (Z.eqb l__181 0) then FCLASS_S + else if sumbool_of_bool (Z.eqb l__181 1) then FMV_X_W + else FMV_W_X. + +Definition num_of_f_un_op_S (arg_ : f_un_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | FCLASS_S => 0 | FMV_X_W => 1 | FMV_W_X => 2 end). + +Definition f_bin_op_S_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 7))} : f_bin_op_S := + let l__174 := arg_ in + if sumbool_of_bool (Z.eqb l__174 0) then FSGNJ_S + else if sumbool_of_bool (Z.eqb l__174 1) then FSGNJN_S + else if sumbool_of_bool (Z.eqb l__174 2) then FSGNJX_S + else if sumbool_of_bool (Z.eqb l__174 3) then FMIN_S + else if sumbool_of_bool (Z.eqb l__174 4) then FMAX_S + else if sumbool_of_bool (Z.eqb l__174 5) then FEQ_S + else if sumbool_of_bool (Z.eqb l__174 6) then FLT_S + else FLE_S. + +Definition num_of_f_bin_op_S (arg_ : f_bin_op_S) : {e : Z & ArithFact ((0 <=? e) && (e <=? 7))} := + build_ex ( + match arg_ with + | FSGNJ_S => 0 + | FSGNJN_S => 1 + | FSGNJX_S => 2 + | FMIN_S => 3 + | FMAX_S => 4 + | FEQ_S => 5 + | FLT_S => 6 + | FLE_S => 7 + end + ). + +Definition f_madd_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : f_madd_op_D := + let l__171 := arg_ in + if sumbool_of_bool (Z.eqb l__171 0) then FMADD_D + else if sumbool_of_bool (Z.eqb l__171 1) then FMSUB_D + else if sumbool_of_bool (Z.eqb l__171 2) then FNMSUB_D + else FNMADD_D. + +Definition num_of_f_madd_op_D (arg_ : f_madd_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FMADD_D => 0 | FMSUB_D => 1 | FNMSUB_D => 2 | FNMADD_D => 3 end). + +Definition f_bin_rm_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} +: f_bin_rm_op_D := + let l__168 := arg_ in + if sumbool_of_bool (Z.eqb l__168 0) then FADD_D + else if sumbool_of_bool (Z.eqb l__168 1) then FSUB_D + else if sumbool_of_bool (Z.eqb l__168 2) then FMUL_D + else FDIV_D. + +Definition num_of_f_bin_rm_op_D (arg_ : f_bin_rm_op_D) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | FADD_D => 0 | FSUB_D => 1 | FMUL_D => 2 | FDIV_D => 3 end). + +Definition f_un_rm_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} +: f_un_rm_op_D := + let l__158 := arg_ in + if sumbool_of_bool (Z.eqb l__158 0) then FSQRT_D + else if sumbool_of_bool (Z.eqb l__158 1) then FCVT_W_D + else if sumbool_of_bool (Z.eqb l__158 2) then FCVT_WU_D + else if sumbool_of_bool (Z.eqb l__158 3) then FCVT_D_W + else if sumbool_of_bool (Z.eqb l__158 4) then FCVT_D_WU + else if sumbool_of_bool (Z.eqb l__158 5) then FCVT_S_D + else if sumbool_of_bool (Z.eqb l__158 6) then FCVT_D_S + else if sumbool_of_bool (Z.eqb l__158 7) then FCVT_L_D + else if sumbool_of_bool (Z.eqb l__158 8) then FCVT_LU_D + else if sumbool_of_bool (Z.eqb l__158 9) then FCVT_D_L + else FCVT_D_LU. + +Definition num_of_f_un_rm_op_D (arg_ : f_un_rm_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | FSQRT_D => 0 + | FCVT_W_D => 1 + | FCVT_WU_D => 2 + | FCVT_D_W => 3 + | FCVT_D_WU => 4 + | FCVT_S_D => 5 + | FCVT_D_S => 6 + | FCVT_L_D => 7 + | FCVT_LU_D => 8 + | FCVT_D_L => 9 + | FCVT_D_LU => 10 + end + ). + +Definition f_bin_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 7))} : f_bin_op_D := + let l__151 := arg_ in + if sumbool_of_bool (Z.eqb l__151 0) then FSGNJ_D + else if sumbool_of_bool (Z.eqb l__151 1) then FSGNJN_D + else if sumbool_of_bool (Z.eqb l__151 2) then FSGNJX_D + else if sumbool_of_bool (Z.eqb l__151 3) then FMIN_D + else if sumbool_of_bool (Z.eqb l__151 4) then FMAX_D + else if sumbool_of_bool (Z.eqb l__151 5) then FEQ_D + else if sumbool_of_bool (Z.eqb l__151 6) then FLT_D + else FLE_D. + +Definition num_of_f_bin_op_D (arg_ : f_bin_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 7))} := + build_ex ( + match arg_ with + | FSGNJ_D => 0 + | FSGNJN_D => 1 + | FSGNJX_D => 2 + | FMIN_D => 3 + | FMAX_D => 4 + | FEQ_D => 5 + | FLT_D => 6 + | FLE_D => 7 + end + ). + +Definition f_un_op_D_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : f_un_op_D := + let l__149 := arg_ in + if sumbool_of_bool (Z.eqb l__149 0) then FCLASS_D + else if sumbool_of_bool (Z.eqb l__149 1) then FMV_X_D + else FMV_D_X. -Definition regval_into_reg (v : mword 64) : mword 64 := v. +Definition num_of_f_un_op_D (arg_ : f_un_op_D) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | FCLASS_D => 0 | FMV_X_D => 1 | FMV_D_X => 2 end). -Definition rX (r : Z) `{ArithFact (0 <= r /\ r < 32)} -: M (mword 64) := - - let l__55 := r in - (if sumbool_of_bool ((Z.eqb l__55 0)) then returnm (zero_reg : mword 64) - else if sumbool_of_bool ((Z.eqb l__55 1)) then +Definition rX (r : Z) `{ArithFact ((0 <=? r) && (r <? 32))} : M (mword 64) := + let l__117 := r in + (if sumbool_of_bool (Z.eqb l__117 0) then returnm zero_reg + else if sumbool_of_bool (Z.eqb l__117 1) then ((read_reg x1_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 2)) then + else if sumbool_of_bool (Z.eqb l__117 2) then ((read_reg x2_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 3)) then + else if sumbool_of_bool (Z.eqb l__117 3) then ((read_reg x3_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 4)) then + else if sumbool_of_bool (Z.eqb l__117 4) then ((read_reg x4_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 5)) then + else if sumbool_of_bool (Z.eqb l__117 5) then ((read_reg x5_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 6)) then + else if sumbool_of_bool (Z.eqb l__117 6) then ((read_reg x6_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 7)) then + else if sumbool_of_bool (Z.eqb l__117 7) then ((read_reg x7_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 8)) then + else if sumbool_of_bool (Z.eqb l__117 8) then ((read_reg x8_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 9)) then + else if sumbool_of_bool (Z.eqb l__117 9) then ((read_reg x9_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 10)) then + else if sumbool_of_bool (Z.eqb l__117 10) then ((read_reg x10_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 11)) then + else if sumbool_of_bool (Z.eqb l__117 11) then ((read_reg x11_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 12)) then + else if sumbool_of_bool (Z.eqb l__117 12) then ((read_reg x12_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 13)) then + else if sumbool_of_bool (Z.eqb l__117 13) then ((read_reg x13_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 14)) then + else if sumbool_of_bool (Z.eqb l__117 14) then ((read_reg x14_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 15)) then + else if sumbool_of_bool (Z.eqb l__117 15) then ((read_reg x15_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 16)) then + else if sumbool_of_bool (Z.eqb l__117 16) then ((read_reg x16_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 17)) then + else if sumbool_of_bool (Z.eqb l__117 17) then ((read_reg x17_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 18)) then + else if sumbool_of_bool (Z.eqb l__117 18) then ((read_reg x18_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 19)) then + else if sumbool_of_bool (Z.eqb l__117 19) then ((read_reg x19_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 20)) then + else if sumbool_of_bool (Z.eqb l__117 20) then ((read_reg x20_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 21)) then + else if sumbool_of_bool (Z.eqb l__117 21) then ((read_reg x21_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 22)) then + else if sumbool_of_bool (Z.eqb l__117 22) then ((read_reg x22_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 23)) then + else if sumbool_of_bool (Z.eqb l__117 23) then ((read_reg x23_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 24)) then + else if sumbool_of_bool (Z.eqb l__117 24) then ((read_reg x24_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 25)) then + else if sumbool_of_bool (Z.eqb l__117 25) then ((read_reg x25_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 26)) then + else if sumbool_of_bool (Z.eqb l__117 26) then ((read_reg x26_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 27)) then + else if sumbool_of_bool (Z.eqb l__117 27) then ((read_reg x27_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 28)) then + else if sumbool_of_bool (Z.eqb l__117 28) then ((read_reg x28_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 29)) then + else if sumbool_of_bool (Z.eqb l__117 29) then ((read_reg x29_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 30)) then + else if sumbool_of_bool (Z.eqb l__117 30) then ((read_reg x30_ref) : M (mword 64)) : M (mword 64) - else if sumbool_of_bool ((Z.eqb l__55 31)) then + else if sumbool_of_bool (Z.eqb l__117 31) then ((read_reg x31_ref) : M (mword 64)) : M (mword 64) else assert_exp' false "invalid register number" >>= fun _ => exit tt) >>= fun v : regtype => - returnm ((regval_from_reg v) - : mword 64). + returnm (regval_from_reg v). -Definition rvfi_wX (r : Z) (v : mword 64) `{ArithFact (0 <= r /\ r < 32)} : unit := tt. +Definition rvfi_wX (r : Z) (v : mword 64) `{ArithFact ((0 <=? r) && (r <? 32))} : unit := tt. -Definition wX (r : Z) (in_v : mword 64) `{ArithFact (0 <= r /\ r < 32)} -: M (unit) := - +Definition wX (r : Z) (in_v : mword 64) `{ArithFact ((0 <=? r) && (r <? 32))} : M (unit) := let v := regval_into_reg in_v in - let l__23 := r in - (if sumbool_of_bool ((Z.eqb l__23 0)) then returnm (tt : unit) - else if sumbool_of_bool ((Z.eqb l__23 1)) then write_reg x1_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 2)) then write_reg x2_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 3)) then write_reg x3_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 4)) then write_reg x4_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 5)) then write_reg x5_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 6)) then write_reg x6_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 7)) then write_reg x7_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 8)) then write_reg x8_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 9)) then write_reg x9_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 10)) then write_reg x10_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 11)) then write_reg x11_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 12)) then write_reg x12_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 13)) then write_reg x13_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 14)) then write_reg x14_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 15)) then write_reg x15_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 16)) then write_reg x16_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 17)) then write_reg x17_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 18)) then write_reg x18_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 19)) then write_reg x19_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 20)) then write_reg x20_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 21)) then write_reg x21_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 22)) then write_reg x22_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 23)) then write_reg x23_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 24)) then write_reg x24_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 25)) then write_reg x25_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 26)) then write_reg x26_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 27)) then write_reg x27_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 28)) then write_reg x28_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 29)) then write_reg x29_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 30)) then write_reg x30_ref v : M (unit) - else if sumbool_of_bool ((Z.eqb l__23 31)) then write_reg x31_ref v : M (unit) + let l__85 := r in + (if sumbool_of_bool (Z.eqb l__85 0) then returnm tt + else if sumbool_of_bool (Z.eqb l__85 1) then write_reg x1_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 2) then write_reg x2_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 3) then write_reg x3_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 4) then write_reg x4_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 5) then write_reg x5_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 6) then write_reg x6_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 7) then write_reg x7_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 8) then write_reg x8_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 9) then write_reg x9_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 10) then write_reg x10_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 11) then write_reg x11_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 12) then write_reg x12_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 13) then write_reg x13_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 14) then write_reg x14_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 15) then write_reg x15_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 16) then write_reg x16_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 17) then write_reg x17_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 18) then write_reg x18_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 19) then write_reg x19_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 20) then write_reg x20_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 21) then write_reg x21_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 22) then write_reg x22_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 23) then write_reg x23_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 24) then write_reg x24_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 25) then write_reg x25_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 26) then write_reg x26_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 27) then write_reg x27_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 28) then write_reg x28_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 29) then write_reg x29_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 30) then write_reg x30_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__85 31) then write_reg x31_ref v : M (unit) else assert_exp' false "invalid register number" >>= fun _ => exit tt) >> - returnm ((if sumbool_of_bool ((projT1 (neq_int r 0))) then - let '_ := (rvfi_wX r in_v) : unit in - if ((get_config_print_reg tt)) then - print_endline - (String.append "x" - (String.append (string_of_int r) (String.append " <- " (RegStr v)))) - else tt - else tt) - : unit). + returnm (if sumbool_of_bool (projT1 (neq_int r 0)) then + let '_ := (rvfi_wX r in_v) : unit in + if get_config_print_reg tt then + print_endline + (String.append "x" + (String.append (string_of_int r) (String.append " <- " (RegStr v)))) + else tt + else tt). + +Definition rX_bits (i : mword 5) : M (mword 64) := (rX (projT1 (uint i))) : M (mword 64). + +Definition wX_bits (i : mword 5) (data : mword 64) : M (unit) := + (wX (projT1 (uint i)) data) : M (unit). -Definition reg_name_abi (r : mword 5) -: M (string) := - +Definition reg_name_abi (r : mword 5) : M (string) := let b__0 := r in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm ("zero" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm ("ra" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then returnm ("sp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then returnm ("gp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm ("tp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then returnm ("t0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then returnm ("t1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then returnm ("t2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm ("fp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then returnm ("a5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm ("a6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then returnm ("a7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then returnm ("s2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then returnm ("s3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm ("s4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then returnm ("s5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then returnm ("s6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then returnm ("s7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then returnm ("s8" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then returnm ("s9" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then returnm ("s10" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then returnm ("s11" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then returnm ("t3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then returnm ("t4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then returnm ("t5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then returnm ("t6" : string) + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "zero" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ra" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "sp" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "gp" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "tp" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "t0" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "t1" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "t2" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fp" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "s1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "a0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "a1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "a2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "a3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "a4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "a5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "a6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "a7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "s2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "s3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "s4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "s5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "s6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "s7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "s8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "s9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "s10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "s11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "t3" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "t4" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "t5" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "t6" else - assert_exp' false "Pattern match failure at model/riscv_regs.sail 149:2 - 182:3" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_regs.sail 155:2 - 188:3" >>= fun _ => exit tt) : M (string). -Definition reg_name_forwards (arg_ : mword 5) -: M (string) := - +Definition reg_name_forwards (arg_ : mword 5) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm ("zero" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm ("ra" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then returnm ("sp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then returnm ("gp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm ("tp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then returnm ("t0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then returnm ("t1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then returnm ("t2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm ("fp" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then returnm ("a5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm ("a6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then returnm ("a7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then returnm ("s2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then returnm ("s3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm ("s4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then returnm ("s5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then returnm ("s6" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then returnm ("s7" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then returnm ("s8" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then returnm ("s9" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then returnm ("s10" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then returnm ("s11" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then returnm ("t3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then returnm ("t4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then returnm ("t5" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then returnm ("t6" : string) + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "zero" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ra" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "sp" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "gp" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "tp" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "t0" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "t1" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "t2" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fp" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "s1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "a0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "a1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "a2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "a3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "a4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "a5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "a6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "a7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "s2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "s3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "s4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "s5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "s6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "s7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "s8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "s9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "s10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "s11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "t3" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "t4" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "t5" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "t6" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition reg_name_backwards (arg_ : string) -: M (mword 5) := - +Definition reg_name_backwards (arg_ : string) : M (mword 5) := let p0_ := arg_ in - (if ((generic_eq p0_ "zero")) then returnm ((vec_of_bits [B0;B0;B0;B0;B0] : mword 5) : mword 5) - else if ((generic_eq p0_ "ra")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "sp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "gp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "tp")) then - returnm ((vec_of_bits [B0;B0;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t0")) then - returnm ((vec_of_bits [B0;B0;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "fp")) then - returnm ((vec_of_bits [B0;B1;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s1")) then - returnm ((vec_of_bits [B0;B1;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a0")) then - returnm ((vec_of_bits [B0;B1;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a1")) then - returnm ((vec_of_bits [B0;B1;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a2")) then - returnm ((vec_of_bits [B0;B1;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a3")) then - returnm ((vec_of_bits [B0;B1;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a4")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a5")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a6")) then - returnm ((vec_of_bits [B1;B0;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "a7")) then - returnm ((vec_of_bits [B1;B0;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s2")) then - returnm ((vec_of_bits [B1;B0;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s3")) then - returnm ((vec_of_bits [B1;B0;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s4")) then - returnm ((vec_of_bits [B1;B0;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s5")) then - returnm ((vec_of_bits [B1;B0;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s6")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s7")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s8")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s9")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s10")) then - returnm ((vec_of_bits [B1;B1;B0;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "s11")) then - returnm ((vec_of_bits [B1;B1;B0;B1;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t3")) then - returnm ((vec_of_bits [B1;B1;B1;B0;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t4")) then - returnm ((vec_of_bits [B1;B1;B1;B0;B1] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t5")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0] : mword 5) - : mword 5) - else if ((generic_eq p0_ "t6")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B1] : mword 5) - : mword 5) + (if generic_eq p0_ "zero" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ra" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "sp" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "gp" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "tp" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "t0" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "t1" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "t2" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fp" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "s1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "a0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "a1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "a2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "a3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "a4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "a5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "a6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "a7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "s2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "s3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "s4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "s5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "s6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "s7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "s8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "s9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "s10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "s11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "t3" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "t4" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "t5" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "t6" then returnm ('b"11111" : mword 5) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 5). -Definition reg_name_forwards_matches (arg_ : mword 5) -: bool := - +Definition reg_name_forwards_matches (arg_ : mword 5) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B1;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B1] : mword 5))) then true + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true else false. -Definition reg_name_backwards_matches (arg_ : string) -: bool := - +Definition reg_name_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "zero")) then true - else if ((generic_eq p0_ "ra")) then true - else if ((generic_eq p0_ "sp")) then true - else if ((generic_eq p0_ "gp")) then true - else if ((generic_eq p0_ "tp")) then true - else if ((generic_eq p0_ "t0")) then true - else if ((generic_eq p0_ "t1")) then true - else if ((generic_eq p0_ "t2")) then true - else if ((generic_eq p0_ "fp")) then true - else if ((generic_eq p0_ "s1")) then true - else if ((generic_eq p0_ "a0")) then true - else if ((generic_eq p0_ "a1")) then true - else if ((generic_eq p0_ "a2")) then true - else if ((generic_eq p0_ "a3")) then true - else if ((generic_eq p0_ "a4")) then true - else if ((generic_eq p0_ "a5")) then true - else if ((generic_eq p0_ "a6")) then true - else if ((generic_eq p0_ "a7")) then true - else if ((generic_eq p0_ "s2")) then true - else if ((generic_eq p0_ "s3")) then true - else if ((generic_eq p0_ "s4")) then true - else if ((generic_eq p0_ "s5")) then true - else if ((generic_eq p0_ "s6")) then true - else if ((generic_eq p0_ "s7")) then true - else if ((generic_eq p0_ "s8")) then true - else if ((generic_eq p0_ "s9")) then true - else if ((generic_eq p0_ "s10")) then true - else if ((generic_eq p0_ "s11")) then true - else if ((generic_eq p0_ "t3")) then true - else if ((generic_eq p0_ "t4")) then true - else if ((generic_eq p0_ "t5")) then true - else if ((generic_eq p0_ "t6")) then true + if generic_eq p0_ "zero" then true + else if generic_eq p0_ "ra" then true + else if generic_eq p0_ "sp" then true + else if generic_eq p0_ "gp" then true + else if generic_eq p0_ "tp" then true + else if generic_eq p0_ "t0" then true + else if generic_eq p0_ "t1" then true + else if generic_eq p0_ "t2" then true + else if generic_eq p0_ "fp" then true + else if generic_eq p0_ "s1" then true + else if generic_eq p0_ "a0" then true + else if generic_eq p0_ "a1" then true + else if generic_eq p0_ "a2" then true + else if generic_eq p0_ "a3" then true + else if generic_eq p0_ "a4" then true + else if generic_eq p0_ "a5" then true + else if generic_eq p0_ "a6" then true + else if generic_eq p0_ "a7" then true + else if generic_eq p0_ "s2" then true + else if generic_eq p0_ "s3" then true + else if generic_eq p0_ "s4" then true + else if generic_eq p0_ "s5" then true + else if generic_eq p0_ "s6" then true + else if generic_eq p0_ "s7" then true + else if generic_eq p0_ "s8" then true + else if generic_eq p0_ "s9" then true + else if generic_eq p0_ "s10" then true + else if generic_eq p0_ "s11" then true + else if generic_eq p0_ "t3" then true + else if generic_eq p0_ "t4" then true + else if generic_eq p0_ "t5" then true + else if generic_eq p0_ "t6" then true else false. -Definition _s164_ (_s165_ : string) -: option string := - +Definition _s164_ (_s165_ : string) : option string := let _s166_ := _s165_ in - if ((string_startswith _s166_ "t6")) then - match (string_drop _s166_ (projT1 (string_length "t6"))) with | s_ => Some (s_) end + if string_startswith _s166_ "t6" then + match (string_drop _s166_ (projT1 (string_length "t6"))) with | s_ => Some s_ end else None. -Definition _s160_ (_s161_ : string) -: option string := - +Definition _s160_ (_s161_ : string) : option string := let _s162_ := _s161_ in - if ((string_startswith _s162_ "t5")) then - match (string_drop _s162_ (projT1 (string_length "t5"))) with | s_ => Some (s_) end + if string_startswith _s162_ "t5" then + match (string_drop _s162_ (projT1 (string_length "t5"))) with | s_ => Some s_ end else None. -Definition _s156_ (_s157_ : string) -: option string := - +Definition _s156_ (_s157_ : string) : option string := let _s158_ := _s157_ in - if ((string_startswith _s158_ "t4")) then - match (string_drop _s158_ (projT1 (string_length "t4"))) with | s_ => Some (s_) end + if string_startswith _s158_ "t4" then + match (string_drop _s158_ (projT1 (string_length "t4"))) with | s_ => Some s_ end else None. -Definition _s152_ (_s153_ : string) -: option string := - +Definition _s152_ (_s153_ : string) : option string := let _s154_ := _s153_ in - if ((string_startswith _s154_ "t3")) then - match (string_drop _s154_ (projT1 (string_length "t3"))) with | s_ => Some (s_) end + if string_startswith _s154_ "t3" then + match (string_drop _s154_ (projT1 (string_length "t3"))) with | s_ => Some s_ end else None. -Definition _s148_ (_s149_ : string) -: option string := - +Definition _s148_ (_s149_ : string) : option string := let _s150_ := _s149_ in - if ((string_startswith _s150_ "s11")) then - match (string_drop _s150_ (projT1 (string_length "s11"))) with | s_ => Some (s_) end + if string_startswith _s150_ "s11" then + match (string_drop _s150_ (projT1 (string_length "s11"))) with | s_ => Some s_ end else None. -Definition _s144_ (_s145_ : string) -: option string := - +Definition _s144_ (_s145_ : string) : option string := let _s146_ := _s145_ in - if ((string_startswith _s146_ "s10")) then - match (string_drop _s146_ (projT1 (string_length "s10"))) with | s_ => Some (s_) end + if string_startswith _s146_ "s10" then + match (string_drop _s146_ (projT1 (string_length "s10"))) with | s_ => Some s_ end else None. -Definition _s140_ (_s141_ : string) -: option string := - +Definition _s140_ (_s141_ : string) : option string := let _s142_ := _s141_ in - if ((string_startswith _s142_ "s9")) then - match (string_drop _s142_ (projT1 (string_length "s9"))) with | s_ => Some (s_) end + if string_startswith _s142_ "s9" then + match (string_drop _s142_ (projT1 (string_length "s9"))) with | s_ => Some s_ end else None. -Definition _s136_ (_s137_ : string) -: option string := - +Definition _s136_ (_s137_ : string) : option string := let _s138_ := _s137_ in - if ((string_startswith _s138_ "s8")) then - match (string_drop _s138_ (projT1 (string_length "s8"))) with | s_ => Some (s_) end + if string_startswith _s138_ "s8" then + match (string_drop _s138_ (projT1 (string_length "s8"))) with | s_ => Some s_ end else None. -Definition _s132_ (_s133_ : string) -: option string := - +Definition _s132_ (_s133_ : string) : option string := let _s134_ := _s133_ in - if ((string_startswith _s134_ "s7")) then - match (string_drop _s134_ (projT1 (string_length "s7"))) with | s_ => Some (s_) end + if string_startswith _s134_ "s7" then + match (string_drop _s134_ (projT1 (string_length "s7"))) with | s_ => Some s_ end else None. -Definition _s128_ (_s129_ : string) -: option string := - +Definition _s128_ (_s129_ : string) : option string := let _s130_ := _s129_ in - if ((string_startswith _s130_ "s6")) then - match (string_drop _s130_ (projT1 (string_length "s6"))) with | s_ => Some (s_) end + if string_startswith _s130_ "s6" then + match (string_drop _s130_ (projT1 (string_length "s6"))) with | s_ => Some s_ end else None. -Definition _s124_ (_s125_ : string) -: option string := - +Definition _s124_ (_s125_ : string) : option string := let _s126_ := _s125_ in - if ((string_startswith _s126_ "s5")) then - match (string_drop _s126_ (projT1 (string_length "s5"))) with | s_ => Some (s_) end + if string_startswith _s126_ "s5" then + match (string_drop _s126_ (projT1 (string_length "s5"))) with | s_ => Some s_ end else None. -Definition _s120_ (_s121_ : string) -: option string := - +Definition _s120_ (_s121_ : string) : option string := let _s122_ := _s121_ in - if ((string_startswith _s122_ "s4")) then - match (string_drop _s122_ (projT1 (string_length "s4"))) with | s_ => Some (s_) end + if string_startswith _s122_ "s4" then + match (string_drop _s122_ (projT1 (string_length "s4"))) with | s_ => Some s_ end else None. -Definition _s116_ (_s117_ : string) -: option string := - +Definition _s116_ (_s117_ : string) : option string := let _s118_ := _s117_ in - if ((string_startswith _s118_ "s3")) then - match (string_drop _s118_ (projT1 (string_length "s3"))) with | s_ => Some (s_) end + if string_startswith _s118_ "s3" then + match (string_drop _s118_ (projT1 (string_length "s3"))) with | s_ => Some s_ end else None. -Definition _s112_ (_s113_ : string) -: option string := - +Definition _s112_ (_s113_ : string) : option string := let _s114_ := _s113_ in - if ((string_startswith _s114_ "s2")) then - match (string_drop _s114_ (projT1 (string_length "s2"))) with | s_ => Some (s_) end + if string_startswith _s114_ "s2" then + match (string_drop _s114_ (projT1 (string_length "s2"))) with | s_ => Some s_ end else None. -Definition _s108_ (_s109_ : string) -: option string := - +Definition _s108_ (_s109_ : string) : option string := let _s110_ := _s109_ in - if ((string_startswith _s110_ "a7")) then - match (string_drop _s110_ (projT1 (string_length "a7"))) with | s_ => Some (s_) end + if string_startswith _s110_ "a7" then + match (string_drop _s110_ (projT1 (string_length "a7"))) with | s_ => Some s_ end else None. -Definition _s104_ (_s105_ : string) -: option string := - +Definition _s104_ (_s105_ : string) : option string := let _s106_ := _s105_ in - if ((string_startswith _s106_ "a6")) then - match (string_drop _s106_ (projT1 (string_length "a6"))) with | s_ => Some (s_) end + if string_startswith _s106_ "a6" then + match (string_drop _s106_ (projT1 (string_length "a6"))) with | s_ => Some s_ end else None. -Definition _s100_ (_s101_ : string) -: option string := - +Definition _s100_ (_s101_ : string) : option string := let _s102_ := _s101_ in - if ((string_startswith _s102_ "a5")) then - match (string_drop _s102_ (projT1 (string_length "a5"))) with | s_ => Some (s_) end + if string_startswith _s102_ "a5" then + match (string_drop _s102_ (projT1 (string_length "a5"))) with | s_ => Some s_ end else None. -Definition _s96_ (_s97_ : string) -: option string := - +Definition _s96_ (_s97_ : string) : option string := let _s98_ := _s97_ in - if ((string_startswith _s98_ "a4")) then - match (string_drop _s98_ (projT1 (string_length "a4"))) with | s_ => Some (s_) end + if string_startswith _s98_ "a4" then + match (string_drop _s98_ (projT1 (string_length "a4"))) with | s_ => Some s_ end else None. -Definition _s92_ (_s93_ : string) -: option string := - +Definition _s92_ (_s93_ : string) : option string := let _s94_ := _s93_ in - if ((string_startswith _s94_ "a3")) then - match (string_drop _s94_ (projT1 (string_length "a3"))) with | s_ => Some (s_) end + if string_startswith _s94_ "a3" then + match (string_drop _s94_ (projT1 (string_length "a3"))) with | s_ => Some s_ end else None. -Definition _s88_ (_s89_ : string) -: option string := - +Definition _s88_ (_s89_ : string) : option string := let _s90_ := _s89_ in - if ((string_startswith _s90_ "a2")) then - match (string_drop _s90_ (projT1 (string_length "a2"))) with | s_ => Some (s_) end + if string_startswith _s90_ "a2" then + match (string_drop _s90_ (projT1 (string_length "a2"))) with | s_ => Some s_ end else None. -Definition _s84_ (_s85_ : string) -: option string := - +Definition _s84_ (_s85_ : string) : option string := let _s86_ := _s85_ in - if ((string_startswith _s86_ "a1")) then - match (string_drop _s86_ (projT1 (string_length "a1"))) with | s_ => Some (s_) end + if string_startswith _s86_ "a1" then + match (string_drop _s86_ (projT1 (string_length "a1"))) with | s_ => Some s_ end else None. -Definition _s80_ (_s81_ : string) -: option string := - +Definition _s80_ (_s81_ : string) : option string := let _s82_ := _s81_ in - if ((string_startswith _s82_ "a0")) then - match (string_drop _s82_ (projT1 (string_length "a0"))) with | s_ => Some (s_) end + if string_startswith _s82_ "a0" then + match (string_drop _s82_ (projT1 (string_length "a0"))) with | s_ => Some s_ end else None. -Definition _s76_ (_s77_ : string) -: option string := - +Definition _s76_ (_s77_ : string) : option string := let _s78_ := _s77_ in - if ((string_startswith _s78_ "s1")) then - match (string_drop _s78_ (projT1 (string_length "s1"))) with | s_ => Some (s_) end + if string_startswith _s78_ "s1" then + match (string_drop _s78_ (projT1 (string_length "s1"))) with | s_ => Some s_ end else None. -Definition _s72_ (_s73_ : string) -: option string := - +Definition _s72_ (_s73_ : string) : option string := let _s74_ := _s73_ in - if ((string_startswith _s74_ "fp")) then - match (string_drop _s74_ (projT1 (string_length "fp"))) with | s_ => Some (s_) end + if string_startswith _s74_ "fp" then + match (string_drop _s74_ (projT1 (string_length "fp"))) with | s_ => Some s_ end else None. -Definition _s68_ (_s69_ : string) -: option string := - +Definition _s68_ (_s69_ : string) : option string := let _s70_ := _s69_ in - if ((string_startswith _s70_ "t2")) then - match (string_drop _s70_ (projT1 (string_length "t2"))) with | s_ => Some (s_) end + if string_startswith _s70_ "t2" then + match (string_drop _s70_ (projT1 (string_length "t2"))) with | s_ => Some s_ end else None. -Definition _s64_ (_s65_ : string) -: option string := - +Definition _s64_ (_s65_ : string) : option string := let _s66_ := _s65_ in - if ((string_startswith _s66_ "t1")) then - match (string_drop _s66_ (projT1 (string_length "t1"))) with | s_ => Some (s_) end + if string_startswith _s66_ "t1" then + match (string_drop _s66_ (projT1 (string_length "t1"))) with | s_ => Some s_ end else None. -Definition _s60_ (_s61_ : string) -: option string := - +Definition _s60_ (_s61_ : string) : option string := let _s62_ := _s61_ in - if ((string_startswith _s62_ "t0")) then - match (string_drop _s62_ (projT1 (string_length "t0"))) with | s_ => Some (s_) end + if string_startswith _s62_ "t0" then + match (string_drop _s62_ (projT1 (string_length "t0"))) with | s_ => Some s_ end else None. -Definition _s56_ (_s57_ : string) -: option string := - +Definition _s56_ (_s57_ : string) : option string := let _s58_ := _s57_ in - if ((string_startswith _s58_ "tp")) then - match (string_drop _s58_ (projT1 (string_length "tp"))) with | s_ => Some (s_) end + if string_startswith _s58_ "tp" then + match (string_drop _s58_ (projT1 (string_length "tp"))) with | s_ => Some s_ end else None. -Definition _s52_ (_s53_ : string) -: option string := - +Definition _s52_ (_s53_ : string) : option string := let _s54_ := _s53_ in - if ((string_startswith _s54_ "gp")) then - match (string_drop _s54_ (projT1 (string_length "gp"))) with | s_ => Some (s_) end + if string_startswith _s54_ "gp" then + match (string_drop _s54_ (projT1 (string_length "gp"))) with | s_ => Some s_ end else None. -Definition _s48_ (_s49_ : string) -: option string := - +Definition _s48_ (_s49_ : string) : option string := let _s50_ := _s49_ in - if ((string_startswith _s50_ "sp")) then - match (string_drop _s50_ (projT1 (string_length "sp"))) with | s_ => Some (s_) end + if string_startswith _s50_ "sp" then + match (string_drop _s50_ (projT1 (string_length "sp"))) with | s_ => Some s_ end else None. -Definition _s44_ (_s45_ : string) -: option string := - +Definition _s44_ (_s45_ : string) : option string := let _s46_ := _s45_ in - if ((string_startswith _s46_ "ra")) then - match (string_drop _s46_ (projT1 (string_length "ra"))) with | s_ => Some (s_) end + if string_startswith _s46_ "ra" then + match (string_drop _s46_ (projT1 (string_length "ra"))) with | s_ => Some s_ end else None. -Definition _s40_ (_s41_ : string) -: option string := - +Definition _s40_ (_s41_ : string) : option string := let _s42_ := _s41_ in - if ((string_startswith _s42_ "zero")) then - match (string_drop _s42_ (projT1 (string_length "zero"))) with | s_ => Some (s_) end + if string_startswith _s42_ "zero" then + match (string_drop _s42_ (projT1 (string_length "zero"))) with | s_ => Some s_ end else None. -Definition reg_name_matches_prefix (arg_ : string) -: M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) := - +Definition reg_name_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := let _s43_ := arg_ in - (if ((match (_s40_ _s43_) with | Some (s_) => true | _ => false end)) then + (if match (_s40_ _s43_) with | Some s_ => true | _ => false end then (match (_s40_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s44_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s44_ _s43_) with | Some s_ => true | _ => false end then (match (_s44_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s48_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s48_ _s43_) with | Some s_ => true | _ => false end then (match (_s48_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s52_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s52_ _s43_) with | Some s_ => true | _ => false end then (match (_s52_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s56_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s56_ _s43_) with | Some s_ => true | _ => false end then (match (_s56_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s60_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s60_ _s43_) with | Some s_ => true | _ => false end then (match (_s60_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s64_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s64_ _s43_) with | Some s_ => true | _ => false end then (match (_s64_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s68_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s68_ _s43_) with | Some s_ => true | _ => false end then (match (_s68_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s72_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s72_ _s43_) with | Some s_ => true | _ => false end then (match (_s72_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s76_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s76_ _s43_) with | Some s_ => true | _ => false end then (match (_s76_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s80_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s80_ _s43_) with | Some s_ => true | _ => false end then (match (_s80_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s84_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s84_ _s43_) with | Some s_ => true | _ => false end then (match (_s84_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s88_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s88_ _s43_) with | Some s_ => true | _ => false end then (match (_s88_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s92_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s92_ _s43_) with | Some s_ => true | _ => false end then (match (_s92_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s96_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s96_ _s43_) with | Some s_ => true | _ => false end then (match (_s96_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s100_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s100_ _s43_) with | Some s_ => true | _ => false end then (match (_s100_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s104_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s104_ _s43_) with | Some s_ => true | _ => false end then (match (_s104_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s108_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s108_ _s43_) with | Some s_ => true | _ => false end then (match (_s108_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s112_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s112_ _s43_) with | Some s_ => true | _ => false end then (match (_s112_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s116_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s116_ _s43_) with | Some s_ => true | _ => false end then (match (_s116_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s120_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s120_ _s43_) with | Some s_ => true | _ => false end then (match (_s120_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s124_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s124_ _s43_) with | Some s_ => true | _ => false end then (match (_s124_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s128_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s128_ _s43_) with | Some s_ => true | _ => false end then (match (_s128_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s132_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s132_ _s43_) with | Some s_ => true | _ => false end then (match (_s132_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s136_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s136_ _s43_) with | Some s_ => true | _ => false end then (match (_s136_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s140_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s140_ _s43_) with | Some s_ => true | _ => false end then (match (_s140_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s144_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s144_ _s43_) with | Some s_ => true | _ => false end then (match (_s144_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s148_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s148_ _s43_) with | Some s_ => true | _ => false end then (match (_s148_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s152_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s152_ _s43_) with | Some s_ => true | _ => false end then (match (_s152_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B0;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s156_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s156_ _s43_) with | Some s_ => true | _ => false end then (match (_s156_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B0;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s160_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s160_ _s43_) with | Some s_ => true | _ => false end then (match (_s160_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s164_ _s43_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s164_ _s43_) with | Some s_ => true | _ => false end then (match (_s164_ _s43_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B1] : mword 5), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 5 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 5 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). -Definition creg_name_forwards (arg_ : mword 3) -: M (string) := - +Definition creg_name_forwards (arg_ : mword 3) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm ("s0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm ("s1" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm ("a0" : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm ("a1" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm ("a2" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm ("a3" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm ("a4" : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm ("a5" : string) + (if eq_vec b__0 ('b"000" : mword 3) then returnm "s0" + else if eq_vec b__0 ('b"001" : mword 3) then returnm "s1" + else if eq_vec b__0 ('b"010" : mword 3) then returnm "a0" + else if eq_vec b__0 ('b"011" : mword 3) then returnm "a1" + else if eq_vec b__0 ('b"100" : mword 3) then returnm "a2" + else if eq_vec b__0 ('b"101" : mword 3) then returnm "a3" + else if eq_vec b__0 ('b"110" : mword 3) then returnm "a4" + else if eq_vec b__0 ('b"111" : mword 3) then returnm "a5" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition creg_name_backwards (arg_ : string) -: M (mword 3) := - +Definition creg_name_backwards (arg_ : string) : M (mword 3) := let p0_ := arg_ in - (if ((generic_eq p0_ "s0")) then returnm ((vec_of_bits [B0;B0;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "s1")) then returnm ((vec_of_bits [B0;B0;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a0")) then returnm ((vec_of_bits [B0;B1;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a1")) then returnm ((vec_of_bits [B0;B1;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a2")) then returnm ((vec_of_bits [B1;B0;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a3")) then returnm ((vec_of_bits [B1;B0;B1] : mword 3) : mword 3) - else if ((generic_eq p0_ "a4")) then returnm ((vec_of_bits [B1;B1;B0] : mword 3) : mword 3) - else if ((generic_eq p0_ "a5")) then returnm ((vec_of_bits [B1;B1;B1] : mword 3) : mword 3) + (if generic_eq p0_ "s0" then returnm ('b"000" : mword 3) + else if generic_eq p0_ "s1" then returnm ('b"001" : mword 3) + else if generic_eq p0_ "a0" then returnm ('b"010" : mword 3) + else if generic_eq p0_ "a1" then returnm ('b"011" : mword 3) + else if generic_eq p0_ "a2" then returnm ('b"100" : mword 3) + else if generic_eq p0_ "a3" then returnm ('b"101" : mword 3) + else if generic_eq p0_ "a4" then returnm ('b"110" : mword 3) + else if generic_eq p0_ "a5" then returnm ('b"111" : mword 3) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 3). -Definition creg_name_forwards_matches (arg_ : mword 3) -: bool := - +Definition creg_name_forwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true else false. -Definition creg_name_backwards_matches (arg_ : string) -: bool := - +Definition creg_name_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "s0")) then true - else if ((generic_eq p0_ "s1")) then true - else if ((generic_eq p0_ "a0")) then true - else if ((generic_eq p0_ "a1")) then true - else if ((generic_eq p0_ "a2")) then true - else if ((generic_eq p0_ "a3")) then true - else if ((generic_eq p0_ "a4")) then true - else if ((generic_eq p0_ "a5")) then true + if generic_eq p0_ "s0" then true + else if generic_eq p0_ "s1" then true + else if generic_eq p0_ "a0" then true + else if generic_eq p0_ "a1" then true + else if generic_eq p0_ "a2" then true + else if generic_eq p0_ "a3" then true + else if generic_eq p0_ "a4" then true + else if generic_eq p0_ "a5" then true else false. -Definition _s196_ (_s197_ : string) -: option string := - +Definition _s196_ (_s197_ : string) : option string := let _s198_ := _s197_ in - if ((string_startswith _s198_ "a5")) then - match (string_drop _s198_ (projT1 (string_length "a5"))) with | s_ => Some (s_) end + if string_startswith _s198_ "a5" then + match (string_drop _s198_ (projT1 (string_length "a5"))) with | s_ => Some s_ end else None. -Definition _s192_ (_s193_ : string) -: option string := - +Definition _s192_ (_s193_ : string) : option string := let _s194_ := _s193_ in - if ((string_startswith _s194_ "a4")) then - match (string_drop _s194_ (projT1 (string_length "a4"))) with | s_ => Some (s_) end + if string_startswith _s194_ "a4" then + match (string_drop _s194_ (projT1 (string_length "a4"))) with | s_ => Some s_ end else None. -Definition _s188_ (_s189_ : string) -: option string := - +Definition _s188_ (_s189_ : string) : option string := let _s190_ := _s189_ in - if ((string_startswith _s190_ "a3")) then - match (string_drop _s190_ (projT1 (string_length "a3"))) with | s_ => Some (s_) end + if string_startswith _s190_ "a3" then + match (string_drop _s190_ (projT1 (string_length "a3"))) with | s_ => Some s_ end else None. -Definition _s184_ (_s185_ : string) -: option string := - +Definition _s184_ (_s185_ : string) : option string := let _s186_ := _s185_ in - if ((string_startswith _s186_ "a2")) then - match (string_drop _s186_ (projT1 (string_length "a2"))) with | s_ => Some (s_) end + if string_startswith _s186_ "a2" then + match (string_drop _s186_ (projT1 (string_length "a2"))) with | s_ => Some s_ end else None. -Definition _s180_ (_s181_ : string) -: option string := - +Definition _s180_ (_s181_ : string) : option string := let _s182_ := _s181_ in - if ((string_startswith _s182_ "a1")) then - match (string_drop _s182_ (projT1 (string_length "a1"))) with | s_ => Some (s_) end + if string_startswith _s182_ "a1" then + match (string_drop _s182_ (projT1 (string_length "a1"))) with | s_ => Some s_ end else None. -Definition _s176_ (_s177_ : string) -: option string := - +Definition _s176_ (_s177_ : string) : option string := let _s178_ := _s177_ in - if ((string_startswith _s178_ "a0")) then - match (string_drop _s178_ (projT1 (string_length "a0"))) with | s_ => Some (s_) end + if string_startswith _s178_ "a0" then + match (string_drop _s178_ (projT1 (string_length "a0"))) with | s_ => Some s_ end else None. -Definition _s172_ (_s173_ : string) -: option string := - +Definition _s172_ (_s173_ : string) : option string := let _s174_ := _s173_ in - if ((string_startswith _s174_ "s1")) then - match (string_drop _s174_ (projT1 (string_length "s1"))) with | s_ => Some (s_) end + if string_startswith _s174_ "s1" then + match (string_drop _s174_ (projT1 (string_length "s1"))) with | s_ => Some s_ end else None. -Definition _s168_ (_s169_ : string) -: option string := - +Definition _s168_ (_s169_ : string) : option string := let _s170_ := _s169_ in - if ((string_startswith _s170_ "s0")) then - match (string_drop _s170_ (projT1 (string_length "s0"))) with | s_ => Some (s_) end + if string_startswith _s170_ "s0" then + match (string_drop _s170_ (projT1 (string_length "s0"))) with | s_ => Some s_ end else None. -Definition creg_name_matches_prefix (arg_ : string) -: M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) := - +Definition creg_name_matches_prefix (arg_ : string) +: M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) := let _s171_ := arg_ in - (if ((match (_s168_ _s171_) with | Some (s_) => true | _ => false end)) then + (if match (_s168_ _s171_) with | Some s_ => true | _ => false end then (match (_s168_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"000" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s172_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s172_ _s171_) with | Some s_ => true | _ => false end then (match (_s172_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"001" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s176_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s176_ _s171_) with | Some s_ => true | _ => false end then (match (_s176_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"010" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s180_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s180_ _s171_) with | Some s_ => true | _ => false end then (match (_s180_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"011" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s184_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s184_ _s171_) with | Some s_ => true | _ => false end then (match (_s184_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"100" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s188_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s188_ _s171_) with | Some s_ => true | _ => false end then (match (_s188_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"101" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s192_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s192_ _s171_) with | Some s_ => true | _ => false end then (match (_s192_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"110" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s196_ _s171_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s196_ _s171_) with | Some s_ => true | _ => false end then (match (_s196_ _s171_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1] : mword 3), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"111" + : mword 3, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 3 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 3 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 3 * {n : Z & ArithFact (n >=? 0)}))). -Definition init_base_regs '(tt : unit) -: M (unit) := - +Definition init_base_regs '(tt : unit) : M (unit) := write_reg x1_ref zero_reg >> write_reg x2_ref zero_reg >> write_reg x3_ref zero_reg >> @@ -3740,34 +3394,25 @@ Definition init_base_regs '(tt : unit) write_reg x29_ref zero_reg >> write_reg x30_ref zero_reg >> write_reg x31_ref zero_reg : M (unit). -Definition get_arch_pc '(tt : unit) -: M (mword 64) := - - ((read_reg PC_ref) : M (mword 64)) - : M (mword 64). +Definition get_arch_pc '(tt : unit) : M (mword 64) := + ((read_reg PC_ref) : M (mword 64)) : M (mword 64). -Definition get_next_pc '(tt : unit) -: M (mword 64) := - - ((read_reg nextPC_ref) : M (mword 64)) - : M (mword 64). +Definition get_next_pc '(tt : unit) : M (mword 64) := + ((read_reg nextPC_ref) : M (mword 64)) : M (mword 64). -Definition set_next_pc (pc : mword 64) : M (unit) := write_reg nextPC_ref pc : M (unit). +Definition set_next_pc (pc : mword 64) : M (unit) := write_reg nextPC_ref pc : M (unit). -Definition tick_pc '(tt : unit) -: M (unit) := - +Definition tick_pc '(tt : unit) : M (unit) := ((read_reg nextPC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => write_reg PC_ref w__0 : M (unit). -Definition Mk_Misa (v : mword 64) : Misa := {| Misa_Misa_chunk_0 := (subrange_vec_dec v 63 0) |}. +Definition Mk_Misa (v : mword 64) : Misa := {| Misa_Misa_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Misa_bits (v : Misa) : mword 64 := subrange_vec_dec v.(Misa_Misa_chunk_0) 63 0. +Definition _get_Misa_bits (v : Misa) : mword 64 := subrange_vec_dec v.(Misa_Misa_chunk_0) 63 0. -Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v : mword 64) +Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3777,18 +3422,15 @@ Definition _set_Misa_bits (r_ref : register_ref regstate register_value Misa) (v write_reg r_ref r : M (unit). -Definition _update_Misa_bits (v : Misa) (x : mword 64) -: Misa := - +Definition _update_Misa_bits (v : Misa) (x : mword 64) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Misa_MXL (v : Misa) : mword 2 := subrange_vec_dec v.(Misa_Misa_chunk_0) 63 62. +Definition _get_Misa_MXL (v : Misa) : mword 2 := subrange_vec_dec v.(Misa_Misa_chunk_0) 63 62. -Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v : mword 2) +Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3798,18 +3440,14 @@ Definition _set_Misa_MXL (r_ref : register_ref regstate register_value Misa) (v write_reg r_ref r : M (unit). -Definition _update_Misa_MXL (v : Misa) (x : mword 2) -: Misa := - +Definition _update_Misa_MXL (v : Misa) (x : mword 2) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 63 62 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Misa_Z (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25. +Definition _get_Misa_Z (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25. -Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3819,18 +3457,14 @@ Definition _set_Misa_Z (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Z (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Z (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 25 25 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_Y (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24. +Definition _get_Misa_Y (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24. -Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3840,18 +3474,14 @@ Definition _set_Misa_Y (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Y (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Y (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 24 24 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_X (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23. +Definition _get_Misa_X (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23. -Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3861,18 +3491,14 @@ Definition _set_Misa_X (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_X (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_X (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 23 23 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_W (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22. +Definition _get_Misa_W (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22. -Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3882,18 +3508,14 @@ Definition _set_Misa_W (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_W (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_W (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 22 22 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_V (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21. +Definition _get_Misa_V (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21. -Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3903,18 +3525,14 @@ Definition _set_Misa_V (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_V (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_V (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 21 21 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_U (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20. +Definition _get_Misa_U (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20. -Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3924,18 +3542,14 @@ Definition _set_Misa_U (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_U (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_U (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 20 20 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_T (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19. +Definition _get_Misa_T (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19. -Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3945,18 +3559,14 @@ Definition _set_Misa_T (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_T (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_T (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_S (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18. +Definition _get_Misa_S (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18. -Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3966,18 +3576,14 @@ Definition _set_Misa_S (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_S (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_S (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_R (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17. +Definition _get_Misa_R (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17. -Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -3987,18 +3593,14 @@ Definition _set_Misa_R (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_R (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_R (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 17 17 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_Q (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16. +Definition _get_Misa_Q (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16. -Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4008,18 +3610,14 @@ Definition _set_Misa_Q (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_Q (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_Q (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 16 16 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_P (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15. +Definition _get_Misa_P (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15. -Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4029,18 +3627,14 @@ Definition _set_Misa_P (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_P (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_P (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 15 15 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_O (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14. +Definition _get_Misa_O (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14. -Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4050,18 +3644,14 @@ Definition _set_Misa_O (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_O (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_O (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 14 14 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_N (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13. +Definition _get_Misa_N (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13. -Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4071,18 +3661,14 @@ Definition _set_Misa_N (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_N (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_N (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 13 13 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_M (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12. +Definition _get_Misa_M (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12. -Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4092,18 +3678,14 @@ Definition _set_Misa_M (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_M (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_M (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 12 12 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_L (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11. +Definition _get_Misa_L (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11. -Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4113,18 +3695,14 @@ Definition _set_Misa_L (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_L (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_L (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 11 11 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_K (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10. +Definition _get_Misa_K (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10. -Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4134,18 +3712,14 @@ Definition _set_Misa_K (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_K (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_K (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 10 10 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_J (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9. +Definition _get_Misa_J (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9. -Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4155,18 +3729,14 @@ Definition _set_Misa_J (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_J (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_J (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_I (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8. +Definition _get_Misa_I (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8. -Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4176,18 +3746,14 @@ Definition _set_Misa_I (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_I (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_I (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_H (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7. +Definition _get_Misa_H (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7. -Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4197,18 +3763,14 @@ Definition _set_Misa_H (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_H (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_H (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_G (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6. +Definition _get_Misa_G (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6. -Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4218,18 +3780,14 @@ Definition _set_Misa_G (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_G (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_G (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_F (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5. +Definition _get_Misa_F (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5. -Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4239,18 +3797,14 @@ Definition _set_Misa_F (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_F (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_F (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_E (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4. +Definition _get_Misa_E (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4. -Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4260,18 +3814,14 @@ Definition _set_Misa_E (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_E (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_E (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_D (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3. +Definition _get_Misa_D (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3. -Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4281,18 +3831,14 @@ Definition _set_Misa_D (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_D (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_D (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_C (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2. +Definition _get_Misa_C (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2. -Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4302,18 +3848,14 @@ Definition _set_Misa_C (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_C (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_C (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_B (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1. +Definition _get_Misa_B (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1. -Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4323,18 +3865,14 @@ Definition _set_Misa_B (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_B (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_B (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Misa_A (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0. +Definition _get_Misa_A (v : Misa) : mword 1 := subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0. -Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : mword 1) -: M (unit) := - +Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : mword 1) : M (unit) := (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4344,84 +3882,60 @@ Definition _set_Misa_A (r_ref : register_ref regstate register_value Misa) (v : write_reg r_ref r : M (unit). -Definition _update_Misa_A (v : Misa) (x : mword 1) -: Misa := - +Definition _update_Misa_A (v : Misa) (x : mword 1) : Misa := {[ v with Misa_Misa_chunk_0 := (update_subrange_vec_dec v.(Misa_Misa_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_misa (m : Misa) (v : mword 64) -: M (Misa) := - - (if ((sys_enable_writable_misa tt)) then +Definition ext_veto_disable_C '(tt : unit) : M (bool) := returnm false. + +Definition legalize_misa (m : Misa) (v : mword 64) : M (Misa) := + (if sys_enable_writable_misa tt then let v := Mk_Misa v in - (and_boolM (returnm ((eq_vec (_get_Misa_C v) ((bool_to_bits false) : mword 1)) : bool)) - (((read_reg nextPC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - (bit_to_bool (access_vec_dec w__0 1)) >>= fun w__1 : bool => - returnm ((Bool.eqb w__1 true) - : bool))) >>= fun w__2 : bool => - returnm ((if sumbool_of_bool (w__2) then m - else _update_Misa_C m (_get_Misa_C v)) - : Misa) - else returnm (m : Misa)) + (or_boolM + ((and_boolM (returnm ((eq_vec (_get_Misa_C v) ('b"0" : mword 1)) : bool)) + ((or_boolM + (((read_reg nextPC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + returnm ((eq_bit (access_vec_dec w__0 1) B1) : bool)) + ((ext_veto_disable_C tt) + : M (bool))) + : M (bool))) + : M (bool)) (returnm ((negb (sys_enable_rvc tt)) : bool))) >>= fun w__4 : bool => + let m := if sumbool_of_bool w__4 then m else _update_Misa_C m (_get_Misa_C v) in + returnm (if orb (negb (sys_enable_fdext tt)) + (andb (eq_vec (_get_Misa_D v) ('b"1" : mword 1)) + (eq_vec (_get_Misa_F v) ('b"0" : mword 1))) then + m + else _update_Misa_D (_update_Misa_F m (_get_Misa_F v)) (_get_Misa_D v)) + else returnm m) : M (Misa). -Definition haveAtomics '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_A w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveAtomics '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_A w__0) ('b"1" : mword 1)). -Definition haveRVC '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveRVC '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_C w__0) ('b"1" : mword 1)). -Definition haveMulDiv '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_M w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveMulDiv '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_M w__0) ('b"1" : mword 1)). -Definition haveSupMode '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_S w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveSupMode '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_S w__0) ('b"1" : mword 1)). -Definition haveUsrMode '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_U w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveUsrMode '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_U w__0) ('b"1" : mword 1)). -Definition haveNExt '(tt : unit) -: M (bool) := - - read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_N w__0) ((bool_to_bits true) : mword 1)) - : bool). +Definition haveNExt '(tt : unit) : M (bool) := + read_reg misa_ref >>= fun w__0 : Misa => returnm (eq_vec (_get_Misa_N w__0) ('b"1" : mword 1)). -Definition Mk_Mstatus (v : mword 64) -: Mstatus := - +Definition Mk_Mstatus (v : mword 64) : Mstatus := {| Mstatus_Mstatus_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Mstatus_bits (v : Mstatus) -: mword 64 := - +Definition _get_Mstatus_bits (v : Mstatus) : mword 64 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 63 0. -Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstatus) (v : mword 64) +Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstatus) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4431,21 +3945,16 @@ Definition _set_Mstatus_bits (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_bits (v : Mstatus) (x : mword 64) -: Mstatus := - +Definition _update_Mstatus_bits (v : Mstatus) (x : mword 64) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Mstatus_SD (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SD (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 63 63. -Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4455,21 +3964,16 @@ Definition _set_Mstatus_SD (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_SD (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SD (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 63 63 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TSR (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TSR (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 22 22. -Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4479,21 +3983,16 @@ Definition _set_Mstatus_TSR (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_TSR (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TSR (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 22 22 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TW (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TW (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 21 21. -Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4503,21 +4002,16 @@ Definition _set_Mstatus_TW (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_TW (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TW (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 21 21 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_TVM (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_TVM (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 20 20. -Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4527,21 +4021,16 @@ Definition _set_Mstatus_TVM (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_TVM (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_TVM (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 20 20 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MXR (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MXR (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 19 19. -Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4551,21 +4040,16 @@ Definition _set_Mstatus_MXR (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MXR (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MXR (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SUM (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SUM (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 18 18. -Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4575,21 +4059,16 @@ Definition _set_Mstatus_SUM (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SUM (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SUM (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MPRV (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MPRV (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 17 17. -Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4599,21 +4078,16 @@ Definition _set_Mstatus_MPRV (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPRV (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MPRV (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 17 17 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_XS (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_XS (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 16 15. -Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4623,21 +4097,16 @@ Definition _set_Mstatus_XS (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_XS (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_XS (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 16 15 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_FS (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_FS (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 14 13. -Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4647,21 +4116,16 @@ Definition _set_Mstatus_FS (r_ref : register_ref regstate register_value Mstatus write_reg r_ref r : M (unit). -Definition _update_Mstatus_FS (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_FS (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 14 13 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_MPP (v : Mstatus) -: mword 2 := - +Definition _get_Mstatus_MPP (v : Mstatus) : mword 2 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 12 11. -Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) +Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4671,21 +4135,16 @@ Definition _set_Mstatus_MPP (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPP (v : Mstatus) (x : mword 2) -: Mstatus := - +Definition _update_Mstatus_MPP (v : Mstatus) (x : mword 2) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 12 11 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Mstatus_SPP (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SPP (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 8 8. -Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4695,21 +4154,16 @@ Definition _set_Mstatus_SPP (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SPP (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SPP (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 7 7. -Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4719,21 +4173,16 @@ Definition _set_Mstatus_MPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_MPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 5 5. -Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4743,21 +4192,16 @@ Definition _set_Mstatus_SPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_SPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_UPIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_UPIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 4 4. -Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4767,21 +4211,16 @@ Definition _set_Mstatus_UPIE (r_ref : register_ref regstate register_value Mstat write_reg r_ref r : M (unit). -Definition _update_Mstatus_UPIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_UPIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_MIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_MIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 3 3. -Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4791,21 +4230,16 @@ Definition _set_Mstatus_MIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_MIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_MIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_SIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_SIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 1 1. -Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4815,21 +4249,16 @@ Definition _set_Mstatus_SIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_SIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_SIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mstatus_UIE (v : Mstatus) -: mword 1 := - +Definition _get_Mstatus_UIE (v : Mstatus) : mword 1 := subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 0 0. -Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) +Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4839,101 +4268,92 @@ Definition _set_Mstatus_UIE (r_ref : register_ref regstate register_value Mstatu write_reg r_ref r : M (unit). -Definition _update_Mstatus_UIE (v : Mstatus) (x : mword 1) -: Mstatus := - +Definition _update_Mstatus_UIE (v : Mstatus) (x : mword 1) : Mstatus := {[ v with Mstatus_Mstatus_chunk_0 := (update_subrange_vec_dec v.(Mstatus_Mstatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition effectivePrivilege (m : Mstatus) (priv : Privilege) -: M (Privilege) := - - (if ((eq_vec (_get_Mstatus_MPRV m) ((bool_to_bits true) : mword 1))) then +Definition effectivePrivilege (t : AccessType unit) (m : Mstatus) (priv : Privilege) : M (Privilege) := + (if andb (generic_neq t (Execute tt)) (eq_vec (_get_Mstatus_MPRV m) ('b"1" : mword 1)) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (privLevel_of_bits (_get_Mstatus_MPP w__0)) : M (Privilege) else read_reg cur_privilege_ref : M (Privilege)) : M (Privilege). -Definition get_mstatus_SXL (m : Mstatus) -: mword 2 := - - subrange_vec_dec (_get_Mstatus_bits m) 35 34. +Definition get_mstatus_SXL (m : Mstatus) : mword 2 := subrange_vec_dec (_get_Mstatus_bits m) 35 34. -Definition set_mstatus_SXL (m : Mstatus) (a : mword 2) -: Mstatus := - +Definition set_mstatus_SXL (m : Mstatus) (a : mword 2) : Mstatus := let m := update_subrange_vec_dec (_get_Mstatus_bits m) 35 34 a in Mk_Mstatus m. -Definition get_mstatus_UXL (m : Mstatus) -: mword 2 := - - subrange_vec_dec (_get_Mstatus_bits m) 33 32. +Definition get_mstatus_UXL (m : Mstatus) : mword 2 := subrange_vec_dec (_get_Mstatus_bits m) 33 32. -Definition set_mstatus_UXL (m : Mstatus) (a : mword 2) -: Mstatus := - +Definition set_mstatus_UXL (m : Mstatus) (a : mword 2) : Mstatus := let m := update_subrange_vec_dec (_get_Mstatus_bits m) 33 32 a in Mk_Mstatus m. -Definition legalize_mstatus (o : Mstatus) (v : mword 64) -: M (Mstatus) := - +Definition legalize_mstatus (o : Mstatus) (v : mword 64) : M (Mstatus) := let m : Mstatus := Mk_Mstatus v in let m := _update_Mstatus_XS m (extStatus_to_bits Off) in (or_boolM ((extStatus_of_bits (_get_Mstatus_FS m)) >>= fun w__0 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__0) ((extStatus_to_bits Dirty) : mword 2)) - : bool)) + returnm ((generic_eq w__0 Dirty) : bool)) ((extStatus_of_bits (_get_Mstatus_XS m)) >>= fun w__1 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__1) ((extStatus_to_bits Dirty) : mword 2)) - : bool))) >>= fun w__2 : bool => - let m := _update_Mstatus_SD m ((bool_to_bits w__2) : mword 1) in + returnm ((generic_eq w__1 Dirty) : bool))) >>= fun dirty => + let m := _update_Mstatus_SD m (bool_to_bits dirty) in let m := set_mstatus_SXL m (get_mstatus_SXL o) in let m := set_mstatus_UXL m (get_mstatus_UXL o) in - let m := _update_Mstatus_UPIE m ((bool_to_bits false) : mword 1) in - let m := _update_Mstatus_UIE m ((bool_to_bits false) : mword 1) in - returnm (m - : Mstatus). - -Definition cur_Architecture '(tt : unit) -: M (Architecture) := - + (haveNExt tt) >>= fun w__2 : bool => + let m := + if sumbool_of_bool (negb w__2) then + let m := _update_Mstatus_UPIE m ('b"0" : mword 1) in + _update_Mstatus_UIE m ('b"0" : mword 1) + else m in + (haveUsrMode tt) >>= fun w__3 : bool => + returnm (if sumbool_of_bool (negb w__3) then _update_Mstatus_MPRV m ('b"0" : mword 1) else m). + +Definition cur_Architecture '(tt : unit) : M (Architecture) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | Machine => read_reg misa_ref >>= fun w__1 : Misa => returnm ((_get_Misa_MXL w__1) : mword 2) - | Supervisor => - read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm ((get_mstatus_SXL w__2) : mword 2) - | User => - read_reg mstatus_ref >>= fun w__3 : Mstatus => returnm ((get_mstatus_UXL w__3) : mword 2) + | Machine => read_reg misa_ref >>= fun w__1 : Misa => returnm (_get_Misa_MXL w__1) + | Supervisor => read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (get_mstatus_SXL w__2) + | User => read_reg mstatus_ref >>= fun w__3 : Mstatus => returnm (get_mstatus_UXL w__3) end) >>= fun a : arch_xlen => (match (architecture a) with - | Some (a) => returnm (a : Architecture) + | Some a => returnm a | None => (internal_error "Invalid current architecture") : M (Architecture) end) : M (Architecture). -Definition in32BitMode '(tt : unit) -: M (bool) := - - (cur_Architecture tt) >>= fun w__0 : Architecture => returnm ((generic_eq w__0 RV32) : bool). +Definition in32BitMode '(tt : unit) : M (bool) := + (cur_Architecture tt) >>= fun w__0 : Architecture => returnm (generic_eq w__0 RV32). + +Definition haveFExt '(tt : unit) : M (bool) := + (and_boolM + (read_reg misa_ref >>= fun w__0 : Misa => + returnm ((eq_vec (_get_Misa_F w__0) ('b"1" : mword 1)) : bool)) + (read_reg mstatus_ref >>= fun w__1 : Mstatus => + returnm ((neq_vec (_get_Mstatus_FS w__1) ('b"00" : mword 2)) : bool))) + : M (bool). + +Definition haveDExt '(tt : unit) : M (bool) := + (and_boolM + (read_reg misa_ref >>= fun w__0 : Misa => + returnm ((eq_vec (_get_Misa_D w__0) ('b"1" : mword 1)) : bool)) + (read_reg mstatus_ref >>= fun w__1 : Mstatus => + returnm ((neq_vec (_get_Mstatus_FS w__1) ('b"00" : mword 2)) : bool))) + : M (bool). -Definition Mk_Minterrupts (v : mword 64) -: Minterrupts := - +Definition Mk_Minterrupts (v : mword 64) : Minterrupts := {| Minterrupts_Minterrupts_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Minterrupts_bits (v : Minterrupts) -: mword 64 := - +Definition _get_Minterrupts_bits (v : Minterrupts) : mword 64 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 63 0. Definition _set_Minterrupts_bits -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 64) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4943,22 +4363,17 @@ Definition _set_Minterrupts_bits write_reg r_ref r : M (unit). -Definition _update_Minterrupts_bits (v : Minterrupts) (x : mword 64) -: Minterrupts := - +Definition _update_Minterrupts_bits (v : Minterrupts) (x : mword 64) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Minterrupts_MEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 11 11. Definition _set_Minterrupts_MEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4968,22 +4383,17 @@ Definition _set_Minterrupts_MEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 11 11 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_SEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_SEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 9 9. Definition _set_Minterrupts_SEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -4993,22 +4403,17 @@ Definition _set_Minterrupts_SEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_SEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_SEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_UEI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_UEI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 8 8. Definition _set_Minterrupts_UEI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5018,22 +4423,17 @@ Definition _set_Minterrupts_UEI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_UEI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_UEI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_MTI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MTI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 7 7. Definition _set_Minterrupts_MTI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5043,22 +4443,17 @@ Definition _set_Minterrupts_MTI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MTI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MTI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_STI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_STI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 5 5. Definition _set_Minterrupts_STI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5068,22 +4463,17 @@ Definition _set_Minterrupts_STI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_STI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_STI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_UTI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_UTI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 4 4. Definition _set_Minterrupts_UTI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5093,22 +4483,17 @@ Definition _set_Minterrupts_UTI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_UTI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_UTI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_MSI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_MSI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 3 3. Definition _set_Minterrupts_MSI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5118,22 +4503,17 @@ Definition _set_Minterrupts_MSI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_MSI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_MSI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_SSI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_SSI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 1 1. Definition _set_Minterrupts_SSI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5143,22 +4523,17 @@ Definition _set_Minterrupts_SSI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_SSI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_SSI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Minterrupts_USI (v : Minterrupts) -: mword 1 := - +Definition _get_Minterrupts_USI (v : Minterrupts) : mword 1 := subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 0 0. Definition _set_Minterrupts_USI -(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Minterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5168,31 +4543,24 @@ Definition _set_Minterrupts_USI write_reg r_ref r : M (unit). -Definition _update_Minterrupts_USI (v : Minterrupts) (x : mword 1) -: Minterrupts := - +Definition _update_Minterrupts_USI (v : Minterrupts) (x : mword 1) : Minterrupts := {[ v with Minterrupts_Minterrupts_chunk_0 := (update_subrange_vec_dec v.(Minterrupts_Minterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_mip (o : Minterrupts) (v : mword 64) -: M (Minterrupts) := - +Definition legalize_mip (o : Minterrupts) (v : mword 64) : M (Minterrupts) := let v := Mk_Minterrupts v in let m := _update_Minterrupts_SEI o (_get_Minterrupts_SEI v) in let m := _update_Minterrupts_STI m (_get_Minterrupts_STI v) in let m := _update_Minterrupts_SSI m (_get_Minterrupts_SSI v) in - (haveUsrMode tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in - let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in - _update_Minterrupts_USI m (_get_Minterrupts_USI v) - else m) - : Minterrupts). - -Definition legalize_mie (o : Minterrupts) (v : mword 64) -: M (Minterrupts) := - + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then + let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in + let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in + _update_Minterrupts_USI m (_get_Minterrupts_USI v) + else m). + +Definition legalize_mie (o : Minterrupts) (v : mword 64) : M (Minterrupts) := let v := Mk_Minterrupts v in let m := _update_Minterrupts_MEI o (_get_Minterrupts_MEI v) in let m := _update_Minterrupts_MTI m (_get_Minterrupts_MTI v) in @@ -5200,35 +4568,27 @@ Definition legalize_mie (o : Minterrupts) (v : mword 64) let m := _update_Minterrupts_SEI m (_get_Minterrupts_SEI v) in let m := _update_Minterrupts_STI m (_get_Minterrupts_STI v) in let m := _update_Minterrupts_SSI m (_get_Minterrupts_SSI v) in - (haveUsrMode tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in - let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in - _update_Minterrupts_USI m (_get_Minterrupts_USI v) - else m) - : Minterrupts). - -Definition legalize_mideleg (o : Minterrupts) (v : mword 64) -: Minterrupts := - + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then + let m := _update_Minterrupts_UEI m (_get_Minterrupts_UEI v) in + let m := _update_Minterrupts_UTI m (_get_Minterrupts_UTI v) in + _update_Minterrupts_USI m (_get_Minterrupts_USI v) + else m). + +Definition legalize_mideleg (o : Minterrupts) (v : mword 64) : Minterrupts := let m := Mk_Minterrupts v in - let m := _update_Minterrupts_MEI m ((bool_to_bits false) : mword 1) in - let m := _update_Minterrupts_MTI m ((bool_to_bits false) : mword 1) in - _update_Minterrupts_MSI m ((bool_to_bits false) : mword 1). + let m := _update_Minterrupts_MEI m ('b"0" : mword 1) in + let m := _update_Minterrupts_MTI m ('b"0" : mword 1) in + _update_Minterrupts_MSI m ('b"0" : mword 1). -Definition Mk_Medeleg (v : mword 64) -: Medeleg := - +Definition Mk_Medeleg (v : mword 64) : Medeleg := {| Medeleg_Medeleg_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Medeleg_bits (v : Medeleg) -: mword 64 := - +Definition _get_Medeleg_bits (v : Medeleg) : mword 64 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 63 0. -Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medeleg) (v : mword 64) +Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medeleg) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5238,22 +4598,17 @@ Definition _set_Medeleg_bits (r_ref : register_ref regstate register_value Medel write_reg r_ref r : M (unit). -Definition _update_Medeleg_bits (v : Medeleg) (x : mword 64) -: Medeleg := - +Definition _update_Medeleg_bits (v : Medeleg) (x : mword 64) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Medeleg_SAMO_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 15 15. Definition _set_Medeleg_SAMO_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5263,22 +4618,17 @@ Definition _set_Medeleg_SAMO_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 15 15 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 13 13. Definition _set_Medeleg_Load_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5288,22 +4638,17 @@ Definition _set_Medeleg_Load_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 13 13 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Page_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Page_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 12 12. Definition _set_Medeleg_Fetch_Page_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5313,22 +4658,17 @@ Definition _set_Medeleg_Fetch_Page_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Page_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Page_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 12 12 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_MEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_MEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 10 10. Definition _set_Medeleg_MEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5338,22 +4678,17 @@ Definition _set_Medeleg_MEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_MEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_MEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 10 10 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 9 9. Definition _set_Medeleg_SEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5363,22 +4698,17 @@ Definition _set_Medeleg_SEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_SEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_UEnvCall (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_UEnvCall (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 8 8. Definition _set_Medeleg_UEnvCall -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5388,22 +4718,17 @@ Definition _set_Medeleg_UEnvCall write_reg r_ref r : M (unit). -Definition _update_Medeleg_UEnvCall (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_UEnvCall (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SAMO_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 7 7. Definition _set_Medeleg_SAMO_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5413,22 +4738,17 @@ Definition _set_Medeleg_SAMO_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_SAMO_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_SAMO_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 6 6. Definition _set_Medeleg_SAMO_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5438,22 +4758,17 @@ Definition _set_Medeleg_SAMO_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_SAMO_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_SAMO_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 5 5. Definition _set_Medeleg_Load_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5463,22 +4778,17 @@ Definition _set_Medeleg_Load_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Load_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Load_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 4 4. Definition _set_Medeleg_Load_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5488,22 +4798,17 @@ Definition _set_Medeleg_Load_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_Load_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Load_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Breakpoint (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Breakpoint (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 3 3. Definition _set_Medeleg_Breakpoint -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5513,22 +4818,17 @@ Definition _set_Medeleg_Breakpoint write_reg r_ref r : M (unit). -Definition _update_Medeleg_Breakpoint (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Breakpoint (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Illegal_Instr (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Illegal_Instr (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 2 2. Definition _set_Medeleg_Illegal_Instr -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5538,22 +4838,17 @@ Definition _set_Medeleg_Illegal_Instr write_reg r_ref r : M (unit). -Definition _update_Medeleg_Illegal_Instr (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Illegal_Instr (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Access_Fault (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Access_Fault (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 1 1. Definition _set_Medeleg_Fetch_Access_Fault -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5563,22 +4858,17 @@ Definition _set_Medeleg_Fetch_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Access_Fault (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Access_Fault (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Medeleg_Fetch_Addr_Align (v : Medeleg) -: mword 1 := - +Definition _get_Medeleg_Fetch_Addr_Align (v : Medeleg) : mword 1 := subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 0 0. Definition _set_Medeleg_Fetch_Addr_Align -(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Medeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5588,32 +4878,22 @@ Definition _set_Medeleg_Fetch_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Medeleg_Fetch_Addr_Align (v : Medeleg) (x : mword 1) -: Medeleg := - +Definition _update_Medeleg_Fetch_Addr_Align (v : Medeleg) (x : mword 1) : Medeleg := {[ v with Medeleg_Medeleg_chunk_0 := (update_subrange_vec_dec v.(Medeleg_Medeleg_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_medeleg (o : Medeleg) (v : mword 64) -: Medeleg := - +Definition legalize_medeleg (o : Medeleg) (v : mword 64) : Medeleg := let m := Mk_Medeleg v in - _update_Medeleg_MEnvCall m ((bool_to_bits false) : mword 1). + _update_Medeleg_MEnvCall m ('b"0" : mword 1). -Definition Mk_Mtvec (v : mword 64) -: Mtvec := - +Definition Mk_Mtvec (v : mword 64) : Mtvec := {| Mtvec_Mtvec_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Mtvec_bits (v : Mtvec) -: mword 64 := - - subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 0. +Definition _get_Mtvec_bits (v : Mtvec) : mword 64 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 0. -Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) (v : mword 64) +Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5623,21 +4903,15 @@ Definition _set_Mtvec_bits (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_bits (v : Mtvec) (x : mword 64) -: Mtvec := - +Definition _update_Mtvec_bits (v : Mtvec) (x : mword 64) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Mtvec_Base (v : Mtvec) -: mword 62 := - - subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 2. +Definition _get_Mtvec_Base (v : Mtvec) : mword 62 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 2. -Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) (v : mword 62) +Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) (v : mword 62) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5647,18 +4921,15 @@ Definition _set_Mtvec_Base (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_Base (v : Mtvec) (x : mword 62) -: Mtvec := - +Definition _update_Mtvec_Base (v : Mtvec) (x : mword 62) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 63 2 (subrange_vec_dec x 61 0)) ]}. -Definition _get_Mtvec_Mode (v : Mtvec) : mword 2 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0. +Definition _get_Mtvec_Mode (v : Mtvec) : mword 2 := subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0. -Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) (v : mword 2) +Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5668,16 +4939,12 @@ Definition _set_Mtvec_Mode (r_ref : register_ref regstate register_value Mtvec) write_reg r_ref r : M (unit). -Definition _update_Mtvec_Mode (v : Mtvec) (x : mword 2) -: Mtvec := - +Definition _update_Mtvec_Mode (v : Mtvec) (x : mword 2) : Mtvec := {[ v with Mtvec_Mtvec_chunk_0 := (update_subrange_vec_dec v.(Mtvec_Mtvec_chunk_0) 1 0 (subrange_vec_dec x 1 0)) ]}. -Definition legalize_tvec (o : Mtvec) (v : mword 64) -: Mtvec := - +Definition legalize_tvec (o : Mtvec) (v : mword 64) : Mtvec := let v := Mk_Mtvec v in match (trapVectorMode_of_bits (_get_Mtvec_Mode v)) with | TV_Direct => v @@ -5685,19 +4952,14 @@ Definition legalize_tvec (o : Mtvec) (v : mword 64) | _ => _update_Mtvec_Mode v (_get_Mtvec_Mode o) end. -Definition Mk_Mcause (v : mword 64) -: Mcause := - +Definition Mk_Mcause (v : mword 64) : Mcause := {| Mcause_Mcause_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Mcause_bits (v : Mcause) -: mword 64 := - +Definition _get_Mcause_bits (v : Mcause) : mword 64 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 63 0. -Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause) (v : mword 64) +Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5707,22 +4969,17 @@ Definition _set_Mcause_bits (r_ref : register_ref regstate register_value Mcause write_reg r_ref r : M (unit). -Definition _update_Mcause_bits (v : Mcause) (x : mword 64) -: Mcause := - +Definition _update_Mcause_bits (v : Mcause) (x : mword 64) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Mcause_IsInterrupt (v : Mcause) -: mword 1 := - +Definition _get_Mcause_IsInterrupt (v : Mcause) : mword 1 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 63 63. Definition _set_Mcause_IsInterrupt -(r_ref : register_ref regstate register_value Mcause) (v : mword 1) +(r_ref : register_ref regstate register_value Mcause) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5732,21 +4989,16 @@ Definition _set_Mcause_IsInterrupt write_reg r_ref r : M (unit). -Definition _update_Mcause_IsInterrupt (v : Mcause) (x : mword 1) -: Mcause := - +Definition _update_Mcause_IsInterrupt (v : Mcause) (x : mword 1) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 63 63 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Mcause_Cause (v : Mcause) -: mword 63 := - +Definition _get_Mcause_Cause (v : Mcause) : mword 63 := subrange_vec_dec v.(Mcause_Mcause_chunk_0) 62 0. -Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcause) (v : mword 63) +Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcause) (v : mword 63) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5756,63 +5008,45 @@ Definition _set_Mcause_Cause (r_ref : register_ref regstate register_value Mcaus write_reg r_ref r : M (unit). -Definition _update_Mcause_Cause (v : Mcause) (x : mword 63) -: Mcause := - +Definition _update_Mcause_Cause (v : Mcause) (x : mword 63) : Mcause := {[ v with Mcause_Mcause_chunk_0 := (update_subrange_vec_dec v.(Mcause_Mcause_chunk_0) 62 0 (subrange_vec_dec x 62 0)) ]}. -Definition tvec_addr (m : Mtvec) (c : Mcause) -: option (mword 64) := - - let base : xlenbits := concat_vec (_get_Mtvec_Base m) (vec_of_bits [B0;B0] : mword 2) in +Definition tvec_addr (m : Mtvec) (c : Mcause) : option (mword 64) := + let base : xlenbits := concat_vec (_get_Mtvec_Base m) ('b"00" : mword 2) in match (trapVectorMode_of_bits (_get_Mtvec_Mode m)) with - | TV_Direct => Some (base) + | TV_Direct => Some base | TV_Vector => - if ((eq_vec (_get_Mcause_IsInterrupt c) ((bool_to_bits true) : mword 1))) then - Some - (add_vec base (shiftl (EXTZ 64 (_get_Mcause_Cause c)) 2)) - else Some (base) + if eq_vec (_get_Mcause_IsInterrupt c) ('b"1" : mword 1) then + Some (add_vec base (shiftl (EXTZ 64 (_get_Mcause_Cause c)) 2)) + else Some base | TV_Reserved => None end. -Definition legalize_xepc (v : mword 64) -: M (mword 64) := - - (or_boolM (returnm ((sys_enable_writable_misa tt) : bool)) +Definition legalize_xepc (v : mword 64) : M (mword 64) := + (or_boolM (returnm ((andb (sys_enable_writable_misa tt) (sys_enable_rvc tt)) : bool)) (read_reg misa_ref >>= fun w__0 : Misa => - returnm ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1)) - : bool))) >>= fun w__1 : bool => - returnm ((if sumbool_of_bool (w__1) then update_vec_dec v 0 B0 - else and_vec v (EXTS 64 (vec_of_bits [B1;B0;B0] : mword 3))) - : mword 64). + returnm ((eq_vec (_get_Misa_C w__0) ('b"1" : mword 1)) : bool))) >>= fun w__1 : bool => + returnm (if sumbool_of_bool w__1 then update_vec_dec v 0 B0 + else and_vec v (EXTS 64 ('b"100" : mword 3))). -Definition pc_alignment_mask '(tt : unit) -: M (mword 64) := - +Definition pc_alignment_mask '(tt : unit) : M (mword 64) := read_reg misa_ref >>= fun w__0 : Misa => - returnm ((not_vec - (EXTZ 64 - (if ((eq_vec (_get_Misa_C w__0) ((bool_to_bits true) : mword 1))) then - (vec_of_bits [B0;B0] : mword 2) - else (vec_of_bits [B1;B0] : mword 2)))) - : mword 64). - -Definition Mk_Counteren (v : mword 32) -: Counteren := - + returnm (not_vec + (EXTZ 64 + (if eq_vec (_get_Misa_C w__0) ('b"1" : mword 1) then 'b"00" : mword 2 + else 'b"10" : mword 2))). + +Definition Mk_Counteren (v : mword 32) : Counteren := {| Counteren_Counteren_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Counteren_bits (v : Counteren) -: mword 32 := - +Definition _get_Counteren_bits (v : Counteren) : mword 32 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 0. Definition _set_Counteren_bits -(r_ref : register_ref regstate register_value Counteren) (v : mword 32) +(r_ref : register_ref regstate register_value Counteren) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5822,22 +5056,17 @@ Definition _set_Counteren_bits write_reg r_ref r : M (unit). -Definition _update_Counteren_bits (v : Counteren) (x : mword 32) -: Counteren := - +Definition _update_Counteren_bits (v : Counteren) (x : mword 32) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Counteren_HPM (v : Counteren) -: mword 29 := - +Definition _get_Counteren_HPM (v : Counteren) : mword 29 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 3. Definition _set_Counteren_HPM -(r_ref : register_ref regstate register_value Counteren) (v : mword 29) +(r_ref : register_ref regstate register_value Counteren) (v : mword 29) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5847,21 +5076,16 @@ Definition _set_Counteren_HPM write_reg r_ref r : M (unit). -Definition _update_Counteren_HPM (v : Counteren) (x : mword 29) -: Counteren := - +Definition _update_Counteren_HPM (v : Counteren) (x : mword 29) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 31 3 (subrange_vec_dec x 28 0)) ]}. -Definition _get_Counteren_IR (v : Counteren) -: mword 1 := - +Definition _get_Counteren_IR (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 2 2. -Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5871,21 +5095,16 @@ Definition _set_Counteren_IR (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_IR (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_IR (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Counteren_TM (v : Counteren) -: mword 1 := - +Definition _get_Counteren_TM (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 1 1. -Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5895,21 +5114,16 @@ Definition _set_Counteren_TM (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_TM (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_TM (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Counteren_CY (v : Counteren) -: mword 1 := - +Definition _get_Counteren_CY (v : Counteren) : mword 1 := subrange_vec_dec v.(Counteren_Counteren_chunk_0) 0 0. -Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Counteren) (v : mword 1) +Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Counteren) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5919,61 +5133,103 @@ Definition _set_Counteren_CY (r_ref : register_ref regstate register_value Count write_reg r_ref r : M (unit). -Definition _update_Counteren_CY (v : Counteren) (x : mword 1) -: Counteren := - +Definition _update_Counteren_CY (v : Counteren) (x : mword 1) : Counteren := {[ v with Counteren_Counteren_chunk_0 := (update_subrange_vec_dec v.(Counteren_Counteren_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_mcounteren (c : Counteren) (v : mword 64) -: M (Counteren) := - - (cast_unit_vec (access_vec_dec v 2)) >>= fun w__0 : mword 1 => - let c := _update_Counteren_IR c (w__0 : mword 1) in - (cast_unit_vec (access_vec_dec v 1)) >>= fun w__1 : mword 1 => - let c := _update_Counteren_TM c (w__1 : mword 1) in - (cast_unit_vec (access_vec_dec v 0)) >>= fun w__2 : mword 1 => - let c := _update_Counteren_CY c (w__2 : mword 1) in - returnm (c - : Counteren). - -Definition legalize_scounteren (c : Counteren) (v : mword 64) -: M (Counteren) := - - (cast_unit_vec (access_vec_dec v 2)) >>= fun w__0 : mword 1 => - let c := _update_Counteren_IR c (w__0 : mword 1) in - (cast_unit_vec (access_vec_dec v 1)) >>= fun w__1 : mword 1 => - let c := _update_Counteren_TM c (w__1 : mword 1) in - (cast_unit_vec (access_vec_dec v 0)) >>= fun w__2 : mword 1 => - let c := _update_Counteren_CY c (w__2 : mword 1) in - returnm (c - : Counteren). - -Definition retire_instruction '(tt : unit) +Definition legalize_mcounteren (c : Counteren) (v : mword 64) : Counteren := + let c := _update_Counteren_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + let c := _update_Counteren_TM c (vec_of_bits [access_vec_dec v 1] : mword 1) in + _update_Counteren_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition legalize_scounteren (c : Counteren) (v : mword 64) : Counteren := + let c := _update_Counteren_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + let c := _update_Counteren_TM c (vec_of_bits [access_vec_dec v 1] : mword 1) in + _update_Counteren_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition Mk_Counterin (v : mword 32) : Counterin := + {| Counterin_Counterin_chunk_0 := (subrange_vec_dec v 31 0) |}. + +Definition _get_Counterin_bits (v : Counterin) : mword 32 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 31 0. + +Definition _set_Counterin_bits +(r_ref : register_ref regstate register_value Counterin) (v : mword 32) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_bits (v : Counterin) (x : mword 32) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. + +Definition _get_Counterin_IR (v : Counterin) : mword 1 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 2 2. + +Definition _set_Counterin_IR (r_ref : register_ref regstate register_value Counterin) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 2 2 (subrange_vec_dec v 0 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_IR (v : Counterin) (x : mword 1) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. + +Definition _get_Counterin_CY (v : Counterin) : mword 1 := + subrange_vec_dec v.(Counterin_Counterin_chunk_0) 0 0. + +Definition _set_Counterin_CY (r_ref : register_ref regstate register_value Counterin) (v : mword 1) : M (unit) := - + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec r.(Counterin_Counterin_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Counterin in + write_reg r_ref r + : M (unit). + +Definition _update_Counterin_CY (v : Counterin) (x : mword 1) : Counterin := + {[ v with + Counterin_Counterin_chunk_0 := + (update_subrange_vec_dec v.(Counterin_Counterin_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. + +Definition legalize_mcountinhibit (c : Counterin) (v : mword 64) : Counterin := + let c := _update_Counterin_IR c (vec_of_bits [access_vec_dec v 2] : mword 1) in + _update_Counterin_CY c (vec_of_bits [access_vec_dec v 0] : mword 1). + +Definition retire_instruction '(tt : unit) : M (unit) := read_reg minstret_written_ref >>= fun w__0 : bool => - (if ((Bool.eqb w__0 true)) then write_reg minstret_written_ref false : M (unit) + (if Bool.eqb w__0 true then write_reg minstret_written_ref false : M (unit) else ((read_reg minstret_ref) : M (mword 64)) >>= fun w__1 : mword 64 => write_reg minstret_ref (add_vec_int w__1 1) : M (unit)) : M (unit). -Definition Mk_Sstatus (v : mword 64) -: Sstatus := - +Definition Mk_Sstatus (v : mword 64) : Sstatus := {| Sstatus_Sstatus_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Sstatus_bits (v : Sstatus) -: mword 64 := - +Definition _get_Sstatus_bits (v : Sstatus) : mword 64 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 63 0. -Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstatus) (v : mword 64) +Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstatus) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -5983,21 +5239,16 @@ Definition _set_Sstatus_bits (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_bits (v : Sstatus) (x : mword 64) -: Sstatus := - +Definition _update_Sstatus_bits (v : Sstatus) (x : mword 64) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Sstatus_SD (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SD (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 63 63. -Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6007,21 +5258,16 @@ Definition _set_Sstatus_SD (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_SD (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SD (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 63 63 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_MXR (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_MXR (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 19 19. -Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6031,21 +5277,16 @@ Definition _set_Sstatus_MXR (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_MXR (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_MXR (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 19 19 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SUM (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SUM (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 18 18. -Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6055,21 +5296,16 @@ Definition _set_Sstatus_SUM (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SUM (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SUM (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 18 18 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_XS (v : Sstatus) -: mword 2 := - +Definition _get_Sstatus_XS (v : Sstatus) : mword 2 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 16 15. -Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) +Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6079,21 +5315,16 @@ Definition _set_Sstatus_XS (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_XS (v : Sstatus) (x : mword 2) -: Sstatus := - +Definition _update_Sstatus_XS (v : Sstatus) (x : mword 2) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 16 15 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Sstatus_FS (v : Sstatus) -: mword 2 := - +Definition _get_Sstatus_FS (v : Sstatus) : mword 2 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 14 13. -Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) +Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6103,21 +5334,16 @@ Definition _set_Sstatus_FS (r_ref : register_ref regstate register_value Sstatus write_reg r_ref r : M (unit). -Definition _update_Sstatus_FS (v : Sstatus) (x : mword 2) -: Sstatus := - +Definition _update_Sstatus_FS (v : Sstatus) (x : mword 2) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 14 13 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Sstatus_SPP (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SPP (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 8 8. -Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6127,21 +5353,16 @@ Definition _set_Sstatus_SPP (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SPP (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SPP (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SPIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SPIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 5 5. -Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6151,21 +5372,16 @@ Definition _set_Sstatus_SPIE (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_SPIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SPIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_UPIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_UPIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 4 4. -Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6175,21 +5391,16 @@ Definition _set_Sstatus_UPIE (r_ref : register_ref regstate register_value Sstat write_reg r_ref r : M (unit). -Definition _update_Sstatus_UPIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_UPIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_SIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_SIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 1 1. -Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6199,21 +5410,16 @@ Definition _set_Sstatus_SIE (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_SIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_SIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sstatus_UIE (v : Sstatus) -: mword 1 := - +Definition _get_Sstatus_UIE (v : Sstatus) : mword 1 := subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 0 0. -Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) +Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatus) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6223,30 +5429,22 @@ Definition _set_Sstatus_UIE (r_ref : register_ref regstate register_value Sstatu write_reg r_ref r : M (unit). -Definition _update_Sstatus_UIE (v : Sstatus) (x : mword 1) -: Sstatus := - +Definition _update_Sstatus_UIE (v : Sstatus) (x : mword 1) : Sstatus := {[ v with Sstatus_Sstatus_chunk_0 := (update_subrange_vec_dec v.(Sstatus_Sstatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition get_sstatus_UXL (s : Sstatus) -: mword 2 := - +Definition get_sstatus_UXL (s : Sstatus) : mword 2 := let m := Mk_Mstatus (_get_Sstatus_bits s) in get_mstatus_UXL m. -Definition set_sstatus_UXL (s : Sstatus) (a : mword 2) -: Sstatus := - +Definition set_sstatus_UXL (s : Sstatus) (a : mword 2) : Sstatus := let m := Mk_Mstatus (_get_Sstatus_bits s) in let m := set_mstatus_UXL m a in Mk_Sstatus (_get_Mstatus_bits m). -Definition lower_mstatus (m : Mstatus) -: Sstatus := - - let s := Mk_Sstatus (EXTZ 64 (vec_of_bits [B0] : mword 1)) in +Definition lower_mstatus (m : Mstatus) : Sstatus := + let s := Mk_Sstatus (EXTZ 64 ('b"0" : mword 1)) in let s := _update_Sstatus_SD s (_get_Mstatus_SD m) in let s := set_sstatus_UXL s (get_mstatus_UXL m) in let s := _update_Sstatus_MXR s (_get_Mstatus_MXR m) in @@ -6259,48 +5457,35 @@ Definition lower_mstatus (m : Mstatus) let s := _update_Sstatus_SIE s (_get_Mstatus_SIE m) in _update_Sstatus_UIE s (_get_Mstatus_UIE m). -Definition lift_sstatus (m : Mstatus) (s : Sstatus) -: M (Mstatus) := - +Definition lift_sstatus (m : Mstatus) (s : Sstatus) : M (Mstatus) := let m := _update_Mstatus_MXR m (_get_Sstatus_MXR s) in let m := _update_Mstatus_SUM m (_get_Sstatus_SUM s) in let m := _update_Mstatus_XS m (_get_Sstatus_XS s) in let m := _update_Mstatus_FS m (_get_Sstatus_FS s) in (or_boolM ((extStatus_of_bits (_get_Mstatus_FS m)) >>= fun w__0 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__0) ((extStatus_to_bits Dirty) : mword 2)) - : bool)) + returnm ((generic_eq w__0 Dirty) : bool)) ((extStatus_of_bits (_get_Mstatus_XS m)) >>= fun w__1 : ExtStatus => - returnm ((eq_vec (extStatus_to_bits w__1) ((extStatus_to_bits Dirty) : mword 2)) - : bool))) >>= fun w__2 : bool => - let m := _update_Mstatus_SD m ((bool_to_bits w__2) : mword 1) in + returnm ((generic_eq w__1 Dirty) : bool))) >>= fun dirty => + let m := _update_Mstatus_SD m (bool_to_bits dirty) in let m := _update_Mstatus_SPP m (_get_Sstatus_SPP s) in let m := _update_Mstatus_SPIE m (_get_Sstatus_SPIE s) in let m := _update_Mstatus_UPIE m (_get_Sstatus_UPIE s) in let m := _update_Mstatus_SIE m (_get_Sstatus_SIE s) in let m := _update_Mstatus_UIE m (_get_Sstatus_UIE s) in - returnm (m - : Mstatus). - -Definition legalize_sstatus (m : Mstatus) (v : mword 64) -: M (Mstatus) := - - (lift_sstatus m (Mk_Sstatus v)) - : M (Mstatus). - -Definition Mk_Sedeleg (v : mword 64) -: Sedeleg := - + returnm m. + +Definition legalize_sstatus (m : Mstatus) (v : mword 64) : M (Mstatus) := + (lift_sstatus m (Mk_Sstatus v)) : M (Mstatus). + +Definition Mk_Sedeleg (v : mword 64) : Sedeleg := {| Sedeleg_Sedeleg_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Sedeleg_bits (v : Sedeleg) -: mword 64 := - +Definition _get_Sedeleg_bits (v : Sedeleg) : mword 64 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 63 0. -Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedeleg) (v : mword 64) +Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedeleg) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6310,22 +5495,17 @@ Definition _set_Sedeleg_bits (r_ref : register_ref regstate register_value Sedel write_reg r_ref r : M (unit). -Definition _update_Sedeleg_bits (v : Sedeleg) (x : mword 64) -: Sedeleg := - +Definition _update_Sedeleg_bits (v : Sedeleg) (x : mword 64) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Sedeleg_UEnvCall (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_UEnvCall (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 8 8. Definition _set_Sedeleg_UEnvCall -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6335,22 +5515,17 @@ Definition _set_Sedeleg_UEnvCall write_reg r_ref r : M (unit). -Definition _update_Sedeleg_UEnvCall (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_UEnvCall (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_SAMO_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_SAMO_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 7 7. Definition _set_Sedeleg_SAMO_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6360,22 +5535,17 @@ Definition _set_Sedeleg_SAMO_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_SAMO_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_SAMO_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_SAMO_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_SAMO_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 6 6. Definition _set_Sedeleg_SAMO_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6385,22 +5555,17 @@ Definition _set_Sedeleg_SAMO_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_SAMO_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_SAMO_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Load_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Load_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 5 5. Definition _set_Sedeleg_Load_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6410,22 +5575,17 @@ Definition _set_Sedeleg_Load_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Load_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Load_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Load_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Load_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 4 4. Definition _set_Sedeleg_Load_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6435,22 +5595,17 @@ Definition _set_Sedeleg_Load_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Load_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Load_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Breakpoint (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Breakpoint (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 3 3. Definition _set_Sedeleg_Breakpoint -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6460,22 +5615,17 @@ Definition _set_Sedeleg_Breakpoint write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Breakpoint (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Breakpoint (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Illegal_Instr (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Illegal_Instr (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 2 2. Definition _set_Sedeleg_Illegal_Instr -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6485,22 +5635,17 @@ Definition _set_Sedeleg_Illegal_Instr write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Illegal_Instr (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Illegal_Instr (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Fetch_Access_Fault (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Fetch_Access_Fault (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 1 1. Definition _set_Sedeleg_Fetch_Access_Fault -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6510,22 +5655,17 @@ Definition _set_Sedeleg_Fetch_Access_Fault write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Fetch_Access_Fault (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Fetch_Access_Fault (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sedeleg_Fetch_Addr_Align (v : Sedeleg) -: mword 1 := - +Definition _get_Sedeleg_Fetch_Addr_Align (v : Sedeleg) : mword 1 := subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 0 0. Definition _set_Sedeleg_Fetch_Addr_Align -(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) +(r_ref : register_ref regstate register_value Sedeleg) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6535,32 +5675,23 @@ Definition _set_Sedeleg_Fetch_Addr_Align write_reg r_ref r : M (unit). -Definition _update_Sedeleg_Fetch_Addr_Align (v : Sedeleg) (x : mword 1) -: Sedeleg := - +Definition _update_Sedeleg_Fetch_Addr_Align (v : Sedeleg) (x : mword 1) : Sedeleg := {[ v with Sedeleg_Sedeleg_chunk_0 := (update_subrange_vec_dec v.(Sedeleg_Sedeleg_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition legalize_sedeleg (s : Sedeleg) (v : mword 64) -: Sedeleg := - +Definition legalize_sedeleg (s : Sedeleg) (v : mword 64) : Sedeleg := Mk_Sedeleg (EXTZ 64 (subrange_vec_dec v 8 0)). -Definition Mk_Sinterrupts (v : mword 64) -: Sinterrupts := - +Definition Mk_Sinterrupts (v : mword 64) : Sinterrupts := {| Sinterrupts_Sinterrupts_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Sinterrupts_bits (v : Sinterrupts) -: mword 64 := - +Definition _get_Sinterrupts_bits (v : Sinterrupts) : mword 64 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 63 0. Definition _set_Sinterrupts_bits -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 64) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6570,22 +5701,17 @@ Definition _set_Sinterrupts_bits write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_bits (v : Sinterrupts) (x : mword 64) -: Sinterrupts := - +Definition _update_Sinterrupts_bits (v : Sinterrupts) (x : mword 64) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Sinterrupts_SEI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_SEI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 9 9. Definition _set_Sinterrupts_SEI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6595,22 +5721,17 @@ Definition _set_Sinterrupts_SEI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_SEI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_SEI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 9 9 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_UEI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_UEI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 8 8. Definition _set_Sinterrupts_UEI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6620,22 +5741,17 @@ Definition _set_Sinterrupts_UEI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_UEI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_UEI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_STI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_STI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 5 5. Definition _set_Sinterrupts_STI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6645,22 +5761,17 @@ Definition _set_Sinterrupts_STI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_STI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_STI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_UTI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_UTI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 4 4. Definition _set_Sinterrupts_UTI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6670,22 +5781,17 @@ Definition _set_Sinterrupts_UTI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_UTI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_UTI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_SSI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_SSI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 1 1. Definition _set_Sinterrupts_SSI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6695,22 +5801,17 @@ Definition _set_Sinterrupts_SSI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_SSI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_SSI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Sinterrupts_USI (v : Sinterrupts) -: mword 1 := - +Definition _get_Sinterrupts_USI (v : Sinterrupts) : mword 1 := subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 0 0. Definition _set_Sinterrupts_USI -(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) +(r_ref : register_ref regstate register_value Sinterrupts) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6720,17 +5821,13 @@ Definition _set_Sinterrupts_USI write_reg r_ref r : M (unit). -Definition _update_Sinterrupts_USI (v : Sinterrupts) (x : mword 1) -: Sinterrupts := - +Definition _update_Sinterrupts_USI (v : Sinterrupts) (x : mword 1) : Sinterrupts := {[ v with Sinterrupts_Sinterrupts_chunk_0 := (update_subrange_vec_dec v.(Sinterrupts_Sinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition lower_mip (m : Minterrupts) (d : Minterrupts) -: Sinterrupts := - - let s : Sinterrupts := Mk_Sinterrupts (EXTZ 64 (vec_of_bits [B0] : mword 1)) in +Definition lower_mip (m : Minterrupts) (d : Minterrupts) : Sinterrupts := + let s : Sinterrupts := Mk_Sinterrupts (EXTZ 64 ('b"0" : mword 1)) in let s := _update_Sinterrupts_SEI s (and_vec (_get_Minterrupts_SEI m) (_get_Minterrupts_SEI d)) in let s := _update_Sinterrupts_STI s (and_vec (_get_Minterrupts_STI m) (_get_Minterrupts_STI d)) in let s := _update_Sinterrupts_SSI s (and_vec (_get_Minterrupts_SSI m) (_get_Minterrupts_SSI d)) in @@ -6738,10 +5835,8 @@ Definition lower_mip (m : Minterrupts) (d : Minterrupts) let s := _update_Sinterrupts_UTI s (and_vec (_get_Minterrupts_UTI m) (_get_Minterrupts_UTI d)) in _update_Sinterrupts_USI s (and_vec (_get_Minterrupts_USI m) (_get_Minterrupts_USI d)). -Definition lower_mie (m : Minterrupts) (d : Minterrupts) -: Sinterrupts := - - let s : Sinterrupts := Mk_Sinterrupts (EXTZ 64 (vec_of_bits [B0] : mword 1)) in +Definition lower_mie (m : Minterrupts) (d : Minterrupts) : Sinterrupts := + let s : Sinterrupts := Mk_Sinterrupts (EXTZ 64 ('b"0" : mword 1)) in let s := _update_Sinterrupts_SEI s (and_vec (_get_Minterrupts_SEI m) (_get_Minterrupts_SEI d)) in let s := _update_Sinterrupts_STI s (and_vec (_get_Minterrupts_STI m) (_get_Minterrupts_STI d)) in let s := _update_Sinterrupts_SSI s (and_vec (_get_Minterrupts_SSI m) (_get_Minterrupts_SSI d)) in @@ -6749,80 +5844,63 @@ Definition lower_mie (m : Minterrupts) (d : Minterrupts) let s := _update_Sinterrupts_UTI s (and_vec (_get_Minterrupts_UTI m) (_get_Minterrupts_UTI d)) in _update_Sinterrupts_USI s (and_vec (_get_Minterrupts_USI m) (_get_Minterrupts_USI d)). -Definition lift_sip (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) -: M (Minterrupts) := - +Definition lift_sip (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) : M (Minterrupts) := let m : Minterrupts := o in let m := _update_Minterrupts_SSI m (and_vec (_get_Sinterrupts_SSI s) (_get_Minterrupts_SSI d)) in (haveNExt tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := - if ((eq_vec (_get_Minterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) - else m in - if ((eq_vec (_get_Minterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_USI m (_get_Sinterrupts_USI s) - else m - else m) - : Minterrupts). - -Definition legalize_sip (m : Minterrupts) (d : Minterrupts) (v : mword 64) -: M (Minterrupts) := - - (lift_sip m d (Mk_Sinterrupts v)) - : M (Minterrupts). - -Definition lift_sie (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) -: M (Minterrupts) := - + returnm (if sumbool_of_bool w__0 then + let m := + if eq_vec (_get_Minterrupts_UEI d) ('b"1" : mword 1) then + _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) + else m in + if eq_vec (_get_Minterrupts_USI d) ('b"1" : mword 1) then + _update_Minterrupts_USI m (_get_Sinterrupts_USI s) + else m + else m). + +Definition legalize_sip (m : Minterrupts) (d : Minterrupts) (v : mword 64) : M (Minterrupts) := + (lift_sip m d (Mk_Sinterrupts v)) : M (Minterrupts). + +Definition lift_sie (o : Minterrupts) (d : Minterrupts) (s : Sinterrupts) : M (Minterrupts) := let m : Minterrupts := o in let m := - if ((eq_vec (_get_Minterrupts_SEI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_SEI d) ('b"1" : mword 1) then _update_Minterrupts_SEI m (_get_Sinterrupts_SEI s) else m in let m := - if ((eq_vec (_get_Minterrupts_STI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_STI d) ('b"1" : mword 1) then _update_Minterrupts_STI m (_get_Sinterrupts_STI s) else m in let m := - if ((eq_vec (_get_Minterrupts_SSI d) ((bool_to_bits true) : mword 1))) then + if eq_vec (_get_Minterrupts_SSI d) ('b"1" : mword 1) then _update_Minterrupts_SSI m (_get_Sinterrupts_SSI s) else m in (haveNExt tt) >>= fun w__0 : bool => - returnm ((if sumbool_of_bool (w__0) then - let m := - if ((eq_vec (_get_Minterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) - else m in - let m := - if ((eq_vec (_get_Minterrupts_UTI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_UTI m (_get_Sinterrupts_UTI s) - else m in - if ((eq_vec (_get_Minterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Minterrupts_USI m (_get_Sinterrupts_USI s) - else m - else m) - : Minterrupts). - -Definition legalize_sie (m : Minterrupts) (d : Minterrupts) (v : mword 64) -: M (Minterrupts) := - - (lift_sie m d (Mk_Sinterrupts v)) - : M (Minterrupts). - -Definition Mk_Satp64 (v : mword 64) -: Satp64 := - + returnm (if sumbool_of_bool w__0 then + let m := + if eq_vec (_get_Minterrupts_UEI d) ('b"1" : mword 1) then + _update_Minterrupts_UEI m (_get_Sinterrupts_UEI s) + else m in + let m := + if eq_vec (_get_Minterrupts_UTI d) ('b"1" : mword 1) then + _update_Minterrupts_UTI m (_get_Sinterrupts_UTI s) + else m in + if eq_vec (_get_Minterrupts_USI d) ('b"1" : mword 1) then + _update_Minterrupts_USI m (_get_Sinterrupts_USI s) + else m + else m). + +Definition legalize_sie (m : Minterrupts) (d : Minterrupts) (v : mword 64) : M (Minterrupts) := + (lift_sie m d (Mk_Sinterrupts v)) : M (Minterrupts). + +Definition Mk_Satp64 (v : mword 64) : Satp64 := {| Satp64_Satp64_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_Satp64_bits (v : Satp64) -: mword 64 := - +Definition _get_Satp64_bits (v : Satp64) : mword 64 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 0. -Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64) (v : mword 64) +Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64) (v : mword 64) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6832,21 +5910,16 @@ Definition _set_Satp64_bits (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_bits (v : Satp64) (x : mword 64) -: Satp64 := - +Definition _update_Satp64_bits (v : Satp64) (x : mword 64) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_Satp64_Mode (v : Satp64) -: mword 4 := - +Definition _get_Satp64_Mode (v : Satp64) : mword 4 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 60. -Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64) (v : mword 4) +Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64) (v : mword 4) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6856,21 +5929,16 @@ Definition _set_Satp64_Mode (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_Mode (v : Satp64) (x : mword 4) -: Satp64 := - +Definition _update_Satp64_Mode (v : Satp64) (x : mword 4) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 63 60 (subrange_vec_dec x 3 0)) ]}. -Definition _get_Satp64_Asid (v : Satp64) -: mword 16 := - +Definition _get_Satp64_Asid (v : Satp64) : mword 16 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 59 44. -Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64) (v : mword 16) +Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64) (v : mword 16) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6880,21 +5948,16 @@ Definition _set_Satp64_Asid (r_ref : register_ref regstate register_value Satp64 write_reg r_ref r : M (unit). -Definition _update_Satp64_Asid (v : Satp64) (x : mword 16) -: Satp64 := - +Definition _update_Satp64_Asid (v : Satp64) (x : mword 16) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 59 44 (subrange_vec_dec x 15 0)) ]}. -Definition _get_Satp64_PPN (v : Satp64) -: mword 44 := - +Definition _get_Satp64_PPN (v : Satp64) : mword 44 := subrange_vec_dec v.(Satp64_Satp64_chunk_0) 43 0. -Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) (v : mword 44) +Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6904,36 +5967,27 @@ Definition _set_Satp64_PPN (r_ref : register_ref regstate register_value Satp64) write_reg r_ref r : M (unit). -Definition _update_Satp64_PPN (v : Satp64) (x : mword 44) -: Satp64 := - +Definition _update_Satp64_PPN (v : Satp64) (x : mword 44) : Satp64 := {[ v with Satp64_Satp64_chunk_0 := (update_subrange_vec_dec v.(Satp64_Satp64_chunk_0) 43 0 (subrange_vec_dec x 43 0)) ]}. -Definition legalize_satp64 (a : Architecture) (o : mword 64) (v : mword 64) -: mword 64 := - +Definition legalize_satp64 (a : Architecture) (o : mword 64) (v : mword 64) : mword 64 := let s := Mk_Satp64 v in match (satp64Mode_of_bits a (_get_Satp64_Mode s)) with | None => o - | Some (Sv32) => o - | Some (_) => _get_Satp64_bits s + | Some Sv32 => o + | Some _ => _get_Satp64_bits s end. -Definition Mk_Satp32 (v : mword 32) -: Satp32 := - +Definition Mk_Satp32 (v : mword 32) : Satp32 := {| Satp32_Satp32_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_Satp32_bits (v : Satp32) -: mword 32 := - +Definition _get_Satp32_bits (v : Satp32) : mword 32 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 0. -Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32) (v : mword 32) +Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6943,21 +5997,16 @@ Definition _set_Satp32_bits (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_bits (v : Satp32) (x : mword 32) -: Satp32 := - +Definition _update_Satp32_bits (v : Satp32) (x : mword 32) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Satp32_Mode (v : Satp32) -: mword 1 := - +Definition _get_Satp32_Mode (v : Satp32) : mword 1 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 31. -Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32) (v : mword 1) +Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6967,21 +6016,16 @@ Definition _set_Satp32_Mode (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_Mode (v : Satp32) (x : mword 1) -: Satp32 := - +Definition _update_Satp32_Mode (v : Satp32) (x : mword 1) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 31 31 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Satp32_Asid (v : Satp32) -: mword 9 := - +Definition _get_Satp32_Asid (v : Satp32) : mword 9 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 30 22. -Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32) (v : mword 9) +Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32) (v : mword 9) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -6991,21 +6035,16 @@ Definition _set_Satp32_Asid (r_ref : register_ref regstate register_value Satp32 write_reg r_ref r : M (unit). -Definition _update_Satp32_Asid (v : Satp32) (x : mword 9) -: Satp32 := - +Definition _update_Satp32_Asid (v : Satp32) (x : mword 9) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 30 22 (subrange_vec_dec x 8 0)) ]}. -Definition _get_Satp32_PPN (v : Satp32) -: mword 22 := - +Definition _get_Satp32_PPN (v : Satp32) : mword 22 := subrange_vec_dec v.(Satp32_Satp32_chunk_0) 21 0. -Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) (v : mword 22) +Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) (v : mword 22) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7015,68 +6054,53 @@ Definition _set_Satp32_PPN (r_ref : register_ref regstate register_value Satp32) write_reg r_ref r : M (unit). -Definition _update_Satp32_PPN (v : Satp32) (x : mword 22) -: Satp32 := - +Definition _update_Satp32_PPN (v : Satp32) (x : mword 22) : Satp32 := {[ v with Satp32_Satp32_chunk_0 := (update_subrange_vec_dec v.(Satp32_Satp32_chunk_0) 21 0 (subrange_vec_dec x 21 0)) ]}. -Definition legalize_satp32 (a : Architecture) (o : mword 32) (v : mword 32) : mword 32 := v. +Definition legalize_satp32 (a : Architecture) (o : mword 32) (v : mword 32) : mword 32 := v. -Definition PmpAddrMatchType_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} +Definition PmpAddrMatchType_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : PmpAddrMatchType := - - let l__20 := arg_ in - if sumbool_of_bool ((Z.eqb l__20 0)) then OFF - else if sumbool_of_bool ((Z.eqb l__20 1)) then TOR - else if sumbool_of_bool ((Z.eqb l__20 2)) then NA4 + let l__82 := arg_ in + if sumbool_of_bool (Z.eqb l__82 0) then OFF + else if sumbool_of_bool (Z.eqb l__82 1) then TOR + else if sumbool_of_bool (Z.eqb l__82 2) then NA4 else NAPOT. -Definition num_of_PmpAddrMatchType (arg_ : PmpAddrMatchType) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with | OFF => 0 | TOR => 1 | NA4 => 2 | NAPOT => 3 end). +Definition num_of_PmpAddrMatchType (arg_ : PmpAddrMatchType) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex (match arg_ with | OFF => 0 | TOR => 1 | NA4 => 2 | NAPOT => 3 end). -Definition pmpAddrMatchType_of_bits (bs : mword 2) -: M (PmpAddrMatchType) := - +Definition pmpAddrMatchType_of_bits (bs : mword 2) : M (PmpAddrMatchType) := let b__0 := bs in - (if ((eq_vec b__0 (vec_of_bits [B0;B0] : mword 2))) then returnm (OFF : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (TOR : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (NA4 : PmpAddrMatchType) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then - returnm (NAPOT - : PmpAddrMatchType) + (if eq_vec b__0 ('b"00" : mword 2) then returnm OFF + else if eq_vec b__0 ('b"01" : mword 2) then returnm TOR + else if eq_vec b__0 ('b"10" : mword 2) then returnm NA4 + else if eq_vec b__0 ('b"11" : mword 2) then returnm NAPOT else assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 7:2 - 12:3" >>= fun _ => exit tt) : M (PmpAddrMatchType). -Definition pmpAddrMatchType_to_bits (bs : PmpAddrMatchType) -: mword 2 := - +Definition pmpAddrMatchType_to_bits (bs : PmpAddrMatchType) : mword 2 := match bs with - | OFF => (vec_of_bits [B0;B0] : mword 2) - | TOR => (vec_of_bits [B0;B1] : mword 2) - | NA4 => (vec_of_bits [B1;B0] : mword 2) - | NAPOT => (vec_of_bits [B1;B1] : mword 2) + | OFF => 'b"00" : mword 2 + | TOR => 'b"01" : mword 2 + | NA4 => 'b"10" : mword 2 + | NAPOT => 'b"11" : mword 2 end. -Definition Mk_Pmpcfg_ent (v : mword 8) -: Pmpcfg_ent := - +Definition Mk_Pmpcfg_ent (v : mword 8) : Pmpcfg_ent := {| Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (subrange_vec_dec v 7 0) |}. -Definition _get_Pmpcfg_ent_bits (v : Pmpcfg_ent) -: mword 8 := - +Definition _get_Pmpcfg_ent_bits (v : Pmpcfg_ent) : mword 8 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 0. Definition _set_Pmpcfg_ent_bits -(r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 8) +(r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7086,22 +6110,16 @@ Definition _set_Pmpcfg_ent_bits write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_bits (v : Pmpcfg_ent) (x : mword 8) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_bits (v : Pmpcfg_ent) (x : mword 8) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition _get_Pmpcfg_ent_L (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_L (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 7. Definition _set_Pmpcfg_ent_L (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7111,22 +6129,16 @@ Definition _set_Pmpcfg_ent_L (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_L (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_L (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_A (v : Pmpcfg_ent) -: mword 2 := - +Definition _get_Pmpcfg_ent_A (v : Pmpcfg_ent) : mword 2 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 4 3. Definition _set_Pmpcfg_ent_A (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 2) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7136,22 +6148,16 @@ Definition _set_Pmpcfg_ent_A (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_A (v : Pmpcfg_ent) (x : mword 2) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_A (v : Pmpcfg_ent) (x : mword 2) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 4 3 (subrange_vec_dec x 1 0)) ]}. -Definition _get_Pmpcfg_ent_X (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_X (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 2 2. Definition _set_Pmpcfg_ent_X (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7161,22 +6167,16 @@ Definition _set_Pmpcfg_ent_X (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_X (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_X (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_W (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_W (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 1 1. Definition _set_Pmpcfg_ent_W (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7186,22 +6186,16 @@ Definition _set_Pmpcfg_ent_W (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_W (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_W (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_Pmpcfg_ent_R (v : Pmpcfg_ent) -: mword 1 := - +Definition _get_Pmpcfg_ent_R (v : Pmpcfg_ent) : mword 1 := subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 0 0. Definition _set_Pmpcfg_ent_R (r_ref : register_ref regstate register_value Pmpcfg_ent) (v : mword 1) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -7211,18 +6205,14 @@ Definition _set_Pmpcfg_ent_R (r_ref : register_ref regstate register_value Pmpcf write_reg r_ref r : M (unit). -Definition _update_Pmpcfg_ent_R (v : Pmpcfg_ent) (x : mword 1) -: Pmpcfg_ent := - +Definition _update_Pmpcfg_ent_R (v : Pmpcfg_ent) (x : mword 1) : Pmpcfg_ent := {[ v with Pmpcfg_ent_Pmpcfg_ent_chunk_0 := (update_subrange_vec_dec v.(Pmpcfg_ent_Pmpcfg_ent_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition pmpReadCfgReg (n : Z) `{ArithFact (0 <= n /\ n < 4)} -: M (mword 64) := - - let l__18 := n in - (if sumbool_of_bool ((Z.eqb l__18 0)) then +Definition pmpReadCfgReg (n : Z) `{ArithFact ((0 <=? n) && (n <? 4))} : M (mword 64) := + let l__80 := n in + (if sumbool_of_bool (Z.eqb l__80 0) then read_reg pmp7cfg_ref >>= fun w__0 : Pmpcfg_ent => read_reg pmp6cfg_ref >>= fun w__1 : Pmpcfg_ent => read_reg pmp5cfg_ref >>= fun w__2 : Pmpcfg_ent => @@ -7231,15 +6221,14 @@ Definition pmpReadCfgReg (n : Z) `{ArithFact (0 <= n /\ n < 4)} read_reg pmp2cfg_ref >>= fun w__5 : Pmpcfg_ent => read_reg pmp1cfg_ref >>= fun w__6 : Pmpcfg_ent => read_reg pmp0cfg_ref >>= fun w__7 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__0) - (concat_vec (_get_Pmpcfg_ent_bits w__1) - (concat_vec (_get_Pmpcfg_ent_bits w__2) - (concat_vec (_get_Pmpcfg_ent_bits w__3) - (concat_vec (_get_Pmpcfg_ent_bits w__4) - (concat_vec (_get_Pmpcfg_ent_bits w__5) - (concat_vec (_get_Pmpcfg_ent_bits w__6) (_get_Pmpcfg_ent_bits w__7)))))))) - : mword (8 + (8 + (8 + (8 + (8 + (8 + (8 + 8)))))))) - else if sumbool_of_bool ((Z.eqb l__18 2)) then + returnm (concat_vec (_get_Pmpcfg_ent_bits w__0) + (concat_vec (_get_Pmpcfg_ent_bits w__1) + (concat_vec (_get_Pmpcfg_ent_bits w__2) + (concat_vec (_get_Pmpcfg_ent_bits w__3) + (concat_vec (_get_Pmpcfg_ent_bits w__4) + (concat_vec (_get_Pmpcfg_ent_bits w__5) + (concat_vec (_get_Pmpcfg_ent_bits w__6) (_get_Pmpcfg_ent_bits w__7)))))))) + else if sumbool_of_bool (Z.eqb l__80 2) then read_reg pmp15cfg_ref >>= fun w__8 : Pmpcfg_ent => read_reg pmp14cfg_ref >>= fun w__9 : Pmpcfg_ent => read_reg pmp13cfg_ref >>= fun w__10 : Pmpcfg_ent => @@ -7248,31 +6237,33 @@ Definition pmpReadCfgReg (n : Z) `{ArithFact (0 <= n /\ n < 4)} read_reg pmp10cfg_ref >>= fun w__13 : Pmpcfg_ent => read_reg pmp9cfg_ref >>= fun w__14 : Pmpcfg_ent => read_reg pmp8cfg_ref >>= fun w__15 : Pmpcfg_ent => - returnm ((concat_vec (_get_Pmpcfg_ent_bits w__8) - (concat_vec (_get_Pmpcfg_ent_bits w__9) - (concat_vec (_get_Pmpcfg_ent_bits w__10) - (concat_vec (_get_Pmpcfg_ent_bits w__11) - (concat_vec (_get_Pmpcfg_ent_bits w__12) - (concat_vec (_get_Pmpcfg_ent_bits w__13) - (concat_vec (_get_Pmpcfg_ent_bits w__14) - (_get_Pmpcfg_ent_bits w__15)))))))) - : mword (8 + (8 + (8 + (8 + (8 + (8 + (8 + 8)))))))) + returnm (concat_vec (_get_Pmpcfg_ent_bits w__8) + (concat_vec (_get_Pmpcfg_ent_bits w__9) + (concat_vec (_get_Pmpcfg_ent_bits w__10) + (concat_vec (_get_Pmpcfg_ent_bits w__11) + (concat_vec (_get_Pmpcfg_ent_bits w__12) + (concat_vec (_get_Pmpcfg_ent_bits w__13) + (concat_vec (_get_Pmpcfg_ent_bits w__14) + (_get_Pmpcfg_ent_bits w__15)))))))) else assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 75:2 - 85:8" >>= fun _ => exit tt) : M (mword 64). -Definition pmpWriteCfg (cfg : Pmpcfg_ent) (v : mword 8) -: Pmpcfg_ent := - - if ((eq_vec (_get_Pmpcfg_ent_L cfg) ((bool_to_bits true) : mword 1))) then cfg - else Mk_Pmpcfg_ent v. +Definition pmpLocked (cfg : Pmpcfg_ent) : bool := eq_vec (_get_Pmpcfg_ent_L cfg) ('b"1" : mword 1). -Definition pmpWriteCfgReg (n : Z) (v : mword 64) `{ArithFact (0 <= n /\ n < 4)} -: M (unit) := - - let l__16 := n in - (if sumbool_of_bool ((Z.eqb l__16 0)) then +Definition pmpTORLocked (cfg : Pmpcfg_ent) : M (bool) := + (and_boolM (returnm ((eq_vec (_get_Pmpcfg_ent_L cfg) ('b"1" : mword 1)) : bool)) + ((pmpAddrMatchType_of_bits (_get_Pmpcfg_ent_A cfg)) >>= fun w__0 : PmpAddrMatchType => + returnm ((generic_eq w__0 TOR) : bool))) + : M (bool). + +Definition pmpWriteCfg (cfg : Pmpcfg_ent) (v : mword 8) : Pmpcfg_ent := + if pmpLocked cfg then cfg else Mk_Pmpcfg_ent (and_vec v (Ox"9F" : mword 8)). + +Definition pmpWriteCfgReg (n : Z) (v : mword 64) `{ArithFact ((0 <=? n) && (n <? 4))} : M (unit) := + let l__78 := n in + (if sumbool_of_bool (Z.eqb l__78 0) then read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => write_reg pmp0cfg_ref (pmpWriteCfg w__0 (subrange_vec_dec v 7 0)) >> read_reg pmp1cfg_ref >>= fun w__1 : Pmpcfg_ent => @@ -7290,11 +6281,11 @@ Definition pmpWriteCfgReg (n : Z) (v : mword 64) `{ArithFact (0 <= n /\ n < 4)} read_reg pmp7cfg_ref >>= fun w__7 : Pmpcfg_ent => write_reg pmp7cfg_ref (pmpWriteCfg w__7 (subrange_vec_dec v 63 56)) : M (unit) - else if sumbool_of_bool ((Z.eqb l__16 2)) then + else if sumbool_of_bool (Z.eqb l__78 2) then read_reg pmp8cfg_ref >>= fun w__8 : Pmpcfg_ent => - let pmp8cfg8 := pmpWriteCfg w__8 (subrange_vec_dec v 7 0) in + write_reg pmp8cfg_ref (pmpWriteCfg w__8 (subrange_vec_dec v 7 0)) >> read_reg pmp9cfg_ref >>= fun w__9 : Pmpcfg_ent => - let pmp9cfg9 := pmpWriteCfg w__9 (subrange_vec_dec v 15 8) in + write_reg pmp9cfg_ref (pmpWriteCfg w__9 (subrange_vec_dec v 15 8)) >> read_reg pmp10cfg_ref >>= fun w__10 : Pmpcfg_ent => write_reg pmp10cfg_ref (pmpWriteCfg w__10 (subrange_vec_dec v 23 16)) >> read_reg pmp11cfg_ref >>= fun w__11 : Pmpcfg_ent => @@ -7309,280 +6300,184 @@ Definition pmpWriteCfgReg (n : Z) (v : mword 64) `{ArithFact (0 <= n /\ n < 4)} write_reg pmp15cfg_ref (pmpWriteCfg w__15 (subrange_vec_dec v 63 56)) : M (unit) else - assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 94:2 - 137:8" >>= fun _ => + assert_exp' false "Pattern match failure at model/riscv_pmp_regs.sail 101:2 - 144:8" >>= fun _ => exit tt) : M (unit). -Definition pmpWriteAddr (cfg : Pmpcfg_ent) (reg : mword 64) (v : mword 64) +Definition pmpWriteAddr (locked : bool) (tor_locked : bool) (reg : mword 64) (v : mword 64) : mword 64 := - - if ((eq_vec (_get_Pmpcfg_ent_L cfg) ((bool_to_bits true) : mword 1))) then reg - else EXTZ 64 (subrange_vec_dec v 53 0). + if sumbool_of_bool (orb locked tor_locked) then reg else EXTZ 64 (subrange_vec_dec v 53 0). -Definition pmpAddrRange (cfg : Pmpcfg_ent) (pmpaddr : mword 64) (prev_pmpaddr : mword 64) +Definition pmpAddrRange (cfg : Pmpcfg_ent) (pmpaddr : mword 64) (prev_pmpaddr : mword 64) : M (option ((mword 64 * mword 64))) := - (pmpAddrMatchType_of_bits (_get_Pmpcfg_ent_A cfg)) >>= fun w__0 : PmpAddrMatchType => - returnm ((match w__0 with - | OFF => None - | TOR => Some ((shiftl prev_pmpaddr 2, shiftl pmpaddr 2)) - | NA4 => - let lo := shiftl pmpaddr 2 in - Some - ((lo, add_vec_int lo 4)) - | NAPOT => - let mask := xor_vec pmpaddr (add_vec_int pmpaddr 1) in - let lo := and_vec pmpaddr (not_vec mask) in - let len := add_vec_int mask 1 in - Some - ((shiftl lo 2, shiftl (add_vec lo len) 2)) - end) - : option ((mword 64 * mword 64))). + returnm (match w__0 with + | OFF => None + | TOR => Some (shiftl prev_pmpaddr 2, shiftl pmpaddr 2) + | NA4 => + let lo := shiftl pmpaddr 2 in + Some (lo, add_vec_int lo 4) + | NAPOT => + let mask := xor_vec pmpaddr (add_vec_int pmpaddr 1) in + let lo := and_vec pmpaddr (not_vec mask) in + let len := add_vec_int mask 1 in + Some (shiftl lo 2, shiftl (add_vec lo len) 2) + end). -Definition pmpCheckRWX (ent : Pmpcfg_ent) (acc : AccessType) -: bool := - +Definition pmpCheckRWX (ent : Pmpcfg_ent) (acc : AccessType unit) : bool := match acc with - | Read => eq_vec (_get_Pmpcfg_ent_R ent) ((bool_to_bits true) : mword 1) - | Write => eq_vec (_get_Pmpcfg_ent_W ent) ((bool_to_bits true) : mword 1) - | ReadWrite => - andb (eq_vec (_get_Pmpcfg_ent_R ent) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_Pmpcfg_ent_W ent) ((bool_to_bits true) : mword 1)) - | Execute => eq_vec (_get_Pmpcfg_ent_X ent) ((bool_to_bits true) : mword 1) + | Read _ => eq_vec (_get_Pmpcfg_ent_R ent) ('b"1" : mword 1) + | Write _ => eq_vec (_get_Pmpcfg_ent_W ent) ('b"1" : mword 1) + | ReadWrite _ => + andb (eq_vec (_get_Pmpcfg_ent_R ent) ('b"1" : mword 1)) + (eq_vec (_get_Pmpcfg_ent_W ent) ('b"1" : mword 1)) + | Execute tt => eq_vec (_get_Pmpcfg_ent_X ent) ('b"1" : mword 1) end. -Definition pmpCheckPerms (ent : Pmpcfg_ent) (acc : AccessType) (priv : Privilege) -: bool := - +Definition pmpCheckPerms (ent : Pmpcfg_ent) (acc : AccessType unit) (priv : Privilege) : bool := match priv with - | Machine => - if ((eq_vec (_get_Pmpcfg_ent_L ent) ((bool_to_bits true) : mword 1))) then - pmpCheckRWX ent acc - else true + | Machine => if pmpLocked ent then pmpCheckRWX ent acc else true | _ => pmpCheckRWX ent acc end. -Definition pmpAddrMatch_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: pmpAddrMatch := - - let l__14 := arg_ in - if sumbool_of_bool ((Z.eqb l__14 0)) then PMP_NoMatch - else if sumbool_of_bool ((Z.eqb l__14 1)) then PMP_PartialMatch +Definition pmpAddrMatch_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : pmpAddrMatch := + let l__76 := arg_ in + if sumbool_of_bool (Z.eqb l__76 0) then PMP_NoMatch + else if sumbool_of_bool (Z.eqb l__76 1) then PMP_PartialMatch else PMP_Match. -Definition num_of_pmpAddrMatch (arg_ : pmpAddrMatch) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | PMP_NoMatch => 0 | PMP_PartialMatch => 1 | PMP_Match => 2 end). +Definition num_of_pmpAddrMatch (arg_ : pmpAddrMatch) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | PMP_NoMatch => 0 | PMP_PartialMatch => 1 | PMP_Match => 2 end). -Definition pmpMatchAddr (addr : mword 64) (width : mword 64) (rng : option ((mword 64 * mword 64))) +Definition pmpMatchAddr (addr : mword 64) (width : mword 64) (rng : option ((mword 64 * mword 64))) : pmpAddrMatch := - match rng with | None => PMP_NoMatch - | Some ((lo, hi)) => - if ((zopz0zI_u hi lo)) then PMP_NoMatch - else if ((orb (zopz0zI_u (add_vec addr width) lo) (zopz0zI_u hi addr))) then PMP_NoMatch - else if ((andb (zopz0zIzJ_u lo addr) (zopz0zIzJ_u (add_vec addr width) hi))) then PMP_Match + | Some (lo, hi) => + if zopz0zI_u hi lo then PMP_NoMatch + else if orb (zopz0zI_u (add_vec addr width) lo) (zopz0zI_u hi addr) then PMP_NoMatch + else if andb (zopz0zIzJ_u lo addr) (zopz0zIzJ_u (add_vec addr width) hi) then PMP_Match else PMP_PartialMatch end. -Definition pmpMatch_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: pmpMatch := - - let l__12 := arg_ in - if sumbool_of_bool ((Z.eqb l__12 0)) then PMP_Success - else if sumbool_of_bool ((Z.eqb l__12 1)) then PMP_Continue +Definition pmpMatch_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : pmpMatch := + let l__74 := arg_ in + if sumbool_of_bool (Z.eqb l__74 0) then PMP_Success + else if sumbool_of_bool (Z.eqb l__74 1) then PMP_Continue else PMP_Fail. -Definition num_of_pmpMatch (arg_ : pmpMatch) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | PMP_Success => 0 | PMP_Continue => 1 | PMP_Fail => 2 end). +Definition num_of_pmpMatch (arg_ : pmpMatch) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | PMP_Success => 0 | PMP_Continue => 1 | PMP_Fail => 2 end). Definition pmpMatchEntry -(addr : mword 64) (width : mword 64) (acc : AccessType) (priv : Privilege) (ent : Pmpcfg_ent) -(pmpaddr : mword 64) (prev_pmpaddr : mword 64) +(addr : mword 64) (width : mword 64) (acc : AccessType unit) (priv : Privilege) (ent : Pmpcfg_ent) +(pmpaddr : mword 64) (prev_pmpaddr : mword 64) : M (pmpMatch) := - (pmpAddrRange ent pmpaddr prev_pmpaddr) >>= fun rng => - returnm ((match (pmpMatchAddr addr width rng) with - | PMP_NoMatch => PMP_Continue - | PMP_PartialMatch => PMP_Fail - | PMP_Match => if ((pmpCheckPerms ent acc priv)) then PMP_Success else PMP_Fail - end) - : pmpMatch). + returnm (match (pmpMatchAddr addr width rng) with + | PMP_NoMatch => PMP_Continue + | PMP_PartialMatch => PMP_Fail + | PMP_Match => if pmpCheckPerms ent acc priv then PMP_Success else PMP_Fail + end). -Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Privilege) -`{ArithFact (width > 0)} +Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType unit) (priv : Privilege) +`{ArithFact (width >? 0)} : M (option ExceptionType) := - let width : xlenbits := to_bits 64 width in read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__1 : mword 64 => (pmpMatchEntry addr width acc priv w__0 w__1 (zeros_implicit 64)) >>= fun w__2 : pmpMatch => (match w__2 with - | PMP_Success => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp1cfg_ref >>= fun w__3 : Pmpcfg_ent => ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__4 : mword 64 => ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__5 : mword 64 => (pmpMatchEntry addr width acc priv w__3 w__4 w__5) >>= fun w__6 : pmpMatch => (match w__6 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp2cfg_ref >>= fun w__7 : Pmpcfg_ent => ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__8 : mword 64 => ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__9 : mword 64 => (pmpMatchEntry addr width acc priv w__7 w__8 w__9) >>= fun w__10 : pmpMatch => (match w__10 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp3cfg_ref >>= fun w__11 : Pmpcfg_ent => ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__12 : mword 64 => ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__13 : mword 64 => (pmpMatchEntry addr width acc priv w__11 w__12 w__13) >>= fun w__14 : pmpMatch => (match w__14 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp4cfg_ref >>= fun w__15 : Pmpcfg_ent => ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__16 : mword 64 => ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__17 : mword 64 => (pmpMatchEntry addr width acc priv w__15 w__16 w__17) >>= fun w__18 : pmpMatch => (match w__18 with - | PMP_Success => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp5cfg_ref >>= fun w__19 : Pmpcfg_ent => ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__20 : mword 64 => ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__21 : mword 64 => (pmpMatchEntry addr width acc priv w__19 w__20 w__21) >>= fun w__22 : pmpMatch => (match w__22 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp6cfg_ref >>= fun w__23 : Pmpcfg_ent => ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__24 : mword 64 => ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__25 : mword 64 => (pmpMatchEntry addr width acc priv w__23 w__24 w__25) >>= fun w__26 : pmpMatch => (match w__26 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp7cfg_ref >>= fun w__27 : Pmpcfg_ent => ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__28 : mword 64 => ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__29 : mword 64 => (pmpMatchEntry addr width acc priv w__27 w__28 w__29) >>= fun w__30 : pmpMatch => (match w__30 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp8cfg_ref >>= fun w__31 : Pmpcfg_ent => ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__32 : mword 64 => ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__33 : mword 64 => (pmpMatchEntry addr width acc priv w__31 w__32 w__33) >>= fun w__34 : pmpMatch => (match w__34 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp9cfg_ref >>= fun w__35 : Pmpcfg_ent => ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__36 : mword 64 => ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__37 : mword 64 => (pmpMatchEntry addr width acc priv w__35 w__36 w__37) >>= fun w__38 : pmpMatch => (match w__38 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp10cfg_ref >>= fun w__39 : Pmpcfg_ent => ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__40 : mword 64 => ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__41 : mword 64 => (pmpMatchEntry addr width acc priv w__39 w__40 w__41) >>= fun w__42 : pmpMatch => (match w__42 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp11cfg_ref >>= fun w__43 : Pmpcfg_ent => ((read_reg pmpaddr11_ref) : M (mword 64)) >>= fun w__44 : mword 64 => ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__45 : mword 64 => (pmpMatchEntry addr width acc priv w__43 w__44 w__45) >>= fun w__46 : pmpMatch => (match w__46 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp12cfg_ref >>= fun w__47 : Pmpcfg_ent => ((read_reg pmpaddr12_ref) : M (mword 64)) >>= fun w__48 : mword 64 => @@ -7590,17 +6485,8 @@ Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__47 w__48 w__49) >>= fun w__50 : pmpMatch => (match w__50 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp13cfg_ref >>= fun w__51 : Pmpcfg_ent => ((read_reg pmpaddr13_ref) : M (mword 64)) >>= fun w__52 : mword 64 => @@ -7608,18 +6494,8 @@ Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__51 w__52 w__53) >>= fun w__54 : pmpMatch => (match w__54 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp14cfg_ref >>= fun w__55 : Pmpcfg_ent => ((read_reg pmpaddr14_ref) : M (mword 64)) >>= fun w__56 : mword 64 => @@ -7627,18 +6503,8 @@ Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Pri (pmpMatchEntry addr width acc priv w__55 w__56 w__57) >>= fun w__58 : pmpMatch => (match w__58 with - | PMP_Success => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) - | PMP_Fail => - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))})) + | PMP_Success => returnm true + | PMP_Fail => returnm false | PMP_Continue => read_reg pmp15cfg_ref >>= fun w__59 : Pmpcfg_ent => ((read_reg pmpaddr15_ref) @@ -7647,16 +6513,15 @@ Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Pri : M (mword 64)) >>= fun w__61 : mword 64 => (pmpMatchEntry addr width acc priv w__59 w__60 w__61) >>= fun w__62 : pmpMatch => - returnm ((match w__62 with - | PMP_Success => true - | PMP_Fail => false - | PMP_Continue => - match priv with - | Machine => true - | _ => false - end - end) - : bool) + returnm (match w__62 with + | PMP_Success => true + | PMP_Fail => false + | PMP_Continue => + match priv with + | Machine => true + | _ => false + end + end) end) : M (bool) end) @@ -7686,19 +6551,16 @@ Definition pmpCheck (addr : mword 64) (width : Z) (acc : AccessType) (priv : Pri end) : M (bool) end) >>= fun check' : bool => - returnm ((if sumbool_of_bool (check') then None - else - match acc with - | Read => Some (E_Load_Access_Fault) - | Write => Some (E_SAMO_Access_Fault) - | ReadWrite => Some (E_SAMO_Access_Fault) - | Execute => Some (E_Fetch_Access_Fault) - end) - : option ExceptionType). - -Definition init_pmp '(tt : unit) -: M (unit) := - + returnm (if sumbool_of_bool check' then None + else + match acc with + | Read _ => Some (E_Load_Access_Fault tt) + | Write _ => Some (E_SAMO_Access_Fault tt) + | ReadWrite _ => Some (E_SAMO_Access_Fault tt) + | Execute tt => Some (E_Fetch_Access_Fault tt) + end). + +Definition init_pmp '(tt : unit) : M (unit) := read_reg pmp0cfg_ref >>= fun w__0 : Pmpcfg_ent => write_reg pmp0cfg_ref (_update_Pmpcfg_ent_A w__0 (pmpAddrMatchType_to_bits OFF)) >> read_reg pmp1cfg_ref >>= fun w__1 : Pmpcfg_ent => @@ -7733,2584 +6595,3897 @@ Definition init_pmp '(tt : unit) write_reg pmp15cfg_ref (_update_Pmpcfg_ent_A w__15 (pmpAddrMatchType_to_bits OFF)) : M (unit). -Definition ext_init_regs '(tt : unit) : M (unit) := returnm (tt : unit). +Definition ext_init_regs '(tt : unit) : M (unit) := returnm tt. + +Definition ext_rvfi_init '(tt : unit) : M (unit) := + ((read_reg x1_ref) : M (mword 64)) >>= fun w__0 : mword 64 => write_reg x1_ref w__0 : M (unit). -Definition ext_rvfi_init '(tt : unit) : M (unit) := returnm (tt : unit). +Definition ext_check_CSR (csrno : mword 12) (p : Privilege) (isWrite : bool) : bool := true. -Definition ext_fetch_check_pc (start_pc : mword 64) (pc : mword 64) -: Ext_FetchAddr_Check unit := - - Ext_FetchAddr_OK - (pc). +Definition ext_check_CSR_fail '(tt : unit) : unit := tt. -Definition ext_handle_fetch_check_error (err : unit) : unit := tt. +Definition ext_fetch_check_pc (start_pc : mword 64) (pc : mword 64) : Ext_FetchAddr_Check unit := + Ext_FetchAddr_OK pc. -Definition ext_control_check_addr (pc : mword 64) -: Ext_ControlAddr_Check unit := - - Ext_ControlAddr_OK - (pc). +Definition ext_handle_fetch_check_error (err : unit) : unit := tt. -Definition ext_control_check_pc (pc : mword 64) -: Ext_ControlAddr_Check unit := - - Ext_ControlAddr_OK - (pc). +Definition ext_control_check_addr (pc : mword 64) : Ext_ControlAddr_Check unit := + Ext_ControlAddr_OK pc. -Definition ext_handle_control_check_error (err : unit) : unit := tt. +Definition ext_control_check_pc (pc : mword 64) : Ext_ControlAddr_Check unit := + Ext_ControlAddr_OK pc. + +Definition ext_handle_control_check_error (err : unit) : unit := tt. Definition ext_data_get_addr -(base : mword 5) (offset : mword 64) (acc : AccessType) (width : word_width) +(base : mword 5) (offset : mword 64) (acc : AccessType unit) (width : word_width) : M (Ext_DataAddr_Check unit) := - - (rX (projT1 (regidx_to_regno base))) >>= fun w__0 : mword 64 => + (rX_bits base) >>= fun w__0 : mword 64 => let addr := add_vec w__0 offset in - returnm ((Ext_DataAddr_OK - (addr)) - : Ext_DataAddr_Check unit). + returnm (Ext_DataAddr_OK addr). -Definition ext_handle_data_check_error (err : unit) : unit := tt. +Definition ext_handle_data_check_error (err : unit) : unit := tt. -Definition csr_name (csr : mword 12) -: string := - - let b__0 := csr in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then "ustatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "uie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "utvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "uscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "uepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "ucause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "utval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "uip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "fflags" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "frm" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "fcsr" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "cycle" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "time" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "instret" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "cycleh" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "timeh" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "instreth" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "sstatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "sedeleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "sideleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "sie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "stvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - "scounteren" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "sscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "sepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "scause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "stval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "sip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "satp" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - "mvendorid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - "marchid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - "mimpid" - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - "mhartid" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mstatus" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - "misa" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "medeleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - "mideleg" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - "mie" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - "mtvec" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - "mcounteren" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mscratch" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - "mepc" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - "mcause" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - "mtval" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - "mip" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - "pmpcfg0" - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - "pmpaddr0" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mcycle" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "minstret" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - "mcycleh" - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - "minstreth" - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - "tselect" - else "UNKNOWN". - -Definition csr_name_map_forwards (arg_ : mword 12) -: M (string) := - - let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("ustatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("uie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("utvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("uscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("uepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("ucause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("utval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("uip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("fflags" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("frm" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("fcsr" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("cycle" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("time" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("instret" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("cycleh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("timeh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("instreth" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("sstatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("sedeleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("sideleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("sie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("stvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ("scounteren" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("sscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("sepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("scause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("stval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("sip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("satp" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - returnm ("mvendorid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - returnm ("marchid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - returnm ("mimpid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - returnm ("mhartid" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mstatus" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("misa" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("medeleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("mideleg" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("mie" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ("mtvec" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ("mcounteren" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mscratch" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("mepc" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("mcause" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("mtval" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ("mip" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("pmpcfg0" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("pmpcfg1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("pmpcfg2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("pmpcfg3" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - returnm ("pmpaddr0" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - returnm ("pmpaddr1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - returnm ("pmpaddr2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - returnm ("pmpaddr3" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - returnm ("pmpaddr4" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - returnm ("pmpaddr5" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - returnm ("pmpaddr6" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - returnm ("pmpaddr7" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - returnm ("pmpaddr8" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - returnm ("pmpaddr9" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - returnm ("pmpaddr10" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - returnm ("pmpaddr11" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - returnm ("pmpaddr12" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - returnm ("pmpaddr13" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - returnm ("pmpaddr14" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - returnm ("pmpaddr15" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mcycle" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("minstret" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("mcycleh" - : string) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("minstreth" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ("tselect" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm ("tdata1" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ("tdata2" - : string) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm ("tdata3" - : string) - else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) - : M (string). +Definition Mk_Ustatus (v : mword 64) : Ustatus := + {| Ustatus_Ustatus_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition csr_name_map_backwards (arg_ : string) -: M (mword 12) := - - let p0_ := arg_ in - (if ((generic_eq p0_ "ustatus")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uie")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "utvec")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uscratch")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uepc")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "ucause")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "utval")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "uip")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "fflags")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "frm")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "fcsr")) then - returnm ((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "cycle")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "time")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "instret")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "cycleh")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "timeh")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "instreth")) then - returnm ((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sstatus")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sedeleg")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sideleg")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sie")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "stvec")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "scounteren")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sscratch")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sepc")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "scause")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "stval")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "sip")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "satp")) then - returnm ((vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mvendorid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "marchid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mimpid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mhartid")) then - returnm ((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mstatus")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "misa")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "medeleg")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mideleg")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mie")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mtvec")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcounteren")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mscratch")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mepc")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcause")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mtval")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mip")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg0")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpcfg3")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr0")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr1")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr2")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr3")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr4")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr5")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr6")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr7")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr8")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr9")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr10")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr11")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr12")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr13")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr14")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "pmpaddr15")) then - returnm ((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcycle")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "minstret")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "mcycleh")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "minstreth")) then - returnm ((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tselect")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata1")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata2")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12) - : mword 12) - else if ((generic_eq p0_ "tdata3")) then - returnm ((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12) - : mword 12) - else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) - : M (mword 12). +Definition _get_Ustatus_bits (v : Ustatus) : mword 64 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 63 0. -Definition csr_name_map_forwards_matches (arg_ : mword 12) -: bool := - - let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then true - else false. +Definition _set_Ustatus_bits (r_ref : register_ref regstate register_value Ustatus) (v : mword 64) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 63 0 (subrange_vec_dec v 63 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition csr_name_map_backwards_matches (arg_ : string) -: bool := - - let p0_ := arg_ in - if ((generic_eq p0_ "ustatus")) then true - else if ((generic_eq p0_ "uie")) then true - else if ((generic_eq p0_ "utvec")) then true - else if ((generic_eq p0_ "uscratch")) then true - else if ((generic_eq p0_ "uepc")) then true - else if ((generic_eq p0_ "ucause")) then true - else if ((generic_eq p0_ "utval")) then true - else if ((generic_eq p0_ "uip")) then true - else if ((generic_eq p0_ "fflags")) then true - else if ((generic_eq p0_ "frm")) then true - else if ((generic_eq p0_ "fcsr")) then true - else if ((generic_eq p0_ "cycle")) then true - else if ((generic_eq p0_ "time")) then true - else if ((generic_eq p0_ "instret")) then true - else if ((generic_eq p0_ "cycleh")) then true - else if ((generic_eq p0_ "timeh")) then true - else if ((generic_eq p0_ "instreth")) then true - else if ((generic_eq p0_ "sstatus")) then true - else if ((generic_eq p0_ "sedeleg")) then true - else if ((generic_eq p0_ "sideleg")) then true - else if ((generic_eq p0_ "sie")) then true - else if ((generic_eq p0_ "stvec")) then true - else if ((generic_eq p0_ "scounteren")) then true - else if ((generic_eq p0_ "sscratch")) then true - else if ((generic_eq p0_ "sepc")) then true - else if ((generic_eq p0_ "scause")) then true - else if ((generic_eq p0_ "stval")) then true - else if ((generic_eq p0_ "sip")) then true - else if ((generic_eq p0_ "satp")) then true - else if ((generic_eq p0_ "mvendorid")) then true - else if ((generic_eq p0_ "marchid")) then true - else if ((generic_eq p0_ "mimpid")) then true - else if ((generic_eq p0_ "mhartid")) then true - else if ((generic_eq p0_ "mstatus")) then true - else if ((generic_eq p0_ "misa")) then true - else if ((generic_eq p0_ "medeleg")) then true - else if ((generic_eq p0_ "mideleg")) then true - else if ((generic_eq p0_ "mie")) then true - else if ((generic_eq p0_ "mtvec")) then true - else if ((generic_eq p0_ "mcounteren")) then true - else if ((generic_eq p0_ "mscratch")) then true - else if ((generic_eq p0_ "mepc")) then true - else if ((generic_eq p0_ "mcause")) then true - else if ((generic_eq p0_ "mtval")) then true - else if ((generic_eq p0_ "mip")) then true - else if ((generic_eq p0_ "pmpcfg0")) then true - else if ((generic_eq p0_ "pmpcfg1")) then true - else if ((generic_eq p0_ "pmpcfg2")) then true - else if ((generic_eq p0_ "pmpcfg3")) then true - else if ((generic_eq p0_ "pmpaddr0")) then true - else if ((generic_eq p0_ "pmpaddr1")) then true - else if ((generic_eq p0_ "pmpaddr2")) then true - else if ((generic_eq p0_ "pmpaddr3")) then true - else if ((generic_eq p0_ "pmpaddr4")) then true - else if ((generic_eq p0_ "pmpaddr5")) then true - else if ((generic_eq p0_ "pmpaddr6")) then true - else if ((generic_eq p0_ "pmpaddr7")) then true - else if ((generic_eq p0_ "pmpaddr8")) then true - else if ((generic_eq p0_ "pmpaddr9")) then true - else if ((generic_eq p0_ "pmpaddr10")) then true - else if ((generic_eq p0_ "pmpaddr11")) then true - else if ((generic_eq p0_ "pmpaddr12")) then true - else if ((generic_eq p0_ "pmpaddr13")) then true - else if ((generic_eq p0_ "pmpaddr14")) then true - else if ((generic_eq p0_ "pmpaddr15")) then true - else if ((generic_eq p0_ "mcycle")) then true - else if ((generic_eq p0_ "minstret")) then true - else if ((generic_eq p0_ "mcycleh")) then true - else if ((generic_eq p0_ "minstreth")) then true - else if ((generic_eq p0_ "tselect")) then true - else if ((generic_eq p0_ "tdata1")) then true - else if ((generic_eq p0_ "tdata2")) then true - else if ((generic_eq p0_ "tdata3")) then true - else false. +Definition _update_Ustatus_bits (v : Ustatus) (x : mword 64) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _s488_ (_s489_ : string) -: option string := - - let _s490_ := _s489_ in - if ((string_startswith _s490_ "tdata3")) then - match (string_drop _s490_ (projT1 (string_length "tdata3"))) with | s_ => Some (s_) end - else None. +Definition _get_Ustatus_UPIE (v : Ustatus) : mword 1 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4. -Definition _s484_ (_s485_ : string) -: option string := - - let _s486_ := _s485_ in - if ((string_startswith _s486_ "tdata2")) then - match (string_drop _s486_ (projT1 (string_length "tdata2"))) with | s_ => Some (s_) end - else None. +Definition _set_Ustatus_UPIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition _s480_ (_s481_ : string) -: option string := - - let _s482_ := _s481_ in - if ((string_startswith _s482_ "tdata1")) then - match (string_drop _s482_ (projT1 (string_length "tdata1"))) with | s_ => Some (s_) end - else None. +Definition _update_Ustatus_UPIE (v : Ustatus) (x : mword 1) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _s476_ (_s477_ : string) -: option string := - - let _s478_ := _s477_ in - if ((string_startswith _s478_ "tselect")) then - match (string_drop _s478_ (projT1 (string_length "tselect"))) with | s_ => Some (s_) end - else None. +Definition _get_Ustatus_UIE (v : Ustatus) : mword 1 := + subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0. -Definition _s472_ (_s473_ : string) -: option string := - - let _s474_ := _s473_ in - if ((string_startswith _s474_ "minstreth")) then - match (string_drop _s474_ (projT1 (string_length "minstreth"))) with | s_ => Some (s_) end - else None. +Definition _set_Ustatus_UIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Ustatus in + write_reg r_ref r + : M (unit). -Definition _s468_ (_s469_ : string) -: option string := - - let _s470_ := _s469_ in - if ((string_startswith _s470_ "mcycleh")) then - match (string_drop _s470_ (projT1 (string_length "mcycleh"))) with | s_ => Some (s_) end - else None. +Definition _update_Ustatus_UIE (v : Ustatus) (x : mword 1) : Ustatus := + {[ v with + Ustatus_Ustatus_chunk_0 := + (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition _s464_ (_s465_ : string) -: option string := - - let _s466_ := _s465_ in - if ((string_startswith _s466_ "minstret")) then - match (string_drop _s466_ (projT1 (string_length "minstret"))) with | s_ => Some (s_) end - else None. +Definition lower_sstatus (s : Sstatus) : Ustatus := + let u := Mk_Ustatus (EXTZ 64 ('b"0" : mword 1)) in + let u := _update_Ustatus_UPIE u (_get_Sstatus_UPIE s) in + _update_Ustatus_UIE u (_get_Sstatus_UIE s). -Definition _s460_ (_s461_ : string) -: option string := - - let _s462_ := _s461_ in - if ((string_startswith _s462_ "mcycle")) then - match (string_drop _s462_ (projT1 (string_length "mcycle"))) with | s_ => Some (s_) end - else None. +Definition lift_ustatus (s : Sstatus) (u : Ustatus) : Sstatus := + let s := _update_Sstatus_UPIE s (_get_Ustatus_UPIE u) in + _update_Sstatus_UIE s (_get_Ustatus_UIE u). -Definition _s456_ (_s457_ : string) -: option string := - - let _s458_ := _s457_ in - if ((string_startswith _s458_ "pmpaddr15")) then - match (string_drop _s458_ (projT1 (string_length "pmpaddr15"))) with | s_ => Some (s_) end - else None. +Definition legalize_ustatus (m : Mstatus) (v : mword 64) : M (Mstatus) := + let u := Mk_Ustatus v in + let s := lower_mstatus m in + let s := lift_ustatus s u in + lift_sstatus m s. -Definition _s452_ (_s453_ : string) -: option string := - - let _s454_ := _s453_ in - if ((string_startswith _s454_ "pmpaddr14")) then - match (string_drop _s454_ (projT1 (string_length "pmpaddr14"))) with | s_ => Some (s_) end - else None. +Definition Mk_Uinterrupts (v : mword 64) : Uinterrupts := + {| Uinterrupts_Uinterrupts_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _s448_ (_s449_ : string) -: option string := - - let _s450_ := _s449_ in - if ((string_startswith _s450_ "pmpaddr13")) then - match (string_drop _s450_ (projT1 (string_length "pmpaddr13"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_bits (v : Uinterrupts) : mword 64 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 63 0. -Definition _s444_ (_s445_ : string) -: option string := - - let _s446_ := _s445_ in - if ((string_startswith _s446_ "pmpaddr12")) then - match (string_drop _s446_ (projT1 (string_length "pmpaddr12"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_bits +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 64) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 63 0 (subrange_vec_dec v 63 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s440_ (_s441_ : string) -: option string := - - let _s442_ := _s441_ in - if ((string_startswith _s442_ "pmpaddr11")) then - match (string_drop _s442_ (projT1 (string_length "pmpaddr11"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_bits (v : Uinterrupts) (x : mword 64) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _s436_ (_s437_ : string) -: option string := - - let _s438_ := _s437_ in - if ((string_startswith _s438_ "pmpaddr10")) then - match (string_drop _s438_ (projT1 (string_length "pmpaddr10"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_UEI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8. -Definition _s432_ (_s433_ : string) -: option string := - - let _s434_ := _s433_ in - if ((string_startswith _s434_ "pmpaddr9")) then - match (string_drop _s434_ (projT1 (string_length "pmpaddr9"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_UEI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s428_ (_s429_ : string) -: option string := - - let _s430_ := _s429_ in - if ((string_startswith _s430_ "pmpaddr8")) then - match (string_drop _s430_ (projT1 (string_length "pmpaddr8"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_UEI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. -Definition _s424_ (_s425_ : string) -: option string := - - let _s426_ := _s425_ in - if ((string_startswith _s426_ "pmpaddr7")) then - match (string_drop _s426_ (projT1 (string_length "pmpaddr7"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_UTI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4. -Definition _s420_ (_s421_ : string) -: option string := - - let _s422_ := _s421_ in - if ((string_startswith _s422_ "pmpaddr6")) then - match (string_drop _s422_ (projT1 (string_length "pmpaddr6"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_UTI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s416_ (_s417_ : string) -: option string := - - let _s418_ := _s417_ in - if ((string_startswith _s418_ "pmpaddr5")) then - match (string_drop _s418_ (projT1 (string_length "pmpaddr5"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_UTI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _s412_ (_s413_ : string) -: option string := - - let _s414_ := _s413_ in - if ((string_startswith _s414_ "pmpaddr4")) then - match (string_drop _s414_ (projT1 (string_length "pmpaddr4"))) with | s_ => Some (s_) end - else None. +Definition _get_Uinterrupts_USI (v : Uinterrupts) : mword 1 := + subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0. -Definition _s408_ (_s409_ : string) -: option string := - - let _s410_ := _s409_ in - if ((string_startswith _s410_ "pmpaddr3")) then - match (string_drop _s410_ (projT1 (string_length "pmpaddr3"))) with | s_ => Some (s_) end - else None. +Definition _set_Uinterrupts_USI +(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} + : Uinterrupts in + write_reg r_ref r + : M (unit). -Definition _s404_ (_s405_ : string) -: option string := - - let _s406_ := _s405_ in - if ((string_startswith _s406_ "pmpaddr2")) then - match (string_drop _s406_ (projT1 (string_length "pmpaddr2"))) with | s_ => Some (s_) end - else None. +Definition _update_Uinterrupts_USI (v : Uinterrupts) (x : mword 1) : Uinterrupts := + {[ v with + Uinterrupts_Uinterrupts_chunk_0 := + (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition _s400_ (_s401_ : string) -: option string := - - let _s402_ := _s401_ in - if ((string_startswith _s402_ "pmpaddr1")) then - match (string_drop _s402_ (projT1 (string_length "pmpaddr1"))) with | s_ => Some (s_) end - else None. +Definition lower_sip (s : Sinterrupts) (d : Sinterrupts) : Uinterrupts := + let u : Uinterrupts := Mk_Uinterrupts (EXTZ 64 ('b"0" : mword 1)) in + let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in + let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in + _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). -Definition _s396_ (_s397_ : string) -: option string := - - let _s398_ := _s397_ in - if ((string_startswith _s398_ "pmpaddr0")) then - match (string_drop _s398_ (projT1 (string_length "pmpaddr0"))) with | s_ => Some (s_) end - else None. +Definition lower_sie (s : Sinterrupts) (d : Sinterrupts) : Uinterrupts := + let u : Uinterrupts := Mk_Uinterrupts (EXTZ 64 ('b"0" : mword 1)) in + let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in + let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in + _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). -Definition _s392_ (_s393_ : string) -: option string := - - let _s394_ := _s393_ in - if ((string_startswith _s394_ "pmpcfg3")) then - match (string_drop _s394_ (projT1 (string_length "pmpcfg3"))) with | s_ => Some (s_) end - else None. +Definition lift_uip (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) : Sinterrupts := + let s : Sinterrupts := o in + if eq_vec (_get_Sinterrupts_USI d) ('b"1" : mword 1) then + _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) + else s. -Definition _s388_ (_s389_ : string) -: option string := - - let _s390_ := _s389_ in - if ((string_startswith _s390_ "pmpcfg2")) then - match (string_drop _s390_ (projT1 (string_length "pmpcfg2"))) with | s_ => Some (s_) end - else None. +Definition legalize_uip (s : Sinterrupts) (d : Sinterrupts) (v : mword 64) : Sinterrupts := + lift_uip s d (Mk_Uinterrupts v). -Definition _s384_ (_s385_ : string) -: option string := - - let _s386_ := _s385_ in - if ((string_startswith _s386_ "pmpcfg1")) then - match (string_drop _s386_ (projT1 (string_length "pmpcfg1"))) with | s_ => Some (s_) end - else None. +Definition lift_uie (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) : Sinterrupts := + let s : Sinterrupts := o in + let s := + if eq_vec (_get_Sinterrupts_UEI d) ('b"1" : mword 1) then + _update_Sinterrupts_UEI s (_get_Uinterrupts_UEI u) + else s in + let s := + if eq_vec (_get_Sinterrupts_UTI d) ('b"1" : mword 1) then + _update_Sinterrupts_UTI s (_get_Uinterrupts_UTI u) + else s in + if eq_vec (_get_Sinterrupts_USI d) ('b"1" : mword 1) then + _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) + else s. -Definition _s380_ (_s381_ : string) -: option string := - - let _s382_ := _s381_ in - if ((string_startswith _s382_ "pmpcfg0")) then - match (string_drop _s382_ (projT1 (string_length "pmpcfg0"))) with | s_ => Some (s_) end - else None. +Definition legalize_uie (s : Sinterrupts) (d : Sinterrupts) (v : mword 64) : Sinterrupts := + lift_uie s d (Mk_Uinterrupts v). -Definition _s376_ (_s377_ : string) -: option string := - - let _s378_ := _s377_ in - if ((string_startswith _s378_ "mip")) then - match (string_drop _s378_ (projT1 (string_length "mip"))) with | s_ => Some (s_) end - else None. +Definition ext_check_xret_priv (p : Privilege) : bool := true. -Definition _s372_ (_s373_ : string) -: option string := - - let _s374_ := _s373_ in - if ((string_startswith _s374_ "mtval")) then - match (string_drop _s374_ (projT1 (string_length "mtval"))) with | s_ => Some (s_) end - else None. +Definition ext_fail_xret_priv '(tt : unit) : unit := tt. -Definition _s368_ (_s369_ : string) -: option string := - - let _s370_ := _s369_ in - if ((string_startswith _s370_ "mcause")) then - match (string_drop _s370_ (projT1 (string_length "mcause"))) with | s_ => Some (s_) end - else None. +Definition handle_trap_extension (p : Privilege) (pc : mword 64) (u : option unit) : unit := tt. -Definition _s364_ (_s365_ : string) -: option string := - - let _s366_ := _s365_ in - if ((string_startswith _s366_ "mepc")) then - match (string_drop _s366_ (projT1 (string_length "mepc"))) with | s_ => Some (s_) end - else None. +Definition prepare_trap_vector (p : Privilege) (cause : Mcause) : M (mword 64) := + (match p with + | Machine => read_reg mtvec_ref : M (Mtvec) + | Supervisor => read_reg stvec_ref : M (Mtvec) + | User => read_reg utvec_ref : M (Mtvec) + end) >>= fun tvec : Mtvec => + (match (tvec_addr tvec cause) with + | Some epc => returnm epc + | None => (internal_error "Invalid tvec mode") : M (mword 64) + end) + : M (mword 64). -Definition _s360_ (_s361_ : string) -: option string := - - let _s362_ := _s361_ in - if ((string_startswith _s362_ "mscratch")) then - match (string_drop _s362_ (projT1 (string_length "mscratch"))) with | s_ => Some (s_) end - else None. +Definition get_xret_target (p : Privilege) : M (mword 64) := + (match p with + | Machine => ((read_reg mepc_ref) : M (mword 64)) : M (mword 64) + | Supervisor => ((read_reg sepc_ref) : M (mword 64)) : M (mword 64) + | User => ((read_reg uepc_ref) : M (mword 64)) : M (mword 64) + end) + : M (mword 64). -Definition _s356_ (_s357_ : string) -: option string := - - let _s358_ := _s357_ in - if ((string_startswith _s358_ "mcounteren")) then - match (string_drop _s358_ (projT1 (string_length "mcounteren"))) with | s_ => Some (s_) end - else None. +Definition set_xret_target (p : Privilege) (value : mword 64) : M (mword 64) := + (legalize_xepc value) >>= fun target => + (match p with + | Machine => write_reg mepc_ref target : M (unit) + | Supervisor => write_reg sepc_ref target : M (unit) + | User => write_reg uepc_ref target : M (unit) + end) >> + returnm target. -Definition _s352_ (_s353_ : string) -: option string := - - let _s354_ := _s353_ in - if ((string_startswith _s354_ "mtvec")) then - match (string_drop _s354_ (projT1 (string_length "mtvec"))) with | s_ => Some (s_) end - else None. +Definition prepare_xret_target (p : Privilege) : M (mword 64) := + (get_xret_target p) : M (mword 64). -Definition _s348_ (_s349_ : string) -: option string := - - let _s350_ := _s349_ in - if ((string_startswith _s350_ "mie")) then - match (string_drop _s350_ (projT1 (string_length "mie"))) with | s_ => Some (s_) end - else None. +Definition get_mtvec '(tt : unit) : M (mword 64) := + read_reg mtvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s344_ (_s345_ : string) -: option string := - - let _s346_ := _s345_ in - if ((string_startswith _s346_ "mideleg")) then - match (string_drop _s346_ (projT1 (string_length "mideleg"))) with | s_ => Some (s_) end - else None. +Definition get_stvec '(tt : unit) : M (mword 64) := + read_reg stvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s340_ (_s341_ : string) -: option string := - - let _s342_ := _s341_ in - if ((string_startswith _s342_ "medeleg")) then - match (string_drop _s342_ (projT1 (string_length "medeleg"))) with | s_ => Some (s_) end - else None. +Definition get_utvec '(tt : unit) : M (mword 64) := + read_reg utvec_ref >>= fun w__0 : Mtvec => returnm (_get_Mtvec_bits w__0). -Definition _s336_ (_s337_ : string) -: option string := - - let _s338_ := _s337_ in - if ((string_startswith _s338_ "misa")) then - match (string_drop _s338_ (projT1 (string_length "misa"))) with | s_ => Some (s_) end - else None. +Definition set_mtvec (value : mword 64) : M (mword 64) := + read_reg mtvec_ref >>= fun w__0 : Mtvec => + write_reg mtvec_ref (legalize_tvec w__0 value) >> + read_reg mtvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). -Definition _s332_ (_s333_ : string) -: option string := - - let _s334_ := _s333_ in - if ((string_startswith _s334_ "mstatus")) then - match (string_drop _s334_ (projT1 (string_length "mstatus"))) with | s_ => Some (s_) end - else None. +Definition set_stvec (value : mword 64) : M (mword 64) := + read_reg stvec_ref >>= fun w__0 : Mtvec => + write_reg stvec_ref (legalize_tvec w__0 value) >> + read_reg stvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). -Definition _s328_ (_s329_ : string) -: option string := - - let _s330_ := _s329_ in - if ((string_startswith _s330_ "mhartid")) then - match (string_drop _s330_ (projT1 (string_length "mhartid"))) with | s_ => Some (s_) end - else None. +Definition set_utvec (value : mword 64) : M (mword 64) := + read_reg utvec_ref >>= fun w__0 : Mtvec => + write_reg utvec_ref (legalize_tvec w__0 value) >> + read_reg utvec_ref >>= fun w__1 : Mtvec => returnm (_get_Mtvec_bits w__1). + +Definition update_softfloat_fflags (flags : mword 5) : M (unit) := + write_reg float_fflags_ref (zero_extend flags 64) : M (unit). + +Axiom extern_f32Add : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Add (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Add rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Sub : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Sub (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Sub rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Mul : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Mul (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Mul rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Div : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Div (rm : mword 3) (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Div rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Add : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Add (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Add rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Sub : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Sub (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Sub rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Mul : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Mul (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Mul rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Div : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Div (rm : mword 3) (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Div rm v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32MulAdd : forall (_ : mword 3) (_ : mword 32) (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32MulAdd (rm : mword 3) (v1 : mword 32) (v2 : mword 32) (v3 : mword 32) +: M ((mword 5 * mword 32)) := + let '_ := (extern_f32MulAdd rm v1 v2 v3) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64MulAdd : forall (_ : mword 3) (_ : mword 64) (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64MulAdd (rm : mword 3) (v1 : mword 64) (v2 : mword 64) (v3 : mword 64) +: M ((mword 5 * mword 64)) := + let '_ := (extern_f64MulAdd rm v1 v2 v3) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32Sqrt : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32Sqrt (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Sqrt rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Sqrt : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64Sqrt (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Sqrt rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToI32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToI32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32ToI32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32ToUi32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToUi32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32ToUi32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_i32ToF32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_i32ToF32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_i32ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_ui32ToF32 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_ui32ToF32 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_ui32ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32ToI64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToI64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToI64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToUi64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToUi64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToUi64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_i64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_i64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_i64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_ui64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_ui64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_ui64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64ToI32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToI32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToI32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64ToUi32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToUi32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToUi32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_i32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_i32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_i32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_ui32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_ui32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_ui32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToI64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToI64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64ToI64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToUi64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToUi64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64ToUi64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_i64ToF64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_i64ToF64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_i64ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_ui64ToF64 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_ui64ToF64 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_ui64ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f32ToF64 : forall (_ : mword 3) (_ : mword 32) , unit. + +Definition riscv_f32ToF64 (rm : mword 3) (v : mword 32) : M ((mword 5 * mword 64)) := + let '_ := (extern_f32ToF64 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64ToF32 : forall (_ : mword 3) (_ : mword 64) , unit. + +Definition riscv_f64ToF32 (rm : mword 3) (v : mword 64) : M ((mword 5 * mword 32)) := + let '_ := (extern_f64ToF32 rm v) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Lt : forall (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Lt (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Lt v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Le : forall (_ : mword 32) (_ : mword 32) , unit. + +Definition riscv_f32Le (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Le v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f32Eq : forall (_ : mword 32) (_ : mword 32) , unit. -Definition _s324_ (_s325_ : string) -: option string := - +Definition riscv_f32Eq (v1 : mword 32) (v2 : mword 32) : M ((mword 5 * mword 32)) := + let '_ := (extern_f32Eq v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, subrange_vec_dec w__1 31 0). + +Axiom extern_f64Lt : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Lt (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Lt v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Le : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Le (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Le v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Axiom extern_f64Eq : forall (_ : mword 64) (_ : mword 64) , unit. + +Definition riscv_f64Eq (v1 : mword 64) (v2 : mword 64) : M ((mword 5 * mword 64)) := + let '_ := (extern_f64Eq v1 v2) : unit in + ((read_reg float_fflags_ref) : M (mword 64)) >>= fun w__0 : mword 64 => + ((read_reg float_result_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + returnm (subrange_vec_dec w__0 4 0, w__1). + +Definition dirty_fd_context '(tt : unit) : M (unit) := + (_set_Mstatus_FS mstatus_ref (extStatus_to_bits Dirty)) >> + (_set_Mstatus_SD mstatus_ref ('b"1" : mword 1)) + : M (unit). + +Definition rF (r : Z) `{ArithFact ((0 <=? r) && (r <? 32))} : M (mword 64) := + let l__42 := r in + (if sumbool_of_bool (Z.eqb l__42 0) then ((read_reg f0_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 1) then ((read_reg f1_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 2) then ((read_reg f2_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 3) then ((read_reg f3_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 4) then ((read_reg f4_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 5) then ((read_reg f5_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 6) then ((read_reg f6_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 7) then ((read_reg f7_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 8) then ((read_reg f8_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 9) then ((read_reg f9_ref) : M (mword 64)) : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 10) then + ((read_reg f10_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 11) then + ((read_reg f11_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 12) then + ((read_reg f12_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 13) then + ((read_reg f13_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 14) then + ((read_reg f14_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 15) then + ((read_reg f15_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 16) then + ((read_reg f16_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 17) then + ((read_reg f17_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 18) then + ((read_reg f18_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 19) then + ((read_reg f19_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 20) then + ((read_reg f20_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 21) then + ((read_reg f21_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 22) then + ((read_reg f22_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 23) then + ((read_reg f23_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 24) then + ((read_reg f24_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 25) then + ((read_reg f25_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 26) then + ((read_reg f26_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 27) then + ((read_reg f27_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 28) then + ((read_reg f28_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 29) then + ((read_reg f29_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 30) then + ((read_reg f30_ref) : M (mword 64)) + : M (mword 64) + else if sumbool_of_bool (Z.eqb l__42 31) then + ((read_reg f31_ref) : M (mword 64)) + : M (mword 64) + else assert_exp' false "invalid floating point register number" >>= fun _ => exit tt) >>= fun v : fregtype => + returnm (fregval_from_freg v). + +Definition wF (r : Z) (in_v : mword 64) `{ArithFact ((0 <=? r) && (r <? 32))} : M (unit) := + let v := fregval_into_freg in_v in + let l__10 := r in + (if sumbool_of_bool (Z.eqb l__10 0) then write_reg f0_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 1) then write_reg f1_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 2) then write_reg f2_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 3) then write_reg f3_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 4) then write_reg f4_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 5) then write_reg f5_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 6) then write_reg f6_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 7) then write_reg f7_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 8) then write_reg f8_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 9) then write_reg f9_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 10) then write_reg f10_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 11) then write_reg f11_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 12) then write_reg f12_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 13) then write_reg f13_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 14) then write_reg f14_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 15) then write_reg f15_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 16) then write_reg f16_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 17) then write_reg f17_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 18) then write_reg f18_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 19) then write_reg f19_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 20) then write_reg f20_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 21) then write_reg f21_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 22) then write_reg f22_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 23) then write_reg f23_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 24) then write_reg f24_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 25) then write_reg f25_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 26) then write_reg f26_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 27) then write_reg f27_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 28) then write_reg f28_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 29) then write_reg f29_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 30) then write_reg f30_ref v : M (unit) + else if sumbool_of_bool (Z.eqb l__10 31) then write_reg f31_ref v : M (unit) + else assert_exp' false "invalid floating point register number" >>= fun _ => exit tt) >> + (dirty_fd_context tt) >> + returnm (if get_config_print_reg tt then + print_endline + (String.append "f" + (String.append (string_of_int r) (String.append " <- " (FRegStr v)))) + else tt). + +Definition rF_bits (i : mword 5) : M (mword 64) := (rF (projT1 (uint i))) : M (mword 64). + +Definition wF_bits (i : mword 5) (data : mword 64) : M (unit) := + (wF (projT1 (uint i)) data) : M (unit). + +Definition freg_name_abi_forwards (arg_ : mword 5) : M (string) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "ft0" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ft1" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "ft2" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "ft3" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "ft4" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "ft5" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "ft6" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "ft7" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fs0" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "fs1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "fa0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "fa1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "fa2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "fa3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "fa4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "fa5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "fa6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "fa7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "fs2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "fs3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "fs4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "fs5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "fs6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "fs7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "fs8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "fs9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "fs10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "fs11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "ft8" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "ft9" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "ft10" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "ft11" + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string). + +Definition freg_name_abi_backwards (arg_ : string) : M (mword 5) := + let p0_ := arg_ in + (if generic_eq p0_ "ft0" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ft1" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "ft2" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "ft3" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "ft4" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "ft5" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "ft6" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "ft7" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fs0" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "fs1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "fa0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "fa1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "fa2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "fa3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "fa4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "fa5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "fa6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "fa7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "fs2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "fs3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "fs4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "fs5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "fs6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "fs7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "fs8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "fs9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "fs10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "fs11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "ft8" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "ft9" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "ft10" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "ft11" then returnm ('b"11111" : mword 5) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 5). + +Definition freg_name_abi_forwards_matches (arg_ : mword 5) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true + else false. + +Definition freg_name_abi_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "ft0" then true + else if generic_eq p0_ "ft1" then true + else if generic_eq p0_ "ft2" then true + else if generic_eq p0_ "ft3" then true + else if generic_eq p0_ "ft4" then true + else if generic_eq p0_ "ft5" then true + else if generic_eq p0_ "ft6" then true + else if generic_eq p0_ "ft7" then true + else if generic_eq p0_ "fs0" then true + else if generic_eq p0_ "fs1" then true + else if generic_eq p0_ "fa0" then true + else if generic_eq p0_ "fa1" then true + else if generic_eq p0_ "fa2" then true + else if generic_eq p0_ "fa3" then true + else if generic_eq p0_ "fa4" then true + else if generic_eq p0_ "fa5" then true + else if generic_eq p0_ "fa6" then true + else if generic_eq p0_ "fa7" then true + else if generic_eq p0_ "fs2" then true + else if generic_eq p0_ "fs3" then true + else if generic_eq p0_ "fs4" then true + else if generic_eq p0_ "fs5" then true + else if generic_eq p0_ "fs6" then true + else if generic_eq p0_ "fs7" then true + else if generic_eq p0_ "fs8" then true + else if generic_eq p0_ "fs9" then true + else if generic_eq p0_ "fs10" then true + else if generic_eq p0_ "fs11" then true + else if generic_eq p0_ "ft8" then true + else if generic_eq p0_ "ft9" then true + else if generic_eq p0_ "ft10" then true + else if generic_eq p0_ "ft11" then true + else false. + +Definition _s324_ (_s325_ : string) : option string := let _s326_ := _s325_ in - if ((string_startswith _s326_ "mimpid")) then - match (string_drop _s326_ (projT1 (string_length "mimpid"))) with | s_ => Some (s_) end + if string_startswith _s326_ "ft11" then + match (string_drop _s326_ (projT1 (string_length "ft11"))) with | s_ => Some s_ end else None. -Definition _s320_ (_s321_ : string) -: option string := - +Definition _s320_ (_s321_ : string) : option string := let _s322_ := _s321_ in - if ((string_startswith _s322_ "marchid")) then - match (string_drop _s322_ (projT1 (string_length "marchid"))) with | s_ => Some (s_) end + if string_startswith _s322_ "ft10" then + match (string_drop _s322_ (projT1 (string_length "ft10"))) with | s_ => Some s_ end else None. -Definition _s316_ (_s317_ : string) -: option string := - +Definition _s316_ (_s317_ : string) : option string := let _s318_ := _s317_ in - if ((string_startswith _s318_ "mvendorid")) then - match (string_drop _s318_ (projT1 (string_length "mvendorid"))) with | s_ => Some (s_) end + if string_startswith _s318_ "ft9" then + match (string_drop _s318_ (projT1 (string_length "ft9"))) with | s_ => Some s_ end else None. -Definition _s312_ (_s313_ : string) -: option string := - +Definition _s312_ (_s313_ : string) : option string := let _s314_ := _s313_ in - if ((string_startswith _s314_ "satp")) then - match (string_drop _s314_ (projT1 (string_length "satp"))) with | s_ => Some (s_) end + if string_startswith _s314_ "ft8" then + match (string_drop _s314_ (projT1 (string_length "ft8"))) with | s_ => Some s_ end else None. -Definition _s308_ (_s309_ : string) -: option string := - +Definition _s308_ (_s309_ : string) : option string := let _s310_ := _s309_ in - if ((string_startswith _s310_ "sip")) then - match (string_drop _s310_ (projT1 (string_length "sip"))) with | s_ => Some (s_) end + if string_startswith _s310_ "fs11" then + match (string_drop _s310_ (projT1 (string_length "fs11"))) with | s_ => Some s_ end else None. -Definition _s304_ (_s305_ : string) -: option string := - +Definition _s304_ (_s305_ : string) : option string := let _s306_ := _s305_ in - if ((string_startswith _s306_ "stval")) then - match (string_drop _s306_ (projT1 (string_length "stval"))) with | s_ => Some (s_) end + if string_startswith _s306_ "fs10" then + match (string_drop _s306_ (projT1 (string_length "fs10"))) with | s_ => Some s_ end else None. -Definition _s300_ (_s301_ : string) -: option string := - +Definition _s300_ (_s301_ : string) : option string := let _s302_ := _s301_ in - if ((string_startswith _s302_ "scause")) then - match (string_drop _s302_ (projT1 (string_length "scause"))) with | s_ => Some (s_) end + if string_startswith _s302_ "fs9" then + match (string_drop _s302_ (projT1 (string_length "fs9"))) with | s_ => Some s_ end else None. -Definition _s296_ (_s297_ : string) -: option string := - +Definition _s296_ (_s297_ : string) : option string := let _s298_ := _s297_ in - if ((string_startswith _s298_ "sepc")) then - match (string_drop _s298_ (projT1 (string_length "sepc"))) with | s_ => Some (s_) end + if string_startswith _s298_ "fs8" then + match (string_drop _s298_ (projT1 (string_length "fs8"))) with | s_ => Some s_ end else None. -Definition _s292_ (_s293_ : string) -: option string := - +Definition _s292_ (_s293_ : string) : option string := let _s294_ := _s293_ in - if ((string_startswith _s294_ "sscratch")) then - match (string_drop _s294_ (projT1 (string_length "sscratch"))) with | s_ => Some (s_) end + if string_startswith _s294_ "fs7" then + match (string_drop _s294_ (projT1 (string_length "fs7"))) with | s_ => Some s_ end else None. -Definition _s288_ (_s289_ : string) -: option string := - +Definition _s288_ (_s289_ : string) : option string := let _s290_ := _s289_ in - if ((string_startswith _s290_ "scounteren")) then - match (string_drop _s290_ (projT1 (string_length "scounteren"))) with | s_ => Some (s_) end + if string_startswith _s290_ "fs6" then + match (string_drop _s290_ (projT1 (string_length "fs6"))) with | s_ => Some s_ end else None. -Definition _s284_ (_s285_ : string) -: option string := - +Definition _s284_ (_s285_ : string) : option string := let _s286_ := _s285_ in - if ((string_startswith _s286_ "stvec")) then - match (string_drop _s286_ (projT1 (string_length "stvec"))) with | s_ => Some (s_) end + if string_startswith _s286_ "fs5" then + match (string_drop _s286_ (projT1 (string_length "fs5"))) with | s_ => Some s_ end else None. -Definition _s280_ (_s281_ : string) -: option string := - +Definition _s280_ (_s281_ : string) : option string := let _s282_ := _s281_ in - if ((string_startswith _s282_ "sie")) then - match (string_drop _s282_ (projT1 (string_length "sie"))) with | s_ => Some (s_) end + if string_startswith _s282_ "fs4" then + match (string_drop _s282_ (projT1 (string_length "fs4"))) with | s_ => Some s_ end else None. -Definition _s276_ (_s277_ : string) -: option string := - +Definition _s276_ (_s277_ : string) : option string := let _s278_ := _s277_ in - if ((string_startswith _s278_ "sideleg")) then - match (string_drop _s278_ (projT1 (string_length "sideleg"))) with | s_ => Some (s_) end + if string_startswith _s278_ "fs3" then + match (string_drop _s278_ (projT1 (string_length "fs3"))) with | s_ => Some s_ end else None. -Definition _s272_ (_s273_ : string) -: option string := - +Definition _s272_ (_s273_ : string) : option string := let _s274_ := _s273_ in - if ((string_startswith _s274_ "sedeleg")) then - match (string_drop _s274_ (projT1 (string_length "sedeleg"))) with | s_ => Some (s_) end + if string_startswith _s274_ "fs2" then + match (string_drop _s274_ (projT1 (string_length "fs2"))) with | s_ => Some s_ end else None. -Definition _s268_ (_s269_ : string) -: option string := - +Definition _s268_ (_s269_ : string) : option string := let _s270_ := _s269_ in - if ((string_startswith _s270_ "sstatus")) then - match (string_drop _s270_ (projT1 (string_length "sstatus"))) with | s_ => Some (s_) end + if string_startswith _s270_ "fa7" then + match (string_drop _s270_ (projT1 (string_length "fa7"))) with | s_ => Some s_ end else None. -Definition _s264_ (_s265_ : string) -: option string := - +Definition _s264_ (_s265_ : string) : option string := let _s266_ := _s265_ in - if ((string_startswith _s266_ "instreth")) then - match (string_drop _s266_ (projT1 (string_length "instreth"))) with | s_ => Some (s_) end + if string_startswith _s266_ "fa6" then + match (string_drop _s266_ (projT1 (string_length "fa6"))) with | s_ => Some s_ end else None. -Definition _s260_ (_s261_ : string) -: option string := - +Definition _s260_ (_s261_ : string) : option string := let _s262_ := _s261_ in - if ((string_startswith _s262_ "timeh")) then - match (string_drop _s262_ (projT1 (string_length "timeh"))) with | s_ => Some (s_) end + if string_startswith _s262_ "fa5" then + match (string_drop _s262_ (projT1 (string_length "fa5"))) with | s_ => Some s_ end else None. -Definition _s256_ (_s257_ : string) -: option string := - +Definition _s256_ (_s257_ : string) : option string := let _s258_ := _s257_ in - if ((string_startswith _s258_ "cycleh")) then - match (string_drop _s258_ (projT1 (string_length "cycleh"))) with | s_ => Some (s_) end + if string_startswith _s258_ "fa4" then + match (string_drop _s258_ (projT1 (string_length "fa4"))) with | s_ => Some s_ end else None. -Definition _s252_ (_s253_ : string) -: option string := - +Definition _s252_ (_s253_ : string) : option string := let _s254_ := _s253_ in - if ((string_startswith _s254_ "instret")) then - match (string_drop _s254_ (projT1 (string_length "instret"))) with | s_ => Some (s_) end + if string_startswith _s254_ "fa3" then + match (string_drop _s254_ (projT1 (string_length "fa3"))) with | s_ => Some s_ end else None. -Definition _s248_ (_s249_ : string) -: option string := - +Definition _s248_ (_s249_ : string) : option string := let _s250_ := _s249_ in - if ((string_startswith _s250_ "time")) then - match (string_drop _s250_ (projT1 (string_length "time"))) with | s_ => Some (s_) end + if string_startswith _s250_ "fa2" then + match (string_drop _s250_ (projT1 (string_length "fa2"))) with | s_ => Some s_ end else None. -Definition _s244_ (_s245_ : string) -: option string := - +Definition _s244_ (_s245_ : string) : option string := let _s246_ := _s245_ in - if ((string_startswith _s246_ "cycle")) then - match (string_drop _s246_ (projT1 (string_length "cycle"))) with | s_ => Some (s_) end + if string_startswith _s246_ "fa1" then + match (string_drop _s246_ (projT1 (string_length "fa1"))) with | s_ => Some s_ end else None. -Definition _s240_ (_s241_ : string) -: option string := - +Definition _s240_ (_s241_ : string) : option string := let _s242_ := _s241_ in - if ((string_startswith _s242_ "fcsr")) then - match (string_drop _s242_ (projT1 (string_length "fcsr"))) with | s_ => Some (s_) end + if string_startswith _s242_ "fa0" then + match (string_drop _s242_ (projT1 (string_length "fa0"))) with | s_ => Some s_ end else None. -Definition _s236_ (_s237_ : string) -: option string := - +Definition _s236_ (_s237_ : string) : option string := let _s238_ := _s237_ in - if ((string_startswith _s238_ "frm")) then - match (string_drop _s238_ (projT1 (string_length "frm"))) with | s_ => Some (s_) end + if string_startswith _s238_ "fs1" then + match (string_drop _s238_ (projT1 (string_length "fs1"))) with | s_ => Some s_ end else None. -Definition _s232_ (_s233_ : string) -: option string := - +Definition _s232_ (_s233_ : string) : option string := let _s234_ := _s233_ in - if ((string_startswith _s234_ "fflags")) then - match (string_drop _s234_ (projT1 (string_length "fflags"))) with | s_ => Some (s_) end + if string_startswith _s234_ "fs0" then + match (string_drop _s234_ (projT1 (string_length "fs0"))) with | s_ => Some s_ end else None. -Definition _s228_ (_s229_ : string) -: option string := - +Definition _s228_ (_s229_ : string) : option string := let _s230_ := _s229_ in - if ((string_startswith _s230_ "uip")) then - match (string_drop _s230_ (projT1 (string_length "uip"))) with | s_ => Some (s_) end + if string_startswith _s230_ "ft7" then + match (string_drop _s230_ (projT1 (string_length "ft7"))) with | s_ => Some s_ end else None. -Definition _s224_ (_s225_ : string) -: option string := - +Definition _s224_ (_s225_ : string) : option string := let _s226_ := _s225_ in - if ((string_startswith _s226_ "utval")) then - match (string_drop _s226_ (projT1 (string_length "utval"))) with | s_ => Some (s_) end + if string_startswith _s226_ "ft6" then + match (string_drop _s226_ (projT1 (string_length "ft6"))) with | s_ => Some s_ end else None. -Definition _s220_ (_s221_ : string) -: option string := - +Definition _s220_ (_s221_ : string) : option string := let _s222_ := _s221_ in - if ((string_startswith _s222_ "ucause")) then - match (string_drop _s222_ (projT1 (string_length "ucause"))) with | s_ => Some (s_) end + if string_startswith _s222_ "ft5" then + match (string_drop _s222_ (projT1 (string_length "ft5"))) with | s_ => Some s_ end else None. -Definition _s216_ (_s217_ : string) -: option string := - +Definition _s216_ (_s217_ : string) : option string := let _s218_ := _s217_ in - if ((string_startswith _s218_ "uepc")) then - match (string_drop _s218_ (projT1 (string_length "uepc"))) with | s_ => Some (s_) end + if string_startswith _s218_ "ft4" then + match (string_drop _s218_ (projT1 (string_length "ft4"))) with | s_ => Some s_ end else None. -Definition _s212_ (_s213_ : string) -: option string := - +Definition _s212_ (_s213_ : string) : option string := let _s214_ := _s213_ in - if ((string_startswith _s214_ "uscratch")) then - match (string_drop _s214_ (projT1 (string_length "uscratch"))) with | s_ => Some (s_) end + if string_startswith _s214_ "ft3" then + match (string_drop _s214_ (projT1 (string_length "ft3"))) with | s_ => Some s_ end else None. -Definition _s208_ (_s209_ : string) -: option string := - +Definition _s208_ (_s209_ : string) : option string := let _s210_ := _s209_ in - if ((string_startswith _s210_ "utvec")) then - match (string_drop _s210_ (projT1 (string_length "utvec"))) with | s_ => Some (s_) end + if string_startswith _s210_ "ft2" then + match (string_drop _s210_ (projT1 (string_length "ft2"))) with | s_ => Some s_ end else None. -Definition _s204_ (_s205_ : string) -: option string := - +Definition _s204_ (_s205_ : string) : option string := let _s206_ := _s205_ in - if ((string_startswith _s206_ "uie")) then - match (string_drop _s206_ (projT1 (string_length "uie"))) with | s_ => Some (s_) end + if string_startswith _s206_ "ft1" then + match (string_drop _s206_ (projT1 (string_length "ft1"))) with | s_ => Some s_ end else None. -Definition _s200_ (_s201_ : string) -: option string := - +Definition _s200_ (_s201_ : string) : option string := let _s202_ := _s201_ in - if ((string_startswith _s202_ "ustatus")) then - match (string_drop _s202_ (projT1 (string_length "ustatus"))) with | s_ => Some (s_) end + if string_startswith _s202_ "ft0" then + match (string_drop _s202_ (projT1 (string_length "ft0"))) with | s_ => Some s_ end else None. -Definition csr_name_map_matches_prefix (arg_ : string) -: M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) := - +Definition freg_name_abi_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := let _s203_ := arg_ in - (if ((match (_s200_ _s203_) with | Some (s_) => true | _ => false end)) then + (if match (_s200_ _s203_) with | Some s_ => true | _ => false end then (match (_s200_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s204_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s204_ _s203_) with | Some s_ => true | _ => false end then (match (_s204_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s208_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s208_ _s203_) with | Some s_ => true | _ => false end then (match (_s208_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s212_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s212_ _s203_) with | Some s_ => true | _ => false end then (match (_s212_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s216_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s216_ _s203_) with | Some s_ => true | _ => false end then (match (_s216_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s220_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s220_ _s203_) with | Some s_ => true | _ => false end then (match (_s220_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s224_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s224_ _s203_) with | Some s_ => true | _ => false end then (match (_s224_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s228_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s228_ _s203_) with | Some s_ => true | _ => false end then (match (_s228_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s232_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s232_ _s203_) with | Some s_ => true | _ => false end then (match (_s232_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s236_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s236_ _s203_) with | Some s_ => true | _ => false end then (match (_s236_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s240_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s240_ _s203_) with | Some s_ => true | _ => false end then (match (_s240_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s244_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s244_ _s203_) with | Some s_ => true | _ => false end then (match (_s244_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s248_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s248_ _s203_) with | Some s_ => true | _ => false end then (match (_s248_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s252_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s252_ _s203_) with | Some s_ => true | _ => false end then (match (_s252_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s256_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s256_ _s203_) with | Some s_ => true | _ => false end then (match (_s256_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s260_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s260_ _s203_) with | Some s_ => true | _ => false end then (match (_s260_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s264_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s264_ _s203_) with | Some s_ => true | _ => false end then (match (_s264_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s268_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s268_ _s203_) with | Some s_ => true | _ => false end then (match (_s268_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s272_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s272_ _s203_) with | Some s_ => true | _ => false end then (match (_s272_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s276_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s276_ _s203_) with | Some s_ => true | _ => false end then (match (_s276_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s280_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s280_ _s203_) with | Some s_ => true | _ => false end then (match (_s280_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s284_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s284_ _s203_) with | Some s_ => true | _ => false end then (match (_s284_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s288_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s288_ _s203_) with | Some s_ => true | _ => false end then (match (_s288_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s292_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s292_ _s203_) with | Some s_ => true | _ => false end then (match (_s292_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s296_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s296_ _s203_) with | Some s_ => true | _ => false end then (match (_s296_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s300_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s300_ _s203_) with | Some s_ => true | _ => false end then (match (_s300_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s304_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s304_ _s203_) with | Some s_ => true | _ => false end then (match (_s304_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s308_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s308_ _s203_) with | Some s_ => true | _ => false end then (match (_s308_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s312_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s312_ _s203_) with | Some s_ => true | _ => false end then (match (_s312_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s316_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s316_ _s203_) with | Some s_ => true | _ => false end then (match (_s316_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s320_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s320_ _s203_) with | Some s_ => true | _ => false end then (match (_s320_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s324_ _s203_) with | Some (s_) => true | _ => false end)) then + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s324_ _s203_) with | Some s_ => true | _ => false end then (match (_s324_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s328_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s328_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s332_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s332_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s336_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s336_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s340_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s340_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s344_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s344_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s348_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s348_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s352_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s352_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s356_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s356_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s360_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s360_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s364_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s364_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s368_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s368_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s372_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s372_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s376_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s376_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s380_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s380_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s384_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s384_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s388_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s388_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s392_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s392_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s396_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s396_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s400_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s400_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s404_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s404_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s408_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s408_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s412_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s412_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s416_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s416_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s420_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s420_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s424_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s424_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s428_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s428_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s432_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s432_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s436_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s436_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s440_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s440_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s444_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s444_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s448_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s448_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s452_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s452_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s456_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s456_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s460_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s460_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s464_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s464_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s468_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s468_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s472_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s472_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s476_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s476_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s480_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s480_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s484_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s484_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s488_ _s203_) with | Some (s_) => true | _ => false end)) then - (match (_s488_ _s203_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 12 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 12 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). -Definition Mk_Ustatus (v : mword 64) -: Ustatus := - - {| Ustatus_Ustatus_chunk_0 := (subrange_vec_dec v 63 0) |}. +Definition freg_name_forwards (arg_ : mword 5) : M (string) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"00000" : mword 5) then returnm "ft0" + else if eq_vec b__0 ('b"00001" : mword 5) then returnm "ft1" + else if eq_vec b__0 ('b"00010" : mword 5) then returnm "ft2" + else if eq_vec b__0 ('b"00011" : mword 5) then returnm "ft3" + else if eq_vec b__0 ('b"00100" : mword 5) then returnm "ft4" + else if eq_vec b__0 ('b"00101" : mword 5) then returnm "ft5" + else if eq_vec b__0 ('b"00110" : mword 5) then returnm "ft6" + else if eq_vec b__0 ('b"00111" : mword 5) then returnm "ft7" + else if eq_vec b__0 ('b"01000" : mword 5) then returnm "fs0" + else if eq_vec b__0 ('b"01001" : mword 5) then returnm "fs1" + else if eq_vec b__0 ('b"01010" : mword 5) then returnm "fa0" + else if eq_vec b__0 ('b"01011" : mword 5) then returnm "fa1" + else if eq_vec b__0 ('b"01100" : mword 5) then returnm "fa2" + else if eq_vec b__0 ('b"01101" : mword 5) then returnm "fa3" + else if eq_vec b__0 ('b"01110" : mword 5) then returnm "fa4" + else if eq_vec b__0 ('b"01111" : mword 5) then returnm "fa5" + else if eq_vec b__0 ('b"10000" : mword 5) then returnm "fa6" + else if eq_vec b__0 ('b"10001" : mword 5) then returnm "fa7" + else if eq_vec b__0 ('b"10010" : mword 5) then returnm "fs2" + else if eq_vec b__0 ('b"10011" : mword 5) then returnm "fs3" + else if eq_vec b__0 ('b"10100" : mword 5) then returnm "fs4" + else if eq_vec b__0 ('b"10101" : mword 5) then returnm "fs5" + else if eq_vec b__0 ('b"10110" : mword 5) then returnm "fs6" + else if eq_vec b__0 ('b"10111" : mword 5) then returnm "fs7" + else if eq_vec b__0 ('b"11000" : mword 5) then returnm "fs8" + else if eq_vec b__0 ('b"11001" : mword 5) then returnm "fs9" + else if eq_vec b__0 ('b"11010" : mword 5) then returnm "fs10" + else if eq_vec b__0 ('b"11011" : mword 5) then returnm "fs11" + else if eq_vec b__0 ('b"11100" : mword 5) then returnm "ft8" + else if eq_vec b__0 ('b"11101" : mword 5) then returnm "ft9" + else if eq_vec b__0 ('b"11110" : mword 5) then returnm "ft10" + else if eq_vec b__0 ('b"11111" : mword 5) then returnm "ft11" + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string). -Definition _get_Ustatus_bits (v : Ustatus) -: mword 64 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 63 0. +Definition freg_name_backwards (arg_ : string) : M (mword 5) := + let p0_ := arg_ in + (if generic_eq p0_ "ft0" then returnm ('b"00000" : mword 5) + else if generic_eq p0_ "ft1" then returnm ('b"00001" : mword 5) + else if generic_eq p0_ "ft2" then returnm ('b"00010" : mword 5) + else if generic_eq p0_ "ft3" then returnm ('b"00011" : mword 5) + else if generic_eq p0_ "ft4" then returnm ('b"00100" : mword 5) + else if generic_eq p0_ "ft5" then returnm ('b"00101" : mword 5) + else if generic_eq p0_ "ft6" then returnm ('b"00110" : mword 5) + else if generic_eq p0_ "ft7" then returnm ('b"00111" : mword 5) + else if generic_eq p0_ "fs0" then returnm ('b"01000" : mword 5) + else if generic_eq p0_ "fs1" then returnm ('b"01001" : mword 5) + else if generic_eq p0_ "fa0" then returnm ('b"01010" : mword 5) + else if generic_eq p0_ "fa1" then returnm ('b"01011" : mword 5) + else if generic_eq p0_ "fa2" then returnm ('b"01100" : mword 5) + else if generic_eq p0_ "fa3" then returnm ('b"01101" : mword 5) + else if generic_eq p0_ "fa4" then returnm ('b"01110" : mword 5) + else if generic_eq p0_ "fa5" then returnm ('b"01111" : mword 5) + else if generic_eq p0_ "fa6" then returnm ('b"10000" : mword 5) + else if generic_eq p0_ "fa7" then returnm ('b"10001" : mword 5) + else if generic_eq p0_ "fs2" then returnm ('b"10010" : mword 5) + else if generic_eq p0_ "fs3" then returnm ('b"10011" : mword 5) + else if generic_eq p0_ "fs4" then returnm ('b"10100" : mword 5) + else if generic_eq p0_ "fs5" then returnm ('b"10101" : mword 5) + else if generic_eq p0_ "fs6" then returnm ('b"10110" : mword 5) + else if generic_eq p0_ "fs7" then returnm ('b"10111" : mword 5) + else if generic_eq p0_ "fs8" then returnm ('b"11000" : mword 5) + else if generic_eq p0_ "fs9" then returnm ('b"11001" : mword 5) + else if generic_eq p0_ "fs10" then returnm ('b"11010" : mword 5) + else if generic_eq p0_ "fs11" then returnm ('b"11011" : mword 5) + else if generic_eq p0_ "ft8" then returnm ('b"11100" : mword 5) + else if generic_eq p0_ "ft9" then returnm ('b"11101" : mword 5) + else if generic_eq p0_ "ft10" then returnm ('b"11110" : mword 5) + else if generic_eq p0_ "ft11" then returnm ('b"11111" : mword 5) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 5). -Definition _set_Ustatus_bits (r_ref : register_ref regstate register_value Ustatus) (v : mword 64) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 63 0 (subrange_vec_dec v 63 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition freg_name_forwards_matches (arg_ : mword 5) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00010" : mword 5) then true + else if eq_vec b__0 ('b"00011" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"00101" : mword 5) then true + else if eq_vec b__0 ('b"00110" : mword 5) then true + else if eq_vec b__0 ('b"00111" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"01001" : mword 5) then true + else if eq_vec b__0 ('b"01010" : mword 5) then true + else if eq_vec b__0 ('b"01011" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01101" : mword 5) then true + else if eq_vec b__0 ('b"01110" : mword 5) then true + else if eq_vec b__0 ('b"01111" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10001" : mword 5) then true + else if eq_vec b__0 ('b"10010" : mword 5) then true + else if eq_vec b__0 ('b"10011" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"10101" : mword 5) then true + else if eq_vec b__0 ('b"10110" : mword 5) then true + else if eq_vec b__0 ('b"10111" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11001" : mword 5) then true + else if eq_vec b__0 ('b"11010" : mword 5) then true + else if eq_vec b__0 ('b"11011" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true + else if eq_vec b__0 ('b"11101" : mword 5) then true + else if eq_vec b__0 ('b"11110" : mword 5) then true + else if eq_vec b__0 ('b"11111" : mword 5) then true + else false. -Definition _update_Ustatus_bits (v : Ustatus) (x : mword 64) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. +Definition freg_name_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "ft0" then true + else if generic_eq p0_ "ft1" then true + else if generic_eq p0_ "ft2" then true + else if generic_eq p0_ "ft3" then true + else if generic_eq p0_ "ft4" then true + else if generic_eq p0_ "ft5" then true + else if generic_eq p0_ "ft6" then true + else if generic_eq p0_ "ft7" then true + else if generic_eq p0_ "fs0" then true + else if generic_eq p0_ "fs1" then true + else if generic_eq p0_ "fa0" then true + else if generic_eq p0_ "fa1" then true + else if generic_eq p0_ "fa2" then true + else if generic_eq p0_ "fa3" then true + else if generic_eq p0_ "fa4" then true + else if generic_eq p0_ "fa5" then true + else if generic_eq p0_ "fa6" then true + else if generic_eq p0_ "fa7" then true + else if generic_eq p0_ "fs2" then true + else if generic_eq p0_ "fs3" then true + else if generic_eq p0_ "fs4" then true + else if generic_eq p0_ "fs5" then true + else if generic_eq p0_ "fs6" then true + else if generic_eq p0_ "fs7" then true + else if generic_eq p0_ "fs8" then true + else if generic_eq p0_ "fs9" then true + else if generic_eq p0_ "fs10" then true + else if generic_eq p0_ "fs11" then true + else if generic_eq p0_ "ft8" then true + else if generic_eq p0_ "ft9" then true + else if generic_eq p0_ "ft10" then true + else if generic_eq p0_ "ft11" then true + else false. -Definition _get_Ustatus_UPIE (v : Ustatus) -: mword 1 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4. +Definition _s452_ (_s453_ : string) : option string := + let _s454_ := _s453_ in + if string_startswith _s454_ "ft11" then + match (string_drop _s454_ (projT1 (string_length "ft11"))) with | s_ => Some s_ end + else None. -Definition _set_Ustatus_UPIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition _s448_ (_s449_ : string) : option string := + let _s450_ := _s449_ in + if string_startswith _s450_ "ft10" then + match (string_drop _s450_ (projT1 (string_length "ft10"))) with | s_ => Some s_ end + else None. -Definition _update_Ustatus_UPIE (v : Ustatus) (x : mword 1) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. +Definition _s444_ (_s445_ : string) : option string := + let _s446_ := _s445_ in + if string_startswith _s446_ "ft9" then + match (string_drop _s446_ (projT1 (string_length "ft9"))) with | s_ => Some s_ end + else None. -Definition _get_Ustatus_UIE (v : Ustatus) -: mword 1 := - - subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0. +Definition _s440_ (_s441_ : string) : option string := + let _s442_ := _s441_ in + if string_startswith _s442_ "ft8" then + match (string_drop _s442_ (projT1 (string_length "ft8"))) with | s_ => Some s_ end + else None. -Definition _set_Ustatus_UIE (r_ref : register_ref regstate register_value Ustatus) (v : mword 1) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec r.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} - : Ustatus in - write_reg r_ref r - : M (unit). +Definition _s436_ (_s437_ : string) : option string := + let _s438_ := _s437_ in + if string_startswith _s438_ "fs11" then + match (string_drop _s438_ (projT1 (string_length "fs11"))) with | s_ => Some s_ end + else None. -Definition _update_Ustatus_UIE (v : Ustatus) (x : mword 1) -: Ustatus := - - {[ v with - Ustatus_Ustatus_chunk_0 := - (update_subrange_vec_dec v.(Ustatus_Ustatus_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. +Definition _s432_ (_s433_ : string) : option string := + let _s434_ := _s433_ in + if string_startswith _s434_ "fs10" then + match (string_drop _s434_ (projT1 (string_length "fs10"))) with | s_ => Some s_ end + else None. -Definition lower_sstatus (s : Sstatus) -: Ustatus := - - let u := Mk_Ustatus (EXTZ 64 (vec_of_bits [B0] : mword 1)) in - let u := _update_Ustatus_UPIE u (_get_Sstatus_UPIE s) in - _update_Ustatus_UIE u (_get_Sstatus_UIE s). +Definition _s428_ (_s429_ : string) : option string := + let _s430_ := _s429_ in + if string_startswith _s430_ "fs9" then + match (string_drop _s430_ (projT1 (string_length "fs9"))) with | s_ => Some s_ end + else None. -Definition lift_ustatus (s : Sstatus) (u : Ustatus) -: Sstatus := - - let s := _update_Sstatus_UPIE s (_get_Ustatus_UPIE u) in - _update_Sstatus_UIE s (_get_Ustatus_UIE u). +Definition _s424_ (_s425_ : string) : option string := + let _s426_ := _s425_ in + if string_startswith _s426_ "fs8" then + match (string_drop _s426_ (projT1 (string_length "fs8"))) with | s_ => Some s_ end + else None. -Definition legalize_ustatus (m : Mstatus) (v : mword 64) -: M (Mstatus) := - - let u := Mk_Ustatus v in - let s := lower_mstatus m in - let s := lift_ustatus s u in - (lift_sstatus m s) - : M (Mstatus). +Definition _s420_ (_s421_ : string) : option string := + let _s422_ := _s421_ in + if string_startswith _s422_ "fs7" then + match (string_drop _s422_ (projT1 (string_length "fs7"))) with | s_ => Some s_ end + else None. -Definition Mk_Uinterrupts (v : mword 64) -: Uinterrupts := - - {| Uinterrupts_Uinterrupts_chunk_0 := (subrange_vec_dec v 63 0) |}. +Definition _s416_ (_s417_ : string) : option string := + let _s418_ := _s417_ in + if string_startswith _s418_ "fs6" then + match (string_drop _s418_ (projT1 (string_length "fs6"))) with | s_ => Some s_ end + else None. -Definition _get_Uinterrupts_bits (v : Uinterrupts) -: mword 64 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 63 0. +Definition _s412_ (_s413_ : string) : option string := + let _s414_ := _s413_ in + if string_startswith _s414_ "fs5" then + match (string_drop _s414_ (projT1 (string_length "fs5"))) with | s_ => Some s_ end + else None. -Definition _set_Uinterrupts_bits -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 64) -: M (unit) := - - (reg_deref r_ref) >>= fun r => - let r := - {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 63 0 (subrange_vec_dec v 63 0)) ]} - : Uinterrupts in - write_reg r_ref r - : M (unit). +Definition _s408_ (_s409_ : string) : option string := + let _s410_ := _s409_ in + if string_startswith _s410_ "fs4" then + match (string_drop _s410_ (projT1 (string_length "fs4"))) with | s_ => Some s_ end + else None. -Definition _update_Uinterrupts_bits (v : Uinterrupts) (x : mword 64) -: Uinterrupts := - - {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. +Definition _s404_ (_s405_ : string) : option string := + let _s406_ := _s405_ in + if string_startswith _s406_ "fs3" then + match (string_drop _s406_ (projT1 (string_length "fs3"))) with | s_ => Some s_ end + else None. -Definition _get_Uinterrupts_UEI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8. +Definition _s400_ (_s401_ : string) : option string := + let _s402_ := _s401_ in + if string_startswith _s402_ "fs2" then + match (string_drop _s402_ (projT1 (string_length "fs2"))) with | s_ => Some s_ end + else None. -Definition _set_Uinterrupts_UEI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _s396_ (_s397_ : string) : option string := + let _s398_ := _s397_ in + if string_startswith _s398_ "fa7" then + match (string_drop _s398_ (projT1 (string_length "fa7"))) with | s_ => Some s_ end + else None. + +Definition _s392_ (_s393_ : string) : option string := + let _s394_ := _s393_ in + if string_startswith _s394_ "fa6" then + match (string_drop _s394_ (projT1 (string_length "fa6"))) with | s_ => Some s_ end + else None. + +Definition _s388_ (_s389_ : string) : option string := + let _s390_ := _s389_ in + if string_startswith _s390_ "fa5" then + match (string_drop _s390_ (projT1 (string_length "fa5"))) with | s_ => Some s_ end + else None. + +Definition _s384_ (_s385_ : string) : option string := + let _s386_ := _s385_ in + if string_startswith _s386_ "fa4" then + match (string_drop _s386_ (projT1 (string_length "fa4"))) with | s_ => Some s_ end + else None. + +Definition _s380_ (_s381_ : string) : option string := + let _s382_ := _s381_ in + if string_startswith _s382_ "fa3" then + match (string_drop _s382_ (projT1 (string_length "fa3"))) with | s_ => Some s_ end + else None. + +Definition _s376_ (_s377_ : string) : option string := + let _s378_ := _s377_ in + if string_startswith _s378_ "fa2" then + match (string_drop _s378_ (projT1 (string_length "fa2"))) with | s_ => Some s_ end + else None. + +Definition _s372_ (_s373_ : string) : option string := + let _s374_ := _s373_ in + if string_startswith _s374_ "fa1" then + match (string_drop _s374_ (projT1 (string_length "fa1"))) with | s_ => Some s_ end + else None. + +Definition _s368_ (_s369_ : string) : option string := + let _s370_ := _s369_ in + if string_startswith _s370_ "fa0" then + match (string_drop _s370_ (projT1 (string_length "fa0"))) with | s_ => Some s_ end + else None. + +Definition _s364_ (_s365_ : string) : option string := + let _s366_ := _s365_ in + if string_startswith _s366_ "fs1" then + match (string_drop _s366_ (projT1 (string_length "fs1"))) with | s_ => Some s_ end + else None. + +Definition _s360_ (_s361_ : string) : option string := + let _s362_ := _s361_ in + if string_startswith _s362_ "fs0" then + match (string_drop _s362_ (projT1 (string_length "fs0"))) with | s_ => Some s_ end + else None. + +Definition _s356_ (_s357_ : string) : option string := + let _s358_ := _s357_ in + if string_startswith _s358_ "ft7" then + match (string_drop _s358_ (projT1 (string_length "ft7"))) with | s_ => Some s_ end + else None. + +Definition _s352_ (_s353_ : string) : option string := + let _s354_ := _s353_ in + if string_startswith _s354_ "ft6" then + match (string_drop _s354_ (projT1 (string_length "ft6"))) with | s_ => Some s_ end + else None. + +Definition _s348_ (_s349_ : string) : option string := + let _s350_ := _s349_ in + if string_startswith _s350_ "ft5" then + match (string_drop _s350_ (projT1 (string_length "ft5"))) with | s_ => Some s_ end + else None. + +Definition _s344_ (_s345_ : string) : option string := + let _s346_ := _s345_ in + if string_startswith _s346_ "ft4" then + match (string_drop _s346_ (projT1 (string_length "ft4"))) with | s_ => Some s_ end + else None. + +Definition _s340_ (_s341_ : string) : option string := + let _s342_ := _s341_ in + if string_startswith _s342_ "ft3" then + match (string_drop _s342_ (projT1 (string_length "ft3"))) with | s_ => Some s_ end + else None. + +Definition _s336_ (_s337_ : string) : option string := + let _s338_ := _s337_ in + if string_startswith _s338_ "ft2" then + match (string_drop _s338_ (projT1 (string_length "ft2"))) with | s_ => Some s_ end + else None. + +Definition _s332_ (_s333_ : string) : option string := + let _s334_ := _s333_ in + if string_startswith _s334_ "ft1" then + match (string_drop _s334_ (projT1 (string_length "ft1"))) with | s_ => Some s_ end + else None. + +Definition _s328_ (_s329_ : string) : option string := + let _s330_ := _s329_ in + if string_startswith _s330_ "ft0" then + match (string_drop _s330_ (projT1 (string_length "ft0"))) with | s_ => Some s_ end + else None. + +Definition freg_name_matches_prefix (arg_ : string) +: M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) := + let _s331_ := arg_ in + (if match (_s328_ _s331_) with | Some s_ => true | _ => false end then + (match (_s328_ _s331_) with + | Some s_ => + returnm (Some + ('b"00000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s332_ _s331_) with | Some s_ => true | _ => false end then + (match (_s332_ _s331_) with + | Some s_ => + returnm (Some + ('b"00001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s336_ _s331_) with | Some s_ => true | _ => false end then + (match (_s336_ _s331_) with + | Some s_ => + returnm (Some + ('b"00010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s340_ _s331_) with | Some s_ => true | _ => false end then + (match (_s340_ _s331_) with + | Some s_ => + returnm (Some + ('b"00011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s344_ _s331_) with | Some s_ => true | _ => false end then + (match (_s344_ _s331_) with + | Some s_ => + returnm (Some + ('b"00100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s348_ _s331_) with | Some s_ => true | _ => false end then + (match (_s348_ _s331_) with + | Some s_ => + returnm (Some + ('b"00101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s352_ _s331_) with | Some s_ => true | _ => false end then + (match (_s352_ _s331_) with + | Some s_ => + returnm (Some + ('b"00110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s356_ _s331_) with | Some s_ => true | _ => false end then + (match (_s356_ _s331_) with + | Some s_ => + returnm (Some + ('b"00111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s360_ _s331_) with | Some s_ => true | _ => false end then + (match (_s360_ _s331_) with + | Some s_ => + returnm (Some + ('b"01000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s364_ _s331_) with | Some s_ => true | _ => false end then + (match (_s364_ _s331_) with + | Some s_ => + returnm (Some + ('b"01001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s368_ _s331_) with | Some s_ => true | _ => false end then + (match (_s368_ _s331_) with + | Some s_ => + returnm (Some + ('b"01010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s372_ _s331_) with | Some s_ => true | _ => false end then + (match (_s372_ _s331_) with + | Some s_ => + returnm (Some + ('b"01011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s376_ _s331_) with | Some s_ => true | _ => false end then + (match (_s376_ _s331_) with + | Some s_ => + returnm (Some + ('b"01100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s380_ _s331_) with | Some s_ => true | _ => false end then + (match (_s380_ _s331_) with + | Some s_ => + returnm (Some + ('b"01101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s384_ _s331_) with | Some s_ => true | _ => false end then + (match (_s384_ _s331_) with + | Some s_ => + returnm (Some + ('b"01110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s388_ _s331_) with | Some s_ => true | _ => false end then + (match (_s388_ _s331_) with + | Some s_ => + returnm (Some + ('b"01111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s392_ _s331_) with | Some s_ => true | _ => false end then + (match (_s392_ _s331_) with + | Some s_ => + returnm (Some + ('b"10000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s396_ _s331_) with | Some s_ => true | _ => false end then + (match (_s396_ _s331_) with + | Some s_ => + returnm (Some + ('b"10001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s400_ _s331_) with | Some s_ => true | _ => false end then + (match (_s400_ _s331_) with + | Some s_ => + returnm (Some + ('b"10010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s404_ _s331_) with | Some s_ => true | _ => false end then + (match (_s404_ _s331_) with + | Some s_ => + returnm (Some + ('b"10011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s408_ _s331_) with | Some s_ => true | _ => false end then + (match (_s408_ _s331_) with + | Some s_ => + returnm (Some + ('b"10100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s412_ _s331_) with | Some s_ => true | _ => false end then + (match (_s412_ _s331_) with + | Some s_ => + returnm (Some + ('b"10101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s416_ _s331_) with | Some s_ => true | _ => false end then + (match (_s416_ _s331_) with + | Some s_ => + returnm (Some + ('b"10110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s420_ _s331_) with | Some s_ => true | _ => false end then + (match (_s420_ _s331_) with + | Some s_ => + returnm (Some + ('b"10111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s424_ _s331_) with | Some s_ => true | _ => false end then + (match (_s424_ _s331_) with + | Some s_ => + returnm (Some + ('b"11000" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s428_ _s331_) with | Some s_ => true | _ => false end then + (match (_s428_ _s331_) with + | Some s_ => + returnm (Some + ('b"11001" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s432_ _s331_) with | Some s_ => true | _ => false end then + (match (_s432_ _s331_) with + | Some s_ => + returnm (Some + ('b"11010" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s436_ _s331_) with | Some s_ => true | _ => false end then + (match (_s436_ _s331_) with + | Some s_ => + returnm (Some + ('b"11011" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s440_ _s331_) with | Some s_ => true | _ => false end then + (match (_s440_ _s331_) with + | Some s_ => + returnm (Some + ('b"11100" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s444_ _s331_) with | Some s_ => true | _ => false end then + (match (_s444_ _s331_) with + | Some s_ => + returnm (Some + ('b"11101" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s448_ _s331_) with | Some s_ => true | _ => false end then + (match (_s448_ _s331_) with + | Some s_ => + returnm (Some + ('b"11110" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s452_ _s331_) with | Some s_ => true | _ => false end then + (match (_s452_ _s331_) with + | Some s_ => + returnm (Some + ('b"11111" + : mword 5, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 5 * {n : Z & ArithFact (n >=? 0)}))). + +Definition init_fdext_regs '(tt : unit) : M (unit) := + write_reg f0_ref zero_freg >> + write_reg f1_ref zero_freg >> + write_reg f2_ref zero_freg >> + write_reg f3_ref zero_freg >> + write_reg f4_ref zero_freg >> + write_reg f5_ref zero_freg >> + write_reg f6_ref zero_freg >> + write_reg f7_ref zero_freg >> + write_reg f8_ref zero_freg >> + write_reg f9_ref zero_freg >> + write_reg f10_ref zero_freg >> + write_reg f11_ref zero_freg >> + write_reg f12_ref zero_freg >> + write_reg f13_ref zero_freg >> + write_reg f14_ref zero_freg >> + write_reg f15_ref zero_freg >> + write_reg f16_ref zero_freg >> + write_reg f17_ref zero_freg >> + write_reg f18_ref zero_freg >> + write_reg f19_ref zero_freg >> + write_reg f20_ref zero_freg >> + write_reg f21_ref zero_freg >> + write_reg f22_ref zero_freg >> + write_reg f23_ref zero_freg >> + write_reg f24_ref zero_freg >> + write_reg f25_ref zero_freg >> + write_reg f26_ref zero_freg >> + write_reg f27_ref zero_freg >> + write_reg f28_ref zero_freg >> + write_reg f29_ref zero_freg >> + write_reg f30_ref zero_freg >> write_reg f31_ref zero_freg : M (unit). + +Definition Mk_Fcsr (v : mword 32) : Fcsr := {| Fcsr_Fcsr_chunk_0 := (subrange_vec_dec v 31 0) |}. + +Definition _get_Fcsr_bits (v : Fcsr) : mword 32 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 31 0. + +Definition _set_Fcsr_bits (r_ref : register_ref regstate register_value Fcsr) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 31 0 (subrange_vec_dec v 31 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_UEI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_bits (v : Fcsr) (x : mword 32) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 8 8 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_Uinterrupts_UTI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4. +Definition _get_Fcsr_FRM (v : Fcsr) : mword 3 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 7 5. -Definition _set_Uinterrupts_UTI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _set_Fcsr_FRM (r_ref : register_ref regstate register_value Fcsr) (v : mword 3) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 7 5 (subrange_vec_dec v 2 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_UTI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_FRM (v : Fcsr) (x : mword 3) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 7 5 (subrange_vec_dec x 2 0)) ]}. -Definition _get_Uinterrupts_USI (v : Uinterrupts) -: mword 1 := - - subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0. +Definition _get_Fcsr_FFLAGS (v : Fcsr) : mword 5 := subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 4 0. -Definition _set_Uinterrupts_USI -(r_ref : register_ref regstate register_value Uinterrupts) (v : mword 1) +Definition _set_Fcsr_FFLAGS (r_ref : register_ref regstate register_value Fcsr) (v : mword 5) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec r.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec v 0 0)) ]} - : Uinterrupts in + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec r.(Fcsr_Fcsr_chunk_0) 4 0 (subrange_vec_dec v 4 0)) ]} + : Fcsr in write_reg r_ref r : M (unit). -Definition _update_Uinterrupts_USI (v : Uinterrupts) (x : mword 1) -: Uinterrupts := - +Definition _update_Fcsr_FFLAGS (v : Fcsr) (x : mword 5) : Fcsr := {[ v with - Uinterrupts_Uinterrupts_chunk_0 := - (update_subrange_vec_dec v.(Uinterrupts_Uinterrupts_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. + Fcsr_Fcsr_chunk_0 := + (update_subrange_vec_dec v.(Fcsr_Fcsr_chunk_0) 4 0 (subrange_vec_dec x 4 0)) ]}. + +Definition ext_write_fcsr (frm : mword 3) (fflags : mword 5) : M (unit) := + (_set_Fcsr_FRM fcsr_ref frm) >> + (_set_Fcsr_FFLAGS fcsr_ref fflags) >> + (update_softfloat_fflags fflags) >> (dirty_fd_context tt) : M (unit). + +Definition write_fflags (fflags : mword 5) : M (unit) := + read_reg fcsr_ref >>= fun w__0 : Fcsr => + (if neq_vec (_get_Fcsr_FFLAGS w__0) fflags then (dirty_fd_context tt) : M (unit) + else returnm tt) >> + (_set_Fcsr_FFLAGS fcsr_ref fflags) + : M (unit). -Definition lower_sip (s : Sinterrupts) (d : Sinterrupts) -: Uinterrupts := - - let u : Uinterrupts := Mk_Uinterrupts (EXTZ 64 (vec_of_bits [B0] : mword 1)) in - let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in - let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in - _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). +Definition accrue_fflags (flags : mword 5) : M (unit) := + read_reg fcsr_ref >>= fun w__0 : Fcsr => + let f := or_vec (_get_Fcsr_FFLAGS w__0) flags in + read_reg fcsr_ref >>= fun w__1 : Fcsr => + (if neq_vec (_get_Fcsr_FFLAGS w__1) f then + (_set_Fcsr_FFLAGS fcsr_ref f) >> + (update_softfloat_fflags f) >> (dirty_fd_context tt) : M (unit) + else returnm tt) + : M (unit). -Definition lower_sie (s : Sinterrupts) (d : Sinterrupts) -: Uinterrupts := - - let u : Uinterrupts := Mk_Uinterrupts (EXTZ 64 (vec_of_bits [B0] : mword 1)) in - let u := _update_Uinterrupts_UEI u (and_vec (_get_Sinterrupts_UEI s) (_get_Sinterrupts_UEI d)) in - let u := _update_Uinterrupts_UTI u (and_vec (_get_Sinterrupts_UTI s) (_get_Sinterrupts_UTI d)) in - _update_Uinterrupts_USI u (and_vec (_get_Sinterrupts_USI s) (_get_Sinterrupts_USI d)). +Definition csr_name_map_forwards (arg_ : mword 12) : string := + let b__0 := arg_ in + if eq_vec b__0 (Ox"000" : mword 12) then "ustatus" + else if eq_vec b__0 (Ox"004" : mword 12) then "uie" + else if eq_vec b__0 (Ox"005" : mword 12) then "utvec" + else if eq_vec b__0 (Ox"040" : mword 12) then "uscratch" + else if eq_vec b__0 (Ox"041" : mword 12) then "uepc" + else if eq_vec b__0 (Ox"042" : mword 12) then "ucause" + else if eq_vec b__0 (Ox"043" : mword 12) then "utval" + else if eq_vec b__0 (Ox"044" : mword 12) then "uip" + else if eq_vec b__0 (Ox"001" : mword 12) then "fflags" + else if eq_vec b__0 (Ox"002" : mword 12) then "frm" + else if eq_vec b__0 (Ox"003" : mword 12) then "fcsr" + else if eq_vec b__0 (Ox"C00" : mword 12) then "cycle" + else if eq_vec b__0 (Ox"C01" : mword 12) then "time" + else if eq_vec b__0 (Ox"C02" : mword 12) then "instret" + else if eq_vec b__0 (Ox"C80" : mword 12) then "cycleh" + else if eq_vec b__0 (Ox"C81" : mword 12) then "timeh" + else if eq_vec b__0 (Ox"C82" : mword 12) then "instreth" + else if eq_vec b__0 (Ox"100" : mword 12) then "sstatus" + else if eq_vec b__0 (Ox"102" : mword 12) then "sedeleg" + else if eq_vec b__0 (Ox"103" : mword 12) then "sideleg" + else if eq_vec b__0 (Ox"104" : mword 12) then "sie" + else if eq_vec b__0 (Ox"105" : mword 12) then "stvec" + else if eq_vec b__0 (Ox"106" : mword 12) then "scounteren" + else if eq_vec b__0 (Ox"140" : mword 12) then "sscratch" + else if eq_vec b__0 (Ox"141" : mword 12) then "sepc" + else if eq_vec b__0 (Ox"142" : mword 12) then "scause" + else if eq_vec b__0 (Ox"143" : mword 12) then "stval" + else if eq_vec b__0 (Ox"144" : mword 12) then "sip" + else if eq_vec b__0 (Ox"180" : mword 12) then "satp" + else if eq_vec b__0 (Ox"F11" : mword 12) then "mvendorid" + else if eq_vec b__0 (Ox"F12" : mword 12) then "marchid" + else if eq_vec b__0 (Ox"F13" : mword 12) then "mimpid" + else if eq_vec b__0 (Ox"F14" : mword 12) then "mhartid" + else if eq_vec b__0 (Ox"300" : mword 12) then "mstatus" + else if eq_vec b__0 (Ox"301" : mword 12) then "misa" + else if eq_vec b__0 (Ox"302" : mword 12) then "medeleg" + else if eq_vec b__0 (Ox"303" : mword 12) then "mideleg" + else if eq_vec b__0 (Ox"304" : mword 12) then "mie" + else if eq_vec b__0 (Ox"305" : mword 12) then "mtvec" + else if eq_vec b__0 (Ox"306" : mword 12) then "mcounteren" + else if eq_vec b__0 (Ox"340" : mword 12) then "mscratch" + else if eq_vec b__0 (Ox"341" : mword 12) then "mepc" + else if eq_vec b__0 (Ox"342" : mword 12) then "mcause" + else if eq_vec b__0 (Ox"343" : mword 12) then "mtval" + else if eq_vec b__0 (Ox"344" : mword 12) then "mip" + else if eq_vec b__0 (Ox"3A0" : mword 12) then "pmpcfg0" + else if eq_vec b__0 (Ox"3A1" : mword 12) then "pmpcfg1" + else if eq_vec b__0 (Ox"3A2" : mword 12) then "pmpcfg2" + else if eq_vec b__0 (Ox"3A3" : mword 12) then "pmpcfg3" + else if eq_vec b__0 (Ox"3B0" : mword 12) then "pmpaddr0" + else if eq_vec b__0 (Ox"3B1" : mword 12) then "pmpaddr1" + else if eq_vec b__0 (Ox"3B2" : mword 12) then "pmpaddr2" + else if eq_vec b__0 (Ox"3B3" : mword 12) then "pmpaddr3" + else if eq_vec b__0 (Ox"3B4" : mword 12) then "pmpaddr4" + else if eq_vec b__0 (Ox"3B5" : mword 12) then "pmpaddr5" + else if eq_vec b__0 (Ox"3B6" : mword 12) then "pmpaddr6" + else if eq_vec b__0 (Ox"3B7" : mword 12) then "pmpaddr7" + else if eq_vec b__0 (Ox"3B8" : mword 12) then "pmpaddr8" + else if eq_vec b__0 (Ox"3B9" : mword 12) then "pmpaddr9" + else if eq_vec b__0 (Ox"3BA" : mword 12) then "pmpaddr10" + else if eq_vec b__0 (Ox"3BB" : mword 12) then "pmpaddr11" + else if eq_vec b__0 (Ox"3BC" : mword 12) then "pmpaddr12" + else if eq_vec b__0 (Ox"3BD" : mword 12) then "pmpaddr13" + else if eq_vec b__0 (Ox"3BE" : mword 12) then "pmpaddr14" + else if eq_vec b__0 (Ox"3BF" : mword 12) then "pmpaddr15" + else if eq_vec b__0 (Ox"B00" : mword 12) then "mcycle" + else if eq_vec b__0 (Ox"B02" : mword 12) then "minstret" + else if eq_vec b__0 (Ox"B80" : mword 12) then "mcycleh" + else if eq_vec b__0 (Ox"B82" : mword 12) then "minstreth" + else if eq_vec b__0 (Ox"7A0" : mword 12) then "tselect" + else if eq_vec b__0 (Ox"7A1" : mword 12) then "tdata1" + else if eq_vec b__0 (Ox"7A2" : mword 12) then "tdata2" + else if eq_vec b__0 (Ox"7A3" : mword 12) then "tdata3" + else decimal_string_of_bits b__0. + +Definition csr_name_map_backwards (arg_ : string) : M (mword 12) := + let p0_ := arg_ in + (if generic_eq p0_ "ustatus" then returnm (Ox"000" : mword 12) + else if generic_eq p0_ "uie" then returnm (Ox"004" : mword 12) + else if generic_eq p0_ "utvec" then returnm (Ox"005" : mword 12) + else if generic_eq p0_ "uscratch" then returnm (Ox"040" : mword 12) + else if generic_eq p0_ "uepc" then returnm (Ox"041" : mword 12) + else if generic_eq p0_ "ucause" then returnm (Ox"042" : mword 12) + else if generic_eq p0_ "utval" then returnm (Ox"043" : mword 12) + else if generic_eq p0_ "uip" then returnm (Ox"044" : mword 12) + else if generic_eq p0_ "fflags" then returnm (Ox"001" : mword 12) + else if generic_eq p0_ "frm" then returnm (Ox"002" : mword 12) + else if generic_eq p0_ "fcsr" then returnm (Ox"003" : mword 12) + else if generic_eq p0_ "cycle" then returnm (Ox"C00" : mword 12) + else if generic_eq p0_ "time" then returnm (Ox"C01" : mword 12) + else if generic_eq p0_ "instret" then returnm (Ox"C02" : mword 12) + else if generic_eq p0_ "cycleh" then returnm (Ox"C80" : mword 12) + else if generic_eq p0_ "timeh" then returnm (Ox"C81" : mword 12) + else if generic_eq p0_ "instreth" then returnm (Ox"C82" : mword 12) + else if generic_eq p0_ "sstatus" then returnm (Ox"100" : mword 12) + else if generic_eq p0_ "sedeleg" then returnm (Ox"102" : mword 12) + else if generic_eq p0_ "sideleg" then returnm (Ox"103" : mword 12) + else if generic_eq p0_ "sie" then returnm (Ox"104" : mword 12) + else if generic_eq p0_ "stvec" then returnm (Ox"105" : mword 12) + else if generic_eq p0_ "scounteren" then returnm (Ox"106" : mword 12) + else if generic_eq p0_ "sscratch" then returnm (Ox"140" : mword 12) + else if generic_eq p0_ "sepc" then returnm (Ox"141" : mword 12) + else if generic_eq p0_ "scause" then returnm (Ox"142" : mword 12) + else if generic_eq p0_ "stval" then returnm (Ox"143" : mword 12) + else if generic_eq p0_ "sip" then returnm (Ox"144" : mword 12) + else if generic_eq p0_ "satp" then returnm (Ox"180" : mword 12) + else if generic_eq p0_ "mvendorid" then returnm (Ox"F11" : mword 12) + else if generic_eq p0_ "marchid" then returnm (Ox"F12" : mword 12) + else if generic_eq p0_ "mimpid" then returnm (Ox"F13" : mword 12) + else if generic_eq p0_ "mhartid" then returnm (Ox"F14" : mword 12) + else if generic_eq p0_ "mstatus" then returnm (Ox"300" : mword 12) + else if generic_eq p0_ "misa" then returnm (Ox"301" : mword 12) + else if generic_eq p0_ "medeleg" then returnm (Ox"302" : mword 12) + else if generic_eq p0_ "mideleg" then returnm (Ox"303" : mword 12) + else if generic_eq p0_ "mie" then returnm (Ox"304" : mword 12) + else if generic_eq p0_ "mtvec" then returnm (Ox"305" : mword 12) + else if generic_eq p0_ "mcounteren" then returnm (Ox"306" : mword 12) + else if generic_eq p0_ "mscratch" then returnm (Ox"340" : mword 12) + else if generic_eq p0_ "mepc" then returnm (Ox"341" : mword 12) + else if generic_eq p0_ "mcause" then returnm (Ox"342" : mword 12) + else if generic_eq p0_ "mtval" then returnm (Ox"343" : mword 12) + else if generic_eq p0_ "mip" then returnm (Ox"344" : mword 12) + else if generic_eq p0_ "pmpcfg0" then returnm (Ox"3A0" : mword 12) + else if generic_eq p0_ "pmpcfg1" then returnm (Ox"3A1" : mword 12) + else if generic_eq p0_ "pmpcfg2" then returnm (Ox"3A2" : mword 12) + else if generic_eq p0_ "pmpcfg3" then returnm (Ox"3A3" : mword 12) + else if generic_eq p0_ "pmpaddr0" then returnm (Ox"3B0" : mword 12) + else if generic_eq p0_ "pmpaddr1" then returnm (Ox"3B1" : mword 12) + else if generic_eq p0_ "pmpaddr2" then returnm (Ox"3B2" : mword 12) + else if generic_eq p0_ "pmpaddr3" then returnm (Ox"3B3" : mword 12) + else if generic_eq p0_ "pmpaddr4" then returnm (Ox"3B4" : mword 12) + else if generic_eq p0_ "pmpaddr5" then returnm (Ox"3B5" : mword 12) + else if generic_eq p0_ "pmpaddr6" then returnm (Ox"3B6" : mword 12) + else if generic_eq p0_ "pmpaddr7" then returnm (Ox"3B7" : mword 12) + else if generic_eq p0_ "pmpaddr8" then returnm (Ox"3B8" : mword 12) + else if generic_eq p0_ "pmpaddr9" then returnm (Ox"3B9" : mword 12) + else if generic_eq p0_ "pmpaddr10" then returnm (Ox"3BA" : mword 12) + else if generic_eq p0_ "pmpaddr11" then returnm (Ox"3BB" : mword 12) + else if generic_eq p0_ "pmpaddr12" then returnm (Ox"3BC" : mword 12) + else if generic_eq p0_ "pmpaddr13" then returnm (Ox"3BD" : mword 12) + else if generic_eq p0_ "pmpaddr14" then returnm (Ox"3BE" : mword 12) + else if generic_eq p0_ "pmpaddr15" then returnm (Ox"3BF" : mword 12) + else if generic_eq p0_ "mcycle" then returnm (Ox"B00" : mword 12) + else if generic_eq p0_ "minstret" then returnm (Ox"B02" : mword 12) + else if generic_eq p0_ "mcycleh" then returnm (Ox"B80" : mword 12) + else if generic_eq p0_ "minstreth" then returnm (Ox"B82" : mword 12) + else if generic_eq p0_ "tselect" then returnm (Ox"7A0" : mword 12) + else if generic_eq p0_ "tdata1" then returnm (Ox"7A1" : mword 12) + else if generic_eq p0_ "tdata2" then returnm (Ox"7A2" : mword 12) + else if generic_eq p0_ "tdata3" then returnm (Ox"7A3" : mword 12) + else + (and_boolM (returnm ((hex_bits_12_backwards_matches p0_) : bool)) + ((if hex_bits_12_backwards_matches p0_ then + (hex_bits_12_backwards p0_) >>= fun reg => returnm (true : bool) + else returnm false) + : M (bool))) >>= fun w__1 : bool => + (if sumbool_of_bool w__1 then hex_bits_12_backwards p0_ + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 12)) + : M (mword 12). -Definition lift_uip (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) -: Sinterrupts := - - let s : Sinterrupts := o in - if ((eq_vec (_get_Sinterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) - else s. +Definition csr_name_map_forwards_matches (arg_ : mword 12) : bool := + let b__0 := arg_ in + if eq_vec b__0 (Ox"000" : mword 12) then true + else if eq_vec b__0 (Ox"004" : mword 12) then true + else if eq_vec b__0 (Ox"005" : mword 12) then true + else if eq_vec b__0 (Ox"040" : mword 12) then true + else if eq_vec b__0 (Ox"041" : mword 12) then true + else if eq_vec b__0 (Ox"042" : mword 12) then true + else if eq_vec b__0 (Ox"043" : mword 12) then true + else if eq_vec b__0 (Ox"044" : mword 12) then true + else if eq_vec b__0 (Ox"001" : mword 12) then true + else if eq_vec b__0 (Ox"002" : mword 12) then true + else if eq_vec b__0 (Ox"003" : mword 12) then true + else if eq_vec b__0 (Ox"C00" : mword 12) then true + else if eq_vec b__0 (Ox"C01" : mword 12) then true + else if eq_vec b__0 (Ox"C02" : mword 12) then true + else if eq_vec b__0 (Ox"C80" : mword 12) then true + else if eq_vec b__0 (Ox"C81" : mword 12) then true + else if eq_vec b__0 (Ox"C82" : mword 12) then true + else if eq_vec b__0 (Ox"100" : mword 12) then true + else if eq_vec b__0 (Ox"102" : mword 12) then true + else if eq_vec b__0 (Ox"103" : mword 12) then true + else if eq_vec b__0 (Ox"104" : mword 12) then true + else if eq_vec b__0 (Ox"105" : mword 12) then true + else if eq_vec b__0 (Ox"106" : mword 12) then true + else if eq_vec b__0 (Ox"140" : mword 12) then true + else if eq_vec b__0 (Ox"141" : mword 12) then true + else if eq_vec b__0 (Ox"142" : mword 12) then true + else if eq_vec b__0 (Ox"143" : mword 12) then true + else if eq_vec b__0 (Ox"144" : mword 12) then true + else if eq_vec b__0 (Ox"180" : mword 12) then true + else if eq_vec b__0 (Ox"F11" : mword 12) then true + else if eq_vec b__0 (Ox"F12" : mword 12) then true + else if eq_vec b__0 (Ox"F13" : mword 12) then true + else if eq_vec b__0 (Ox"F14" : mword 12) then true + else if eq_vec b__0 (Ox"300" : mword 12) then true + else if eq_vec b__0 (Ox"301" : mword 12) then true + else if eq_vec b__0 (Ox"302" : mword 12) then true + else if eq_vec b__0 (Ox"303" : mword 12) then true + else if eq_vec b__0 (Ox"304" : mword 12) then true + else if eq_vec b__0 (Ox"305" : mword 12) then true + else if eq_vec b__0 (Ox"306" : mword 12) then true + else if eq_vec b__0 (Ox"340" : mword 12) then true + else if eq_vec b__0 (Ox"341" : mword 12) then true + else if eq_vec b__0 (Ox"342" : mword 12) then true + else if eq_vec b__0 (Ox"343" : mword 12) then true + else if eq_vec b__0 (Ox"344" : mword 12) then true + else if eq_vec b__0 (Ox"3A0" : mword 12) then true + else if eq_vec b__0 (Ox"3A1" : mword 12) then true + else if eq_vec b__0 (Ox"3A2" : mword 12) then true + else if eq_vec b__0 (Ox"3A3" : mword 12) then true + else if eq_vec b__0 (Ox"3B0" : mword 12) then true + else if eq_vec b__0 (Ox"3B1" : mword 12) then true + else if eq_vec b__0 (Ox"3B2" : mword 12) then true + else if eq_vec b__0 (Ox"3B3" : mword 12) then true + else if eq_vec b__0 (Ox"3B4" : mword 12) then true + else if eq_vec b__0 (Ox"3B5" : mword 12) then true + else if eq_vec b__0 (Ox"3B6" : mword 12) then true + else if eq_vec b__0 (Ox"3B7" : mword 12) then true + else if eq_vec b__0 (Ox"3B8" : mword 12) then true + else if eq_vec b__0 (Ox"3B9" : mword 12) then true + else if eq_vec b__0 (Ox"3BA" : mword 12) then true + else if eq_vec b__0 (Ox"3BB" : mword 12) then true + else if eq_vec b__0 (Ox"3BC" : mword 12) then true + else if eq_vec b__0 (Ox"3BD" : mword 12) then true + else if eq_vec b__0 (Ox"3BE" : mword 12) then true + else if eq_vec b__0 (Ox"3BF" : mword 12) then true + else if eq_vec b__0 (Ox"B00" : mword 12) then true + else if eq_vec b__0 (Ox"B02" : mword 12) then true + else if eq_vec b__0 (Ox"B80" : mword 12) then true + else if eq_vec b__0 (Ox"B82" : mword 12) then true + else if eq_vec b__0 (Ox"7A0" : mword 12) then true + else if eq_vec b__0 (Ox"7A1" : mword 12) then true + else if eq_vec b__0 (Ox"7A2" : mword 12) then true + else if eq_vec b__0 (Ox"7A3" : mword 12) then true + else true. -Definition legalize_uip (s : Sinterrupts) (d : Sinterrupts) (v : mword 64) -: Sinterrupts := - - lift_uip s d (Mk_Uinterrupts v). +Definition csr_name_map_backwards_matches (arg_ : string) : M (bool) := + let p0_ := arg_ in + (if generic_eq p0_ "ustatus" then returnm true + else if generic_eq p0_ "uie" then returnm true + else if generic_eq p0_ "utvec" then returnm true + else if generic_eq p0_ "uscratch" then returnm true + else if generic_eq p0_ "uepc" then returnm true + else if generic_eq p0_ "ucause" then returnm true + else if generic_eq p0_ "utval" then returnm true + else if generic_eq p0_ "uip" then returnm true + else if generic_eq p0_ "fflags" then returnm true + else if generic_eq p0_ "frm" then returnm true + else if generic_eq p0_ "fcsr" then returnm true + else if generic_eq p0_ "cycle" then returnm true + else if generic_eq p0_ "time" then returnm true + else if generic_eq p0_ "instret" then returnm true + else if generic_eq p0_ "cycleh" then returnm true + else if generic_eq p0_ "timeh" then returnm true + else if generic_eq p0_ "instreth" then returnm true + else if generic_eq p0_ "sstatus" then returnm true + else if generic_eq p0_ "sedeleg" then returnm true + else if generic_eq p0_ "sideleg" then returnm true + else if generic_eq p0_ "sie" then returnm true + else if generic_eq p0_ "stvec" then returnm true + else if generic_eq p0_ "scounteren" then returnm true + else if generic_eq p0_ "sscratch" then returnm true + else if generic_eq p0_ "sepc" then returnm true + else if generic_eq p0_ "scause" then returnm true + else if generic_eq p0_ "stval" then returnm true + else if generic_eq p0_ "sip" then returnm true + else if generic_eq p0_ "satp" then returnm true + else if generic_eq p0_ "mvendorid" then returnm true + else if generic_eq p0_ "marchid" then returnm true + else if generic_eq p0_ "mimpid" then returnm true + else if generic_eq p0_ "mhartid" then returnm true + else if generic_eq p0_ "mstatus" then returnm true + else if generic_eq p0_ "misa" then returnm true + else if generic_eq p0_ "medeleg" then returnm true + else if generic_eq p0_ "mideleg" then returnm true + else if generic_eq p0_ "mie" then returnm true + else if generic_eq p0_ "mtvec" then returnm true + else if generic_eq p0_ "mcounteren" then returnm true + else if generic_eq p0_ "mscratch" then returnm true + else if generic_eq p0_ "mepc" then returnm true + else if generic_eq p0_ "mcause" then returnm true + else if generic_eq p0_ "mtval" then returnm true + else if generic_eq p0_ "mip" then returnm true + else if generic_eq p0_ "pmpcfg0" then returnm true + else if generic_eq p0_ "pmpcfg1" then returnm true + else if generic_eq p0_ "pmpcfg2" then returnm true + else if generic_eq p0_ "pmpcfg3" then returnm true + else if generic_eq p0_ "pmpaddr0" then returnm true + else if generic_eq p0_ "pmpaddr1" then returnm true + else if generic_eq p0_ "pmpaddr2" then returnm true + else if generic_eq p0_ "pmpaddr3" then returnm true + else if generic_eq p0_ "pmpaddr4" then returnm true + else if generic_eq p0_ "pmpaddr5" then returnm true + else if generic_eq p0_ "pmpaddr6" then returnm true + else if generic_eq p0_ "pmpaddr7" then returnm true + else if generic_eq p0_ "pmpaddr8" then returnm true + else if generic_eq p0_ "pmpaddr9" then returnm true + else if generic_eq p0_ "pmpaddr10" then returnm true + else if generic_eq p0_ "pmpaddr11" then returnm true + else if generic_eq p0_ "pmpaddr12" then returnm true + else if generic_eq p0_ "pmpaddr13" then returnm true + else if generic_eq p0_ "pmpaddr14" then returnm true + else if generic_eq p0_ "pmpaddr15" then returnm true + else if generic_eq p0_ "mcycle" then returnm true + else if generic_eq p0_ "minstret" then returnm true + else if generic_eq p0_ "mcycleh" then returnm true + else if generic_eq p0_ "minstreth" then returnm true + else if generic_eq p0_ "tselect" then returnm true + else if generic_eq p0_ "tdata1" then returnm true + else if generic_eq p0_ "tdata2" then returnm true + else if generic_eq p0_ "tdata3" then returnm true + else + (and_boolM (returnm ((hex_bits_12_backwards_matches p0_) : bool)) + ((if hex_bits_12_backwards_matches p0_ then + (hex_bits_12_backwards p0_) >>= fun reg => returnm (true : bool) + else returnm false) + : M (bool))) >>= fun w__1 : bool => + if sumbool_of_bool w__1 then (hex_bits_12_backwards p0_) >>= fun reg => returnm true + else returnm false) + : M (bool). -Definition lift_uie (o : Sinterrupts) (d : Sinterrupts) (u : Uinterrupts) -: Sinterrupts := - - let s : Sinterrupts := o in - let s := - if ((eq_vec (_get_Sinterrupts_UEI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_UEI s (_get_Uinterrupts_UEI u) - else s in - let s := - if ((eq_vec (_get_Sinterrupts_UTI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_UTI s (_get_Uinterrupts_UTI u) - else s in - if ((eq_vec (_get_Sinterrupts_USI d) ((bool_to_bits true) : mword 1))) then - _update_Sinterrupts_USI s (_get_Uinterrupts_USI u) - else s. +Definition _s748_ (_s749_ : string) : option ((mword 12 * string)) := + match _s749_ with + | _s750_ => + match (hex_bits_12_matches_prefix _s750_) with + | Some (reg, existT _ _s751_ _) => + match (string_drop _s750_ _s751_) with | s_ => Some (reg, s_) end + | _ => None + end + end. -Definition legalize_uie (s : Sinterrupts) (d : Sinterrupts) (v : mword 64) -: Sinterrupts := - - lift_uie s d (Mk_Uinterrupts v). +Definition _s744_ (_s745_ : string) : option string := + let _s746_ := _s745_ in + if string_startswith _s746_ "tdata3" then + match (string_drop _s746_ (projT1 (string_length "tdata3"))) with | s_ => Some s_ end + else None. -Definition handle_trap_extension (p : Privilege) (pc : mword 64) (u : option unit) : unit := tt. +Definition _s740_ (_s741_ : string) : option string := + let _s742_ := _s741_ in + if string_startswith _s742_ "tdata2" then + match (string_drop _s742_ (projT1 (string_length "tdata2"))) with | s_ => Some s_ end + else None. -Definition prepare_trap_vector (p : Privilege) (cause : Mcause) -: M (mword 64) := - - (match p with - | Machine => read_reg mtvec_ref : M (Mtvec) - | Supervisor => read_reg stvec_ref : M (Mtvec) - | User => read_reg utvec_ref : M (Mtvec) - end) >>= fun tvec : Mtvec => - (match (tvec_addr tvec cause) with - | Some (epc) => returnm (epc : mword 64) - | None => (internal_error "Invalid tvec mode") : M (mword 64) - end) - : M (mword 64). +Definition _s736_ (_s737_ : string) : option string := + let _s738_ := _s737_ in + if string_startswith _s738_ "tdata1" then + match (string_drop _s738_ (projT1 (string_length "tdata1"))) with | s_ => Some s_ end + else None. -Definition get_xret_target (p : Privilege) -: M (mword 64) := - - (match p with - | Machine => ((read_reg mepc_ref) : M (mword 64)) : M (mword 64) - | Supervisor => ((read_reg sepc_ref) : M (mword 64)) : M (mword 64) - | User => ((read_reg uepc_ref) : M (mword 64)) : M (mword 64) - end) - : M (mword 64). +Definition _s732_ (_s733_ : string) : option string := + let _s734_ := _s733_ in + if string_startswith _s734_ "tselect" then + match (string_drop _s734_ (projT1 (string_length "tselect"))) with | s_ => Some s_ end + else None. -Definition set_xret_target (p : Privilege) (value : mword 64) -: M (mword 64) := - - (legalize_xepc value) >>= fun target => - (match p with - | Machine => write_reg mepc_ref target : M (unit) - | Supervisor => write_reg sepc_ref target : M (unit) - | User => write_reg uepc_ref target : M (unit) - end) >> - returnm (target - : mword 64). +Definition _s728_ (_s729_ : string) : option string := + let _s730_ := _s729_ in + if string_startswith _s730_ "minstreth" then + match (string_drop _s730_ (projT1 (string_length "minstreth"))) with | s_ => Some s_ end + else None. -Definition prepare_xret_target (p : Privilege) -: M (mword 64) := - - (get_xret_target p) - : M (mword 64). +Definition _s724_ (_s725_ : string) : option string := + let _s726_ := _s725_ in + if string_startswith _s726_ "mcycleh" then + match (string_drop _s726_ (projT1 (string_length "mcycleh"))) with | s_ => Some s_ end + else None. -Definition get_mtvec '(tt : unit) -: M (mword 64) := - - read_reg mtvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 64). +Definition _s720_ (_s721_ : string) : option string := + let _s722_ := _s721_ in + if string_startswith _s722_ "minstret" then + match (string_drop _s722_ (projT1 (string_length "minstret"))) with | s_ => Some s_ end + else None. -Definition get_stvec '(tt : unit) -: M (mword 64) := - - read_reg stvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 64). +Definition _s716_ (_s717_ : string) : option string := + let _s718_ := _s717_ in + if string_startswith _s718_ "mcycle" then + match (string_drop _s718_ (projT1 (string_length "mcycle"))) with | s_ => Some s_ end + else None. -Definition get_utvec '(tt : unit) -: M (mword 64) := - - read_reg utvec_ref >>= fun w__0 : Mtvec => returnm ((_get_Mtvec_bits w__0) : mword 64). +Definition _s712_ (_s713_ : string) : option string := + let _s714_ := _s713_ in + if string_startswith _s714_ "pmpaddr15" then + match (string_drop _s714_ (projT1 (string_length "pmpaddr15"))) with | s_ => Some s_ end + else None. -Definition set_mtvec (value : mword 64) -: M (mword 64) := - - read_reg mtvec_ref >>= fun w__0 : Mtvec => - write_reg mtvec_ref (legalize_tvec w__0 value) >> - read_reg mtvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 64). +Definition _s708_ (_s709_ : string) : option string := + let _s710_ := _s709_ in + if string_startswith _s710_ "pmpaddr14" then + match (string_drop _s710_ (projT1 (string_length "pmpaddr14"))) with | s_ => Some s_ end + else None. -Definition set_stvec (value : mword 64) -: M (mword 64) := - - read_reg stvec_ref >>= fun w__0 : Mtvec => - write_reg stvec_ref (legalize_tvec w__0 value) >> - read_reg stvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 64). +Definition _s704_ (_s705_ : string) : option string := + let _s706_ := _s705_ in + if string_startswith _s706_ "pmpaddr13" then + match (string_drop _s706_ (projT1 (string_length "pmpaddr13"))) with | s_ => Some s_ end + else None. -Definition set_utvec (value : mword 64) -: M (mword 64) := - - read_reg utvec_ref >>= fun w__0 : Mtvec => - write_reg utvec_ref (legalize_tvec w__0 value) >> - read_reg utvec_ref >>= fun w__1 : Mtvec => returnm ((_get_Mtvec_bits w__1) : mword 64). +Definition _s700_ (_s701_ : string) : option string := + let _s702_ := _s701_ in + if string_startswith _s702_ "pmpaddr12" then + match (string_drop _s702_ (projT1 (string_length "pmpaddr12"))) with | s_ => Some s_ end + else None. -Definition is_NExt_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - (haveUsrMode tt) +Definition _s696_ (_s697_ : string) : option string := + let _s698_ := _s697_ in + if string_startswith _s698_ "pmpaddr11" then + match (string_drop _s698_ (projT1 (string_length "pmpaddr11"))) with | s_ => Some s_ end + else None. + +Definition _s692_ (_s693_ : string) : option string := + let _s694_ := _s693_ in + if string_startswith _s694_ "pmpaddr10" then + match (string_drop _s694_ (projT1 (string_length "pmpaddr10"))) with | s_ => Some s_ end + else None. + +Definition _s688_ (_s689_ : string) : option string := + let _s690_ := _s689_ in + if string_startswith _s690_ "pmpaddr9" then + match (string_drop _s690_ (projT1 (string_length "pmpaddr9"))) with | s_ => Some s_ end + else None. + +Definition _s684_ (_s685_ : string) : option string := + let _s686_ := _s685_ in + if string_startswith _s686_ "pmpaddr8" then + match (string_drop _s686_ (projT1 (string_length "pmpaddr8"))) with | s_ => Some s_ end + else None. + +Definition _s680_ (_s681_ : string) : option string := + let _s682_ := _s681_ in + if string_startswith _s682_ "pmpaddr7" then + match (string_drop _s682_ (projT1 (string_length "pmpaddr7"))) with | s_ => Some s_ end + else None. + +Definition _s676_ (_s677_ : string) : option string := + let _s678_ := _s677_ in + if string_startswith _s678_ "pmpaddr6" then + match (string_drop _s678_ (projT1 (string_length "pmpaddr6"))) with | s_ => Some s_ end + else None. + +Definition _s672_ (_s673_ : string) : option string := + let _s674_ := _s673_ in + if string_startswith _s674_ "pmpaddr5" then + match (string_drop _s674_ (projT1 (string_length "pmpaddr5"))) with | s_ => Some s_ end + else None. + +Definition _s668_ (_s669_ : string) : option string := + let _s670_ := _s669_ in + if string_startswith _s670_ "pmpaddr4" then + match (string_drop _s670_ (projT1 (string_length "pmpaddr4"))) with | s_ => Some s_ end + else None. + +Definition _s664_ (_s665_ : string) : option string := + let _s666_ := _s665_ in + if string_startswith _s666_ "pmpaddr3" then + match (string_drop _s666_ (projT1 (string_length "pmpaddr3"))) with | s_ => Some s_ end + else None. + +Definition _s660_ (_s661_ : string) : option string := + let _s662_ := _s661_ in + if string_startswith _s662_ "pmpaddr2" then + match (string_drop _s662_ (projT1 (string_length "pmpaddr2"))) with | s_ => Some s_ end + else None. + +Definition _s656_ (_s657_ : string) : option string := + let _s658_ := _s657_ in + if string_startswith _s658_ "pmpaddr1" then + match (string_drop _s658_ (projT1 (string_length "pmpaddr1"))) with | s_ => Some s_ end + else None. + +Definition _s652_ (_s653_ : string) : option string := + let _s654_ := _s653_ in + if string_startswith _s654_ "pmpaddr0" then + match (string_drop _s654_ (projT1 (string_length "pmpaddr0"))) with | s_ => Some s_ end + else None. + +Definition _s648_ (_s649_ : string) : option string := + let _s650_ := _s649_ in + if string_startswith _s650_ "pmpcfg3" then + match (string_drop _s650_ (projT1 (string_length "pmpcfg3"))) with | s_ => Some s_ end + else None. + +Definition _s644_ (_s645_ : string) : option string := + let _s646_ := _s645_ in + if string_startswith _s646_ "pmpcfg2" then + match (string_drop _s646_ (projT1 (string_length "pmpcfg2"))) with | s_ => Some s_ end + else None. + +Definition _s640_ (_s641_ : string) : option string := + let _s642_ := _s641_ in + if string_startswith _s642_ "pmpcfg1" then + match (string_drop _s642_ (projT1 (string_length "pmpcfg1"))) with | s_ => Some s_ end + else None. + +Definition _s636_ (_s637_ : string) : option string := + let _s638_ := _s637_ in + if string_startswith _s638_ "pmpcfg0" then + match (string_drop _s638_ (projT1 (string_length "pmpcfg0"))) with | s_ => Some s_ end + else None. + +Definition _s632_ (_s633_ : string) : option string := + let _s634_ := _s633_ in + if string_startswith _s634_ "mip" then + match (string_drop _s634_ (projT1 (string_length "mip"))) with | s_ => Some s_ end + else None. + +Definition _s628_ (_s629_ : string) : option string := + let _s630_ := _s629_ in + if string_startswith _s630_ "mtval" then + match (string_drop _s630_ (projT1 (string_length "mtval"))) with | s_ => Some s_ end + else None. + +Definition _s624_ (_s625_ : string) : option string := + let _s626_ := _s625_ in + if string_startswith _s626_ "mcause" then + match (string_drop _s626_ (projT1 (string_length "mcause"))) with | s_ => Some s_ end + else None. + +Definition _s620_ (_s621_ : string) : option string := + let _s622_ := _s621_ in + if string_startswith _s622_ "mepc" then + match (string_drop _s622_ (projT1 (string_length "mepc"))) with | s_ => Some s_ end + else None. + +Definition _s616_ (_s617_ : string) : option string := + let _s618_ := _s617_ in + if string_startswith _s618_ "mscratch" then + match (string_drop _s618_ (projT1 (string_length "mscratch"))) with | s_ => Some s_ end + else None. + +Definition _s612_ (_s613_ : string) : option string := + let _s614_ := _s613_ in + if string_startswith _s614_ "mcounteren" then + match (string_drop _s614_ (projT1 (string_length "mcounteren"))) with | s_ => Some s_ end + else None. + +Definition _s608_ (_s609_ : string) : option string := + let _s610_ := _s609_ in + if string_startswith _s610_ "mtvec" then + match (string_drop _s610_ (projT1 (string_length "mtvec"))) with | s_ => Some s_ end + else None. + +Definition _s604_ (_s605_ : string) : option string := + let _s606_ := _s605_ in + if string_startswith _s606_ "mie" then + match (string_drop _s606_ (projT1 (string_length "mie"))) with | s_ => Some s_ end + else None. + +Definition _s600_ (_s601_ : string) : option string := + let _s602_ := _s601_ in + if string_startswith _s602_ "mideleg" then + match (string_drop _s602_ (projT1 (string_length "mideleg"))) with | s_ => Some s_ end + else None. + +Definition _s596_ (_s597_ : string) : option string := + let _s598_ := _s597_ in + if string_startswith _s598_ "medeleg" then + match (string_drop _s598_ (projT1 (string_length "medeleg"))) with | s_ => Some s_ end + else None. + +Definition _s592_ (_s593_ : string) : option string := + let _s594_ := _s593_ in + if string_startswith _s594_ "misa" then + match (string_drop _s594_ (projT1 (string_length "misa"))) with | s_ => Some s_ end + else None. + +Definition _s588_ (_s589_ : string) : option string := + let _s590_ := _s589_ in + if string_startswith _s590_ "mstatus" then + match (string_drop _s590_ (projT1 (string_length "mstatus"))) with | s_ => Some s_ end + else None. + +Definition _s584_ (_s585_ : string) : option string := + let _s586_ := _s585_ in + if string_startswith _s586_ "mhartid" then + match (string_drop _s586_ (projT1 (string_length "mhartid"))) with | s_ => Some s_ end + else None. + +Definition _s580_ (_s581_ : string) : option string := + let _s582_ := _s581_ in + if string_startswith _s582_ "mimpid" then + match (string_drop _s582_ (projT1 (string_length "mimpid"))) with | s_ => Some s_ end + else None. + +Definition _s576_ (_s577_ : string) : option string := + let _s578_ := _s577_ in + if string_startswith _s578_ "marchid" then + match (string_drop _s578_ (projT1 (string_length "marchid"))) with | s_ => Some s_ end + else None. + +Definition _s572_ (_s573_ : string) : option string := + let _s574_ := _s573_ in + if string_startswith _s574_ "mvendorid" then + match (string_drop _s574_ (projT1 (string_length "mvendorid"))) with | s_ => Some s_ end + else None. + +Definition _s568_ (_s569_ : string) : option string := + let _s570_ := _s569_ in + if string_startswith _s570_ "satp" then + match (string_drop _s570_ (projT1 (string_length "satp"))) with | s_ => Some s_ end + else None. + +Definition _s564_ (_s565_ : string) : option string := + let _s566_ := _s565_ in + if string_startswith _s566_ "sip" then + match (string_drop _s566_ (projT1 (string_length "sip"))) with | s_ => Some s_ end + else None. + +Definition _s560_ (_s561_ : string) : option string := + let _s562_ := _s561_ in + if string_startswith _s562_ "stval" then + match (string_drop _s562_ (projT1 (string_length "stval"))) with | s_ => Some s_ end + else None. + +Definition _s556_ (_s557_ : string) : option string := + let _s558_ := _s557_ in + if string_startswith _s558_ "scause" then + match (string_drop _s558_ (projT1 (string_length "scause"))) with | s_ => Some s_ end + else None. + +Definition _s552_ (_s553_ : string) : option string := + let _s554_ := _s553_ in + if string_startswith _s554_ "sepc" then + match (string_drop _s554_ (projT1 (string_length "sepc"))) with | s_ => Some s_ end + else None. + +Definition _s548_ (_s549_ : string) : option string := + let _s550_ := _s549_ in + if string_startswith _s550_ "sscratch" then + match (string_drop _s550_ (projT1 (string_length "sscratch"))) with | s_ => Some s_ end + else None. + +Definition _s544_ (_s545_ : string) : option string := + let _s546_ := _s545_ in + if string_startswith _s546_ "scounteren" then + match (string_drop _s546_ (projT1 (string_length "scounteren"))) with | s_ => Some s_ end + else None. + +Definition _s540_ (_s541_ : string) : option string := + let _s542_ := _s541_ in + if string_startswith _s542_ "stvec" then + match (string_drop _s542_ (projT1 (string_length "stvec"))) with | s_ => Some s_ end + else None. + +Definition _s536_ (_s537_ : string) : option string := + let _s538_ := _s537_ in + if string_startswith _s538_ "sie" then + match (string_drop _s538_ (projT1 (string_length "sie"))) with | s_ => Some s_ end + else None. + +Definition _s532_ (_s533_ : string) : option string := + let _s534_ := _s533_ in + if string_startswith _s534_ "sideleg" then + match (string_drop _s534_ (projT1 (string_length "sideleg"))) with | s_ => Some s_ end + else None. + +Definition _s528_ (_s529_ : string) : option string := + let _s530_ := _s529_ in + if string_startswith _s530_ "sedeleg" then + match (string_drop _s530_ (projT1 (string_length "sedeleg"))) with | s_ => Some s_ end + else None. + +Definition _s524_ (_s525_ : string) : option string := + let _s526_ := _s525_ in + if string_startswith _s526_ "sstatus" then + match (string_drop _s526_ (projT1 (string_length "sstatus"))) with | s_ => Some s_ end + else None. + +Definition _s520_ (_s521_ : string) : option string := + let _s522_ := _s521_ in + if string_startswith _s522_ "instreth" then + match (string_drop _s522_ (projT1 (string_length "instreth"))) with | s_ => Some s_ end + else None. + +Definition _s516_ (_s517_ : string) : option string := + let _s518_ := _s517_ in + if string_startswith _s518_ "timeh" then + match (string_drop _s518_ (projT1 (string_length "timeh"))) with | s_ => Some s_ end + else None. + +Definition _s512_ (_s513_ : string) : option string := + let _s514_ := _s513_ in + if string_startswith _s514_ "cycleh" then + match (string_drop _s514_ (projT1 (string_length "cycleh"))) with | s_ => Some s_ end + else None. + +Definition _s508_ (_s509_ : string) : option string := + let _s510_ := _s509_ in + if string_startswith _s510_ "instret" then + match (string_drop _s510_ (projT1 (string_length "instret"))) with | s_ => Some s_ end + else None. + +Definition _s504_ (_s505_ : string) : option string := + let _s506_ := _s505_ in + if string_startswith _s506_ "time" then + match (string_drop _s506_ (projT1 (string_length "time"))) with | s_ => Some s_ end + else None. + +Definition _s500_ (_s501_ : string) : option string := + let _s502_ := _s501_ in + if string_startswith _s502_ "cycle" then + match (string_drop _s502_ (projT1 (string_length "cycle"))) with | s_ => Some s_ end + else None. + +Definition _s496_ (_s497_ : string) : option string := + let _s498_ := _s497_ in + if string_startswith _s498_ "fcsr" then + match (string_drop _s498_ (projT1 (string_length "fcsr"))) with | s_ => Some s_ end + else None. + +Definition _s492_ (_s493_ : string) : option string := + let _s494_ := _s493_ in + if string_startswith _s494_ "frm" then + match (string_drop _s494_ (projT1 (string_length "frm"))) with | s_ => Some s_ end + else None. + +Definition _s488_ (_s489_ : string) : option string := + let _s490_ := _s489_ in + if string_startswith _s490_ "fflags" then + match (string_drop _s490_ (projT1 (string_length "fflags"))) with | s_ => Some s_ end + else None. + +Definition _s484_ (_s485_ : string) : option string := + let _s486_ := _s485_ in + if string_startswith _s486_ "uip" then + match (string_drop _s486_ (projT1 (string_length "uip"))) with | s_ => Some s_ end + else None. + +Definition _s480_ (_s481_ : string) : option string := + let _s482_ := _s481_ in + if string_startswith _s482_ "utval" then + match (string_drop _s482_ (projT1 (string_length "utval"))) with | s_ => Some s_ end + else None. + +Definition _s476_ (_s477_ : string) : option string := + let _s478_ := _s477_ in + if string_startswith _s478_ "ucause" then + match (string_drop _s478_ (projT1 (string_length "ucause"))) with | s_ => Some s_ end + else None. + +Definition _s472_ (_s473_ : string) : option string := + let _s474_ := _s473_ in + if string_startswith _s474_ "uepc" then + match (string_drop _s474_ (projT1 (string_length "uepc"))) with | s_ => Some s_ end + else None. + +Definition _s468_ (_s469_ : string) : option string := + let _s470_ := _s469_ in + if string_startswith _s470_ "uscratch" then + match (string_drop _s470_ (projT1 (string_length "uscratch"))) with | s_ => Some s_ end + else None. + +Definition _s464_ (_s465_ : string) : option string := + let _s466_ := _s465_ in + if string_startswith _s466_ "utvec" then + match (string_drop _s466_ (projT1 (string_length "utvec"))) with | s_ => Some s_ end + else None. + +Definition _s460_ (_s461_ : string) : option string := + let _s462_ := _s461_ in + if string_startswith _s462_ "uie" then + match (string_drop _s462_ (projT1 (string_length "uie"))) with | s_ => Some s_ end + else None. + +Definition _s456_ (_s457_ : string) : option string := + let _s458_ := _s457_ in + if string_startswith _s458_ "ustatus" then + match (string_drop _s458_ (projT1 (string_length "ustatus"))) with | s_ => Some s_ end + else None. + +Definition csr_name_map_matches_prefix (arg_ : string) +: M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) := + let _s459_ := arg_ in + (if match (_s456_ _s459_) with | Some s_ => true | _ => false end then + (match (_s456_ _s459_) with + | Some s_ => + returnm (Some + (Ox"000" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s460_ _s459_) with | Some s_ => true | _ => false end then + (match (_s460_ _s459_) with + | Some s_ => + returnm (Some + (Ox"004" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s464_ _s459_) with | Some s_ => true | _ => false end then + (match (_s464_ _s459_) with + | Some s_ => + returnm (Some + (Ox"005" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s468_ _s459_) with | Some s_ => true | _ => false end then + (match (_s468_ _s459_) with + | Some s_ => + returnm (Some + (Ox"040" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s472_ _s459_) with | Some s_ => true | _ => false end then + (match (_s472_ _s459_) with + | Some s_ => + returnm (Some + (Ox"041" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s476_ _s459_) with | Some s_ => true | _ => false end then + (match (_s476_ _s459_) with + | Some s_ => + returnm (Some + (Ox"042" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s480_ _s459_) with | Some s_ => true | _ => false end then + (match (_s480_ _s459_) with + | Some s_ => + returnm (Some + (Ox"043" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s484_ _s459_) with | Some s_ => true | _ => false end then + (match (_s484_ _s459_) with + | Some s_ => + returnm (Some + (Ox"044" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s488_ _s459_) with | Some s_ => true | _ => false end then + (match (_s488_ _s459_) with + | Some s_ => + returnm (Some + (Ox"001" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s492_ _s459_) with | Some s_ => true | _ => false end then + (match (_s492_ _s459_) with + | Some s_ => + returnm (Some + (Ox"002" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s496_ _s459_) with | Some s_ => true | _ => false end then + (match (_s496_ _s459_) with + | Some s_ => + returnm (Some + (Ox"003" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s500_ _s459_) with | Some s_ => true | _ => false end then + (match (_s500_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C00" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s504_ _s459_) with | Some s_ => true | _ => false end then + (match (_s504_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C01" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s508_ _s459_) with | Some s_ => true | _ => false end then + (match (_s508_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C02" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s512_ _s459_) with | Some s_ => true | _ => false end then + (match (_s512_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C80" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s516_ _s459_) with | Some s_ => true | _ => false end then + (match (_s516_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C81" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s520_ _s459_) with | Some s_ => true | _ => false end then + (match (_s520_ _s459_) with + | Some s_ => + returnm (Some + (Ox"C82" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s524_ _s459_) with | Some s_ => true | _ => false end then + (match (_s524_ _s459_) with + | Some s_ => + returnm (Some + (Ox"100" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s528_ _s459_) with | Some s_ => true | _ => false end then + (match (_s528_ _s459_) with + | Some s_ => + returnm (Some + (Ox"102" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s532_ _s459_) with | Some s_ => true | _ => false end then + (match (_s532_ _s459_) with + | Some s_ => + returnm (Some + (Ox"103" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s536_ _s459_) with | Some s_ => true | _ => false end then + (match (_s536_ _s459_) with + | Some s_ => + returnm (Some + (Ox"104" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s540_ _s459_) with | Some s_ => true | _ => false end then + (match (_s540_ _s459_) with + | Some s_ => + returnm (Some + (Ox"105" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s544_ _s459_) with | Some s_ => true | _ => false end then + (match (_s544_ _s459_) with + | Some s_ => + returnm (Some + (Ox"106" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s548_ _s459_) with | Some s_ => true | _ => false end then + (match (_s548_ _s459_) with + | Some s_ => + returnm (Some + (Ox"140" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s552_ _s459_) with | Some s_ => true | _ => false end then + (match (_s552_ _s459_) with + | Some s_ => + returnm (Some + (Ox"141" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s556_ _s459_) with | Some s_ => true | _ => false end then + (match (_s556_ _s459_) with + | Some s_ => + returnm (Some + (Ox"142" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s560_ _s459_) with | Some s_ => true | _ => false end then + (match (_s560_ _s459_) with + | Some s_ => + returnm (Some + (Ox"143" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s564_ _s459_) with | Some s_ => true | _ => false end then + (match (_s564_ _s459_) with + | Some s_ => + returnm (Some + (Ox"144" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s568_ _s459_) with | Some s_ => true | _ => false end then + (match (_s568_ _s459_) with + | Some s_ => + returnm (Some + (Ox"180" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s572_ _s459_) with | Some s_ => true | _ => false end then + (match (_s572_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F11" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s576_ _s459_) with | Some s_ => true | _ => false end then + (match (_s576_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F12" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s580_ _s459_) with | Some s_ => true | _ => false end then + (match (_s580_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F13" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s584_ _s459_) with | Some s_ => true | _ => false end then + (match (_s584_ _s459_) with + | Some s_ => + returnm (Some + (Ox"F14" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s588_ _s459_) with | Some s_ => true | _ => false end then + (match (_s588_ _s459_) with + | Some s_ => + returnm (Some + (Ox"300" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s592_ _s459_) with | Some s_ => true | _ => false end then + (match (_s592_ _s459_) with + | Some s_ => + returnm (Some + (Ox"301" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s596_ _s459_) with | Some s_ => true | _ => false end then + (match (_s596_ _s459_) with + | Some s_ => + returnm (Some + (Ox"302" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s600_ _s459_) with | Some s_ => true | _ => false end then + (match (_s600_ _s459_) with + | Some s_ => + returnm (Some + (Ox"303" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s604_ _s459_) with | Some s_ => true | _ => false end then + (match (_s604_ _s459_) with + | Some s_ => + returnm (Some + (Ox"304" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s608_ _s459_) with | Some s_ => true | _ => false end then + (match (_s608_ _s459_) with + | Some s_ => + returnm (Some + (Ox"305" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s612_ _s459_) with | Some s_ => true | _ => false end then + (match (_s612_ _s459_) with + | Some s_ => + returnm (Some + (Ox"306" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s616_ _s459_) with | Some s_ => true | _ => false end then + (match (_s616_ _s459_) with + | Some s_ => + returnm (Some + (Ox"340" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s620_ _s459_) with | Some s_ => true | _ => false end then + (match (_s620_ _s459_) with + | Some s_ => + returnm (Some + (Ox"341" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s624_ _s459_) with | Some s_ => true | _ => false end then + (match (_s624_ _s459_) with + | Some s_ => + returnm (Some + (Ox"342" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s628_ _s459_) with | Some s_ => true | _ => false end then + (match (_s628_ _s459_) with + | Some s_ => + returnm (Some + (Ox"343" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s632_ _s459_) with | Some s_ => true | _ => false end then + (match (_s632_ _s459_) with + | Some s_ => + returnm (Some + (Ox"344" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s636_ _s459_) with | Some s_ => true | _ => false end then + (match (_s636_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s640_ _s459_) with | Some s_ => true | _ => false end then + (match (_s640_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s644_ _s459_) with | Some s_ => true | _ => false end then + (match (_s644_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s648_ _s459_) with | Some s_ => true | _ => false end then + (match (_s648_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3A3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s652_ _s459_) with | Some s_ => true | _ => false end then + (match (_s652_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s656_ _s459_) with | Some s_ => true | _ => false end then + (match (_s656_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s660_ _s459_) with | Some s_ => true | _ => false end then + (match (_s660_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s664_ _s459_) with | Some s_ => true | _ => false end then + (match (_s664_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s668_ _s459_) with | Some s_ => true | _ => false end then + (match (_s668_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B4" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s672_ _s459_) with | Some s_ => true | _ => false end then + (match (_s672_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B5" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s676_ _s459_) with | Some s_ => true | _ => false end then + (match (_s676_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B6" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s680_ _s459_) with | Some s_ => true | _ => false end then + (match (_s680_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B7" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s684_ _s459_) with | Some s_ => true | _ => false end then + (match (_s684_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B8" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s688_ _s459_) with | Some s_ => true | _ => false end then + (match (_s688_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3B9" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s692_ _s459_) with | Some s_ => true | _ => false end then + (match (_s692_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BA" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s696_ _s459_) with | Some s_ => true | _ => false end then + (match (_s696_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BB" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s700_ _s459_) with | Some s_ => true | _ => false end then + (match (_s700_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BC" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s704_ _s459_) with | Some s_ => true | _ => false end then + (match (_s704_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BD" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s708_ _s459_) with | Some s_ => true | _ => false end then + (match (_s708_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BE" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s712_ _s459_) with | Some s_ => true | _ => false end then + (match (_s712_ _s459_) with + | Some s_ => + returnm (Some + (Ox"3BF" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s716_ _s459_) with | Some s_ => true | _ => false end then + (match (_s716_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B00" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s720_ _s459_) with | Some s_ => true | _ => false end then + (match (_s720_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B02" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s724_ _s459_) with | Some s_ => true | _ => false end then + (match (_s724_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B80" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s728_ _s459_) with | Some s_ => true | _ => false end then + (match (_s728_ _s459_) with + | Some s_ => + returnm (Some + (Ox"B82" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s732_ _s459_) with | Some s_ => true | _ => false end then + (match (_s732_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A0" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s736_ _s459_) with | Some s_ => true | _ => false end then + (match (_s736_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A1" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s740_ _s459_) with | Some s_ => true | _ => false end then + (match (_s740_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A2" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s744_ _s459_) with | Some s_ => true | _ => false end then + (match (_s744_ _s459_) with + | Some s_ => + returnm (Some + (Ox"7A3" + : mword 12, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s748_ _s459_) with | Some (reg, s_) => true | _ => false end then + (match (_s748_ _s459_) with + | Some (reg, s_) => + returnm (Some + (reg, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 12 * {n : Z & ArithFact (n >=? 0)}))). + +Definition csr_name (csr : mword 12) : string := csr_name_map_forwards csr. + +Definition ext_is_CSR_defined (b__0 : mword 12) (g__325 : Privilege) : M (bool) := + (if eq_vec b__0 (Ox"000" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) + : M (bool) + else if eq_vec b__0 (Ox"004" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) + : M (bool) + else if eq_vec b__0 (Ox"005" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) + : M (bool) + else if eq_vec b__0 (Ox"040" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"041" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"042" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"043" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"044" : mword 12) then + (and_boolM ((haveUsrMode tt) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"001" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"002" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - (haveUsrMode tt) + else if eq_vec b__0 (Ox"003" : mword 12) then + (or_boolM ((haveFExt tt) : M (bool)) ((haveDExt tt) : M (bool))) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else returnm false) : M (bool). -Definition read_NExt_CSR (csr : mword 12) -: M (option (mword 64)) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then +Definition ext_read_CSR (b__0 : mword 12) : M (option (mword 64)) := + (if eq_vec b__0 (Ox"000" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => - returnm ((Some - (_get_Ustatus_bits (lower_sstatus (lower_mstatus w__0)))) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + returnm (Some (_get_Ustatus_bits (lower_sstatus (lower_mstatus w__0)))) + else if eq_vec b__0 (Ox"004" : mword 12) then read_reg mie_ref >>= fun w__1 : Minterrupts => read_reg mideleg_ref >>= fun w__2 : Minterrupts => read_reg sideleg_ref >>= fun w__3 : Sinterrupts => - returnm ((Some - (_get_Uinterrupts_bits (lower_sie (lower_mie w__1 w__2) w__3))) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_utvec tt) >>= fun w__4 : mword 64 => returnm ((Some (w__4)) : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg uscratch_ref) : M (mword 64)) >>= fun w__5 : mword 64 => - returnm ((Some - (w__5)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then + returnm (Some (_get_Uinterrupts_bits (lower_sie (lower_mie w__1 w__2) w__3))) + else if eq_vec b__0 (Ox"005" : mword 12) then + (get_utvec tt) >>= fun w__4 : mword 64 => returnm (Some w__4) + else if eq_vec b__0 (Ox"040" : mword 12) then + ((read_reg uscratch_ref) : M (mword 64)) >>= fun w__5 : mword 64 => returnm (Some w__5) + else if eq_vec b__0 (Ox"041" : mword 12) then (get_xret_target User) >>= fun w__6 : mword 64 => - (pc_alignment_mask tt) >>= fun w__7 : mword 64 => - returnm ((Some - (and_vec w__6 w__7)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg ucause_ref >>= fun w__8 : Mcause => - returnm ((Some - (_get_Mcause_bits w__8)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - ((read_reg utval_ref) : M (mword 64)) >>= fun w__9 : mword 64 => - returnm ((Some - (w__9)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + (pc_alignment_mask tt) >>= fun w__7 : mword 64 => returnm (Some (and_vec w__6 w__7)) + else if eq_vec b__0 (Ox"042" : mword 12) then + read_reg ucause_ref >>= fun w__8 : Mcause => returnm (Some (_get_Mcause_bits w__8)) + else if eq_vec b__0 (Ox"043" : mword 12) then + ((read_reg utval_ref) : M (mword 64)) >>= fun w__9 : mword 64 => returnm (Some w__9) + else if eq_vec b__0 (Ox"044" : mword 12) then read_reg mip_ref >>= fun w__10 : Minterrupts => read_reg mideleg_ref >>= fun w__11 : Minterrupts => read_reg sideleg_ref >>= fun w__12 : Sinterrupts => - returnm ((Some - (_get_Uinterrupts_bits (lower_sip (lower_mip w__10 w__11) w__12))) - : option (mword 64)) - else returnm (None : option (mword 64))) - : M (option xlenbits). - -Definition write_NExt_CSR (csr : mword 12) (value : mword 64) -: M (bool) := - - let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + returnm (Some (_get_Uinterrupts_bits (lower_sip (lower_mip w__10 w__11) w__12))) + else if eq_vec b__0 (Ox"001" : mword 12) then + read_reg fcsr_ref >>= fun w__13 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_FFLAGS w__13))) + else if eq_vec b__0 (Ox"002" : mword 12) then + read_reg fcsr_ref >>= fun w__14 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_FRM w__14))) + else if eq_vec b__0 (Ox"003" : mword 12) then + read_reg fcsr_ref >>= fun w__15 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_bits w__15))) + else returnm None) + : M (option (mword 64)). + +Definition ext_write_CSR (b__0 : mword 12) (value : mword 64) : M (option (mword 64)) := + (if eq_vec b__0 (Ox"000" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (legalize_ustatus w__0 value) >>= fun w__1 : Mstatus => write_reg mstatus_ref w__1 >> - read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__2)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (Some (_get_Mstatus_bits w__2)) + else if eq_vec b__0 (Ox"004" : mword 12) then read_reg mie_ref >>= fun w__3 : Minterrupts => read_reg mideleg_ref >>= fun w__4 : Minterrupts => read_reg sideleg_ref >>= fun w__5 : Sinterrupts => @@ -10319,36 +10494,21 @@ Definition write_NExt_CSR (csr : mword 12) (value : mword 64) read_reg mideleg_ref >>= fun w__7 : Minterrupts => (lift_sie w__6 w__7 sie) >>= fun w__8 : Minterrupts => write_reg mie_ref w__8 >> - read_reg mie_ref >>= fun w__9 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__9)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_utvec value) >>= fun w__10 : mword 64 => returnm ((Some (w__10)) : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + read_reg mie_ref >>= fun w__9 : Minterrupts => returnm (Some (_get_Minterrupts_bits w__9)) + else if eq_vec b__0 (Ox"005" : mword 12) then + (set_utvec value) >>= fun w__10 : mword 64 => returnm (Some w__10) + else if eq_vec b__0 (Ox"040" : mword 12) then write_reg uscratch_ref value >> - ((read_reg uscratch_ref) : M (mword 64)) >>= fun w__11 : mword 64 => - returnm ((Some - (w__11)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target User value) >>= fun w__12 : mword 64 => - returnm ((Some - (w__12)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg uscratch_ref) : M (mword 64)) >>= fun w__11 : mword 64 => returnm (Some w__11) + else if eq_vec b__0 (Ox"041" : mword 12) then + (set_xret_target User value) >>= fun w__12 : mword 64 => returnm (Some w__12) + else if eq_vec b__0 (Ox"042" : mword 12) then (_set_Mcause_bits ucause_ref value) >> - read_reg ucause_ref >>= fun w__13 : Mcause => - returnm ((Some - (_get_Mcause_bits w__13)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg ucause_ref >>= fun w__13 : Mcause => returnm (Some (_get_Mcause_bits w__13)) + else if eq_vec b__0 (Ox"043" : mword 12) then write_reg utval_ref value >> - ((read_reg utval_ref) : M (mword 64)) >>= fun w__14 : mword 64 => - returnm ((Some - (w__14)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + ((read_reg utval_ref) : M (mword 64)) >>= fun w__14 : mword 64 => returnm (Some w__14) + else if eq_vec b__0 (Ox"044" : mword 12) then read_reg mip_ref >>= fun w__15 : Minterrupts => read_reg mideleg_ref >>= fun w__16 : Minterrupts => read_reg sideleg_ref >>= fun w__17 : Sinterrupts => @@ -10357,401 +10517,209 @@ Definition write_NExt_CSR (csr : mword 12) (value : mword 64) read_reg mideleg_ref >>= fun w__19 : Minterrupts => (lift_sip w__18 w__19 sip) >>= fun w__20 : Minterrupts => write_reg mip_ref w__20 >> - read_reg mip_ref >>= fun w__21 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__21)) - : option (mword 64)) - else returnm (None : option (mword 64))) >>= fun res : option xlenbits => - returnm ((match res with - | Some (v) => - let '_ := - (if ((get_config_print_reg tt)) then - print_endline - (String.append "CSR " - (String.append (csr_name csr) - (String.append " <- " - (String.append (string_of_bits v) - (String.append " (input: " - (String.append (string_of_bits value) ")")))))) - else tt) - : unit in - true - | None => false - end) - : bool). - -Definition ext_is_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - - (is_NExt_CSR_defined csr p) - : M (bool). - -Definition ext_read_CSR (csr : mword 12) -: M (option (mword 64)) := - - (read_NExt_CSR csr) + read_reg mip_ref >>= fun w__21 : Minterrupts => returnm (Some (_get_Minterrupts_bits w__21)) + else if eq_vec b__0 (Ox"001" : mword 12) then + read_reg fcsr_ref >>= fun w__22 : Fcsr => + (ext_write_fcsr (_get_Fcsr_FRM w__22) (subrange_vec_dec value 4 0)) >> + read_reg fcsr_ref >>= fun w__23 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_FFLAGS w__23))) + else if eq_vec b__0 (Ox"002" : mword 12) then + read_reg fcsr_ref >>= fun w__24 : Fcsr => + (ext_write_fcsr (subrange_vec_dec value 2 0) (_get_Fcsr_FFLAGS w__24)) >> + read_reg fcsr_ref >>= fun w__25 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_FRM w__25))) + else if eq_vec b__0 (Ox"003" : mword 12) then + (ext_write_fcsr (subrange_vec_dec value 7 5) (subrange_vec_dec value 4 0)) >> + read_reg fcsr_ref >>= fun w__26 : Fcsr => returnm (Some (EXTZ 64 (_get_Fcsr_bits w__26))) + else returnm None) : M (option (mword 64)). -Definition ext_write_CSR (csr : mword 12) (value : mword 64) -: M (bool) := - - (write_NExt_CSR csr value) - : M (bool). - -Definition csrAccess (csr : mword 12) : mword 2 := subrange_vec_dec csr 11 10. +Definition csrAccess (csr : mword 12) : mword 2 := subrange_vec_dec csr 11 10. -Definition csrPriv (csr : mword 12) : mword 2 := subrange_vec_dec csr 9 8. +Definition csrPriv (csr : mword 12) : mword 2 := subrange_vec_dec csr 9 8. -Definition is_CSR_defined (csr : mword 12) (p : Privilege) -: M (bool) := - +Definition is_CSR_defined (csr : mword 12) (p : Privilege) : M (bool) := let b__0 := csr in - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__0 (Ox"F11" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F12" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F13" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"F14" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"300" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"301" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"302" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"303" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"304" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"305" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"306" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"340" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"341" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"342" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"343" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"344" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A1" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"3A2" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3A3" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"3B0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B1" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B2" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B3" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B4" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B5" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B6" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B7" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B8" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3B9" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BA" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BB" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BC" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BD" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BE" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"3BF" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B00" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B02" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"B80" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"B82" : mword 12) then + returnm (andb (generic_eq p Machine) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"7A0" : mword 12) then returnm (generic_eq p Machine) + else if eq_vec b__0 (Ox"100" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"102" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"103" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"104" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"105" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"106" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"140" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"141" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"142" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"143" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"144" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"180" : mword 12) then (and_boolM ((haveSupMode tt) : M (bool)) - (returnm ((orb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Machine) : mword 2)) - (eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2))) - : bool))) + (returnm ((orb (generic_eq p Machine) (generic_eq p Supervisor)) : bool))) : M (bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - returnm (projT1 - (build_ex - (andb (eq_vec (privLevel_to_bits p) ((privLevel_to_bits User) : mword 2)) (Z.eqb 64 32)) - : {_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (simp_0 = true /\ 64 = 32))})) + else if eq_vec b__0 (Ox"C00" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C01" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C02" : mword 12) then returnm (generic_eq p User) + else if eq_vec b__0 (Ox"C80" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"C81" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 64 32)) + else if eq_vec b__0 (Ox"C82" : mword 12) then returnm (andb (generic_eq p User) (Z.eqb 64 32)) else (ext_is_CSR_defined csr p) : M (bool)) : M (bool). -Definition check_CSR_access (csrrw : mword 2) (csrpr : mword 2) (p : Privilege) (isWrite : bool) +Definition check_CSR_access (csrrw : mword 2) (csrpr : mword 2) (p : Privilege) (isWrite : bool) : bool := - - andb (negb (andb (Bool.eqb isWrite true) (eq_vec csrrw (vec_of_bits [B1;B1] : mword 2)))) + andb (negb (andb (Bool.eqb isWrite true) (eq_vec csrrw ('b"11" : mword 2)))) (zopz0zKzJ_u (privLevel_to_bits p) csrpr). -Definition check_TVM_SATP (csr : mword 12) (p : Privilege) -: M (bool) := - - (and_boolM - (returnm ((eq_vec csr (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits p) ((privLevel_to_bits Supervisor) : mword 2)) - : bool)) +Definition check_TVM_SATP (csr : mword 12) (p : Privilege) : M (bool) := + (and_boolM (returnm ((eq_vec csr (Ox"180" : mword 12)) : bool)) + ((and_boolM (returnm ((generic_eq p Supervisor) : bool)) (read_reg mstatus_ref >>= fun w__0 : Mstatus => - returnm ((eq_vec (_get_Mstatus_TVM w__0) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_TVM w__0) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun w__2 : bool => - returnm ((negb w__2) - : bool). + returnm (negb w__2). -Definition check_Counteren (csr : mword 12) (p : Privilege) -: M (bool) := - +Definition check_Counteren (csr : mword 12) (p : Privilege) : M (bool) := (match (csr, p) with | (b__0, Supervisor) => - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__0 (Ox"C00" : mword 12) then read_reg mcounteren_ref >>= fun w__0 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__0) ((bool_to_bits true) : mword 1)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + returnm (eq_vec (_get_Counteren_CY w__0) ('b"1" : mword 1)) + else if eq_vec b__0 (Ox"C01" : mword 12) then read_reg mcounteren_ref >>= fun w__1 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__1) ((bool_to_bits true) : mword 1)) - : bool) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + returnm (eq_vec (_get_Counteren_TM w__1) ('b"1" : mword 1)) + else if eq_vec b__0 (Ox"C02" : mword 12) then read_reg mcounteren_ref >>= fun w__2 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__2) ((bool_to_bits true) : mword 1)) - : bool) + returnm (eq_vec (_get_Counteren_IR w__2) ('b"1" : mword 1)) else - returnm ((match (b__0, Supervisor) with - | (_, _) => - if ((andb - (zopz0zIzJ_u - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) - then - false - else true - end) - : bool)) + returnm (match (b__0, Supervisor) with + | (_, _) => + if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true + end)) : M (bool) | (b__3, User) => - (if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + (if eq_vec b__3 (Ox"C00" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__6 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__6) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_CY w__6) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__7 : bool => returnm ((negb w__7) : bool)) (read_reg scounteren_ref >>= fun w__8 : Counteren => - returnm ((eq_vec (_get_Counteren_CY w__8) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_CY w__8) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) - else if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__3 (Ox"C01" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__11 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__11) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_TM w__11) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__12 : bool => returnm ((negb w__12) : bool)) (read_reg scounteren_ref >>= fun w__13 : Counteren => - returnm ((eq_vec (_get_Counteren_TM w__13) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_TM w__13) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) - else if ((eq_vec b__3 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__3 (Ox"C02" : mword 12) then (and_boolM (read_reg mcounteren_ref >>= fun w__16 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__16) ((bool_to_bits true) : mword 1)) - : bool)) + returnm ((eq_vec (_get_Counteren_IR w__16) ('b"1" : mword 1)) : bool)) ((or_boolM ((haveSupMode tt) >>= fun w__17 : bool => returnm ((negb w__17) : bool)) (read_reg scounteren_ref >>= fun w__18 : Counteren => - returnm ((eq_vec (_get_Counteren_IR w__18) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Counteren_IR w__18) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool) else - returnm ((match (b__3, User) with - | (_, _) => - if ((andb - (zopz0zIzJ_u - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) - then - false - else true - end) - : bool)) + returnm (match (b__3, User) with + | (_, _) => + if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true + end)) : M (bool) | (_, _) => - returnm ((if ((andb - (zopz0zIzJ_u (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12) - csr) - (zopz0zIzJ_u csr - (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B1;B1;B1;B1;B1] : mword 12)))) then - false - else true) - : bool) + returnm (if andb (zopz0zIzJ_u (Ox"C03" : mword 12) csr) + (zopz0zIzJ_u csr (Ox"C1F" : mword 12)) then + false + else true) end) : M (bool). -Definition check_CSR (csr : mword 12) (p : Privilege) (isWrite : bool) -: M (bool) := - +Definition check_CSR (csr : mword 12) (p : Privilege) (isWrite : bool) : M (bool) := (and_boolM ((is_CSR_defined csr p) : M (bool)) ((and_boolM (returnm ((check_CSR_access (csrAccess csr) (csrPriv csr) p isWrite) : bool)) ((and_boolM ((check_TVM_SATP csr p) : M (bool)) ((check_Counteren csr p) : M (bool))) @@ -10767,223 +10735,166 @@ Axiom match_reservation : forall (_ : mword 64) , bool. Axiom cancel_reservation : forall (_ : unit) , unit. -Definition exception_delegatee (e : ExceptionType) (p : Privilege) -: M (Privilege) := - +Definition exception_delegatee (e : ExceptionType) (p : Privilege) : M (Privilege) := let idx := projT1 (num_of_ExceptionType e) in read_reg medeleg_ref >>= fun w__0 : Medeleg => - let super := access_vec_dec (_get_Medeleg_bits w__0) idx in + (bit_to_bool (access_vec_dec (_get_Medeleg_bits w__0) idx)) >>= fun super => (haveSupMode tt) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (and_boolM ((bit_to_bool super) : M (bool)) - ((and_boolM ((haveNExt tt) : M (bool)) - (read_reg sedeleg_ref >>= fun w__4 : Sedeleg => - (bit_to_bool (access_vec_dec (_get_Sedeleg_bits w__4) idx)) - : M (bool))) - : M (bool))) - : M (bool) - else (and_boolM ((bit_to_bool super) : M (bool)) ((haveNExt tt) : M (bool))) : M (bool)) >>= fun user => + (if sumbool_of_bool w__1 then + and_boolMP + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) + (build_trivial_ex + ((and_boolM ((haveNExt tt) : M (bool)) + (read_reg sedeleg_ref >>= fun w__3 : Sedeleg => + (bit_to_bool (access_vec_dec (_get_Sedeleg_bits w__3) idx)) + : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && simp_0) _bool = true)}) + else + and_boolMP + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) + (build_trivial_ex + ((haveNExt tt) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && simp_0) _bool = true)})) >>= fun '(existT _ user _) => (and_boolMP (build_trivial_ex ((haveUsrMode tt) : M (bool))) - ((returnm (build_ex - user)) : M ({_bool : bool & ArithFact (iff (_bool = true) (user = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (user = true /\ simp_0 = true))})) >>= fun '(existT _ w__12 _) => - (if sumbool_of_bool (w__12) then returnm (User : Privilege) + ((returnm (build_ex user)) : M ({_bool : bool & ArithFact (Bool.eqb user _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (user && + simp_0) _bool = true)})) >>= fun '(existT _ w__10 _) => + (if sumbool_of_bool w__10 then returnm User else - (and_boolM ((haveSupMode tt) : M (bool)) ((bit_to_bool super) : M (bool))) >>= fun w__15 : bool => - returnm ((if sumbool_of_bool (w__15) then Supervisor - else Machine) - : Privilege)) >>= fun deleg => - returnm ((if ((zopz0zI_u (privLevel_to_bits deleg) (privLevel_to_bits p))) then p - else deleg) - : Privilege). - -Definition findPendingInterrupt (ip : mword 64) -: option InterruptType := - + (and_boolMP (build_trivial_ex ((haveSupMode tt) : M (bool))) + ((returnm (build_ex super)) : M ({_bool : bool & ArithFact (Bool.eqb super _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (super && + simp_0) _bool = true)})) >>= fun '(existT _ w__12 _) => + returnm (if sumbool_of_bool w__12 then Supervisor else Machine)) >>= fun deleg => + returnm (if zopz0zI_u (privLevel_to_bits deleg) (privLevel_to_bits p) then p else deleg). + +Definition findPendingInterrupt (ip : mword 64) : option InterruptType := let ip := Mk_Minterrupts ip in - if ((eq_vec (_get_Minterrupts_MEI ip) ((bool_to_bits true) : mword 1))) then Some (I_M_External) - else if ((eq_vec (_get_Minterrupts_MSI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_M_Software) - else if ((eq_vec (_get_Minterrupts_MTI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_M_Timer) - else if ((eq_vec (_get_Minterrupts_SEI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_External) - else if ((eq_vec (_get_Minterrupts_SSI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_Software) - else if ((eq_vec (_get_Minterrupts_STI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_S_Timer) - else if ((eq_vec (_get_Minterrupts_UEI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_External) - else if ((eq_vec (_get_Minterrupts_USI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_Software) - else if ((eq_vec (_get_Minterrupts_UTI ip) ((bool_to_bits true) : mword 1))) then - Some - (I_U_Timer) + if eq_vec (_get_Minterrupts_MEI ip) ('b"1" : mword 1) then Some I_M_External + else if eq_vec (_get_Minterrupts_MSI ip) ('b"1" : mword 1) then Some I_M_Software + else if eq_vec (_get_Minterrupts_MTI ip) ('b"1" : mword 1) then Some I_M_Timer + else if eq_vec (_get_Minterrupts_SEI ip) ('b"1" : mword 1) then Some I_S_External + else if eq_vec (_get_Minterrupts_SSI ip) ('b"1" : mword 1) then Some I_S_Software + else if eq_vec (_get_Minterrupts_STI ip) ('b"1" : mword 1) then Some I_S_Timer + else if eq_vec (_get_Minterrupts_UEI ip) ('b"1" : mword 1) then Some I_U_External + else if eq_vec (_get_Minterrupts_USI ip) ('b"1" : mword 1) then Some I_U_Software + else if eq_vec (_get_Minterrupts_UTI ip) ('b"1" : mword 1) then Some I_U_Timer else None. Definition processPending -(xip : Minterrupts) (xie : Minterrupts) (xideleg : mword 64) (priv_enabled : bool) +(xip : Minterrupts) (xie : Minterrupts) (xideleg : mword 64) (priv_enabled : bool) : interrupt_set := - let effective_pend := and_vec (_get_Minterrupts_bits xip) (and_vec (_get_Minterrupts_bits xie) (not_vec xideleg)) in let effective_delg := and_vec (_get_Minterrupts_bits xip) xideleg in - if sumbool_of_bool ((andb priv_enabled - (neq_vec effective_pend (EXTZ 64 (vec_of_bits [B0] : mword 1))))) then - Ints_Pending - (effective_pend) - else if ((neq_vec effective_delg (EXTZ 64 (vec_of_bits [B0] : mword 1)))) then - Ints_Delegated - (effective_delg) - else Ints_Empty (tt). - -Definition getPendingSet (priv : Privilege) -: M (option ((mword 64 * Privilege))) := - + if sumbool_of_bool (andb priv_enabled (neq_vec effective_pend (EXTZ 64 ('b"0" : mword 1)))) then + Ints_Pending effective_pend + else if neq_vec effective_delg (EXTZ 64 ('b"0" : mword 1)) then Ints_Delegated effective_delg + else Ints_Empty tt. + +Definition getPendingSet (priv : Privilege) : M (option ((mword 64 * Privilege))) := (haveUsrMode tt) >>= fun w__0 : bool => assert_exp' w__0 "no user mode: M/U or M/S/U system required" >>= fun _ => read_reg mip_ref >>= fun w__1 : Minterrupts => read_reg mie_ref >>= fun w__2 : Minterrupts => let effective_pending := and_vec (_get_Minterrupts_bits w__1) (_get_Minterrupts_bits w__2) in - (if ((eq_vec effective_pending (EXTZ 64 (vec_of_bits [B0] : mword 1)))) then - returnm (None - : option ((mword 64 * Privilege))) + (if eq_vec effective_pending (EXTZ 64 ('b"0" : mword 1)) then returnm None else - (or_boolM - (returnm ((neq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) - : bool)) + (or_boolM (returnm ((generic_neq priv Machine) : bool)) + ((and_boolM (returnm ((generic_eq priv Machine) : bool)) (read_reg mstatus_ref >>= fun w__3 : Mstatus => - returnm ((eq_vec (_get_Mstatus_MIE w__3) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_MIE w__3) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun mIE => (and_boolM ((haveSupMode tt) : M (bool)) - ((or_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits User) : mword 2)) - : bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) - ((privLevel_to_bits Supervisor) - : mword 2)) - : bool)) + ((or_boolM (returnm ((generic_eq priv User) : bool)) + ((and_boolM (returnm ((generic_eq priv Supervisor) : bool)) (read_reg mstatus_ref >>= fun w__6 : Mstatus => - returnm ((eq_vec (_get_Mstatus_SIE w__6) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_SIE w__6) ('b"1" : mword 1)) : bool))) : M (bool))) : M (bool))) >>= fun sIE => (and_boolM ((haveNExt tt) : M (bool)) - ((and_boolM - (returnm ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits User) : mword 2)) - : bool)) + ((and_boolM (returnm ((generic_eq priv User) : bool)) (read_reg mstatus_ref >>= fun w__10 : Mstatus => - returnm ((eq_vec (_get_Mstatus_UIE w__10) ((bool_to_bits true) : mword 1)) - : bool))) + returnm ((eq_vec (_get_Mstatus_UIE w__10) ('b"1" : mword 1)) : bool))) : M (bool))) >>= fun uIE => read_reg mip_ref >>= fun w__12 : Minterrupts => read_reg mie_ref >>= fun w__13 : Minterrupts => read_reg mideleg_ref >>= fun w__14 : Minterrupts => (match (processPending w__12 w__13 (_get_Minterrupts_bits w__14) mIE) with - | Ints_Empty (tt) => returnm (None : option ((mword 64 * Privilege))) - | Ints_Pending (p) => + | Ints_Empty tt => returnm None + | Ints_Pending p => let r := (p, Machine) in - returnm ((Some - (r)) - : option ((mword 64 * Privilege))) - | Ints_Delegated (d) => + returnm (Some r) + | Ints_Delegated d => (haveSupMode tt) >>= fun w__15 : bool => - (if sumbool_of_bool ((negb w__15)) then - returnm ((if sumbool_of_bool (uIE) then - let r := (d, User) in - Some - (r) - else None) - : option ((mword 64 * Privilege))) + (if sumbool_of_bool (negb w__15) then + returnm (if sumbool_of_bool uIE then + let r := (d, User) in + Some r + else None) else read_reg mie_ref >>= fun w__16 : Minterrupts => read_reg sideleg_ref >>= fun w__17 : Sinterrupts => - returnm ((match (processPending (Mk_Minterrupts d) w__16 (_get_Sinterrupts_bits w__17) - sIE) with - | Ints_Empty (tt) => None - | Ints_Pending (p) => - let r := (p, Supervisor) in - Some - (r) - | Ints_Delegated (d) => - if sumbool_of_bool (uIE) then - let r := (d, User) in - Some - (r) - else None - end) - : option ((mword 64 * Privilege)))) + returnm (match (processPending (Mk_Minterrupts d) w__16 (_get_Sinterrupts_bits w__17) + sIE) with + | Ints_Empty tt => None + | Ints_Pending p => + let r := (p, Supervisor) in + Some r + | Ints_Delegated d => + if sumbool_of_bool uIE then + let r := (d, User) in + Some r + else None + end)) : M (option ((mword 64 * Privilege))) end) : M (option ((mword 64 * Privilege)))) : M (option ((mword 64 * Privilege))). -Definition dispatchInterrupt (priv : Privilege) -: M (option ((InterruptType * Privilege))) := - +Definition dispatchInterrupt (priv : Privilege) : M (option ((InterruptType * Privilege))) := (or_boolM ((haveUsrMode tt) >>= fun w__0 : bool => returnm ((negb w__0) : bool)) ((and_boolM ((haveSupMode tt) >>= fun w__1 : bool => returnm ((negb w__1) : bool)) ((haveNExt tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) : M (bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - assert_exp (eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2)) "invalid current privilege" >> + (if sumbool_of_bool w__4 then + assert_exp (generic_eq priv Machine) "invalid current privilege" >> read_reg mip_ref >>= fun w__5 : Minterrupts => read_reg mie_ref >>= fun w__6 : Minterrupts => let enabled_pending := and_vec (_get_Minterrupts_bits w__5) (_get_Minterrupts_bits w__6) in - returnm ((match (findPendingInterrupt enabled_pending) with - | Some (i) => - let r := (i, Machine) in - Some - (r) - | None => None - end) - : option ((InterruptType * Privilege))) + returnm (match (findPendingInterrupt enabled_pending) with + | Some i => + let r := (i, Machine) in + Some r + | None => None + end) else (getPendingSet priv) >>= fun w__7 : option ((mword 64 * Privilege)) => - returnm ((match w__7 with - | None => None - | Some ((ip, p)) => - match (findPendingInterrupt ip) with - | None => None - | Some (i) => - let r := (i, p) in - Some - (r) - end - end) - : option ((InterruptType * Privilege)))) + returnm (match w__7 with + | None => None + | Some (ip, p) => + match (findPendingInterrupt ip) with + | None => None + | Some i => + let r := (i, p) in + Some r + end + end)) : M (option ((InterruptType * Privilege))). -Definition tval (excinfo : option (mword 64)) -: mword 64 := - - match excinfo with | Some (e) => e | None => EXTZ 64 (vec_of_bits [B0] : mword 1) end. +Definition tval (excinfo : option (mword 64)) : mword 64 := + match excinfo with | Some e => e | None => EXTZ 64 ('b"0" : mword 1) end. -Definition rvfi_trap '(tt : unit) : unit := tt. +Definition rvfi_trap '(tt : unit) : unit := tt. Definition trap_handler (del_priv : Privilege) (intr : bool) (c : mword 8) (pc : mword 64) (info : option (mword 64)) -(ext : option unit) +(ext : option unit) : M (mword 64) := - let '_ := (rvfi_trap tt) : unit in let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "handling " - (String.append (if sumbool_of_bool (intr) then "int#" else "exc#") + (String.append (if sumbool_of_bool intr then "int#" else "exc#") (String.append (string_of_bits c) (String.append " at priv " (String.append (privLevel_to_str del_priv) @@ -10993,38 +10904,37 @@ Definition trap_handler let '_ := (cancel_reservation tt) : unit in (match del_priv with | Machine => - (_set_Mcause_IsInterrupt mcause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt mcause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause mcause_ref (EXTZ 63 c)) >> read_reg mstatus_ref >>= fun w__0 : Mstatus => (_set_Mstatus_MPIE mstatus_ref (_get_Mstatus_MIE w__0)) >> - (_set_Mstatus_MIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_MIE mstatus_ref ('b"0" : mword 1)) >> read_reg cur_privilege_ref >>= fun w__1 : Privilege => (_set_Mstatus_MPP mstatus_ref (privLevel_to_bits w__1)) >> write_reg mtval_ref (tval info) >> write_reg mepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__2)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__2)))) + else returnm tt) >> read_reg mcause_ref >>= fun w__3 : Mcause => (prepare_trap_vector del_priv w__3) : M (mword 64) | Supervisor => (haveSupMode tt) >>= fun w__5 : bool => assert_exp' w__5 "no supervisor mode present for delegation" >>= fun _ => - (_set_Mcause_IsInterrupt scause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt scause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause scause_ref (EXTZ 63 c)) >> read_reg mstatus_ref >>= fun w__6 : Mstatus => (_set_Mstatus_SPIE mstatus_ref (_get_Mstatus_SIE w__6)) >> - (_set_Mstatus_SIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_SIE mstatus_ref ('b"0" : mword 1)) >> read_reg cur_privilege_ref >>= fun w__7 : Privilege => (match w__7 with - | User => returnm ((bool_to_bits false) : mword 1) - | Supervisor => returnm ((bool_to_bits true) : mword 1) + | User => returnm ('b"0" : mword 1) + | Supervisor => returnm ('b"1" : mword 1) | Machine => (internal_error "invalid privilege for s-mode trap") : M (mword 1) end) >>= fun w__9 : mword 1 => (_set_Mstatus_SPP mstatus_ref w__9) >> @@ -11032,47 +10942,44 @@ Definition trap_handler write_reg sepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__10 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__10)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__10)))) + else returnm tt) >> read_reg scause_ref >>= fun w__11 : Mcause => (prepare_trap_vector del_priv w__11) : M (mword 64) | User => (haveUsrMode tt) >>= fun w__13 : bool => assert_exp' w__13 "no user mode present for delegation" >>= fun _ => - (_set_Mcause_IsInterrupt ucause_ref ((bool_to_bits intr) : mword 1)) >> + (_set_Mcause_IsInterrupt ucause_ref (bool_to_bits intr)) >> (_set_Mcause_Cause ucause_ref (EXTZ 63 c)) >> read_reg mstatus_ref >>= fun w__14 : Mstatus => (_set_Mstatus_UPIE mstatus_ref (_get_Mstatus_UIE w__14)) >> - (_set_Mstatus_UIE mstatus_ref ((bool_to_bits false) : mword 1)) >> + (_set_Mstatus_UIE mstatus_ref ('b"0" : mword 1)) >> write_reg utval_ref (tval info) >> write_reg uepc_ref pc >> write_reg cur_privilege_ref del_priv >> let '_ := (handle_trap_extension del_priv pc ext) : unit in - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__15 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__15)))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__15)))) + else returnm tt) >> read_reg ucause_ref >>= fun w__16 : Mcause => (prepare_trap_vector del_priv w__16) : M (mword 64) end) : M (mword 64). -Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mword 64) +Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mword 64) : M (mword 64) := - (match (cur_priv, ctl) with - | (_, CTL_TRAP (e)) => + | (_, CTL_TRAP e) => (exception_delegatee e.(sync_exception_trap) cur_priv) >>= fun del_priv => let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "trapping from " (String.append (privLevel_to_str cur_priv) @@ -11082,163 +10989,175 @@ Definition exception_handler (cur_priv : Privilege) (ctl : ctl_result) (pc : mwo (exceptionType_to_str e.(sync_exception_trap))))))) else tt) : unit in - (trap_handler del_priv false ((exceptionType_to_bits e.(sync_exception_trap)) : mword 8) pc + (trap_handler del_priv false (exceptionType_to_bits e.(sync_exception_trap)) pc e.(sync_exception_excinfo) e.(sync_exception_ext)) : M (mword 64) - | (_, CTL_MRET (tt)) => + | (_, CTL_MRET tt) => read_reg cur_privilege_ref >>= fun prev_priv => read_reg mstatus_ref >>= fun w__1 : Mstatus => (_set_Mstatus_MIE mstatus_ref (_get_Mstatus_MPIE w__1)) >> - (_set_Mstatus_MPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> + (_set_Mstatus_MPIE mstatus_ref ('b"1" : mword 1)) >> read_reg mstatus_ref >>= fun w__2 : Mstatus => (privLevel_of_bits (_get_Mstatus_MPP w__2)) >>= fun w__3 : Privilege => write_reg cur_privilege_ref w__3 >> (haveUsrMode tt) >>= fun w__4 : bool => (_set_Mstatus_MPP mstatus_ref - (privLevel_to_bits (if sumbool_of_bool (w__4) then User else Machine))) >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__5 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__5)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__6 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__6))))) - : unit) - else returnm (tt : unit)) >> + (privLevel_to_bits (if sumbool_of_bool w__4 then User else Machine))) >> + read_reg cur_privilege_ref >>= fun w__5 : Privilege => + (if generic_neq w__5 Machine then + (_set_Mstatus_MPRV mstatus_ref ('b"0" : mword 1)) + : M (unit) + else returnm tt) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__6 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__6)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__7 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__7))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target Machine) >>= fun w__7 : mword 64 => - (pc_alignment_mask tt) >>= fun w__8 : mword 64 => returnm ((and_vec w__7 w__8) : mword 64) - | (_, CTL_SRET (tt)) => + (prepare_xret_target Machine) >>= fun w__8 : mword 64 => + (pc_alignment_mask tt) >>= fun w__9 : mword 64 => returnm (and_vec w__8 w__9) + | (_, CTL_SRET tt) => read_reg cur_privilege_ref >>= fun prev_priv => - read_reg mstatus_ref >>= fun w__9 : Mstatus => - (_set_Mstatus_SIE mstatus_ref (_get_Mstatus_SPIE w__9)) >> - (_set_Mstatus_SPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> read_reg mstatus_ref >>= fun w__10 : Mstatus => + (_set_Mstatus_SIE mstatus_ref (_get_Mstatus_SPIE w__10)) >> + (_set_Mstatus_SPIE mstatus_ref ('b"1" : mword 1)) >> + read_reg mstatus_ref >>= fun w__11 : Mstatus => write_reg cur_privilege_ref - (if ((eq_vec (_get_Mstatus_SPP w__10) ((bool_to_bits true) : mword 1))) then Supervisor + (if eq_vec (_get_Mstatus_SPP w__11) ('b"1" : mword 1) then Supervisor else User) >> - (_set_Mstatus_SPP mstatus_ref ((bool_to_bits false) : mword 1)) >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__11 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__11)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__12 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__12))))) - : unit) - else returnm (tt : unit)) >> + (_set_Mstatus_SPP mstatus_ref ('b"0" : mword 1)) >> + read_reg cur_privilege_ref >>= fun w__12 : Privilege => + (if generic_neq w__12 Machine then + (_set_Mstatus_MPRV mstatus_ref ('b"0" : mword 1)) + : M (unit) + else returnm tt) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__13 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__13)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__14 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__14))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target Supervisor) >>= fun w__13 : mword 64 => - (pc_alignment_mask tt) >>= fun w__14 : mword 64 => - returnm ((and_vec w__13 w__14) - : mword 64) - | (_, CTL_URET (tt)) => + (prepare_xret_target Supervisor) >>= fun w__15 : mword 64 => + (pc_alignment_mask tt) >>= fun w__16 : mword 64 => returnm (and_vec w__15 w__16) + | (_, CTL_URET tt) => read_reg cur_privilege_ref >>= fun prev_priv => - read_reg mstatus_ref >>= fun w__15 : Mstatus => - (_set_Mstatus_UIE mstatus_ref (_get_Mstatus_UPIE w__15)) >> - (_set_Mstatus_UPIE mstatus_ref ((bool_to_bits true) : mword 1)) >> + read_reg mstatus_ref >>= fun w__17 : Mstatus => + (_set_Mstatus_UIE mstatus_ref (_get_Mstatus_UPIE w__17)) >> + (_set_Mstatus_UPIE mstatus_ref ('b"1" : mword 1)) >> write_reg cur_privilege_ref User >> - (if ((get_config_print_reg tt)) then - read_reg mstatus_ref >>= fun w__16 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__16)))) - : unit) - else returnm (tt : unit)) >> - (if ((get_config_print_platform tt)) then - read_reg cur_privilege_ref >>= fun w__17 : Privilege => - returnm ((print_endline - (String.append "ret-ing from " - (String.append (privLevel_to_str prev_priv) - (String.append " to " (privLevel_to_str w__17))))) - : unit) - else returnm (tt : unit)) >> + (if get_config_print_reg tt then + read_reg mstatus_ref >>= fun w__18 : Mstatus => + returnm (print_endline + (String.append "CSR mstatus <- " (string_of_bits (_get_Mstatus_bits w__18)))) + else returnm tt) >> + (if get_config_print_platform tt then + read_reg cur_privilege_ref >>= fun w__19 : Privilege => + returnm (print_endline + (String.append "ret-ing from " + (String.append (privLevel_to_str prev_priv) + (String.append " to " (privLevel_to_str w__19))))) + else returnm tt) >> let '_ := (cancel_reservation tt) : unit in - (prepare_xret_target User) >>= fun w__18 : mword 64 => - (pc_alignment_mask tt) >>= fun w__19 : mword 64 => - returnm ((and_vec w__18 w__19) - : mword 64) + (prepare_xret_target User) >>= fun w__20 : mword 64 => + (pc_alignment_mask tt) >>= fun w__21 : mword 64 => returnm (and_vec w__20 w__21) end) : M (mword 64). -Definition handle_mem_exception (addr : mword 64) (e : ExceptionType) -: M (unit) := - +Definition handle_mem_exception (addr : mword 64) (e : ExceptionType) : M (unit) := let t : sync_exception := {| sync_exception_trap := e; - sync_exception_excinfo := (Some (addr)); + sync_exception_excinfo := (Some addr); sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__0 : Privilege => ((read_reg PC_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - (exception_handler w__0 (CTL_TRAP (t)) w__1) >>= fun w__2 : mword 64 => + (exception_handler w__0 (CTL_TRAP t) w__1) >>= fun w__2 : mword 64 => (set_next_pc w__2) : M (unit). -Definition handle_interrupt (i : InterruptType) (del_priv : Privilege) -: M (unit) := - +Definition handle_exception (e : ExceptionType) : M (unit) := + let t : sync_exception := + {| sync_exception_trap := e; + sync_exception_excinfo := None; + sync_exception_ext := None |} in + read_reg cur_privilege_ref >>= fun w__0 : Privilege => + ((read_reg PC_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + (exception_handler w__0 (CTL_TRAP t) w__1) >>= fun w__2 : mword 64 => + (set_next_pc w__2) + : M (unit). + +Definition handle_interrupt (i : InterruptType) (del_priv : Privilege) : M (unit) := ((read_reg PC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - (trap_handler del_priv true ((interruptType_to_bits i) : mword 8) w__0 None None) >>= fun w__1 : mword 64 => + (trap_handler del_priv true (interruptType_to_bits i) w__0 None None) >>= fun w__1 : mword 64 => (set_next_pc w__1) : M (unit). -Definition init_sys '(tt : unit) -: M (unit) := - +Definition init_sys '(tt : unit) : M (unit) := write_reg cur_privilege_ref Machine >> - write_reg mhartid_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> + write_reg mhartid_ref (EXTZ 64 ('b"0" : mword 1)) >> (_set_Misa_MXL misa_ref (arch_to_bits RV64)) >> - (_set_Misa_A misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_C misa_ref ((bool_to_bits (sys_enable_rvc tt)) : mword 1)) >> - (_set_Misa_I misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_M misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_U misa_ref ((bool_to_bits true) : mword 1)) >> - (_set_Misa_S misa_ref ((bool_to_bits true) : mword 1)) >> + (_set_Misa_A misa_ref ('b"1" : mword 1)) >> + (_set_Misa_C misa_ref (bool_to_bits (sys_enable_rvc tt))) >> + (_set_Misa_I misa_ref ('b"1" : mword 1)) >> + (_set_Misa_M misa_ref ('b"1" : mword 1)) >> + (_set_Misa_U misa_ref ('b"1" : mword 1)) >> + (_set_Misa_S misa_ref ('b"1" : mword 1)) >> + (_set_Misa_F misa_ref (bool_to_bits (sys_enable_fdext tt))) >> + (_set_Misa_D misa_ref (bool_to_bits (sys_enable_fdext tt))) >> read_reg mstatus_ref >>= fun w__0 : Mstatus => read_reg misa_ref >>= fun w__1 : Misa => write_reg mstatus_ref (set_mstatus_SXL w__0 (_get_Misa_MXL w__1)) >> read_reg mstatus_ref >>= fun w__2 : Mstatus => read_reg misa_ref >>= fun w__3 : Misa => write_reg mstatus_ref (set_mstatus_UXL w__2 (_get_Misa_MXL w__3)) >> - (_set_Mstatus_SD mstatus_ref ((bool_to_bits false) : mword 1)) >> - (_set_Minterrupts_bits mip_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - (_set_Minterrupts_bits mie_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - (_set_Minterrupts_bits mideleg_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - (_set_Medeleg_bits medeleg_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - (_set_Mtvec_bits mtvec_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - (_set_Mcause_bits mcause_ref (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> - write_reg mepc_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - write_reg mtval_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - write_reg mscratch_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - write_reg mcycle_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - write_reg mtime_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> - (_set_Counteren_bits mcounteren_ref (EXTZ 32 (vec_of_bits [B0] : mword 1))) >> - write_reg minstret_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> + (_set_Mstatus_SD mstatus_ref ('b"0" : mword 1)) >> + (_set_Minterrupts_bits mip_ref (EXTZ 64 ('b"0" : mword 1))) >> + (_set_Minterrupts_bits mie_ref (EXTZ 64 ('b"0" : mword 1))) >> + (_set_Minterrupts_bits mideleg_ref (EXTZ 64 ('b"0" : mword 1))) >> + (_set_Medeleg_bits medeleg_ref (EXTZ 64 ('b"0" : mword 1))) >> + (_set_Mtvec_bits mtvec_ref (EXTZ 64 ('b"0" : mword 1))) >> + (_set_Mcause_bits mcause_ref (EXTZ 64 ('b"0" : mword 1))) >> + write_reg mepc_ref (EXTZ 64 ('b"0" : mword 1)) >> + write_reg mtval_ref (EXTZ 64 ('b"0" : mword 1)) >> + write_reg mscratch_ref (EXTZ 64 ('b"0" : mword 1)) >> + write_reg mcycle_ref (EXTZ 64 ('b"0" : mword 1)) >> + write_reg mtime_ref (EXTZ 64 ('b"0" : mword 1)) >> + (_set_Counteren_bits mcounteren_ref (EXTZ 32 ('b"0" : mword 1))) >> + write_reg minstret_ref (EXTZ 64 ('b"0" : mword 1)) >> write_reg minstret_written_ref false >> (init_pmp tt) >> - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then read_reg mstatus_ref >>= fun w__4 : Mstatus => - returnm ((print_endline - (String.append "CSR mstatus <- " - (String.append (string_of_bits (_get_Mstatus_bits w__4)) - (String.append " (input: " - (String.append - (string_of_bits ((EXTZ 64 (vec_of_bits [B0] : mword 1)) : xlenbits)) - ")"))))) - : unit) - else returnm (tt : unit)) + returnm (print_endline + (String.append "CSR mstatus <- " + (String.append (string_of_bits (_get_Mstatus_bits w__4)) + (String.append " (input: " + (String.append (string_of_bits ((EXTZ 64 ('b"0" : mword 1)) : xlenbits)) + ")"))))) + else returnm tt) : M (unit). +Definition MemoryOpResult_add_meta {t : Type} (r : MemoryOpResult t) (m : unit) +: MemoryOpResult ((t * unit)) := + match r with | MemValue v => MemValue (v, m) | MemException e => MemException e end. + +Definition MemoryOpResult_drop_meta {t : Type} (r : MemoryOpResult ((t * unit))) : MemoryOpResult t := + match r with | MemValue (v, m) => MemValue v | MemException e => MemException e end. + Axiom elf_tohost : forall (_ : unit) , Z. Axiom elf_entry : forall (_ : unit) , Z. @@ -11263,28 +11182,24 @@ Axiom plat_clint_base : forall (_ : unit) , mword 64. Axiom plat_clint_size : forall (_ : unit) , mword 64. -Definition plat_htif_tohost '(tt : unit) : mword 64 := to_bits 64 (elf_tohost tt). +Definition plat_htif_tohost '(tt : unit) : mword 64 := to_bits 64 (elf_tohost tt). -Definition phys_mem_segments '(tt : unit) -: list ((mword 64 * mword 64)) := - +Definition phys_mem_segments '(tt : unit) : list ((mword 64 * mword 64)) := (plat_rom_base tt, plat_rom_size tt) :: (plat_ram_base tt, plat_ram_size tt) :: []. -Definition within_phys_mem (addr : mword 64) (width : Z) `{ArithFact (width <= 16)} -: bool := - +Definition within_phys_mem (addr : mword 64) (width : Z) `{ArithFact (width <=? 16)} : bool := let addr_int := projT1 (uint addr) in let ram_base_int := projT1 (uint (plat_ram_base tt)) in let rom_base_int := projT1 (uint (plat_rom_base tt)) in let ram_size_int := projT1 (uint (plat_ram_size tt)) in let rom_size_int := projT1 (uint (plat_rom_size tt)) in - if sumbool_of_bool ((andb (Z.leb ram_base_int addr_int) - (Z.leb (Z.add addr_int (projT1 (__id width))) - (Z.add ram_base_int ram_size_int)))) then + if sumbool_of_bool + (andb (Z.leb ram_base_int addr_int) + (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add ram_base_int ram_size_int))) then true - else if sumbool_of_bool ((andb (Z.leb rom_base_int addr_int) - (Z.leb (Z.add addr_int (projT1 (__id width))) - (Z.add rom_base_int rom_size_int)))) then + else if sumbool_of_bool + (andb (Z.leb rom_base_int addr_int) + (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add rom_base_int rom_size_int))) then true else let '_ := @@ -11306,9 +11221,8 @@ Definition within_phys_mem (addr : mword 64) (width : Z) `{ArithFact (width <= 1 : unit in false. -Definition within_clint (addr : mword 64) (width : Z) `{ArithFact (0 < width /\ width <= 16)} +Definition within_clint (addr : mword 64) (width : Z) `{ArithFact ((0 <? width) && (width <=? 16))} : bool := - let addr_int := projT1 (uint addr) in let clint_base_int := projT1 (uint (plat_clint_base tt)) in let clint_size_int := projT1 (uint (plat_clint_size tt)) in @@ -11316,274 +11230,225 @@ Definition within_clint (addr : mword 64) (width : Z) `{ArithFact (0 < width /\ (Z.leb (Z.add addr_int (projT1 (__id width))) (Z.add clint_base_int clint_size_int)). Definition within_htif_writable (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (eq_vec (plat_htif_tohost tt) addr) (andb (eq_vec (add_vec_int (plat_htif_tohost tt) 4) addr) (Z.eqb width 4)). Definition within_htif_readable (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (eq_vec (plat_htif_tohost tt) addr) (andb (eq_vec (add_vec_int (plat_htif_tohost tt) 4) addr) (Z.eqb width 4)). Axiom plat_insns_per_tick : forall (_ : unit) , Z. -Definition MSIP_BASE : xlenbits := -EXTZ 64 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 20). +Definition MSIP_BASE : xlenbits := EXTZ 64 (Ox"00000" : mword 20). Hint Unfold MSIP_BASE : sail. -Definition MTIMECMP_BASE : xlenbits := -EXTZ 64 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 20). +Definition MTIMECMP_BASE : xlenbits := EXTZ 64 (Ox"04000" : mword 20). Hint Unfold MTIMECMP_BASE : sail. -Definition MTIMECMP_BASE_HI : xlenbits := -EXTZ 64 (vec_of_bits [B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0] : mword 20). +Definition MTIMECMP_BASE_HI : xlenbits := EXTZ 64 (Ox"04004" : mword 20). Hint Unfold MTIMECMP_BASE_HI : sail. -Definition MTIME_BASE : xlenbits := -EXTZ 64 (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B0;B0;B0] : mword 20). +Definition MTIME_BASE : xlenbits := EXTZ 64 (Ox"0BFF8" : mword 20). Hint Unfold MTIME_BASE : sail. -Definition MTIME_BASE_HI : xlenbits := -EXTZ 64 (vec_of_bits [B0;B0;B0;B0;B1;B0;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B1;B0;B0] : mword 20). +Definition MTIME_BASE_HI : xlenbits := EXTZ 64 (Ox"0BFFC" : mword 20). Hint Unfold MTIME_BASE_HI : sail. -Definition clint_load (addr : mword 64) (width : Z) `{ArithFact (width > 0)} +Definition clint_load (t : AccessType unit) (addr : mword 64) (width : Z) `{ArithFact (width >? 0)} : M (MemoryOpResult (mword (8 * width))) := - let addr := sub_vec addr (plat_clint_base tt) in - (if sumbool_of_bool ((andb (eq_vec addr MSIP_BASE) - (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4)))) - then - (if ((get_config_print_platform tt)) then + (if sumbool_of_bool + (andb (eq_vec addr MSIP_BASE) + (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4))) then + (if get_config_print_platform tt then read_reg mip_ref >>= fun w__0 : Minterrupts => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (_get_Minterrupts_MSI w__0)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (_get_Minterrupts_MSI w__0)))))) + else returnm tt) >> read_reg mip_ref >>= fun w__1 : Minterrupts => - returnm ((MemValue - (zero_extend (_get_Minterrupts_MSI w__1) (Z.mul 8 (projT1 (__id width))))) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (_get_Minterrupts_MSI w__1) (Z.mul 8 (projT1 (__id width))))) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - returnm ((print_endline - (String.append "clint<4>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (subrange_vec_dec w__2 31 0)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint<4>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (subrange_vec_dec w__2 31 0)))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__3 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__3 31 0) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__4 : mword 64 => - returnm ((print_endline - (String.append "clint<8>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__4))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint<8>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__4))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__5 : mword 64 => - returnm ((MemValue - (zero_extend w__5 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend w__5 _)) + else if sumbool_of_bool + (andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__6 : mword 64 => - returnm ((print_endline - (String.append "clint-hi<4>[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits (subrange_vec_dec w__6 63 32)))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint-hi<4>[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits (subrange_vec_dec w__6 63 32)))))) + else returnm tt) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__7 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__7 63 32) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 4))) then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__7 63 32) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__8 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__8))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__8))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__9 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__9 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 8))) then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend (subrange_vec_dec w__9 31 0) _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE) (Z.eqb (projT1 (__id width)) 8)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__10 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__10))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__10))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__11 : mword 64 => - returnm ((MemValue - (zero_extend w__11 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (eq_vec addr MTIME_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then - (if ((get_config_print_platform tt)) then + returnm (MemValue (zero_extend w__11 _)) + else if sumbool_of_bool (andb (eq_vec addr MTIME_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__12 : mword 64 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__12))))) - : unit) - else returnm (tt : unit)) >> + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] -> " (string_of_bits w__12))))) + else returnm tt) >> ((read_reg mtime_ref) : M (mword 64)) >>= fun w__13 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__13 63 32) _)) - : MemoryOpResult (mword (8 * width))) + returnm (MemValue (zero_extend (subrange_vec_dec w__13 63 32) _)) else let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint[" (String.append (string_of_bits addr) "] -> <not-mapped>")) else tt) : unit in - returnm ((MemException - (E_Load_Access_Fault)) - : MemoryOpResult (mword (8 * width)))) + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition clint_dispatch '(tt : unit) -: M (unit) := - - (if ((get_config_print_platform tt)) then +Definition clint_dispatch '(tt : unit) : M (unit) := + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline (String.append "clint::tick mtime <- " (string_of_bits w__0))) - : unit) - else returnm (tt : unit)) >> - (_set_Minterrupts_MTI mip_ref ((bool_to_bits false) : mword 1)) >> + returnm (print_endline (String.append "clint::tick mtime <- " (string_of_bits w__0))) + else returnm tt) >> + (_set_Minterrupts_MTI mip_ref ('b"0" : mword 1)) >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => ((read_reg mtime_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (if ((zopz0zIzJ_u w__1 w__2)) then - (if ((get_config_print_platform tt)) then + (if zopz0zIzJ_u w__1 w__2 then + (if get_config_print_platform tt then ((read_reg mtime_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((print_endline - (String.append " clint timer pending at mtime " (string_of_bits w__3))) - : unit) - else returnm (tt : unit)) >> - (_set_Minterrupts_MTI mip_ref ((bool_to_bits true) : mword 1)) + returnm (print_endline + (String.append " clint timer pending at mtime " (string_of_bits w__3))) + else returnm tt) >> + (_set_Minterrupts_MTI mip_ref ('b"1" : mword 1)) : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit). Definition clint_store (addr : mword 64) (width : Z) (data : mword (8 * width)) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : M (MemoryOpResult bool) := - let addr := sub_vec addr (plat_clint_base tt) in - (if sumbool_of_bool ((andb (eq_vec addr MSIP_BASE) - (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4)))) - then - (if ((get_config_print_platform tt)) then - (cast_unit_vec (access_vec_dec data 0)) >>= fun w__0 : mword 1 => - returnm ((print_endline - (String.append "clint[" - (String.append (string_of_bits addr) - (String.append "] <- " - (String.append (string_of_bits data) - (String.append " (mip.MSI <- " - (String.append (string_of_bits w__0) ")"))))))) - : unit) - else returnm (tt : unit)) >> - (cast_unit_vec (access_vec_dec data 0)) >>= fun w__1 : mword 1 => - (_set_Minterrupts_MSI mip_ref - ((bool_to_bits (eq_vec w__1 (vec_of_bits [B1] : mword 1))) - : mword 1)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8))) - then + (if sumbool_of_bool + (andb (eq_vec addr MSIP_BASE) + (orb (Z.eqb (projT1 (__id width)) 8) (Z.eqb (projT1 (__id width)) 4))) then + (if get_config_print_platform tt then + (string_of_bit (access_vec_dec data 0)) >>= fun w__0 : string => + returnm (print_endline + (String.append "clint[" + (String.append (string_of_bits addr) + (String.append "] <- " + (String.append (string_of_bits data) + (String.append " (mip.MSI <- " (String.append w__0 ")"))))))) + else returnm tt) >> + (_set_Minterrupts_MSI mip_ref (vec_of_bits [access_vec_dec data 0] : mword 1)) >> + (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 8)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<8>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - write_reg mtimecmp_ref (zero_extend data 64) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4))) - then + write_reg mtimecmp_ref (zero_extend data 64) >> (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool (andb (eq_vec addr MTIMECMP_BASE) (Z.eqb (projT1 (__id width)) 4)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<4>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - write_reg mtimecmp_ref (update_subrange_vec_dec w__2 31 0 (zero_extend data 32)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) - else if sumbool_of_bool ((andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4))) - then + ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + write_reg mtimecmp_ref (update_subrange_vec_dec w__1 31 0 (zero_extend data 32)) >> + (clint_dispatch tt) >> returnm (MemValue true) + else if sumbool_of_bool + (andb (eq_vec addr MTIMECMP_BASE_HI) (Z.eqb (projT1 (__id width)) 4)) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint<4>[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (mtimecmp)")))) else tt) : unit in - ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - write_reg mtimecmp_ref (update_subrange_vec_dec w__3 63 32 (zero_extend data 32)) >> - (clint_dispatch tt) >> returnm ((MemValue (true)) : MemoryOpResult bool) + ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => + write_reg mtimecmp_ref (update_subrange_vec_dec w__2 63 32 (zero_extend data 32)) >> + (clint_dispatch tt) >> returnm (MemValue true) else let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "clint[" (String.append (string_of_bits addr) (String.append "] <- " (String.append (string_of_bits data) " (<unmapped>)")))) else tt) : unit in - returnm ((MemException - (E_SAMO_Access_Fault)) - : MemoryOpResult bool)) + returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). -Definition tick_clock '(tt : unit) -: M (unit) := - - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - write_reg mcycle_ref (add_vec_int w__0 1) >> - ((read_reg mtime_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - write_reg mtime_ref (add_vec_int w__1 1) >> (clint_dispatch tt) : M (unit). +Definition tick_clock '(tt : unit) : M (unit) := + read_reg mcountinhibit_ref >>= fun w__0 : Counterin => + (if eq_vec (_get_Counterin_CY w__0) ('b"0" : mword 1) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__1 : mword 64 => + write_reg mcycle_ref (add_vec_int w__1 1) + : M (unit) + else returnm tt) >> + ((read_reg mtime_ref) : M (mword 64)) >>= fun w__2 : mword 64 => + write_reg mtime_ref (add_vec_int w__2 1) >> (clint_dispatch tt) : M (unit). Axiom plat_term_write : forall (_ : mword 8) , unit. Axiom plat_term_read : forall (_ : unit) , mword 8. -Definition Mk_htif_cmd (v : mword 64) -: htif_cmd := - +Definition Mk_htif_cmd (v : mword 64) : htif_cmd := {| htif_cmd_htif_cmd_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_htif_cmd_bits (v : htif_cmd) -: mword 64 := - +Definition _get_htif_cmd_bits (v : htif_cmd) : mword 64 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 0. Definition _set_htif_cmd_bits (r_ref : register_ref regstate register_value htif_cmd) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11593,22 +11458,17 @@ Definition _set_htif_cmd_bits (r_ref : register_ref regstate register_value htif write_reg r_ref r : M (unit). -Definition _update_htif_cmd_bits (v : htif_cmd) (x : mword 64) -: htif_cmd := - +Definition _update_htif_cmd_bits (v : htif_cmd) (x : mword 64) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_htif_cmd_device (v : htif_cmd) -: mword 8 := - +Definition _get_htif_cmd_device (v : htif_cmd) : mword 8 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 56. Definition _set_htif_cmd_device -(r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) +(r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11618,21 +11478,16 @@ Definition _set_htif_cmd_device write_reg r_ref r : M (unit). -Definition _update_htif_cmd_device (v : htif_cmd) (x : mword 8) -: htif_cmd := - +Definition _update_htif_cmd_device (v : htif_cmd) (x : mword 8) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 63 56 (subrange_vec_dec x 7 0)) ]}. -Definition _get_htif_cmd_cmd (v : htif_cmd) -: mword 8 := - +Definition _get_htif_cmd_cmd (v : htif_cmd) : mword 8 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 55 48. -Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) +Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_cmd) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11642,22 +11497,17 @@ Definition _set_htif_cmd_cmd (r_ref : register_ref regstate register_value htif_ write_reg r_ref r : M (unit). -Definition _update_htif_cmd_cmd (v : htif_cmd) (x : mword 8) -: htif_cmd := - +Definition _update_htif_cmd_cmd (v : htif_cmd) (x : mword 8) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 55 48 (subrange_vec_dec x 7 0)) ]}. -Definition _get_htif_cmd_payload (v : htif_cmd) -: mword 48 := - +Definition _get_htif_cmd_payload (v : htif_cmd) : mword 48 := subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 47 0. Definition _set_htif_cmd_payload -(r_ref : register_ref regstate register_value htif_cmd) (v : mword 48) +(r_ref : register_ref regstate register_value htif_cmd) (v : mword 48) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -11667,61 +11517,55 @@ Definition _set_htif_cmd_payload write_reg r_ref r : M (unit). -Definition _update_htif_cmd_payload (v : htif_cmd) (x : mword 48) -: htif_cmd := - +Definition _update_htif_cmd_payload (v : htif_cmd) (x : mword 48) : htif_cmd := {[ v with htif_cmd_htif_cmd_chunk_0 := (update_subrange_vec_dec v.(htif_cmd_htif_cmd_chunk_0) 47 0 (subrange_vec_dec x 47 0)) ]}. -Definition htif_load (addr : mword 64) (width : Z) `{ArithFact (width > 0)} +Definition htif_load (t : AccessType unit) (paddr : mword 64) (width : Z) `{ArithFact (width >? 0)} : M (MemoryOpResult (mword (8 * width))) := - - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline - (String.append "htif[" - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits w__0))))) - : unit) - else returnm (tt : unit)) >> - (if sumbool_of_bool ((andb (Z.eqb width 8) (eq_vec addr (plat_htif_tohost tt)))) then + returnm (print_endline + (String.append "htif[" + (String.append (string_of_bits paddr) + (String.append "] -> " (string_of_bits w__0))))) + else returnm tt) >> + (if sumbool_of_bool (andb (Z.eqb width 8) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - returnm ((MemValue - (zero_extend w__1 _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (Z.eqb width 4) (eq_vec addr (plat_htif_tohost tt)))) then + returnm (MemValue (zero_extend w__1 _)) + else if sumbool_of_bool (andb (Z.eqb width 4) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__2 31 0) _)) - : MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (Z.eqb width 4) - (eq_vec addr (add_vec_int (plat_htif_tohost tt) 4)))) then + returnm (MemValue (zero_extend (subrange_vec_dec w__2 31 0) _)) + else if sumbool_of_bool + (andb (Z.eqb width 4) (eq_vec paddr (add_vec_int (plat_htif_tohost tt) 4))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__3 : mword 64 => - returnm ((MemValue - (zero_extend (subrange_vec_dec w__3 63 32) _)) - : MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) + returnm (MemValue (zero_extend (subrange_vec_dec w__3 63 32) _)) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition htif_store (addr : mword 64) (width : Z) (data : mword (8 * width)) -`{ArithFact (0 < width /\ width <= 8)} +Definition htif_store (paddr : mword 64) (width : Z) (data : mword (8 * width)) +`{ArithFact ((0 <? width) && (width <=? 8))} : M (MemoryOpResult bool) := - let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "htif[" - (String.append (string_of_bits addr) (String.append "] <- " (string_of_bits data)))) + (String.append (string_of_bits paddr) (String.append "] <- " (string_of_bits data)))) else tt) : unit in - (if sumbool_of_bool ((Z.eqb width 8)) then write_reg htif_tohost_ref (EXTZ 64 data) : M (unit) - else if sumbool_of_bool ((andb (Z.eqb width 4) (eq_vec addr (plat_htif_tohost tt)))) then + (if sumbool_of_bool (Z.eqb width 8) then write_reg htif_tohost_ref (EXTZ 64 data) : M (unit) + else if sumbool_of_bool (andb (Z.eqb width 4) (eq_vec paddr (plat_htif_tohost tt))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => write_reg htif_tohost_ref (update_subrange_vec_dec w__0 31 0 (autocast (autocast data))) : M (unit) - else if sumbool_of_bool ((andb (Z.eqb width 4) - (eq_vec addr (add_vec_int (plat_htif_tohost tt) 4)))) then + else if sumbool_of_bool + (andb (Z.eqb width 4) (eq_vec paddr (add_vec_int (plat_htif_tohost tt) 4))) then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__1 : mword 64 => write_reg htif_tohost_ref (update_subrange_vec_dec w__1 63 32 (autocast (autocast data))) : M (unit) @@ -11729,417 +11573,358 @@ Definition htif_store (addr : mword 64) (width : Z) (data : mword (8 * width)) ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__2 : mword 64 => let cmd := Mk_htif_cmd w__2 in let b__0 := _get_htif_cmd_device cmd in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then + (if eq_vec b__0 (Ox"00" : mword 8) then let '_ := - (if ((get_config_print_platform tt)) then + (if get_config_print_platform tt then print_endline (String.append "htif-syscall-proxy cmd: " (string_of_bits (_get_htif_cmd_payload cmd))) else tt) : unit in - (cast_unit_vec (access_vec_dec (_get_htif_cmd_payload cmd) 0)) >>= fun w__3 : mword 1 => - (if ((eq_vec w__3 (vec_of_bits [B1] : mword 1))) then + (if eq_bit (access_vec_dec (_get_htif_cmd_payload cmd) 0) B1 then write_reg htif_done_ref true >> write_reg htif_exit_code_ref (shiftr (zero_extend (_get_htif_cmd_payload cmd) 64) 1) : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit) else - returnm ((if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8))) then - let '_ := - (if ((get_config_print_platform tt)) then - print_endline - (String.append "htif-term cmd: " - (string_of_bits (_get_htif_cmd_payload cmd))) - else tt) - : unit in - let b__2 := _get_htif_cmd_cmd cmd in - if ((eq_vec b__2 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then tt - else if ((eq_vec b__2 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B1] : mword 8))) then - plat_term_write (subrange_vec_dec (_get_htif_cmd_payload cmd) 7 0) - else print_endline (String.append "Unknown term cmd: " (string_of_bits b__2)) - else print_endline (String.append "htif-???? cmd: " (string_of_bits data))) - : unit)) >> - returnm ((MemValue - (true)) - : MemoryOpResult bool). - -Definition htif_tick '(tt : unit) -: M (unit) := - - (if ((get_config_print_platform tt)) then + returnm (if eq_vec b__0 (Ox"01" : mword 8) then + let '_ := + (if get_config_print_platform tt then + print_endline + (String.append "htif-term cmd: " + (string_of_bits (_get_htif_cmd_payload cmd))) + else tt) + : unit in + let b__2 := _get_htif_cmd_cmd cmd in + if eq_vec b__2 (Ox"00" : mword 8) then tt + else if eq_vec b__2 (Ox"01" : mword 8) then + plat_term_write (subrange_vec_dec (_get_htif_cmd_payload cmd) 7 0) + else print_endline (String.append "Unknown term cmd: " (string_of_bits b__2)) + else print_endline (String.append "htif-???? cmd: " (string_of_bits data)))) >> + returnm (MemValue true). + +Definition htif_tick '(tt : unit) : M (unit) := + (if get_config_print_platform tt then ((read_reg htif_tohost_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((print_endline (String.append "htif::tick " (string_of_bits w__0))) - : unit) - else returnm (tt : unit)) >> - write_reg htif_tohost_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) + returnm (print_endline (String.append "htif::tick " (string_of_bits w__0))) + else returnm tt) >> + write_reg htif_tohost_ref (EXTZ 64 ('b"0" : mword 1)) : M (unit). Definition within_mmio_readable (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (within_clint addr width) (andb (within_htif_readable addr width) (Z.leb 1 (projT1 (__id width)))). Definition within_mmio_writable (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : bool := - orb (within_clint addr width) (andb (within_htif_writable addr width) (Z.leb (projT1 (__id width)) 8)). -Definition mmio_read (addr : mword 64) (width : Z) `{ArithFact (0 < width /\ width <= 16)} +Definition mmio_read (t : AccessType unit) (paddr : mword 64) (width : Z) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult (mword (8 * width))) := - - (if ((within_clint addr width)) then - (clint_load addr width) + (if within_clint paddr width then + (clint_load t paddr width) : M (MemoryOpResult (mword (8 * width))) - else if sumbool_of_bool ((andb (within_htif_readable addr width) (Z.leb 1 (projT1 (__id width))))) - then - (htif_load addr width) + else if sumbool_of_bool + (andb (within_htif_readable paddr width) (Z.leb 1 (projT1 (__id width)))) then + (htif_load t paddr width) : M (MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) : M (MemoryOpResult (mword (8 * width))). -Definition mmio_write (addr : mword 64) (width : Z) (data : mword (8 * width)) -`{ArithFact (0 < width /\ width <= 16)} +Definition mmio_write (paddr : mword 64) (width : Z) (data : mword (8 * width)) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((within_clint addr width)) then (clint_store addr width data) : M (MemoryOpResult bool) - else if sumbool_of_bool ((andb (within_htif_writable addr width) (Z.leb (projT1 (__id width)) 8))) - then - (htif_store addr width data) + (if within_clint paddr width then (clint_store paddr width data) : M (MemoryOpResult bool) + else if sumbool_of_bool + (andb (within_htif_writable paddr width) (Z.leb (projT1 (__id width)) 8)) then + (htif_store paddr width data) : M (MemoryOpResult bool) - else returnm ((MemException (E_SAMO_Access_Fault)) : MemoryOpResult bool)) + else returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). -Definition init_platform '(tt : unit) -: M (unit) := - - write_reg htif_tohost_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) >> +Definition init_platform '(tt : unit) : M (unit) := + write_reg htif_tohost_ref (EXTZ 64 ('b"0" : mword 1)) >> write_reg htif_done_ref false >> - write_reg htif_exit_code_ref (EXTZ 64 (vec_of_bits [B0] : mword 1)) + write_reg htif_exit_code_ref (EXTZ 64 ('b"0" : mword 1)) : M (unit). -Definition tick_platform '(tt : unit) : M (unit) := (htif_tick tt) : M (unit). +Definition tick_platform '(tt : unit) : M (unit) := (htif_tick tt) : M (unit). -Definition handle_illegal '(tt : unit) -: M (unit) := - - (if ((plat_mtval_has_illegal_inst_bits tt)) then - ((read_reg instbits_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm ((Some - (w__0)) - : option (mword 64)) - else returnm (None : option (mword 64))) >>= fun info => +Definition handle_illegal '(tt : unit) : M (unit) := + (if plat_mtval_has_illegal_inst_bits tt then + ((read_reg instbits_ref) : M (mword 64)) >>= fun w__0 : mword 64 => returnm (Some w__0) + else returnm None) >>= fun info => let t : sync_exception := - {| sync_exception_trap := E_Illegal_Instr; + {| sync_exception_trap := (E_Illegal_Instr tt); sync_exception_excinfo := info; sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (exception_handler w__1 (CTL_TRAP (t)) w__2) >>= fun w__3 : mword 64 => + (exception_handler w__1 (CTL_TRAP t) w__2) >>= fun w__3 : mword 64 => (set_next_pc w__3) : M (unit). -Definition platform_wfi '(tt : unit) -: M (unit) := - +Definition platform_wfi '(tt : unit) : M (unit) := let '_ := (cancel_reservation tt) : unit in ((read_reg mtime_ref) : M (mword 64)) >>= fun w__0 : mword 64 => ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - (if ((zopz0zI_u w__0 w__1)) then + (if zopz0zI_u w__0 w__1 then ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__2 : mword 64 => write_reg mtime_ref w__2 >> ((read_reg mtimecmp_ref) : M (mword 64)) >>= fun w__3 : mword 64 => write_reg mcycle_ref w__3 : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit). -Definition is_aligned_addr (addr : mword 64) (width : Z) -: bool := - +Definition is_aligned_addr (addr : mword 64) (width : Z) : bool := Z.eqb (projT1 (emod_with_eq (projT1 (uint addr)) width)) 0. +Definition read_kind_of_flags (aq : bool) (rl : bool) (res : bool) : option read_kind := + match (aq, rl, res) with + | (false, false, false) => Some Read_plain + | (true, false, false) => Some Read_RISCV_acquire + | (true, true, false) => Some Read_RISCV_strong_acquire + | (false, false, true) => Some Read_RISCV_reserved + | (true, false, true) => Some Read_RISCV_reserved_acquire + | (true, true, true) => Some Read_RISCV_reserved_strong_acquire + | (false, true, false) => None + | (false, true, true) => None + end. + Definition phys_mem_read -(t : AccessType) (addr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (match (aq, rl, res) with - | (false, false, false) => - (read_ram Read_plain addr width) >>= fun w__0 : mword (8 * width) => - returnm ((Some - (w__0)) - : option (mword (8 * width))) - | (true, false, false) => - (read_ram Read_RISCV_acquire addr width) >>= fun w__1 : mword (8 * width) => - returnm ((Some - (w__1)) - : option (mword (8 * width))) - | (true, true, false) => - (read_ram Read_RISCV_strong_acquire addr width) >>= fun w__2 : mword (8 * width) => - returnm ((Some - (w__2)) - : option (mword (8 * width))) - | (false, false, true) => - (read_ram Read_RISCV_reserved addr width) >>= fun w__3 : mword (8 * width) => - returnm ((Some - (w__3)) - : option (mword (8 * width))) - | (true, false, true) => - (read_ram Read_RISCV_reserved_acquire addr width) >>= fun w__4 : mword (8 * width) => - returnm ((Some - (w__4)) - : option (mword (8 * width))) - | (true, true, true) => - (read_ram Read_RISCV_reserved_strong_acquire addr width) >>= fun w__5 : mword (8 * width) => - returnm ((Some - (w__5)) - : option (mword (8 * width))) - | (false, true, false) => returnm (None : option (mword (8 * width))) - | (false, true, true) => returnm (None : option (mword (8 * width))) - end) >>= fun w__6 : option (mword (8 * width)) => - let result := w__6 : option (bits (8 * width)) in - returnm ((match (t, result) with - | (Execute, None) => MemException (E_Fetch_Access_Fault) - | (Read, None) => MemException (E_Load_Access_Fault) - | (_, None) => MemException (E_SAMO_Access_Fault) - | (_, Some (v)) => - let '_ := - (if ((get_config_print_mem tt)) then - print_endline - (String.append "mem[" - (String.append (accessType_to_str t) - (String.append "," - (String.append (string_of_bits addr) - (String.append "] -> " (string_of_bits v)))))) - else tt) - : unit in - MemValue - (v) - end) - : MemoryOpResult (mword (8 * width))). +(t : AccessType unit) (paddr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (match (read_kind_of_flags aq rl res) with + | Some rk => + (read_ram rk paddr width meta) >>= fun w__0 : (mword (8 * width) * unit) => + returnm (Some w__0) + | None => returnm None + end) >>= fun w__1 : option ((mword (8 * width) * unit)) => + let result := w__1 : option ((bits (8 * width) * mem_meta)) in + returnm (match (t, result) with + | (Execute tt, None) => MemException (E_Fetch_Access_Fault tt) + | (Read Data, None) => MemException (E_Load_Access_Fault tt) + | (_, None) => MemException (E_SAMO_Access_Fault tt) + | (_, Some (v, m)) => + let '_ := + (if get_config_print_mem tt then + print_endline + (String.append "mem[" + (String.append (accessType_to_str t) + (String.append "," + (String.append (string_of_bits paddr) + (String.append "] -> " (string_of_bits v)))))) + else tt) + : unit in + MemValue (v, m) + end). Definition checked_mem_read -(t : AccessType) (addr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if ((within_mmio_readable addr width)) then - (mmio_read addr width) - : M (MemoryOpResult (mword (8 * width))) - else if ((within_phys_mem addr width)) then - (phys_mem_read t addr width aq rl res) - : M (MemoryOpResult (mword (8 * width))) - else returnm ((MemException (E_Load_Access_Fault)) : MemoryOpResult (mword (8 * width)))) - : M (MemoryOpResult (mword (8 * width))). +(t : AccessType unit) (paddr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if within_mmio_readable paddr width then + (mmio_read t paddr width) >>= fun w__0 : MemoryOpResult (mword (8 * width)) => + returnm (MemoryOpResult_add_meta w__0 default_meta) + else if within_phys_mem paddr width then + (phys_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) + else + returnm (match t with + | Execute tt => MemException (E_Fetch_Access_Fault tt) + | Read Data => MemException (E_Load_Access_Fault tt) + | _ => MemException (E_SAMO_Access_Fault tt) + end)) + : M (MemoryOpResult ((mword (8 * width) * unit))). Definition pmp_mem_read -(t : AccessType) (addr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if ((negb (plat_enable_pmp tt))) then - (checked_mem_read t addr width aq rl res) - : M (MemoryOpResult (mword (8 * width))) +(t : AccessType unit) (paddr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if negb (plat_enable_pmp tt) then + (checked_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) else read_reg mstatus_ref >>= fun w__1 : Mstatus => read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) >>= fun w__3 : Privilege => - (pmpCheck addr width t w__3) >>= fun w__4 : option ExceptionType => + (effectivePrivilege t w__1 w__2) >>= fun w__3 : Privilege => + (pmpCheck paddr width t w__3) >>= fun w__4 : option ExceptionType => (match w__4 with - | None => (checked_mem_read t addr width aq rl res) : M (MemoryOpResult (mword (8 * width))) - | Some (e) => returnm ((MemException (e)) : MemoryOpResult (mword (8 * width))) + | None => + (checked_mem_read t paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) + | Some e => returnm (MemException e) end) - : M (MemoryOpResult (mword (8 * width)))) - : M (MemoryOpResult (mword (8 * width))). + : M (MemoryOpResult ((mword (8 * width) * unit)))) + : M (MemoryOpResult ((mword (8 * width) * unit))). Definition rvfi_read (addr : mword 64) (width : Z) (value : MemoryOpResult (mword (8 * width))) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : unit := - tt. -Definition mem_read -(typ : AccessType) (addr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) -`{ArithFact (0 < width /\ width <= 16)} -: M (MemoryOpResult (mword (8 * width))) := - - (if sumbool_of_bool ((andb (orb aq res) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_Load_Addr_Align)) - : MemoryOpResult (mword (8 * width))) +Definition mem_read_meta +(typ : AccessType unit) (paddr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) +(meta : bool) `{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult ((mword (8 * width) * unit))) := + (if sumbool_of_bool (andb (orb aq res) (negb (is_aligned_addr paddr width))) then + returnm (MemException (E_Load_Addr_Align tt)) else (match (aq, rl, res) with - | (false, true, false) => throw (Error_not_implemented ("load.rl")) - | (false, true, true) => throw (Error_not_implemented ("lr.rl")) + | (false, true, false) => throw (Error_not_implemented "load.rl") + | (false, true, true) => throw (Error_not_implemented "lr.rl") | (_, _, _) => - (pmp_mem_read typ addr width aq rl res) : M (MemoryOpResult (mword (8 * width))) + (pmp_mem_read typ paddr width aq rl res meta) + : M (MemoryOpResult ((mword (8 * width) * unit))) end) - : M (MemoryOpResult (mword (8 * width)))) >>= fun result : MemoryOpResult (bits (8 * width)) => - let '_ := (rvfi_read addr width result) : unit in - returnm (result - : MemoryOpResult (mword (8 * width))). + : M (MemoryOpResult ((mword (8 * width) * unit)))) >>= fun result : MemoryOpResult ((bits (8 * width) * mem_meta)) => + let '_ := (rvfi_read paddr width (MemoryOpResult_drop_meta result)) : unit in + returnm result. + +Definition mem_read +(typ : AccessType unit) (paddr : mword 64) (width : Z) (aq : bool) (rl : bool) (res : bool) +`{ArithFact ((0 <? width) && (width <=? 16))} +: M (MemoryOpResult (mword (8 * width))) := + (mem_read_meta typ paddr width aq rl res false) >>= fun w__0 : MemoryOpResult ((mword (8 * width) * unit)) => + returnm (MemoryOpResult_drop_meta w__0). Definition mem_write_ea (addr : mword 64) (width : Z) (aq : bool) (rl : bool) (con : bool) -`{ArithFact (0 < width /\ width <= 16)} +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult unit) := - - (if sumbool_of_bool ((andb (orb rl con) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_SAMO_Addr_Align)) - : MemoryOpResult unit) + (if sumbool_of_bool (andb (orb rl con) (negb (is_aligned_addr addr width))) then + returnm (MemException (E_SAMO_Addr_Align tt)) else (match (aq, rl, con) with - | (false, false, false) => - (write_ram_ea Write_plain addr width) >> returnm ((MemValue (tt)) : MemoryOpResult unit) + | (false, false, false) => (write_ram_ea Write_plain addr width) >> returnm (MemValue tt) | (false, true, false) => - (write_ram_ea Write_RISCV_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_release addr width) >> returnm (MemValue tt) | (false, false, true) => - (write_ram_ea Write_RISCV_conditional addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_conditional addr width) >> returnm (MemValue tt) | (false, true, true) => - (write_ram_ea Write_RISCV_conditional_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) - | (true, false, false) => throw (Error_not_implemented ("store.aq")) + (write_ram_ea Write_RISCV_conditional_release addr width) >> returnm (MemValue tt) + | (true, false, false) => throw (Error_not_implemented "store.aq") | (true, true, false) => - (write_ram_ea Write_RISCV_strong_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) - | (true, false, true) => throw (Error_not_implemented ("sc.aq")) + (write_ram_ea Write_RISCV_strong_release addr width) >> returnm (MemValue tt) + | (true, false, true) => throw (Error_not_implemented "sc.aq") | (true, true, true) => - (write_ram_ea Write_RISCV_conditional_strong_release addr width) >> - returnm ((MemValue - (tt)) - : MemoryOpResult unit) + (write_ram_ea Write_RISCV_conditional_strong_release addr width) >> returnm (MemValue tt) end) : M (MemoryOpResult unit)) : M (MemoryOpResult unit). Definition rvfi_write (addr : mword 64) (width : Z) (value : mword (8 * width)) -`{ArithFact (width > 0)} +`{ArithFact (width >? 0)} : unit := - tt. Definition phys_mem_write -(wk : write_kind) (addr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - let '_ := (rvfi_write addr width data) : unit in - (write_ram wk addr width data meta) >>= fun w__0 : bool => - let result := MemValue (w__0) in + let '_ := (rvfi_write paddr width data) : unit in + (write_ram wk paddr width data meta) >>= fun w__0 : bool => + let result := MemValue w__0 in let '_ := - (if ((get_config_print_mem tt)) then + (if get_config_print_mem tt then print_endline (String.append "mem[" - (String.append (string_of_bits addr) (String.append "] <- " (string_of_bits data)))) + (String.append (string_of_bits paddr) (String.append "] <- " (string_of_bits data)))) else tt) : unit in - returnm (result - : MemoryOpResult bool). + returnm result. Definition checked_mem_write -(wk : write_kind) (addr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((within_mmio_writable addr width)) then - (mmio_write addr width data) + (if within_mmio_writable paddr width then + (mmio_write paddr width data) : M (MemoryOpResult bool) - else if ((within_phys_mem addr width)) then - (phys_mem_write wk addr width data meta) + else if within_phys_mem paddr width then + (phys_mem_write wk paddr width data meta) : M (MemoryOpResult bool) - else returnm ((MemException (E_SAMO_Access_Fault)) : MemoryOpResult bool)) + else returnm (MemException (E_SAMO_Access_Fault tt))) : M (MemoryOpResult bool). Definition pmp_mem_write -(wk : write_kind) (addr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} +(wk : write_kind) (paddr : mword 64) (width : Z) (data : mword (8 * width)) (ext_acc : unit) +(meta : unit) `{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (if ((negb (plat_enable_pmp tt))) then - (checked_mem_write wk addr width data meta) + (if negb (plat_enable_pmp tt) then + (checked_mem_write wk paddr width data meta) : M (MemoryOpResult bool) else + let typ : AccessType ext_access_type := Write ext_acc in read_reg mstatus_ref >>= fun w__1 : Mstatus => read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) >>= fun w__3 : Privilege => - (pmpCheck addr width Write w__3) >>= fun w__4 : option ExceptionType => + (effectivePrivilege typ w__1 w__2) >>= fun w__3 : Privilege => + (pmpCheck paddr width typ w__3) >>= fun w__4 : option ExceptionType => (match w__4 with - | None => (checked_mem_write wk addr width data meta) : M (MemoryOpResult bool) - | Some (e) => returnm ((MemException (e)) : MemoryOpResult bool) + | None => (checked_mem_write wk paddr width data meta) : M (MemoryOpResult bool) + | Some e => returnm (MemException e) end) : M (MemoryOpResult bool)) : M (MemoryOpResult bool). Definition mem_write_value_meta -(addr : mword 64) (width : Z) (value : mword (8 * width)) (meta : unit) (aq : bool) (rl : bool) -(con : bool) `{ArithFact (0 < width /\ width <= 16)} +(paddr : mword 64) (width : Z) (value : mword (8 * width)) (ext_acc : unit) (meta : unit) +(aq : bool) (rl : bool) (con : bool) `{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - let '_ := (rvfi_write addr width value) : unit in - (if sumbool_of_bool ((andb (orb rl con) (negb (is_aligned_addr addr width)))) then - returnm ((MemException - (E_SAMO_Addr_Align)) - : MemoryOpResult bool) + let '_ := (rvfi_write paddr width value) : unit in + (if sumbool_of_bool (andb (orb rl con) (negb (is_aligned_addr paddr width))) then + returnm (MemException (E_SAMO_Addr_Align tt)) else (match (aq, rl, con) with | (false, false, false) => - (pmp_mem_write Write_plain addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_plain paddr width value ext_acc meta) : M (MemoryOpResult bool) | (false, true, false) => - (pmp_mem_write Write_RISCV_release addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_RISCV_release paddr width value ext_acc meta) + : M (MemoryOpResult bool) | (false, false, true) => - (pmp_mem_write Write_RISCV_conditional addr width value meta) : M (MemoryOpResult bool) + (pmp_mem_write Write_RISCV_conditional paddr width value ext_acc meta) + : M (MemoryOpResult bool) | (false, true, true) => - (pmp_mem_write Write_RISCV_conditional_release addr width value meta) + (pmp_mem_write Write_RISCV_conditional_release paddr width value ext_acc meta) : M (MemoryOpResult bool) | (true, true, false) => - (pmp_mem_write Write_RISCV_strong_release addr width value meta) + (pmp_mem_write Write_RISCV_strong_release paddr width value ext_acc meta) : M (MemoryOpResult bool) | (true, true, true) => - (pmp_mem_write Write_RISCV_conditional_strong_release addr width value meta) + (pmp_mem_write Write_RISCV_conditional_strong_release paddr width value ext_acc meta) : M (MemoryOpResult bool) - | (true, false, false) => throw (Error_not_implemented ("store.aq")) - | (true, false, true) => throw (Error_not_implemented ("sc.aq")) + | (true, false, false) => throw (Error_not_implemented "store.aq") + | (true, false, true) => throw (Error_not_implemented "sc.aq") end) : M (MemoryOpResult bool)) : M (MemoryOpResult bool). Definition mem_write_value -(addr : mword 64) (width : Z) (value : mword (8 * width)) (aq : bool) (rl : bool) (con : bool) -`{ArithFact (0 < width /\ width <= 16)} +(paddr : mword 64) (width : Z) (value : mword (8 * width)) (aq : bool) (rl : bool) (con : bool) +`{ArithFact ((0 <? width) && (width <=? 16))} : M (MemoryOpResult bool) := - - (mem_write_value_meta addr width value default_meta aq rl con) + (mem_write_value_meta paddr width value default_write_acc default_meta aq rl con) : M (MemoryOpResult bool). -Definition PAGESIZE_BITS := 12. -Hint Unfold PAGESIZE_BITS : sail. -Definition Mk_PTE_Bits (v : mword 8) -: PTE_Bits := - +Definition Mk_PTE_Bits (v : mword 8) : PTE_Bits := {| PTE_Bits_PTE_Bits_chunk_0 := (subrange_vec_dec v 7 0) |}. -Definition _get_PTE_Bits_bits (v : PTE_Bits) -: mword 8 := - +Definition _get_PTE_Bits_bits (v : PTE_Bits) : mword 8 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 0. -Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 8) +Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12149,21 +11934,16 @@ Definition _set_PTE_Bits_bits (r_ref : register_ref regstate register_value PTE_ write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_bits (v : PTE_Bits) (x : mword 8) -: PTE_Bits := - +Definition _update_PTE_Bits_bits (v : PTE_Bits) (x : mword 8) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition _get_PTE_Bits_D (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_D (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 7. -Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12173,21 +11953,16 @@ Definition _set_PTE_Bits_D (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_D (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_D (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 7 7 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_A (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_A (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 6 6. -Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12197,21 +11972,16 @@ Definition _set_PTE_Bits_A (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_A (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_A (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 6 6 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_G (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_G (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 5 5. -Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12221,21 +11991,16 @@ Definition _set_PTE_Bits_G (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_G (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_G (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 5 5 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_U (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_U (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 4 4. -Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12245,21 +12010,16 @@ Definition _set_PTE_Bits_U (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_U (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_U (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 4 4 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_X (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_X (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 3 3. -Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12269,21 +12029,16 @@ Definition _set_PTE_Bits_X (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_X (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_X (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 3 3 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_W (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_W (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 2 2. -Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12293,21 +12048,16 @@ Definition _set_PTE_Bits_W (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_W (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_W (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 2 2 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_R (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_R (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 1 1. -Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12317,21 +12067,16 @@ Definition _set_PTE_Bits_R (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_R (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_R (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 1 1 (subrange_vec_dec x 0 0)) ]}. -Definition _get_PTE_Bits_V (v : PTE_Bits) -: mword 1 := - +Definition _get_PTE_Bits_V (v : PTE_Bits) : mword 1 := subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 0 0. -Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) +Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bits) (v : mword 1) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12341,142 +12086,116 @@ Definition _set_PTE_Bits_V (r_ref : register_ref regstate register_value PTE_Bit write_reg r_ref r : M (unit). -Definition _update_PTE_Bits_V (v : PTE_Bits) (x : mword 1) -: PTE_Bits := - +Definition _update_PTE_Bits_V (v : PTE_Bits) (x : mword 1) : PTE_Bits := {[ v with PTE_Bits_PTE_Bits_chunk_0 := (update_subrange_vec_dec v.(PTE_Bits_PTE_Bits_chunk_0) 0 0 (subrange_vec_dec x 0 0)) ]}. -Definition isPTEPtr (p : mword 8) -: bool := - +Definition isPTEPtr (p : mword 8) (ext : mword 10) : bool := let a := Mk_PTE_Bits p in - andb (eq_vec (_get_PTE_Bits_R a) ((bool_to_bits false) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W a) ((bool_to_bits false) : mword 1)) - (eq_vec (_get_PTE_Bits_X a) ((bool_to_bits false) : mword 1))). + andb (eq_vec (_get_PTE_Bits_R a) ('b"0" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W a) ('b"0" : mword 1)) + (eq_vec (_get_PTE_Bits_X a) ('b"0" : mword 1))). -Definition isInvalidPTE (p : mword 8) -: bool := - +Definition isInvalidPTE (p : mword 8) (ext : mword 10) : bool := let a := Mk_PTE_Bits p in - orb (eq_vec (_get_PTE_Bits_V a) ((bool_to_bits false) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W a) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_R a) ((bool_to_bits false) : mword 1))). + orb (eq_vec (_get_PTE_Bits_V a) ('b"0" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W a) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_R a) ('b"0" : mword 1))). + +Definition to_pte_check (b : bool) : PTE_Check := + if sumbool_of_bool b then PTE_Check_Success tt else PTE_Check_Failure tt. Definition checkPTEPermission -(ac : AccessType) (priv : Privilege) (mxr : bool) (do_sum : bool) (p : PTE_Bits) -: M (bool) := - +(ac : AccessType unit) (priv : Privilege) (mxr : bool) (do_sum : bool) (p : PTE_Bits) +(ext : mword 10) (ext_ptw : unit) +: M (PTE_Check) := (match (ac, priv) with - | (Read, User) => - returnm (andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr))) - | (Write, User) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1))) - : bool) - | (ReadWrite, User) => - returnm (andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr)))) - | (Execute, User) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits true) : mword 1)) - (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1))) - : bool) - | (Read, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr))) - | (Write, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1))) - | (ReadWrite, Supervisor) => - returnm (andb (orb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) do_sum) - (andb (eq_vec (_get_PTE_Bits_W p) ((bool_to_bits true) : mword 1)) - (orb (eq_vec (_get_PTE_Bits_R p) ((bool_to_bits true) : mword 1)) - (andb (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1)) mxr)))) - | (Execute, Supervisor) => - returnm ((andb (eq_vec (_get_PTE_Bits_U p) ((bool_to_bits false) : mword 1)) - (eq_vec (_get_PTE_Bits_X p) ((bool_to_bits true) : mword 1))) - : bool) - | (_, Machine) => (internal_error "m-mode mem perm check") : M (bool) + | (Read Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr)))) + | (Write Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)))) + | (ReadWrite Data, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr))))) + | (Execute tt, User) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"1" : mword 1)) + (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)))) + | (Read Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr)))) + | (Write Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)))) + | (ReadWrite Data, Supervisor) => + returnm (to_pte_check + (andb (orb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) do_sum) + (andb (eq_vec (_get_PTE_Bits_W p) ('b"1" : mword 1)) + (orb (eq_vec (_get_PTE_Bits_R p) ('b"1" : mword 1)) + (andb (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)) mxr))))) + | (Execute tt, Supervisor) => + returnm (to_pte_check + (andb (eq_vec (_get_PTE_Bits_U p) ('b"0" : mword 1)) + (eq_vec (_get_PTE_Bits_X p) ('b"1" : mword 1)))) + | (_, Machine) => (internal_error "m-mode mem perm check") : M (PTE_Check) end) - : M (bool). + : M (PTE_Check). -Definition update_PTE_Bits (p : PTE_Bits) (a : AccessType) -: option PTE_Bits := - +Definition update_PTE_Bits (p : PTE_Bits) (a : AccessType unit) (ext : mword 10) +: option ((PTE_Bits * mword 10)) := let update_d := - andb (orb (generic_eq a Write) (generic_eq a ReadWrite)) - (eq_vec (_get_PTE_Bits_D p) ((bool_to_bits false) : mword 1)) in - let update_a := eq_vec (_get_PTE_Bits_A p) ((bool_to_bits false) : mword 1) in - if sumbool_of_bool ((orb update_d update_a)) then - let np := _update_PTE_Bits_A p ((bool_to_bits true) : mword 1) in - let np := - if sumbool_of_bool (update_d) then _update_PTE_Bits_D np ((bool_to_bits true) : mword 1) - else np in - Some - (np) - else None. - -Definition PTW_Error_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 4)} -: PTW_Error := - - let l__8 := arg_ in - if sumbool_of_bool ((Z.eqb l__8 0)) then PTW_Access - else if sumbool_of_bool ((Z.eqb l__8 1)) then PTW_Invalid_PTE - else if sumbool_of_bool ((Z.eqb l__8 2)) then PTW_No_Permission - else if sumbool_of_bool ((Z.eqb l__8 3)) then PTW_Misaligned - else PTW_PTE_Update. - -Definition num_of_PTW_Error (arg_ : PTW_Error) -: {e : Z & ArithFact (0 <= e /\ e <= 4)} := - - build_ex(match arg_ with - | PTW_Access => 0 - | PTW_Invalid_PTE => 1 - | PTW_No_Permission => 2 - | PTW_Misaligned => 3 - | PTW_PTE_Update => 4 - end). + andb (orb (generic_eq a (Write Data)) (generic_eq a (ReadWrite Data))) + (eq_vec (_get_PTE_Bits_D p) ('b"0" : mword 1)) in + let update_a := eq_vec (_get_PTE_Bits_A p) ('b"0" : mword 1) in + if sumbool_of_bool (orb update_d update_a) then + let np := _update_PTE_Bits_A p ('b"1" : mword 1) in + let np := if sumbool_of_bool update_d then _update_PTE_Bits_D np ('b"1" : mword 1) else np in + Some (np, ext) + else None. -Definition ptw_error_to_str (e : PTW_Error) -: string := - +Definition ptw_error_to_str (e : PTW_Error) : string := match e with - | PTW_Access => "mem-access-error" - | PTW_Invalid_PTE => "invalid-pte" - | PTW_No_Permission => "no-permission" - | PTW_Misaligned => "misaligned-superpage" - | PTW_PTE_Update => "pte-update-needed" + | PTW_Invalid_Addr tt => "invalid-source-addr" + | PTW_Access tt => "mem-access-error" + | PTW_Invalid_PTE tt => "invalid-pte" + | PTW_No_Permission tt => "no-permission" + | PTW_Misaligned tt => "misaligned-superpage" + | PTW_PTE_Update tt => "pte-update-needed" + | PTW_Ext_Error e => "extension-error" end. -Definition translationException (a : AccessType) (f : PTW_Error) -: ExceptionType := - +Definition translationException (a : AccessType unit) (f : PTW_Error) : ExceptionType := match (a, f) with - | (ReadWrite, PTW_Access) => E_SAMO_Access_Fault - | (ReadWrite, _) => E_SAMO_Page_Fault - | (Read, PTW_Access) => E_Load_Access_Fault - | (Read, _) => E_Load_Page_Fault - | (Write, PTW_Access) => E_SAMO_Access_Fault - | (Write, _) => E_SAMO_Page_Fault - | (Fetch, PTW_Access) => E_Fetch_Access_Fault - | (Fetch, _) => E_Fetch_Page_Fault + | (_, PTW_Ext_Error e) => E_Extension (ext_translate_exception e) + | (ReadWrite Data, PTW_Access tt) => E_SAMO_Access_Fault tt + | (ReadWrite Data, _) => E_SAMO_Page_Fault tt + | (Read Data, PTW_Access tt) => E_Load_Access_Fault tt + | (Read Data, _) => E_Load_Page_Fault tt + | (Write Data, PTW_Access tt) => E_SAMO_Access_Fault tt + | (Write Data, _) => E_SAMO_Page_Fault tt + | (Execute tt, PTW_Access tt) => E_Fetch_Access_Fault tt + | (Execute tt, _) => E_Fetch_Page_Fault tt end. -Definition curAsid32 (satp : mword 32) -: mword 9 := - +Definition PAGESIZE_BITS := 12. +Hint Unfold PAGESIZE_BITS : sail. +Definition curAsid32 (satp : mword 32) : mword 9 := let s := Mk_Satp32 satp in _get_Satp32_Asid s. -Definition curPTB32 (satp : mword 32) -: mword 34 := - +Definition curPTB32 (satp : mword 32) : mword 34 := let s : Satp32 := Mk_Satp32 satp in shiftl (EXTZ 34 (_get_Satp32_PPN s)) PAGESIZE_BITS. @@ -12488,20 +12207,15 @@ Definition PTE32_LOG_SIZE := 2. Hint Unfold PTE32_LOG_SIZE : sail. Definition PTE32_SIZE := 4. Hint Unfold PTE32_SIZE : sail. -Definition Mk_SV32_Vaddr (v : mword 32) -: SV32_Vaddr := - +Definition Mk_SV32_Vaddr (v : mword 32) : SV32_Vaddr := {| SV32_Vaddr_SV32_Vaddr_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_SV32_Vaddr_bits (v : SV32_Vaddr) -: mword 32 := - +Definition _get_SV32_Vaddr_bits (v : SV32_Vaddr) : mword 32 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 0. Definition _set_SV32_Vaddr_bits -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 32) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 32) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12511,22 +12225,17 @@ Definition _set_SV32_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_bits (v : SV32_Vaddr) (x : mword 32) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_bits (v : SV32_Vaddr) (x : mword 32) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_SV32_Vaddr_VPNi (v : SV32_Vaddr) -: mword 20 := - +Definition _get_SV32_Vaddr_VPNi (v : SV32_Vaddr) : mword 20 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 12. Definition _set_SV32_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 20) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 20) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12536,22 +12245,17 @@ Definition _set_SV32_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_VPNi (v : SV32_Vaddr) (x : mword 20) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_VPNi (v : SV32_Vaddr) (x : mword 20) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 31 12 (subrange_vec_dec x 19 0)) ]}. -Definition _get_SV32_Vaddr_PgOfs (v : SV32_Vaddr) -: mword 12 := - +Definition _get_SV32_Vaddr_PgOfs (v : SV32_Vaddr) : mword 12 := subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 11 0. Definition _set_SV32_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV32_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12561,27 +12265,20 @@ Definition _set_SV32_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV32_Vaddr_PgOfs (v : SV32_Vaddr) (x : mword 12) -: SV32_Vaddr := - +Definition _update_SV32_Vaddr_PgOfs (v : SV32_Vaddr) (x : mword 12) : SV32_Vaddr := {[ v with SV32_Vaddr_SV32_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Vaddr_SV32_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV32_Paddr (v : mword 34) -: SV32_Paddr := - +Definition Mk_SV32_Paddr (v : mword 34) : SV32_Paddr := {| SV32_Paddr_SV32_Paddr_chunk_0 := (subrange_vec_dec v 33 0) |}. -Definition _get_SV32_Paddr_bits (v : SV32_Paddr) -: mword 34 := - +Definition _get_SV32_Paddr_bits (v : SV32_Paddr) : mword 34 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 0. Definition _set_SV32_Paddr_bits -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 34) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 34) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12591,22 +12288,17 @@ Definition _set_SV32_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_bits (v : SV32_Paddr) (x : mword 34) -: SV32_Paddr := - +Definition _update_SV32_Paddr_bits (v : SV32_Paddr) (x : mword 34) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 0 (subrange_vec_dec x 33 0)) ]}. -Definition _get_SV32_Paddr_PPNi (v : SV32_Paddr) -: mword 22 := - +Definition _get_SV32_Paddr_PPNi (v : SV32_Paddr) : mword 22 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 12. Definition _set_SV32_Paddr_PPNi -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 22) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 22) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12616,22 +12308,17 @@ Definition _set_SV32_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_PPNi (v : SV32_Paddr) (x : mword 22) -: SV32_Paddr := - +Definition _update_SV32_Paddr_PPNi (v : SV32_Paddr) (x : mword 22) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 33 12 (subrange_vec_dec x 21 0)) ]}. -Definition _get_SV32_Paddr_PgOfs (v : SV32_Paddr) -: mword 12 := - +Definition _get_SV32_Paddr_PgOfs (v : SV32_Paddr) : mword 12 := subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 11 0. Definition _set_SV32_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV32_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12641,27 +12328,19 @@ Definition _set_SV32_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV32_Paddr_PgOfs (v : SV32_Paddr) (x : mword 12) -: SV32_Paddr := - +Definition _update_SV32_Paddr_PgOfs (v : SV32_Paddr) (x : mword 12) : SV32_Paddr := {[ v with SV32_Paddr_SV32_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV32_Paddr_SV32_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV32_PTE (v : mword 32) -: SV32_PTE := - +Definition Mk_SV32_PTE (v : mword 32) : SV32_PTE := {| SV32_PTE_SV32_PTE_chunk_0 := (subrange_vec_dec v 31 0) |}. -Definition _get_SV32_PTE_bits (v : SV32_PTE) -: mword 32 := - +Definition _get_SV32_PTE_bits (v : SV32_PTE) : mword 32 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 0. Definition _set_SV32_PTE_bits (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 32) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12671,22 +12350,16 @@ Definition _set_SV32_PTE_bits (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_bits (v : SV32_PTE) (x : mword 32) -: SV32_PTE := - +Definition _update_SV32_PTE_bits (v : SV32_PTE) (x : mword 32) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 0 (subrange_vec_dec x 31 0)) ]}. -Definition _get_SV32_PTE_PPNi (v : SV32_PTE) -: mword 22 := - +Definition _get_SV32_PTE_PPNi (v : SV32_PTE) : mword 22 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 10. Definition _set_SV32_PTE_PPNi (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 22) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12696,21 +12369,16 @@ Definition _set_SV32_PTE_PPNi (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_PPNi (v : SV32_PTE) (x : mword 22) -: SV32_PTE := - +Definition _update_SV32_PTE_PPNi (v : SV32_PTE) (x : mword 22) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 31 10 (subrange_vec_dec x 21 0)) ]}. -Definition _get_SV32_PTE_RSW (v : SV32_PTE) -: mword 2 := - +Definition _get_SV32_PTE_RSW (v : SV32_PTE) : mword 2 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 9 8. -Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 2) +Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12720,21 +12388,16 @@ Definition _set_SV32_PTE_RSW (r_ref : register_ref regstate register_value SV32_ write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_RSW (v : SV32_PTE) (x : mword 2) -: SV32_PTE := - +Definition _update_SV32_PTE_RSW (v : SV32_PTE) (x : mword 2) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV32_PTE_BITS (v : SV32_PTE) -: mword 8 := - +Definition _get_SV32_PTE_BITS (v : SV32_PTE) : mword 8 := subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 7 0. -Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 8) +Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12744,22 +12407,16 @@ Definition _set_SV32_PTE_BITS (r_ref : register_ref regstate register_value SV32 write_reg r_ref r : M (unit). -Definition _update_SV32_PTE_BITS (v : SV32_PTE) (x : mword 8) -: SV32_PTE := - +Definition _update_SV32_PTE_BITS (v : SV32_PTE) (x : mword 8) : SV32_PTE := {[ v with SV32_PTE_SV32_PTE_chunk_0 := (update_subrange_vec_dec v.(SV32_PTE_SV32_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. -Definition curAsid64 (satp : mword 64) -: mword 16 := - +Definition curAsid64 (satp : mword 64) : mword 16 := let s := Mk_Satp64 satp in _get_Satp64_Asid s. -Definition curPTB64 (satp : mword 64) -: mword 56 := - +Definition curPTB64 (satp : mword 64) : mword 56 := let s := Mk_Satp64 satp in shiftl (EXTZ 56 (_get_Satp64_PPN s)) PAGESIZE_BITS. @@ -12771,20 +12428,15 @@ Definition PTE39_LOG_SIZE := 3. Hint Unfold PTE39_LOG_SIZE : sail. Definition PTE39_SIZE := 8. Hint Unfold PTE39_SIZE : sail. -Definition Mk_SV39_Vaddr (v : mword 39) -: SV39_Vaddr := - +Definition Mk_SV39_Vaddr (v : mword 39) : SV39_Vaddr := {| SV39_Vaddr_SV39_Vaddr_chunk_0 := (subrange_vec_dec v 38 0) |}. -Definition _get_SV39_Vaddr_bits (v : SV39_Vaddr) -: mword 39 := - +Definition _get_SV39_Vaddr_bits (v : SV39_Vaddr) : mword 39 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 0. Definition _set_SV39_Vaddr_bits -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 39) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 39) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12794,22 +12446,17 @@ Definition _set_SV39_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_bits (v : SV39_Vaddr) (x : mword 39) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_bits (v : SV39_Vaddr) (x : mword 39) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 0 (subrange_vec_dec x 38 0)) ]}. -Definition _get_SV39_Vaddr_VPNi (v : SV39_Vaddr) -: mword 27 := - +Definition _get_SV39_Vaddr_VPNi (v : SV39_Vaddr) : mword 27 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 12. Definition _set_SV39_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 27) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 27) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12819,22 +12466,17 @@ Definition _set_SV39_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_VPNi (v : SV39_Vaddr) (x : mword 27) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_VPNi (v : SV39_Vaddr) (x : mword 27) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 38 12 (subrange_vec_dec x 26 0)) ]}. -Definition _get_SV39_Vaddr_PgOfs (v : SV39_Vaddr) -: mword 12 := - +Definition _get_SV39_Vaddr_PgOfs (v : SV39_Vaddr) : mword 12 := subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 11 0. Definition _set_SV39_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV39_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12844,27 +12486,20 @@ Definition _set_SV39_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV39_Vaddr_PgOfs (v : SV39_Vaddr) (x : mword 12) -: SV39_Vaddr := - +Definition _update_SV39_Vaddr_PgOfs (v : SV39_Vaddr) (x : mword 12) : SV39_Vaddr := {[ v with SV39_Vaddr_SV39_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Vaddr_SV39_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV39_Paddr (v : mword 56) -: SV39_Paddr := - +Definition Mk_SV39_Paddr (v : mword 56) : SV39_Paddr := {| SV39_Paddr_SV39_Paddr_chunk_0 := (subrange_vec_dec v 55 0) |}. -Definition _get_SV39_Paddr_bits (v : SV39_Paddr) -: mword 56 := - +Definition _get_SV39_Paddr_bits (v : SV39_Paddr) : mword 56 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 0. Definition _set_SV39_Paddr_bits -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 56) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 56) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12874,22 +12509,17 @@ Definition _set_SV39_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_bits (v : SV39_Paddr) (x : mword 56) -: SV39_Paddr := - +Definition _update_SV39_Paddr_bits (v : SV39_Paddr) (x : mword 56) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 0 (subrange_vec_dec x 55 0)) ]}. -Definition _get_SV39_Paddr_PPNi (v : SV39_Paddr) -: mword 44 := - +Definition _get_SV39_Paddr_PPNi (v : SV39_Paddr) : mword 44 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 12. Definition _set_SV39_Paddr_PPNi -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 44) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12899,22 +12529,17 @@ Definition _set_SV39_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_PPNi (v : SV39_Paddr) (x : mword 44) -: SV39_Paddr := - +Definition _update_SV39_Paddr_PPNi (v : SV39_Paddr) (x : mword 44) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 55 12 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV39_Paddr_PgOfs (v : SV39_Paddr) -: mword 12 := - +Definition _get_SV39_Paddr_PgOfs (v : SV39_Paddr) : mword 12 := subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 11 0. Definition _set_SV39_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV39_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12924,27 +12549,19 @@ Definition _set_SV39_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV39_Paddr_PgOfs (v : SV39_Paddr) (x : mword 12) -: SV39_Paddr := - +Definition _update_SV39_Paddr_PgOfs (v : SV39_Paddr) (x : mword 12) : SV39_Paddr := {[ v with SV39_Paddr_SV39_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV39_Paddr_SV39_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV39_PTE (v : mword 64) -: SV39_PTE := - +Definition Mk_SV39_PTE (v : mword 64) : SV39_PTE := {| SV39_PTE_SV39_PTE_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_SV39_PTE_bits (v : SV39_PTE) -: mword 64 := - +Definition _get_SV39_PTE_bits (v : SV39_PTE) : mword 64 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 0. Definition _set_SV39_PTE_bits (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12954,22 +12571,35 @@ Definition _set_SV39_PTE_bits (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_bits (v : SV39_PTE) (x : mword 64) -: SV39_PTE := - +Definition _update_SV39_PTE_bits (v : SV39_PTE) (x : mword 64) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_SV39_PTE_PPNi (v : SV39_PTE) -: mword 44 := - +Definition _get_SV39_PTE_Ext (v : SV39_PTE) : mword 10 := + subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 54. + +Definition _set_SV39_PTE_Ext (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 10) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + SV39_PTE_SV39_PTE_chunk_0 := + (update_subrange_vec_dec r.(SV39_PTE_SV39_PTE_chunk_0) 63 54 (subrange_vec_dec v 9 0)) ]} + : SV39_PTE in + write_reg r_ref r + : M (unit). + +Definition _update_SV39_PTE_Ext (v : SV39_PTE) (x : mword 10) : SV39_PTE := + {[ v with + SV39_PTE_SV39_PTE_chunk_0 := + (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 63 54 (subrange_vec_dec x 9 0)) ]}. + +Definition _get_SV39_PTE_PPNi (v : SV39_PTE) : mword 44 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 53 10. Definition _set_SV39_PTE_PPNi (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 44) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -12979,21 +12609,16 @@ Definition _set_SV39_PTE_PPNi (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_PPNi (v : SV39_PTE) (x : mword 44) -: SV39_PTE := - +Definition _update_SV39_PTE_PPNi (v : SV39_PTE) (x : mword 44) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 53 10 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV39_PTE_RSW (v : SV39_PTE) -: mword 2 := - +Definition _get_SV39_PTE_RSW (v : SV39_PTE) : mword 2 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 9 8. -Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 2) +Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13003,21 +12628,16 @@ Definition _set_SV39_PTE_RSW (r_ref : register_ref regstate register_value SV39_ write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_RSW (v : SV39_PTE) (x : mword 2) -: SV39_PTE := - +Definition _update_SV39_PTE_RSW (v : SV39_PTE) (x : mword 2) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV39_PTE_BITS (v : SV39_PTE) -: mword 8 := - +Definition _get_SV39_PTE_BITS (v : SV39_PTE) : mword 8 := subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 7 0. -Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 8) +Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13027,9 +12647,7 @@ Definition _set_SV39_PTE_BITS (r_ref : register_ref regstate register_value SV39 write_reg r_ref r : M (unit). -Definition _update_SV39_PTE_BITS (v : SV39_PTE) (x : mword 8) -: SV39_PTE := - +Definition _update_SV39_PTE_BITS (v : SV39_PTE) (x : mword 8) : SV39_PTE := {[ v with SV39_PTE_SV39_PTE_chunk_0 := (update_subrange_vec_dec v.(SV39_PTE_SV39_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. @@ -13042,20 +12660,15 @@ Definition PTE48_LOG_SIZE := 3. Hint Unfold PTE48_LOG_SIZE : sail. Definition PTE48_SIZE := 8. Hint Unfold PTE48_SIZE : sail. -Definition Mk_SV48_Vaddr (v : mword 48) -: SV48_Vaddr := - +Definition Mk_SV48_Vaddr (v : mword 48) : SV48_Vaddr := {| SV48_Vaddr_SV48_Vaddr_chunk_0 := (subrange_vec_dec v 47 0) |}. -Definition _get_SV48_Vaddr_bits (v : SV48_Vaddr) -: mword 48 := - +Definition _get_SV48_Vaddr_bits (v : SV48_Vaddr) : mword 48 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 47 0. Definition _set_SV48_Vaddr_bits -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 48) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 48) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13065,22 +12678,17 @@ Definition _set_SV48_Vaddr_bits write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_bits (v : SV48_Vaddr) (x : mword 48) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_bits (v : SV48_Vaddr) (x : mword 48) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 47 0 (subrange_vec_dec x 47 0)) ]}. -Definition _get_SV48_Vaddr_VPNi (v : SV48_Vaddr) -: mword 27 := - +Definition _get_SV48_Vaddr_VPNi (v : SV48_Vaddr) : mword 27 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 38 12. Definition _set_SV48_Vaddr_VPNi -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 27) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 27) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13090,22 +12698,17 @@ Definition _set_SV48_Vaddr_VPNi write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_VPNi (v : SV48_Vaddr) (x : mword 27) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_VPNi (v : SV48_Vaddr) (x : mword 27) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 38 12 (subrange_vec_dec x 26 0)) ]}. -Definition _get_SV48_Vaddr_PgOfs (v : SV48_Vaddr) -: mword 12 := - +Definition _get_SV48_Vaddr_PgOfs (v : SV48_Vaddr) : mword 12 := subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 11 0. Definition _set_SV48_Vaddr_PgOfs -(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV48_Vaddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13115,27 +12718,20 @@ Definition _set_SV48_Vaddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV48_Vaddr_PgOfs (v : SV48_Vaddr) (x : mword 12) -: SV48_Vaddr := - +Definition _update_SV48_Vaddr_PgOfs (v : SV48_Vaddr) (x : mword 12) : SV48_Vaddr := {[ v with SV48_Vaddr_SV48_Vaddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Vaddr_SV48_Vaddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV48_Paddr (v : mword 56) -: SV48_Paddr := - +Definition Mk_SV48_Paddr (v : mword 56) : SV48_Paddr := {| SV48_Paddr_SV48_Paddr_chunk_0 := (subrange_vec_dec v 55 0) |}. -Definition _get_SV48_Paddr_bits (v : SV48_Paddr) -: mword 56 := - +Definition _get_SV48_Paddr_bits (v : SV48_Paddr) : mword 56 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 0. Definition _set_SV48_Paddr_bits -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 56) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 56) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13145,22 +12741,17 @@ Definition _set_SV48_Paddr_bits write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_bits (v : SV48_Paddr) (x : mword 56) -: SV48_Paddr := - +Definition _update_SV48_Paddr_bits (v : SV48_Paddr) (x : mword 56) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 0 (subrange_vec_dec x 55 0)) ]}. -Definition _get_SV48_Paddr_PPNi (v : SV48_Paddr) -: mword 44 := - +Definition _get_SV48_Paddr_PPNi (v : SV48_Paddr) : mword 44 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 12. Definition _set_SV48_Paddr_PPNi -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 44) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 44) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13170,22 +12761,17 @@ Definition _set_SV48_Paddr_PPNi write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_PPNi (v : SV48_Paddr) (x : mword 44) -: SV48_Paddr := - +Definition _update_SV48_Paddr_PPNi (v : SV48_Paddr) (x : mword 44) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 55 12 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV48_Paddr_PgOfs (v : SV48_Paddr) -: mword 12 := - +Definition _get_SV48_Paddr_PgOfs (v : SV48_Paddr) : mword 12 := subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 11 0. Definition _set_SV48_Paddr_PgOfs -(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 12) +(r_ref : register_ref regstate register_value SV48_Paddr) (v : mword 12) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13195,27 +12781,19 @@ Definition _set_SV48_Paddr_PgOfs write_reg r_ref r : M (unit). -Definition _update_SV48_Paddr_PgOfs (v : SV48_Paddr) (x : mword 12) -: SV48_Paddr := - +Definition _update_SV48_Paddr_PgOfs (v : SV48_Paddr) (x : mword 12) : SV48_Paddr := {[ v with SV48_Paddr_SV48_Paddr_chunk_0 := (update_subrange_vec_dec v.(SV48_Paddr_SV48_Paddr_chunk_0) 11 0 (subrange_vec_dec x 11 0)) ]}. -Definition Mk_SV48_PTE (v : mword 64) -: SV48_PTE := - +Definition Mk_SV48_PTE (v : mword 64) : SV48_PTE := {| SV48_PTE_SV48_PTE_chunk_0 := (subrange_vec_dec v 63 0) |}. -Definition _get_SV48_PTE_bits (v : SV48_PTE) -: mword 64 := - +Definition _get_SV48_PTE_bits (v : SV48_PTE) : mword 64 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 0. Definition _set_SV48_PTE_bits (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 64) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13225,22 +12803,35 @@ Definition _set_SV48_PTE_bits (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_bits (v : SV48_PTE) (x : mword 64) -: SV48_PTE := - +Definition _update_SV48_PTE_bits (v : SV48_PTE) (x : mword 64) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 0 (subrange_vec_dec x 63 0)) ]}. -Definition _get_SV48_PTE_PPNi (v : SV48_PTE) -: mword 44 := - +Definition _get_SV48_PTE_Ext (v : SV48_PTE) : mword 10 := + subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 54. + +Definition _set_SV48_PTE_Ext (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 10) +: M (unit) := + (reg_deref r_ref) >>= fun r => + let r := + {[ r with + SV48_PTE_SV48_PTE_chunk_0 := + (update_subrange_vec_dec r.(SV48_PTE_SV48_PTE_chunk_0) 63 54 (subrange_vec_dec v 9 0)) ]} + : SV48_PTE in + write_reg r_ref r + : M (unit). + +Definition _update_SV48_PTE_Ext (v : SV48_PTE) (x : mword 10) : SV48_PTE := + {[ v with + SV48_PTE_SV48_PTE_chunk_0 := + (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 63 54 (subrange_vec_dec x 9 0)) ]}. + +Definition _get_SV48_PTE_PPNi (v : SV48_PTE) : mword 44 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 53 10. Definition _set_SV48_PTE_PPNi (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 44) - : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13250,21 +12841,16 @@ Definition _set_SV48_PTE_PPNi (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_PPNi (v : SV48_PTE) (x : mword 44) -: SV48_PTE := - +Definition _update_SV48_PTE_PPNi (v : SV48_PTE) (x : mword 44) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 53 10 (subrange_vec_dec x 43 0)) ]}. -Definition _get_SV48_PTE_RSW (v : SV48_PTE) -: mword 2 := - +Definition _get_SV48_PTE_RSW (v : SV48_PTE) : mword 2 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 9 8. -Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 2) +Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 2) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13274,21 +12860,16 @@ Definition _set_SV48_PTE_RSW (r_ref : register_ref regstate register_value SV48_ write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_RSW (v : SV48_PTE) (x : mword 2) -: SV48_PTE := - +Definition _update_SV48_PTE_RSW (v : SV48_PTE) (x : mword 2) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 9 8 (subrange_vec_dec x 1 0)) ]}. -Definition _get_SV48_PTE_BITS (v : SV48_PTE) -: mword 8 := - +Definition _get_SV48_PTE_BITS (v : SV48_PTE) : mword 8 := subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 7 0. -Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 8) +Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48_PTE) (v : mword 8) : M (unit) := - (reg_deref r_ref) >>= fun r => let r := {[ r with @@ -13298,66 +12879,59 @@ Definition _set_SV48_PTE_BITS (r_ref : register_ref regstate register_value SV48 write_reg r_ref r : M (unit). -Definition _update_SV48_PTE_BITS (v : SV48_PTE) (x : mword 8) -: SV48_PTE := - +Definition _update_SV48_PTE_BITS (v : SV48_PTE) (x : mword 8) : SV48_PTE := {[ v with SV48_PTE_SV48_PTE_chunk_0 := (update_subrange_vec_dec v.(SV48_PTE_SV48_PTE_chunk_0) 7 0 (subrange_vec_dec x 7 0)) ]}. Definition make_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} (asid : mword asidlen) (global : bool) (vAddr : mword valen) (pAddr : mword palen) -(pte : mword ptelen) (level : Z) (pteAddr : mword palen) (levelBitSize : Z) `{ArithFact (valen > 0)} -`{ArithFact (0 <= level)} `{ArithFact (0 <= levelBitSize)} +(pte : mword ptelen) (level : Z) (pteAddr : mword palen) (levelBitSize : Z) +`{ArithFact (valen >? 0)} `{ArithFact (0 <=? level)} `{ArithFact (0 <=? levelBitSize)} : M (TLB_Entry asidlen valen palen ptelen) := - let shift := Z.add PAGESIZE_BITS (Z.mul level levelBitSize) in let vAddrMask : bits valen := sub_vec_int - (shiftl - (xor_vec vAddr (xor_vec vAddr (EXTZ (length_mword vAddr) (vec_of_bits [B1] : mword 1)))) - shift) 1 in + (shiftl (xor_vec vAddr (xor_vec vAddr (EXTZ (length_mword vAddr) ('b"1" : mword 1)))) shift) + 1 in let vMatchMask : bits valen := not_vec vAddrMask in ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - returnm (({| TLB_Entry_asid := asid; - TLB_Entry_global := global; - TLB_Entry_pte := pte; - TLB_Entry_pteAddr := pteAddr; - TLB_Entry_vAddrMask := vAddrMask; - TLB_Entry_vMatchMask := vMatchMask; - TLB_Entry_vAddr := (and_vec vAddr vMatchMask); - TLB_Entry_pAddr := (shiftl (shiftr pAddr shift) shift); - TLB_Entry_age := w__0 |}) - : TLB_Entry asidlen valen palen ptelen). + returnm ({| TLB_Entry_asid := asid; + TLB_Entry_global := global; + TLB_Entry_pte := pte; + TLB_Entry_pteAddr := pteAddr; + TLB_Entry_vAddrMask := vAddrMask; + TLB_Entry_vMatchMask := vMatchMask; + TLB_Entry_vAddr := (and_vec vAddr vMatchMask); + TLB_Entry_pAddr := (shiftl (shiftr pAddr shift) shift); + TLB_Entry_age := w__0 |}). Definition match_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} -(ent : TLB_Entry asidlen valen palen ptelen) (asid : mword asidlen) (vaddr : mword valen) +(ent : TLB_Entry asidlen valen palen ptelen) (asid : mword asidlen) (vaddr : mword valen) : bool := - andb (orb ent.(TLB_Entry_global) (eq_vec ent.(TLB_Entry_asid) asid)) (eq_vec ent.(TLB_Entry_vAddr) (and_vec ent.(TLB_Entry_vMatchMask) vaddr)). Definition flush_TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} (e : TLB_Entry asidlen valen palen ptelen) (asid : option (mword asidlen)) -(addr : option (mword valen)) +(addr : option (mword valen)) : bool := - match (asid, addr) with | (None, None) => true - | (None, Some (a)) => eq_vec e.(TLB_Entry_vAddr) (and_vec e.(TLB_Entry_vMatchMask) a) - | (Some (i), None) => andb (eq_vec e.(TLB_Entry_asid) i) (negb e.(TLB_Entry_global)) - | (Some (i), Some (a)) => + | (None, Some a) => eq_vec e.(TLB_Entry_vAddr) (and_vec e.(TLB_Entry_vMatchMask) a) + | (Some i, None) => andb (eq_vec e.(TLB_Entry_asid) i) (negb e.(TLB_Entry_global)) + | (Some i, Some a) => andb (eq_vec e.(TLB_Entry_asid) i) (andb (eq_vec e.(TLB_Entry_vAddr) (and_vec a e.(TLB_Entry_vMatchMask))) (negb e.(TLB_Entry_global))) end. Fixpoint _rec_walk39 -(vaddr : mword 39) (ac : AccessType) (priv : Privilege) (mxr : bool) (do_sum : bool) -(ptb : mword 56) (level : Z) (global : bool) (_reclimit : Z) `{ArithFact (0 <= level)} -(_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M (PTW_Result (mword 56) SV39_PTE) := - +(vaddr : mword 39) (ac : AccessType unit) (priv : Privilege) (mxr : bool) (do_sum : bool) +(ptb : mword 56) (level : Z) (global : bool) (ext_ptw : unit) (_reclimit : Z) +`{ArithFact (0 <=? level)} (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M (PTW_Result (mword 56) SV39_PTE). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let va := Mk_SV39_Vaddr vaddr in let pt_ofs : paddr64 := @@ -13368,180 +12942,159 @@ Fixpoint _rec_walk39 let pte_addr := add_vec ptb pt_ofs in (mem_read ac (EXTZ 64 pte_addr) 8 false false false) >>= fun w__0 : MemoryOpResult (mword (8 * 8)) => (match w__0 with - | MemException (_) => returnm ((PTW_Failure (PTW_Access)) : PTW_Result (mword 56) SV39_PTE) - | MemValue (v) => + | MemException _ => returnm (PTW_Failure (PTW_Access tt, ext_ptw)) + | MemValue v => let pte := Mk_SV39_PTE v in let pbits := _get_SV39_PTE_BITS pte in + let ext_pte := _get_SV39_PTE_Ext pte in let pattr := Mk_PTE_Bits pbits in - let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ((bool_to_bits true) : mword 1)) in - (if ((isInvalidPTE pbits)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 56) SV39_PTE) - else if ((isPTEPtr pbits)) then - (if sumbool_of_bool ((Z.eqb level 0)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 56) SV39_PTE) - else + let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ('b"1" : mword 1)) in + (if isInvalidPTE pbits ext_pte then returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw)) + else if isPTEPtr pbits ext_pte then + (if sumbool_of_bool (Z.gtb level 0) then (_rec_walk39 vaddr ac priv mxr do_sum (shiftl (EXTZ 56 (_get_SV39_PTE_PPNi pte)) PAGESIZE_BITS) (Z.sub level 1) is_global - (Z.sub _reclimit 1) (_limit_reduces _acc)) - : M (PTW_Result (mword 56) SV39_PTE)) + ext_ptw (Z.sub _reclimit 1) _ (_limit_reduces _acc)) + : M (PTW_Result (mword 56) SV39_PTE) + else returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw))) : M (PTW_Result (mword 56) SV39_PTE) else - (checkPTEPermission ac priv mxr do_sum pattr) >>= fun w__3 : bool => - returnm ((if sumbool_of_bool ((negb w__3)) then PTW_Failure (PTW_No_Permission) - else if sumbool_of_bool ((Z.gtb level 0)) then - let mask := - sub_vec_int - (shiftl - (xor_vec (_get_SV39_PTE_PPNi pte) - (xor_vec (_get_SV39_PTE_PPNi pte) - (EXTZ 44 (vec_of_bits [B1] : mword 1)))) - (Z.mul level SV39_LEVEL_BITS)) 1 in - if ((neq_vec (and_vec (_get_SV39_PTE_PPNi pte) mask) - (EXTZ 44 (vec_of_bits [B0] : mword 1)))) then - PTW_Failure - (PTW_Misaligned) + (checkPTEPermission ac priv mxr do_sum pattr ext_pte ext_ptw) >>= fun w__3 : PTE_Check => + returnm (match w__3 with + | PTE_Check_Failure ext_ptw => PTW_Failure (PTW_No_Permission tt, ext_ptw) + | PTE_Check_Success ext_ptw => + if sumbool_of_bool (Z.gtb level 0) then + let mask := + sub_vec_int + (shiftl + (xor_vec (_get_SV39_PTE_PPNi pte) + (xor_vec (_get_SV39_PTE_PPNi pte) (EXTZ 44 ('b"1" : mword 1)))) + (Z.mul level SV39_LEVEL_BITS)) 1 in + if neq_vec (and_vec (_get_SV39_PTE_PPNi pte) mask) + (EXTZ 44 ('b"0" : mword 1)) then + PTW_Failure (PTW_Misaligned tt, ext_ptw) + else + let ppn := + or_vec (_get_SV39_PTE_PPNi pte) + (and_vec (EXTZ 44 (_get_SV39_Vaddr_VPNi va)) mask) in + PTW_Success + (concat_vec ppn (_get_SV39_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) else - let ppn := - or_vec (_get_SV39_PTE_PPNi pte) - (and_vec (EXTZ 44 (_get_SV39_Vaddr_VPNi va)) mask) in PTW_Success - ((concat_vec ppn (_get_SV39_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global)) - else - PTW_Success - ((concat_vec (_get_SV39_PTE_PPNi pte) (_get_SV39_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global))) - : PTW_Result (mword 56) SV39_PTE)) + (concat_vec (_get_SV39_PTE_PPNi pte) (_get_SV39_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) + end)) : M (PTW_Result (mword 56) SV39_PTE) end) - : M (PTW_Result (mword 56) SV39_PTE). + : M (PTW_Result (mword 56) SV39_PTE) +). +Defined. + Definition walk39 -(_arg0 : mword 39) (_arg1 : AccessType) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) -(_arg5 : mword 56) (level : Z) (_arg7 : bool) `{ArithFact (0 <= level)} +(_arg0 : mword 39) (_arg1 : AccessType unit) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) +(_arg5 : mword 56) (level : Z) (_arg7 : bool) (_arg8 : unit) `{ArithFact (0 <=? level)} : M (PTW_Result (mword 56) SV39_PTE) := - - (_rec_walk39 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 (level : Z) (Zwf_guarded _)) + (_rec_walk39 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 _arg8 (level : Z) (Zwf_guarded _)) : M (PTW_Result (mword 56) SV39_PTE). -Definition lookup_TLB39 (asid : mword 16) (vaddr : mword 39) -: M (option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 16 39 56 64))) := - +Definition lookup_TLB39 (asid : mword 16) (vaddr : mword 39) +: M (option (({n : Z & ArithFact (n >=? 0)} * TLB_Entry 16 39 56 64))) := read_reg tlb39_ref >>= fun w__0 : option (TLB_Entry 16 39 56 64) => - returnm ((match w__0 with - | None => None - | Some (e) => if ((match_TLB_Entry e asid vaddr)) then Some ((build_ex 0, e)) else None - end) - : option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 16 39 56 64))). + returnm (match w__0 with + | None => None + | Some e => if match_TLB_Entry e asid vaddr then Some (build_ex 0, e) else None + end). Definition add_to_TLB39 (asid : mword 16) (vAddr : mword 39) (pAddr : mword 56) (pte : SV39_PTE) (pteAddr : mword 56) -(level : Z) (global : bool) `{ArithFact (0 <= level)} +(level : Z) (global : bool) `{ArithFact (0 <=? level)} : M (unit) := - (make_TLB_Entry asid global vAddr pAddr (_get_SV39_PTE_bits pte) level pteAddr SV39_LEVEL_BITS) >>= fun ent : TLB39_Entry => - write_reg tlb39_ref (Some (ent)) + write_reg tlb39_ref (Some ent) : M (unit). -Definition write_TLB39 (idx : Z) (ent : TLB_Entry 16 39 56 64) `{ArithFact (0 <= idx)} -: M (unit) := - - write_reg tlb39_ref (Some (ent)) - : M (unit). +Definition write_TLB39 (idx : Z) (ent : TLB_Entry 16 39 56 64) `{ArithFact (0 <=? idx)} : M (unit) := + write_reg tlb39_ref (Some ent) : M (unit). -Definition flush_TLB39 (asid : option (mword 16)) (addr : option (mword 39)) -: M (unit) := - +Definition flush_TLB39 (asid : option (mword 16)) (addr : option (mword 39)) : M (unit) := read_reg tlb39_ref >>= fun w__0 : option (TLB_Entry 16 39 56 64) => (match w__0 with - | None => returnm (tt : unit) - | Some (e) => - (if ((flush_TLB_Entry e asid addr)) then write_reg tlb39_ref None : M (unit) - else returnm (tt : unit)) + | None => returnm tt + | Some e => + (if flush_TLB_Entry e asid addr then write_reg tlb39_ref None : M (unit) + else returnm tt) : M (unit) end) : M (unit). Definition translate39 -(asid : mword 16) (ptb : mword 56) (vAddr : mword 39) (ac : AccessType) (priv : Privilege) -(mxr : bool) (do_sum : bool) (level : Z) `{ArithFact (0 <= level)} +(asid : mword 16) (ptb : mword 56) (vAddr : mword 39) (ac : AccessType unit) (priv : Privilege) +(mxr : bool) (do_sum : bool) (level : Z) (ext_ptw : unit) `{ArithFact (0 <=? level)} : M (TR_Result (mword 56) PTW_Error) := - - (lookup_TLB39 asid vAddr) >>= fun w__0 : option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 16 39 56 64)) => + (lookup_TLB39 asid vAddr) >>= fun w__0 : option (({n : Z & ArithFact (n >=? 0)} * TLB_Entry 16 39 56 64)) => (match w__0 with - | Some ((existT _ idx _, ent)) => + | Some (existT _ idx _, ent) => let pte := Mk_SV39_PTE ent.(TLB_Entry_pte) in + let ext_pte := _get_SV39_PTE_Ext pte in let pteBits := Mk_PTE_Bits (_get_SV39_PTE_BITS pte) in - (checkPTEPermission ac priv mxr do_sum pteBits) >>= fun w__1 : bool => - (if sumbool_of_bool ((negb w__1)) then - returnm ((TR_Failure - (PTW_No_Permission)) - : TR_Result (mword 56) PTW_Error) - else - (match (update_PTE_Bits pteBits ac) with - | None => - returnm ((TR_Address + (checkPTEPermission ac priv mxr do_sum pteBits ext_pte ext_ptw) >>= fun w__1 : PTE_Check => + (match w__1 with + | PTE_Check_Failure ext_ptw => returnm (TR_Failure (PTW_No_Permission tt, ext_ptw)) + | PTE_Check_Success ext_ptw => + (match (update_PTE_Bits pteBits ac ext_pte) with + | None => + returnm (TR_Address (or_vec ent.(TLB_Entry_pAddr) - (EXTZ 56 (and_vec vAddr ent.(TLB_Entry_vAddrMask))))) - : TR_Result (mword 56) PTW_Error) - | Some (pbits) => - (if ((negb (plat_enable_dirty_update tt))) then - returnm ((TR_Failure - (PTW_PTE_Update)) - : TR_Result (mword 56) PTW_Error) - else - let n_pte := _update_SV39_PTE_BITS pte (_get_PTE_Bits_bits pbits) in - let n_ent : TLB39_Entry := ent in - let n_ent := - {[ n_ent with TLB_Entry_pte := (_get_SV39_PTE_bits n_pte) ]} - : TLB_Entry 16 39 56 64 in - (write_TLB39 idx n_ent) >> - (mem_write_value (EXTZ 64 ent.(TLB_Entry_pteAddr)) 8 (_get_SV39_PTE_bits n_pte) - false false false) >>= fun w__2 : MemoryOpResult bool => - (match w__2 with - | MemValue (_) => returnm (tt : unit) - | MemException (e) => - (internal_error "invalid physical address in TLB") : M (unit) - end) >> - returnm ((TR_Address + (EXTZ 56 (and_vec vAddr ent.(TLB_Entry_vAddrMask))), ext_ptw)) + | Some (pbits, ext) => + (if negb (plat_enable_dirty_update tt) then + returnm (TR_Failure (PTW_PTE_Update tt, ext_ptw)) + else + let n_pte := _update_SV39_PTE_BITS pte (_get_PTE_Bits_bits pbits) in + let n_pte := (_update_SV39_PTE_Ext n_pte ext) : SV39_PTE in + let n_ent : TLB39_Entry := ent in + let n_ent := + {[ n_ent with TLB_Entry_pte := (_get_SV39_PTE_bits n_pte) ]} + : TLB_Entry 16 39 56 64 in + (write_TLB39 idx n_ent) >> + (mem_write_value (EXTZ 64 ent.(TLB_Entry_pteAddr)) 8 (_get_SV39_PTE_bits n_pte) + false false false) >>= fun w__2 : MemoryOpResult bool => + (match w__2 with + | MemValue _ => returnm tt + | MemException e => + (internal_error "invalid physical address in TLB") : M (unit) + end) >> + returnm (TR_Address (or_vec ent.(TLB_Entry_pAddr) - (EXTZ 56 (and_vec vAddr ent.(TLB_Entry_vAddrMask))))) - : TR_Result (mword 56) PTW_Error)) - : M (TR_Result (mword 56) PTW_Error) - end) - : M (TR_Result (mword 56) PTW_Error)) + (EXTZ 56 (and_vec vAddr ent.(TLB_Entry_vAddrMask))), ext_ptw))) + : M (TR_Result (mword 56) PTW_Error) + end) + : M (TR_Result (mword 56) PTW_Error) + end) : M (TR_Result (mword 56) PTW_Error) | None => - (walk39 vAddr ac priv mxr do_sum ptb level false) >>= fun w__6 : PTW_Result (mword 56) SV39_PTE => + (walk39 vAddr ac priv mxr do_sum ptb level false ext_ptw) >>= fun w__6 : PTW_Result (mword 56) SV39_PTE => (match w__6 with - | PTW_Failure (f) => returnm ((TR_Failure (f)) : TR_Result (mword 56) PTW_Error) - | PTW_Success ((pAddr, pte, pteAddr, existT _ level _, global)) => - (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV39_PTE_BITS pte)) ac) with + | PTW_Failure (f, ext_ptw) => returnm (TR_Failure (f, ext_ptw)) + | PTW_Success (pAddr, pte, pteAddr, existT _ level _, global, ext_ptw) => + (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV39_PTE_BITS pte)) ac (_get_SV39_PTE_Ext pte)) with | None => (add_to_TLB39 asid vAddr pAddr pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 56) PTW_Error) - | Some (pbits) => - (if ((negb (plat_enable_dirty_update tt))) then - returnm ((TR_Failure - (PTW_PTE_Update)) - : TR_Result (mword 56) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | Some (pbits, ext) => + (if negb (plat_enable_dirty_update tt) then + returnm (TR_Failure (PTW_PTE_Update tt, ext_ptw)) else let w_pte : SV39_PTE := _update_SV39_PTE_BITS pte (_get_PTE_Bits_bits pbits) in + let w_pte : SV39_PTE := (_update_SV39_PTE_Ext w_pte ext) : SV39_PTE in (mem_write_value (EXTZ 64 pteAddr) 8 (_get_SV39_PTE_bits w_pte) false false false) >>= fun w__7 : MemoryOpResult bool => (match w__7 with - | MemValue (_) => + | MemValue _ => (add_to_TLB39 asid vAddr pAddr w_pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 56) PTW_Error) - | MemException (e) => - returnm ((TR_Failure (PTW_Access)) : TR_Result (mword 56) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | MemException e => returnm (TR_Failure (PTW_Access tt, ext_ptw)) end) : M (TR_Result (mword 56) PTW_Error)) : M (TR_Result (mword 56) PTW_Error) @@ -13552,14 +13105,14 @@ Definition translate39 end) : M (TR_Result (mword 56) PTW_Error). -Definition init_vmem_sv39 '(tt : unit) : M (unit) := write_reg tlb39_ref None : M (unit). +Definition init_vmem_sv39 '(tt : unit) : M (unit) := write_reg tlb39_ref None : M (unit). Fixpoint _rec_walk48 -(vaddr : mword 48) (ac : AccessType) (priv : Privilege) (mxr : bool) (do_sum : bool) -(ptb : mword 56) (level : Z) (global : bool) (_reclimit : Z) `{ArithFact (0 <= level)} -(_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M (PTW_Result (mword 56) SV48_PTE) := - +(vaddr : mword 48) (ac : AccessType unit) (priv : Privilege) (mxr : bool) (do_sum : bool) +(ptb : mword 56) (level : Z) (global : bool) (ext_ptw : unit) (_reclimit : Z) +`{ArithFact (0 <=? level)} (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M (PTW_Result (mword 56) SV48_PTE). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let va := Mk_SV48_Vaddr vaddr in let pt_ofs : paddr64 := @@ -13570,135 +13123,117 @@ Fixpoint _rec_walk48 let pte_addr := add_vec ptb pt_ofs in (mem_read ac (EXTZ 64 pte_addr) 8 false false false) >>= fun w__0 : MemoryOpResult (mword (8 * 8)) => (match w__0 with - | MemException (_) => returnm ((PTW_Failure (PTW_Access)) : PTW_Result (mword 56) SV48_PTE) - | MemValue (v) => + | MemException _ => returnm (PTW_Failure (PTW_Access tt, ext_ptw)) + | MemValue v => let pte := Mk_SV48_PTE v in let pbits := _get_SV48_PTE_BITS pte in + let ext_pte := _get_SV48_PTE_Ext pte in let pattr := Mk_PTE_Bits pbits in - let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ((bool_to_bits true) : mword 1)) in - (if ((isInvalidPTE pbits)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 56) SV48_PTE) - else if ((isPTEPtr pbits)) then - (if sumbool_of_bool ((Z.eqb level 0)) then - returnm ((PTW_Failure - (PTW_Invalid_PTE)) - : PTW_Result (mword 56) SV48_PTE) - else + let is_global := orb global (eq_vec (_get_PTE_Bits_G pattr) ('b"1" : mword 1)) in + (if isInvalidPTE pbits ext_pte then returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw)) + else if isPTEPtr pbits ext_pte then + (if sumbool_of_bool (Z.gtb level 0) then (_rec_walk48 vaddr ac priv mxr do_sum (shiftl (EXTZ 56 (_get_SV48_PTE_PPNi pte)) PAGESIZE_BITS) (Z.sub level 1) is_global - (Z.sub _reclimit 1) (_limit_reduces _acc)) - : M (PTW_Result (mword 56) SV48_PTE)) + ext_ptw (Z.sub _reclimit 1) _ (_limit_reduces _acc)) + : M (PTW_Result (mword 56) SV48_PTE) + else returnm (PTW_Failure (PTW_Invalid_PTE tt, ext_ptw))) : M (PTW_Result (mword 56) SV48_PTE) else - (checkPTEPermission ac priv mxr do_sum pattr) >>= fun w__3 : bool => - returnm ((if sumbool_of_bool ((negb w__3)) then PTW_Failure (PTW_No_Permission) - else if sumbool_of_bool ((Z.gtb level 0)) then - let mask := - sub_vec_int - (shiftl - (xor_vec (_get_SV48_PTE_PPNi pte) - (xor_vec (_get_SV48_PTE_PPNi pte) - (EXTZ 44 (vec_of_bits [B1] : mword 1)))) - (Z.mul level SV48_LEVEL_BITS)) 1 in - if ((neq_vec (and_vec (_get_SV48_PTE_PPNi pte) mask) - (EXTZ 44 (vec_of_bits [B0] : mword 1)))) then - PTW_Failure - (PTW_Misaligned) + (checkPTEPermission ac priv mxr do_sum pattr ext_pte ext_ptw) >>= fun w__3 : PTE_Check => + returnm (match w__3 with + | PTE_Check_Failure ext_ptw => PTW_Failure (PTW_No_Permission tt, ext_ptw) + | PTE_Check_Success ext_ptw => + if sumbool_of_bool (Z.gtb level 0) then + let mask := + sub_vec_int + (shiftl + (xor_vec (_get_SV48_PTE_PPNi pte) + (xor_vec (_get_SV48_PTE_PPNi pte) (EXTZ 44 ('b"1" : mword 1)))) + (Z.mul level SV48_LEVEL_BITS)) 1 in + if neq_vec (and_vec (_get_SV48_PTE_PPNi pte) mask) + (EXTZ 44 ('b"0" : mword 1)) then + PTW_Failure (PTW_Misaligned tt, ext_ptw) + else + let ppn := + or_vec (_get_SV48_PTE_PPNi pte) + (and_vec (EXTZ 44 (_get_SV48_Vaddr_VPNi va)) mask) in + PTW_Success + (concat_vec ppn (_get_SV48_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) else - let ppn := - or_vec (_get_SV48_PTE_PPNi pte) - (and_vec (EXTZ 44 (_get_SV48_Vaddr_VPNi va)) mask) in PTW_Success - ((concat_vec ppn (_get_SV48_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global)) - else - PTW_Success - ((concat_vec (_get_SV48_PTE_PPNi pte) (_get_SV48_Vaddr_PgOfs va), pte, pte_addr, build_ex - level, is_global))) - : PTW_Result (mword 56) SV48_PTE)) + (concat_vec (_get_SV48_PTE_PPNi pte) (_get_SV48_Vaddr_PgOfs va), pte, pte_addr, build_ex + level, is_global, ext_ptw) + end)) : M (PTW_Result (mword 56) SV48_PTE) end) - : M (PTW_Result (mword 56) SV48_PTE). + : M (PTW_Result (mword 56) SV48_PTE) +). +Defined. + Definition walk48 -(_arg0 : mword 48) (_arg1 : AccessType) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) -(_arg5 : mword 56) (level : Z) (_arg7 : bool) `{ArithFact (0 <= level)} +(_arg0 : mword 48) (_arg1 : AccessType unit) (_arg2 : Privilege) (_arg3 : bool) (_arg4 : bool) +(_arg5 : mword 56) (level : Z) (_arg7 : bool) (_arg8 : unit) `{ArithFact (0 <=? level)} : M (PTW_Result (mword 56) SV48_PTE) := - - (_rec_walk48 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 (level : Z) (Zwf_guarded _)) + (_rec_walk48 _arg0 _arg1 _arg2 _arg3 _arg4 _arg5 level _arg7 _arg8 (level : Z) (Zwf_guarded _)) : M (PTW_Result (mword 56) SV48_PTE). -Definition lookup_TLB48 (asid : mword 16) (vaddr : mword 48) -: M (option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 16 48 56 64))) := - +Definition lookup_TLB48 (asid : mword 16) (vaddr : mword 48) +: M (option (({n : Z & ArithFact (n >=? 0)} * TLB_Entry 16 48 56 64))) := read_reg tlb48_ref >>= fun w__0 : option (TLB_Entry 16 48 56 64) => - returnm ((match w__0 with - | None => None - | Some (e) => if ((match_TLB_Entry e asid vaddr)) then Some ((build_ex 0, e)) else None - end) - : option (({n : Z & ArithFact (n >= 0)} * TLB_Entry 16 48 56 64))). + returnm (match w__0 with + | None => None + | Some e => if match_TLB_Entry e asid vaddr then Some (build_ex 0, e) else None + end). Definition add_to_TLB48 (asid : mword 16) (vAddr : mword 48) (pAddr : mword 56) (pte : SV48_PTE) (pteAddr : mword 56) -(level : Z) (global : bool) `{ArithFact (0 <= level)} +(level : Z) (global : bool) `{ArithFact (0 <=? level)} : M (unit) := - (make_TLB_Entry asid global vAddr pAddr (_get_SV48_PTE_bits pte) level pteAddr SV48_LEVEL_BITS) >>= fun ent : TLB48_Entry => - write_reg tlb48_ref (Some (ent)) + write_reg tlb48_ref (Some ent) : M (unit). -Definition write_TLB48 (idx : Z) (ent : TLB_Entry 16 48 56 64) `{ArithFact (0 <= idx)} -: M (unit) := - - write_reg tlb48_ref (Some (ent)) - : M (unit). +Definition write_TLB48 (idx : Z) (ent : TLB_Entry 16 48 56 64) `{ArithFact (0 <=? idx)} : M (unit) := + write_reg tlb48_ref (Some ent) : M (unit). -Definition flush_TLB48 (asid : option (mword 16)) (addr : option (mword 48)) -: M (unit) := - +Definition flush_TLB48 (asid : option (mword 16)) (addr : option (mword 48)) : M (unit) := read_reg tlb48_ref >>= fun w__0 : option (TLB_Entry 16 48 56 64) => (match w__0 with - | None => returnm (tt : unit) - | Some (e) => - (if ((flush_TLB_Entry e asid addr)) then write_reg tlb48_ref None : M (unit) - else returnm (tt : unit)) + | None => returnm tt + | Some e => + (if flush_TLB_Entry e asid addr then write_reg tlb48_ref None : M (unit) + else returnm tt) : M (unit) end) : M (unit). Definition translate48 -(asid : mword 16) (ptb : mword 56) (vAddr : mword 48) (ac : AccessType) (priv : Privilege) -(mxr : bool) (do_sum : bool) (level : Z) `{ArithFact (0 <= level)} +(asid : mword 16) (ptb : mword 56) (vAddr : mword 48) (ac : AccessType unit) (priv : Privilege) +(mxr : bool) (do_sum : bool) (level : Z) (ext_ptw : unit) `{ArithFact (0 <=? level)} : M (TR_Result (mword 56) PTW_Error) := - - (walk48 vAddr ac priv mxr do_sum ptb level false) >>= fun w__0 : PTW_Result (mword 56) SV48_PTE => + (walk48 vAddr ac priv mxr do_sum ptb level false ext_ptw) >>= fun w__0 : PTW_Result (mword 56) SV48_PTE => (match w__0 with - | PTW_Failure (f) => returnm ((TR_Failure (f)) : TR_Result (mword 56) PTW_Error) - | PTW_Success ((pAddr, pte, pteAddr, existT _ level _, global)) => - (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV48_PTE_BITS pte)) ac) with + | PTW_Failure (f, ext_ptw) => returnm (TR_Failure (f, ext_ptw)) + | PTW_Success (pAddr, pte, pteAddr, existT _ level _, global, ext_ptw) => + (match (update_PTE_Bits (Mk_PTE_Bits (_get_SV48_PTE_BITS pte)) ac (_get_SV48_PTE_Ext pte)) with | None => (add_to_TLB48 asid vAddr pAddr pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 56) PTW_Error) - | Some (pbits) => - (if ((negb (plat_enable_dirty_update tt))) then - returnm ((TR_Failure - (PTW_PTE_Update)) - : TR_Result (mword 56) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | Some (pbits, ext) => + (if negb (plat_enable_dirty_update tt) then + returnm (TR_Failure (PTW_PTE_Update tt, ext_ptw)) else let w_pte : SV48_PTE := _update_SV48_PTE_BITS pte (_get_PTE_Bits_bits pbits) in + let w_pte : SV48_PTE := (_update_SV48_PTE_Ext w_pte ext) : SV48_PTE in (mem_write_value (EXTZ 64 pteAddr) 8 (_get_SV48_PTE_bits w_pte) false false false) >>= fun w__1 : MemoryOpResult bool => (match w__1 with - | MemValue (_) => + | MemValue _ => (add_to_TLB48 asid vAddr pAddr w_pte pteAddr level global) >> - returnm ((TR_Address - (pAddr)) - : TR_Result (mword 56) PTW_Error) - | MemException (e) => - returnm ((TR_Failure (PTW_Access)) : TR_Result (mword 56) PTW_Error) + returnm (TR_Address (pAddr, ext_ptw)) + | MemException e => returnm (TR_Failure (PTW_Access tt, ext_ptw)) end) : M (TR_Result (mword 56) PTW_Error)) : M (TR_Result (mword 56) PTW_Error) @@ -13707,238 +13242,199 @@ Definition translate48 end) : M (TR_Result (mword 56) PTW_Error). -Definition init_vmem_sv48 '(tt : unit) : M (unit) := write_reg tlb48_ref None : M (unit). +Definition init_vmem_sv48 '(tt : unit) : M (unit) := write_reg tlb48_ref None : M (unit). -Definition legalize_satp (a : Architecture) (o : mword 64) (v : mword 64) -: mword 64 := - +Definition legalize_satp (a : Architecture) (o : mword 64) (v : mword 64) : mword 64 := legalize_satp64 a o v. -Definition translationMode (priv : Privilege) -: M (SATPMode) := - - (if ((eq_vec (privLevel_to_bits priv) ((privLevel_to_bits Machine) : mword 2))) then - returnm (Sbare - : SATPMode) +Definition isValidSv39Addr (vAddr : mword 64) : bool := + eq_vec (subrange_vec_dec vAddr 63 39) + (if eq_bit (access_vec_dec vAddr 38) B1 then ones (Z.add (Z.sub 63 39) 1) + else zeros_implicit (Z.add (Z.sub 63 39) 1)). + +Definition isValidSv48Addr (vAddr : mword 64) : bool := + eq_vec (subrange_vec_dec vAddr 63 48) + (if eq_bit (access_vec_dec vAddr 47) B1 then ones (Z.add (Z.sub 63 48) 1) + else zeros_implicit (Z.add (Z.sub 63 48) 1)). + +Definition translationMode (priv : Privilege) : M (SATPMode) := + (if generic_eq priv Machine then returnm Sbare else read_reg mstatus_ref >>= fun w__0 : Mstatus => let arch := architecture (get_mstatus_SXL w__0) in (match arch with - | Some (RV64) => + | Some RV64 => ((read_reg satp_ref) : M (mword 64)) >>= fun w__1 : mword 64 => let mbits : satp_mode := _get_Satp64_Mode (Mk_Satp64 w__1) in (match (satp64Mode_of_bits RV64 mbits) with - | Some (m) => returnm (m : SATPMode) + | Some m => returnm m | None => (internal_error "invalid RV64 translation mode in satp") : M (SATPMode) end) : M (SATPMode) - | Some (RV32) => + | Some RV32 => ((read_reg satp_ref) : M (mword 64)) >>= fun w__4 : mword 64 => let s := Mk_Satp32 (subrange_vec_dec w__4 31 0) in - returnm ((if ((eq_vec (_get_Satp32_Mode s) ((bool_to_bits false) : mword 1))) then Sbare - else Sv32) - : SATPMode) + returnm (if eq_vec (_get_Satp32_Mode s) ('b"0" : mword 1) then Sbare else Sv32) | _ => (internal_error "unsupported address translation arch") : M (SATPMode) end) : M (SATPMode)) : M (SATPMode). -Definition translateAddr (vAddr : mword 64) (ac : AccessType) +Definition translateAddr (vAddr : mword 64) (ac : AccessType unit) : M (TR_Result (mword 64) ExceptionType) := - - (match ac with - | Execute => read_reg cur_privilege_ref : M (Privilege) - | _ => - read_reg mstatus_ref >>= fun w__1 : Mstatus => - read_reg cur_privilege_ref >>= fun w__2 : Privilege => - (effectivePrivilege w__1 w__2) - : M (Privilege) - end) >>= fun effPriv : Privilege => - read_reg mstatus_ref >>= fun w__4 : Mstatus => - let mxr : bool := eq_vec (_get_Mstatus_MXR w__4) ((bool_to_bits true) : mword 1) in - read_reg mstatus_ref >>= fun w__5 : Mstatus => - let do_sum : bool := eq_vec (_get_Mstatus_SUM w__5) ((bool_to_bits true) : mword 1) in + read_reg mstatus_ref >>= fun w__0 : Mstatus => + read_reg cur_privilege_ref >>= fun w__1 : Privilege => + (effectivePrivilege ac w__0 w__1) >>= fun effPriv : Privilege => + read_reg mstatus_ref >>= fun w__2 : Mstatus => + let mxr : bool := eq_vec (_get_Mstatus_MXR w__2) ('b"1" : mword 1) in + read_reg mstatus_ref >>= fun w__3 : Mstatus => + let do_sum : bool := eq_vec (_get_Mstatus_SUM w__3) ('b"1" : mword 1) in (translationMode effPriv) >>= fun mode : SATPMode => - ((read_reg satp_ref) : M (mword 64)) >>= fun w__6 : mword 64 => - let asid := curAsid64 w__6 in - ((read_reg satp_ref) : M (mword 64)) >>= fun w__7 : mword 64 => - let ptb := curPTB64 w__7 in + ((read_reg satp_ref) : M (mword 64)) >>= fun w__4 : mword 64 => + let asid := curAsid64 w__4 in + ((read_reg satp_ref) : M (mword 64)) >>= fun w__5 : mword 64 => + let ptb := curPTB64 w__5 in + let ext_ptw : ext_ptw := init_ext_ptw in (match mode with - | Sbare => returnm ((TR_Address (vAddr)) : TR_Result (mword 64) ExceptionType) + | Sbare => returnm (TR_Address (vAddr, ext_ptw)) | Sv39 => - (translate39 asid ptb (subrange_vec_dec vAddr 38 0) ac effPriv mxr do_sum - (Z.sub SV39_LEVELS 1)) >>= fun w__8 : TR_Result (mword 56) PTW_Error => - returnm ((match w__8 with - | TR_Address (pa) => TR_Address (EXTZ 64 pa) - | TR_Failure (f) => TR_Failure (translationException ac f) - end) - : TR_Result (mword 64) ExceptionType) + (if isValidSv39Addr vAddr then + (translate39 asid ptb (subrange_vec_dec vAddr 38 0) ac effPriv mxr do_sum + (Z.sub SV39_LEVELS 1) ext_ptw) >>= fun w__6 : TR_Result (mword 56) PTW_Error => + returnm (match w__6 with + | TR_Address (pa, ext_ptw) => TR_Address (EXTZ 64 pa, ext_ptw) + | TR_Failure (f, ext_ptw) => TR_Failure (translationException ac f, ext_ptw) + end) + else returnm (TR_Failure (translationException ac (PTW_Invalid_Addr tt), ext_ptw))) + : M (TR_Result (mword 64) ExceptionType) | Sv48 => - (translate48 asid ptb (subrange_vec_dec vAddr 47 0) ac effPriv mxr do_sum - (Z.sub SV48_LEVELS 1)) >>= fun w__9 : TR_Result (mword 56) PTW_Error => - returnm ((match w__9 with - | TR_Address (pa) => TR_Address (EXTZ 64 pa) - | TR_Failure (f) => TR_Failure (translationException ac f) - end) - : TR_Result (mword 64) ExceptionType) + (if isValidSv48Addr vAddr then + (translate48 asid ptb (subrange_vec_dec vAddr 47 0) ac effPriv mxr do_sum + (Z.sub SV48_LEVELS 1) ext_ptw) >>= fun w__8 : TR_Result (mword 56) PTW_Error => + returnm (match w__8 with + | TR_Address (pa, ext_ptw) => TR_Address (EXTZ 64 pa, ext_ptw) + | TR_Failure (f, ext_ptw) => TR_Failure (translationException ac f, ext_ptw) + end) + else returnm (TR_Failure (translationException ac (PTW_Invalid_Addr tt), ext_ptw))) + : M (TR_Result (mword 64) ExceptionType) | _ => (internal_error "unsupported address translation scheme") : M (TR_Result (mword 64) ExceptionType) end) : M (TR_Result (mword 64) ExceptionType). -Definition flush_TLB (asid_xlen : option (mword 64)) (addr_xlen : option (mword 64)) -: M (unit) := - +Definition flush_TLB (asid_xlen : option (mword 64)) (addr_xlen : option (mword 64)) : M (unit) := let '(addr39, addr48) := (match addr_xlen with | None => (None, None) - | Some (a) => (Some (subrange_vec_dec a 38 0), Some (subrange_vec_dec a 47 0)) + | Some a => (Some (subrange_vec_dec a 38 0), Some (subrange_vec_dec a 47 0)) end) : (option vaddr39 * option vaddr48) in let asid : option asid64 := - match asid_xlen with | None => None | Some (a) => Some (subrange_vec_dec a 15 0) end in + match asid_xlen with | None => None | Some a => Some (subrange_vec_dec a 15 0) end in (flush_TLB39 asid addr39) >> (flush_TLB48 asid addr48) : M (unit). -Definition init_vmem '(tt : unit) -: M (unit) := - +Definition init_vmem '(tt : unit) : M (unit) := (init_vmem_sv39 tt) >> (init_vmem_sv48 tt) : M (unit). -Definition encdec_uop_forwards (arg_ : uop) -: mword 7 := - - match arg_ with - | RISCV_LUI => (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7) - | RISCV_AUIPC => (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7) - end. +Definition encdec_uop_forwards (arg_ : uop) : mword 7 := + match arg_ with | RISCV_LUI => 'b"0110111" : mword 7 | RISCV_AUIPC => 'b"0010111" : mword 7 end. -Definition encdec_uop_backwards (arg_ : mword 7) -: M (uop) := - +Definition encdec_uop_backwards (arg_ : mword 7) : M (uop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7))) then - returnm (RISCV_LUI - : uop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7))) then - returnm (RISCV_AUIPC - : uop) + (if eq_vec b__0 ('b"0110111" : mword 7) then returnm RISCV_LUI + else if eq_vec b__0 ('b"0010111" : mword 7) then returnm RISCV_AUIPC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (uop). -Definition encdec_uop_forwards_matches (arg_ : uop) -: bool := - +Definition encdec_uop_forwards_matches (arg_ : uop) : bool := match arg_ with | RISCV_LUI => true | RISCV_AUIPC => true end. -Definition encdec_uop_backwards_matches (arg_ : mword 7) -: bool := - +Definition encdec_uop_backwards_matches (arg_ : mword 7) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B1;B1;B1] : mword 7))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B1;B1;B1] : mword 7))) then true + if eq_vec b__0 ('b"0110111" : mword 7) then true + else if eq_vec b__0 ('b"0010111" : mword 7) then true else false. -Definition utype_mnemonic_forwards (arg_ : uop) -: string := - +Definition utype_mnemonic_forwards (arg_ : uop) : string := match arg_ with | RISCV_LUI => "lui" | RISCV_AUIPC => "auipc" end. -Definition utype_mnemonic_backwards (arg_ : string) -: M (uop) := - +Definition utype_mnemonic_backwards (arg_ : string) : M (uop) := let p0_ := arg_ in - (if ((generic_eq p0_ "lui")) then returnm (RISCV_LUI : uop) - else if ((generic_eq p0_ "auipc")) then returnm (RISCV_AUIPC : uop) + (if generic_eq p0_ "lui" then returnm RISCV_LUI + else if generic_eq p0_ "auipc" then returnm RISCV_AUIPC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (uop). -Definition utype_mnemonic_forwards_matches (arg_ : uop) -: bool := - +Definition utype_mnemonic_forwards_matches (arg_ : uop) : bool := match arg_ with | RISCV_LUI => true | RISCV_AUIPC => true end. -Definition utype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition utype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "lui")) then true - else if ((generic_eq p0_ "auipc")) then true + if generic_eq p0_ "lui" then true + else if generic_eq p0_ "auipc" then true else false. -Definition _s496_ (_s497_ : string) -: option string := - - let _s498_ := _s497_ in - if ((string_startswith _s498_ "auipc")) then - match (string_drop _s498_ (projT1 (string_length "auipc"))) with | s_ => Some (s_) end +Definition _s757_ (_s758_ : string) : option string := + let _s759_ := _s758_ in + if string_startswith _s759_ "auipc" then + match (string_drop _s759_ (projT1 (string_length "auipc"))) with | s_ => Some s_ end else None. -Definition _s492_ (_s493_ : string) -: option string := - - let _s494_ := _s493_ in - if ((string_startswith _s494_ "lui")) then - match (string_drop _s494_ (projT1 (string_length "lui"))) with | s_ => Some (s_) end - else None. - -Definition utype_mnemonic_matches_prefix (arg_ : string) -: M (option ((uop * {n : Z & ArithFact (n >= 0)}))) := - - let _s495_ := arg_ in - (if ((match (_s492_ _s495_) with | Some (s_) => true | _ => false end)) then - (match (_s492_ _s495_) with - | Some (s_) => - returnm ((Some - ((RISCV_LUI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((uop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s496_ _s495_) with | Some (s_) => true | _ => false end)) then - (match (_s496_ _s495_) with - | Some (s_) => - returnm ((Some - ((RISCV_AUIPC, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((uop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) +Definition _s753_ (_s754_ : string) : option string := + let _s755_ := _s754_ in + if string_startswith _s755_ "lui" then + match (string_drop _s755_ (projT1 (string_length "lui"))) with | s_ => Some s_ end + else None. + +Definition utype_mnemonic_matches_prefix (arg_ : string) +: M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) := + let _s756_ := arg_ in + (if match (_s753_ _s756_) with | Some s_ => true | _ => false end then + (match (_s753_ _s756_) with + | Some s_ => + returnm (Some + (RISCV_LUI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((uop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((uop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s757_ _s756_) with | Some s_ => true | _ => false end then + (match (_s757_ _s756_) with + | Some s_ => + returnm (Some + (RISCV_AUIPC, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((uop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_bop_forwards (arg_ : bop) -: mword 3 := - +Definition encdec_bop_forwards (arg_ : bop) : mword 3 := match arg_ with - | RISCV_BEQ => (vec_of_bits [B0;B0;B0] : mword 3) - | RISCV_BNE => (vec_of_bits [B0;B0;B1] : mword 3) - | RISCV_BLT => (vec_of_bits [B1;B0;B0] : mword 3) - | RISCV_BGE => (vec_of_bits [B1;B0;B1] : mword 3) - | RISCV_BLTU => (vec_of_bits [B1;B1;B0] : mword 3) - | RISCV_BGEU => (vec_of_bits [B1;B1;B1] : mword 3) + | RISCV_BEQ => 'b"000" : mword 3 + | RISCV_BNE => 'b"001" : mword 3 + | RISCV_BLT => 'b"100" : mword 3 + | RISCV_BGE => 'b"101" : mword 3 + | RISCV_BLTU => 'b"110" : mword 3 + | RISCV_BGEU => 'b"111" : mword 3 end. -Definition encdec_bop_backwards (arg_ : mword 3) -: M (bop) := - +Definition encdec_bop_backwards (arg_ : mword 3) : M (bop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (RISCV_BEQ : bop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (RISCV_BNE : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm (RISCV_BLT : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_BGE : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm (RISCV_BLTU : bop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm (RISCV_BGEU : bop) + (if eq_vec b__0 ('b"000" : mword 3) then returnm RISCV_BEQ + else if eq_vec b__0 ('b"001" : mword 3) then returnm RISCV_BNE + else if eq_vec b__0 ('b"100" : mword 3) then returnm RISCV_BLT + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_BGE + else if eq_vec b__0 ('b"110" : mword 3) then returnm RISCV_BLTU + else if eq_vec b__0 ('b"111" : mword 3) then returnm RISCV_BGEU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bop). -Definition encdec_bop_forwards_matches (arg_ : bop) -: bool := - +Definition encdec_bop_forwards_matches (arg_ : bop) : bool := match arg_ with | RISCV_BEQ => true | RISCV_BNE => true @@ -13948,21 +13444,17 @@ Definition encdec_bop_forwards_matches (arg_ : bop) | RISCV_BGEU => true end. -Definition encdec_bop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_bop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true else false. -Definition btype_mnemonic_forwards (arg_ : bop) -: string := - +Definition btype_mnemonic_forwards (arg_ : bop) : string := match arg_ with | RISCV_BEQ => "beq" | RISCV_BNE => "bne" @@ -13972,22 +13464,18 @@ Definition btype_mnemonic_forwards (arg_ : bop) | RISCV_BGEU => "bgeu" end. -Definition btype_mnemonic_backwards (arg_ : string) -: M (bop) := - +Definition btype_mnemonic_backwards (arg_ : string) : M (bop) := let p0_ := arg_ in - (if ((generic_eq p0_ "beq")) then returnm (RISCV_BEQ : bop) - else if ((generic_eq p0_ "bne")) then returnm (RISCV_BNE : bop) - else if ((generic_eq p0_ "blt")) then returnm (RISCV_BLT : bop) - else if ((generic_eq p0_ "bge")) then returnm (RISCV_BGE : bop) - else if ((generic_eq p0_ "bltu")) then returnm (RISCV_BLTU : bop) - else if ((generic_eq p0_ "bgeu")) then returnm (RISCV_BGEU : bop) + (if generic_eq p0_ "beq" then returnm RISCV_BEQ + else if generic_eq p0_ "bne" then returnm RISCV_BNE + else if generic_eq p0_ "blt" then returnm RISCV_BLT + else if generic_eq p0_ "bge" then returnm RISCV_BGE + else if generic_eq p0_ "bltu" then returnm RISCV_BLTU + else if generic_eq p0_ "bgeu" then returnm RISCV_BGEU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bop). -Definition btype_mnemonic_forwards_matches (arg_ : bop) -: bool := - +Definition btype_mnemonic_forwards_matches (arg_ : bop) : bool := match arg_ with | RISCV_BEQ => true | RISCV_BNE => true @@ -13997,167 +13485,140 @@ Definition btype_mnemonic_forwards_matches (arg_ : bop) | RISCV_BGEU => true end. -Definition btype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition btype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "beq")) then true - else if ((generic_eq p0_ "bne")) then true - else if ((generic_eq p0_ "blt")) then true - else if ((generic_eq p0_ "bge")) then true - else if ((generic_eq p0_ "bltu")) then true - else if ((generic_eq p0_ "bgeu")) then true + if generic_eq p0_ "beq" then true + else if generic_eq p0_ "bne" then true + else if generic_eq p0_ "blt" then true + else if generic_eq p0_ "bge" then true + else if generic_eq p0_ "bltu" then true + else if generic_eq p0_ "bgeu" then true else false. -Definition _s520_ (_s521_ : string) -: option string := - - let _s522_ := _s521_ in - if ((string_startswith _s522_ "bgeu")) then - match (string_drop _s522_ (projT1 (string_length "bgeu"))) with | s_ => Some (s_) end +Definition _s781_ (_s782_ : string) : option string := + let _s783_ := _s782_ in + if string_startswith _s783_ "bgeu" then + match (string_drop _s783_ (projT1 (string_length "bgeu"))) with | s_ => Some s_ end else None. -Definition _s516_ (_s517_ : string) -: option string := - - let _s518_ := _s517_ in - if ((string_startswith _s518_ "bltu")) then - match (string_drop _s518_ (projT1 (string_length "bltu"))) with | s_ => Some (s_) end +Definition _s777_ (_s778_ : string) : option string := + let _s779_ := _s778_ in + if string_startswith _s779_ "bltu" then + match (string_drop _s779_ (projT1 (string_length "bltu"))) with | s_ => Some s_ end else None. -Definition _s512_ (_s513_ : string) -: option string := - - let _s514_ := _s513_ in - if ((string_startswith _s514_ "bge")) then - match (string_drop _s514_ (projT1 (string_length "bge"))) with | s_ => Some (s_) end +Definition _s773_ (_s774_ : string) : option string := + let _s775_ := _s774_ in + if string_startswith _s775_ "bge" then + match (string_drop _s775_ (projT1 (string_length "bge"))) with | s_ => Some s_ end else None. -Definition _s508_ (_s509_ : string) -: option string := - - let _s510_ := _s509_ in - if ((string_startswith _s510_ "blt")) then - match (string_drop _s510_ (projT1 (string_length "blt"))) with | s_ => Some (s_) end +Definition _s769_ (_s770_ : string) : option string := + let _s771_ := _s770_ in + if string_startswith _s771_ "blt" then + match (string_drop _s771_ (projT1 (string_length "blt"))) with | s_ => Some s_ end else None. -Definition _s504_ (_s505_ : string) -: option string := - - let _s506_ := _s505_ in - if ((string_startswith _s506_ "bne")) then - match (string_drop _s506_ (projT1 (string_length "bne"))) with | s_ => Some (s_) end +Definition _s765_ (_s766_ : string) : option string := + let _s767_ := _s766_ in + if string_startswith _s767_ "bne" then + match (string_drop _s767_ (projT1 (string_length "bne"))) with | s_ => Some s_ end else None. -Definition _s500_ (_s501_ : string) -: option string := - - let _s502_ := _s501_ in - if ((string_startswith _s502_ "beq")) then - match (string_drop _s502_ (projT1 (string_length "beq"))) with | s_ => Some (s_) end - else None. - -Definition btype_mnemonic_matches_prefix (arg_ : string) -: M (option ((bop * {n : Z & ArithFact (n >= 0)}))) := - - let _s503_ := arg_ in - (if ((match (_s500_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s500_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BEQ, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s504_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s504_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BNE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s508_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s508_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BLT, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s512_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s512_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BGE, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s516_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s516_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BLTU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s520_ _s503_) with | Some (s_) => true | _ => false end)) then - (match (_s520_ _s503_) with - | Some (s_) => - returnm ((Some - ((RISCV_BGEU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) +Definition _s761_ (_s762_ : string) : option string := + let _s763_ := _s762_ in + if string_startswith _s763_ "beq" then + match (string_drop _s763_ (projT1 (string_length "beq"))) with | s_ => Some s_ end + else None. + +Definition btype_mnemonic_matches_prefix (arg_ : string) +: M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) := + let _s764_ := arg_ in + (if match (_s761_ _s764_) with | Some s_ => true | _ => false end then + (match (_s761_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BEQ, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s765_ _s764_) with | Some s_ => true | _ => false end then + (match (_s765_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BNE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s769_ _s764_) with | Some s_ => true | _ => false end then + (match (_s769_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BLT, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s773_ _s764_) with | Some s_ => true | _ => false end then + (match (_s773_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BGE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s777_ _s764_) with | Some s_ => true | _ => false end then + (match (_s777_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BLTU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s781_ _s764_) with | Some s_ => true | _ => false end then + (match (_s781_ _s764_) with + | Some s_ => + returnm (Some + (RISCV_BGEU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_iop_forwards (arg_ : iop) -: mword 3 := - +Definition encdec_iop_forwards (arg_ : iop) : mword 3 := match arg_ with - | RISCV_ADDI => (vec_of_bits [B0;B0;B0] : mword 3) - | RISCV_SLTI => (vec_of_bits [B0;B1;B0] : mword 3) - | RISCV_SLTIU => (vec_of_bits [B0;B1;B1] : mword 3) - | RISCV_ANDI => (vec_of_bits [B1;B1;B1] : mword 3) - | RISCV_ORI => (vec_of_bits [B1;B1;B0] : mword 3) - | RISCV_XORI => (vec_of_bits [B1;B0;B0] : mword 3) + | RISCV_ADDI => 'b"000" : mword 3 + | RISCV_SLTI => 'b"010" : mword 3 + | RISCV_SLTIU => 'b"011" : mword 3 + | RISCV_ANDI => 'b"111" : mword 3 + | RISCV_ORI => 'b"110" : mword 3 + | RISCV_XORI => 'b"100" : mword 3 end. -Definition encdec_iop_backwards (arg_ : mword 3) -: M (iop) := - +Definition encdec_iop_backwards (arg_ : mword 3) : M (iop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (RISCV_ADDI : iop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm (RISCV_SLTI : iop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm (RISCV_SLTIU : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then returnm (RISCV_ANDI : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then returnm (RISCV_ORI : iop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then returnm (RISCV_XORI : iop) + (if eq_vec b__0 ('b"000" : mword 3) then returnm RISCV_ADDI + else if eq_vec b__0 ('b"010" : mword 3) then returnm RISCV_SLTI + else if eq_vec b__0 ('b"011" : mword 3) then returnm RISCV_SLTIU + else if eq_vec b__0 ('b"111" : mword 3) then returnm RISCV_ANDI + else if eq_vec b__0 ('b"110" : mword 3) then returnm RISCV_ORI + else if eq_vec b__0 ('b"100" : mword 3) then returnm RISCV_XORI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (iop). -Definition encdec_iop_forwards_matches (arg_ : iop) -: bool := - +Definition encdec_iop_forwards_matches (arg_ : iop) : bool := match arg_ with | RISCV_ADDI => true | RISCV_SLTI => true @@ -14167,21 +13628,17 @@ Definition encdec_iop_forwards_matches (arg_ : iop) | RISCV_XORI => true end. -Definition encdec_iop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_iop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true + else if eq_vec b__0 ('b"110" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true else false. -Definition itype_mnemonic_forwards (arg_ : iop) -: string := - +Definition itype_mnemonic_forwards (arg_ : iop) : string := match arg_ with | RISCV_ADDI => "addi" | RISCV_SLTI => "slti" @@ -14191,22 +13648,18 @@ Definition itype_mnemonic_forwards (arg_ : iop) | RISCV_ANDI => "andi" end. -Definition itype_mnemonic_backwards (arg_ : string) -: M (iop) := - +Definition itype_mnemonic_backwards (arg_ : string) : M (iop) := let p0_ := arg_ in - (if ((generic_eq p0_ "addi")) then returnm (RISCV_ADDI : iop) - else if ((generic_eq p0_ "slti")) then returnm (RISCV_SLTI : iop) - else if ((generic_eq p0_ "sltiu")) then returnm (RISCV_SLTIU : iop) - else if ((generic_eq p0_ "xori")) then returnm (RISCV_XORI : iop) - else if ((generic_eq p0_ "ori")) then returnm (RISCV_ORI : iop) - else if ((generic_eq p0_ "andi")) then returnm (RISCV_ANDI : iop) + (if generic_eq p0_ "addi" then returnm RISCV_ADDI + else if generic_eq p0_ "slti" then returnm RISCV_SLTI + else if generic_eq p0_ "sltiu" then returnm RISCV_SLTIU + else if generic_eq p0_ "xori" then returnm RISCV_XORI + else if generic_eq p0_ "ori" then returnm RISCV_ORI + else if generic_eq p0_ "andi" then returnm RISCV_ANDI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (iop). -Definition itype_mnemonic_forwards_matches (arg_ : iop) -: bool := - +Definition itype_mnemonic_forwards_matches (arg_ : iop) : bool := match arg_ with | RISCV_ADDI => true | RISCV_SLTI => true @@ -14216,268 +13669,219 @@ Definition itype_mnemonic_forwards_matches (arg_ : iop) | RISCV_ANDI => true end. -Definition itype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition itype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "addi")) then true - else if ((generic_eq p0_ "slti")) then true - else if ((generic_eq p0_ "sltiu")) then true - else if ((generic_eq p0_ "xori")) then true - else if ((generic_eq p0_ "ori")) then true - else if ((generic_eq p0_ "andi")) then true + if generic_eq p0_ "addi" then true + else if generic_eq p0_ "slti" then true + else if generic_eq p0_ "sltiu" then true + else if generic_eq p0_ "xori" then true + else if generic_eq p0_ "ori" then true + else if generic_eq p0_ "andi" then true else false. -Definition _s544_ (_s545_ : string) -: option string := - - let _s546_ := _s545_ in - if ((string_startswith _s546_ "andi")) then - match (string_drop _s546_ (projT1 (string_length "andi"))) with | s_ => Some (s_) end +Definition _s805_ (_s806_ : string) : option string := + let _s807_ := _s806_ in + if string_startswith _s807_ "andi" then + match (string_drop _s807_ (projT1 (string_length "andi"))) with | s_ => Some s_ end else None. -Definition _s540_ (_s541_ : string) -: option string := - - let _s542_ := _s541_ in - if ((string_startswith _s542_ "ori")) then - match (string_drop _s542_ (projT1 (string_length "ori"))) with | s_ => Some (s_) end +Definition _s801_ (_s802_ : string) : option string := + let _s803_ := _s802_ in + if string_startswith _s803_ "ori" then + match (string_drop _s803_ (projT1 (string_length "ori"))) with | s_ => Some s_ end else None. -Definition _s536_ (_s537_ : string) -: option string := - - let _s538_ := _s537_ in - if ((string_startswith _s538_ "xori")) then - match (string_drop _s538_ (projT1 (string_length "xori"))) with | s_ => Some (s_) end +Definition _s797_ (_s798_ : string) : option string := + let _s799_ := _s798_ in + if string_startswith _s799_ "xori" then + match (string_drop _s799_ (projT1 (string_length "xori"))) with | s_ => Some s_ end else None. -Definition _s532_ (_s533_ : string) -: option string := - - let _s534_ := _s533_ in - if ((string_startswith _s534_ "sltiu")) then - match (string_drop _s534_ (projT1 (string_length "sltiu"))) with | s_ => Some (s_) end +Definition _s793_ (_s794_ : string) : option string := + let _s795_ := _s794_ in + if string_startswith _s795_ "sltiu" then + match (string_drop _s795_ (projT1 (string_length "sltiu"))) with | s_ => Some s_ end else None. -Definition _s528_ (_s529_ : string) -: option string := - - let _s530_ := _s529_ in - if ((string_startswith _s530_ "slti")) then - match (string_drop _s530_ (projT1 (string_length "slti"))) with | s_ => Some (s_) end +Definition _s789_ (_s790_ : string) : option string := + let _s791_ := _s790_ in + if string_startswith _s791_ "slti" then + match (string_drop _s791_ (projT1 (string_length "slti"))) with | s_ => Some s_ end else None. -Definition _s524_ (_s525_ : string) -: option string := - - let _s526_ := _s525_ in - if ((string_startswith _s526_ "addi")) then - match (string_drop _s526_ (projT1 (string_length "addi"))) with | s_ => Some (s_) end - else None. - -Definition itype_mnemonic_matches_prefix (arg_ : string) -: M (option ((iop * {n : Z & ArithFact (n >= 0)}))) := - - let _s527_ := arg_ in - (if ((match (_s524_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s524_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADDI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s528_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s528_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s532_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s532_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTIU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s536_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s536_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_XORI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s540_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s540_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ORI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s544_ _s527_) with | Some (s_) => true | _ => false end)) then - (match (_s544_ _s527_) with - | Some (s_) => - returnm ((Some - ((RISCV_ANDI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((iop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) +Definition _s785_ (_s786_ : string) : option string := + let _s787_ := _s786_ in + if string_startswith _s787_ "addi" then + match (string_drop _s787_ (projT1 (string_length "addi"))) with | s_ => Some s_ end + else None. + +Definition itype_mnemonic_matches_prefix (arg_ : string) +: M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) := + let _s788_ := arg_ in + (if match (_s785_ _s788_) with | Some s_ => true | _ => false end then + (match (_s785_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ADDI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s789_ _s788_) with | Some s_ => true | _ => false end then + (match (_s789_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_SLTI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s793_ _s788_) with | Some s_ => true | _ => false end then + (match (_s793_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_SLTIU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s797_ _s788_) with | Some s_ => true | _ => false end then + (match (_s797_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_XORI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((iop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((iop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s801_ _s788_) with | Some s_ => true | _ => false end then + (match (_s801_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ORI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s805_ _s788_) with | Some s_ => true | _ => false end then + (match (_s805_ _s788_) with + | Some s_ => + returnm (Some + (RISCV_ANDI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((iop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_sop_forwards (arg_ : sop) -: mword 3 := - +Definition encdec_sop_forwards (arg_ : sop) : mword 3 := match arg_ with - | RISCV_SLLI => (vec_of_bits [B0;B0;B1] : mword 3) - | RISCV_SRLI => (vec_of_bits [B1;B0;B1] : mword 3) - | RISCV_SRAI => (vec_of_bits [B1;B0;B1] : mword 3) + | RISCV_SLLI => 'b"001" : mword 3 + | RISCV_SRLI => 'b"101" : mword 3 + | RISCV_SRAI => 'b"101" : mword 3 end. -Definition encdec_sop_backwards (arg_ : mword 3) -: M (sop) := - +Definition encdec_sop_backwards (arg_ : mword 3) : M (sop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (RISCV_SLLI : sop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_SRLI : sop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then returnm (RISCV_SRAI : sop) + (if eq_vec b__0 ('b"001" : mword 3) then returnm RISCV_SLLI + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_SRLI + else if eq_vec b__0 ('b"101" : mword 3) then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition encdec_sop_forwards_matches (arg_ : sop) -: bool := - +Definition encdec_sop_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition encdec_sop_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_sop_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1] : mword 3))) then true + if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true + else if eq_vec b__0 ('b"101" : mword 3) then true else false. -Definition shiftiop_mnemonic_forwards (arg_ : sop) -: string := - +Definition shiftiop_mnemonic_forwards (arg_ : sop) : string := match arg_ with | RISCV_SLLI => "slli" | RISCV_SRLI => "srli" | RISCV_SRAI => "srai" end. -Definition shiftiop_mnemonic_backwards (arg_ : string) -: M (sop) := - +Definition shiftiop_mnemonic_backwards (arg_ : string) : M (sop) := let p0_ := arg_ in - (if ((generic_eq p0_ "slli")) then returnm (RISCV_SLLI : sop) - else if ((generic_eq p0_ "srli")) then returnm (RISCV_SRLI : sop) - else if ((generic_eq p0_ "srai")) then returnm (RISCV_SRAI : sop) + (if generic_eq p0_ "slli" then returnm RISCV_SLLI + else if generic_eq p0_ "srli" then returnm RISCV_SRLI + else if generic_eq p0_ "srai" then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition shiftiop_mnemonic_forwards_matches (arg_ : sop) -: bool := - +Definition shiftiop_mnemonic_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition shiftiop_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftiop_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slli")) then true - else if ((generic_eq p0_ "srli")) then true - else if ((generic_eq p0_ "srai")) then true + if generic_eq p0_ "slli" then true + else if generic_eq p0_ "srli" then true + else if generic_eq p0_ "srai" then true else false. -Definition _s556_ (_s557_ : string) -: option string := - - let _s558_ := _s557_ in - if ((string_startswith _s558_ "srai")) then - match (string_drop _s558_ (projT1 (string_length "srai"))) with | s_ => Some (s_) end +Definition _s817_ (_s818_ : string) : option string := + let _s819_ := _s818_ in + if string_startswith _s819_ "srai" then + match (string_drop _s819_ (projT1 (string_length "srai"))) with | s_ => Some s_ end else None. -Definition _s552_ (_s553_ : string) -: option string := - - let _s554_ := _s553_ in - if ((string_startswith _s554_ "srli")) then - match (string_drop _s554_ (projT1 (string_length "srli"))) with | s_ => Some (s_) end +Definition _s813_ (_s814_ : string) : option string := + let _s815_ := _s814_ in + if string_startswith _s815_ "srli" then + match (string_drop _s815_ (projT1 (string_length "srli"))) with | s_ => Some s_ end else None. -Definition _s548_ (_s549_ : string) -: option string := - - let _s550_ := _s549_ in - if ((string_startswith _s550_ "slli")) then - match (string_drop _s550_ (projT1 (string_length "slli"))) with | s_ => Some (s_) end - else None. - -Definition shiftiop_mnemonic_matches_prefix (arg_ : string) -: M (option ((sop * {n : Z & ArithFact (n >= 0)}))) := - - let _s551_ := arg_ in - (if ((match (_s548_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s548_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s552_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s552_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s556_ _s551_) with | Some (s_) => true | _ => false end)) then - (match (_s556_ _s551_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) +Definition _s809_ (_s810_ : string) : option string := + let _s811_ := _s810_ in + if string_startswith _s811_ "slli" then + match (string_drop _s811_ (projT1 (string_length "slli"))) with | s_ => Some s_ end + else None. + +Definition shiftiop_mnemonic_matches_prefix (arg_ : string) +: M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) := + let _s812_ := arg_ in + (if match (_s809_ _s812_) with | Some s_ => true | _ => false end then + (match (_s809_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SLLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s813_ _s812_) with | Some s_ => true | _ => false end then + (match (_s813_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SRLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s817_ _s812_) with | Some s_ => true | _ => false end then + (match (_s817_ _s812_) with + | Some s_ => + returnm (Some + (RISCV_SRAI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))). -Definition rtype_mnemonic_forwards (arg_ : rop) -: string := - +Definition rtype_mnemonic_forwards (arg_ : rop) : string := match arg_ with | RISCV_ADD => "add" | RISCV_SLT => "slt" @@ -14491,26 +13895,22 @@ Definition rtype_mnemonic_forwards (arg_ : rop) | RISCV_SRA => "sra" end. -Definition rtype_mnemonic_backwards (arg_ : string) -: M (rop) := - +Definition rtype_mnemonic_backwards (arg_ : string) : M (rop) := let p0_ := arg_ in - (if ((generic_eq p0_ "add")) then returnm (RISCV_ADD : rop) - else if ((generic_eq p0_ "slt")) then returnm (RISCV_SLT : rop) - else if ((generic_eq p0_ "sltu")) then returnm (RISCV_SLTU : rop) - else if ((generic_eq p0_ "and")) then returnm (RISCV_AND : rop) - else if ((generic_eq p0_ "or")) then returnm (RISCV_OR : rop) - else if ((generic_eq p0_ "xor")) then returnm (RISCV_XOR : rop) - else if ((generic_eq p0_ "sll")) then returnm (RISCV_SLL : rop) - else if ((generic_eq p0_ "srl")) then returnm (RISCV_SRL : rop) - else if ((generic_eq p0_ "sub")) then returnm (RISCV_SUB : rop) - else if ((generic_eq p0_ "sra")) then returnm (RISCV_SRA : rop) + (if generic_eq p0_ "add" then returnm RISCV_ADD + else if generic_eq p0_ "slt" then returnm RISCV_SLT + else if generic_eq p0_ "sltu" then returnm RISCV_SLTU + else if generic_eq p0_ "and" then returnm RISCV_AND + else if generic_eq p0_ "or" then returnm RISCV_OR + else if generic_eq p0_ "xor" then returnm RISCV_XOR + else if generic_eq p0_ "sll" then returnm RISCV_SLL + else if generic_eq p0_ "srl" then returnm RISCV_SRL + else if generic_eq p0_ "sub" then returnm RISCV_SUB + else if generic_eq p0_ "sra" then returnm RISCV_SRA else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (rop). -Definition rtype_mnemonic_forwards_matches (arg_ : rop) -: bool := - +Definition rtype_mnemonic_forwards_matches (arg_ : rop) : bool := match arg_ with | RISCV_ADD => true | RISCV_SLT => true @@ -14524,620 +13924,464 @@ Definition rtype_mnemonic_forwards_matches (arg_ : rop) | RISCV_SRA => true end. -Definition rtype_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition rtype_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "add")) then true - else if ((generic_eq p0_ "slt")) then true - else if ((generic_eq p0_ "sltu")) then true - else if ((generic_eq p0_ "and")) then true - else if ((generic_eq p0_ "or")) then true - else if ((generic_eq p0_ "xor")) then true - else if ((generic_eq p0_ "sll")) then true - else if ((generic_eq p0_ "srl")) then true - else if ((generic_eq p0_ "sub")) then true - else if ((generic_eq p0_ "sra")) then true + if generic_eq p0_ "add" then true + else if generic_eq p0_ "slt" then true + else if generic_eq p0_ "sltu" then true + else if generic_eq p0_ "and" then true + else if generic_eq p0_ "or" then true + else if generic_eq p0_ "xor" then true + else if generic_eq p0_ "sll" then true + else if generic_eq p0_ "srl" then true + else if generic_eq p0_ "sub" then true + else if generic_eq p0_ "sra" then true else false. -Definition _s596_ (_s597_ : string) -: option string := - - let _s598_ := _s597_ in - if ((string_startswith _s598_ "sra")) then - match (string_drop _s598_ (projT1 (string_length "sra"))) with | s_ => Some (s_) end +Definition _s857_ (_s858_ : string) : option string := + let _s859_ := _s858_ in + if string_startswith _s859_ "sra" then + match (string_drop _s859_ (projT1 (string_length "sra"))) with | s_ => Some s_ end else None. -Definition _s592_ (_s593_ : string) -: option string := - - let _s594_ := _s593_ in - if ((string_startswith _s594_ "sub")) then - match (string_drop _s594_ (projT1 (string_length "sub"))) with | s_ => Some (s_) end +Definition _s853_ (_s854_ : string) : option string := + let _s855_ := _s854_ in + if string_startswith _s855_ "sub" then + match (string_drop _s855_ (projT1 (string_length "sub"))) with | s_ => Some s_ end else None. -Definition _s588_ (_s589_ : string) -: option string := - - let _s590_ := _s589_ in - if ((string_startswith _s590_ "srl")) then - match (string_drop _s590_ (projT1 (string_length "srl"))) with | s_ => Some (s_) end +Definition _s849_ (_s850_ : string) : option string := + let _s851_ := _s850_ in + if string_startswith _s851_ "srl" then + match (string_drop _s851_ (projT1 (string_length "srl"))) with | s_ => Some s_ end else None. -Definition _s584_ (_s585_ : string) -: option string := - - let _s586_ := _s585_ in - if ((string_startswith _s586_ "sll")) then - match (string_drop _s586_ (projT1 (string_length "sll"))) with | s_ => Some (s_) end +Definition _s845_ (_s846_ : string) : option string := + let _s847_ := _s846_ in + if string_startswith _s847_ "sll" then + match (string_drop _s847_ (projT1 (string_length "sll"))) with | s_ => Some s_ end else None. -Definition _s580_ (_s581_ : string) -: option string := - - let _s582_ := _s581_ in - if ((string_startswith _s582_ "xor")) then - match (string_drop _s582_ (projT1 (string_length "xor"))) with | s_ => Some (s_) end +Definition _s841_ (_s842_ : string) : option string := + let _s843_ := _s842_ in + if string_startswith _s843_ "xor" then + match (string_drop _s843_ (projT1 (string_length "xor"))) with | s_ => Some s_ end else None. -Definition _s576_ (_s577_ : string) -: option string := - - let _s578_ := _s577_ in - if ((string_startswith _s578_ "or")) then - match (string_drop _s578_ (projT1 (string_length "or"))) with | s_ => Some (s_) end +Definition _s837_ (_s838_ : string) : option string := + let _s839_ := _s838_ in + if string_startswith _s839_ "or" then + match (string_drop _s839_ (projT1 (string_length "or"))) with | s_ => Some s_ end else None. -Definition _s572_ (_s573_ : string) -: option string := - - let _s574_ := _s573_ in - if ((string_startswith _s574_ "and")) then - match (string_drop _s574_ (projT1 (string_length "and"))) with | s_ => Some (s_) end +Definition _s833_ (_s834_ : string) : option string := + let _s835_ := _s834_ in + if string_startswith _s835_ "and" then + match (string_drop _s835_ (projT1 (string_length "and"))) with | s_ => Some s_ end else None. -Definition _s568_ (_s569_ : string) -: option string := - - let _s570_ := _s569_ in - if ((string_startswith _s570_ "sltu")) then - match (string_drop _s570_ (projT1 (string_length "sltu"))) with | s_ => Some (s_) end +Definition _s829_ (_s830_ : string) : option string := + let _s831_ := _s830_ in + if string_startswith _s831_ "sltu" then + match (string_drop _s831_ (projT1 (string_length "sltu"))) with | s_ => Some s_ end else None. -Definition _s564_ (_s565_ : string) -: option string := - - let _s566_ := _s565_ in - if ((string_startswith _s566_ "slt")) then - match (string_drop _s566_ (projT1 (string_length "slt"))) with | s_ => Some (s_) end +Definition _s825_ (_s826_ : string) : option string := + let _s827_ := _s826_ in + if string_startswith _s827_ "slt" then + match (string_drop _s827_ (projT1 (string_length "slt"))) with | s_ => Some s_ end else None. -Definition _s560_ (_s561_ : string) -: option string := - - let _s562_ := _s561_ in - if ((string_startswith _s562_ "add")) then - match (string_drop _s562_ (projT1 (string_length "add"))) with | s_ => Some (s_) end - else None. - -Definition rtype_mnemonic_matches_prefix (arg_ : string) -: M (option ((rop * {n : Z & ArithFact (n >= 0)}))) := - - let _s563_ := arg_ in - (if ((match (_s560_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s560_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s564_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s564_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLT, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s568_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s568_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLTU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s572_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s572_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_AND, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s576_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s576_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_OR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s580_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s580_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_XOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s584_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s584_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLL, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s588_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s588_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRL, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s592_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s592_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SUB, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s596_ _s563_) with | Some (s_) => true | _ => false end)) then - (match (_s596_ _s563_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRA, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((rop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) +Definition _s821_ (_s822_ : string) : option string := + let _s823_ := _s822_ in + if string_startswith _s823_ "add" then + match (string_drop _s823_ (projT1 (string_length "add"))) with | s_ => Some s_ end + else None. + +Definition rtype_mnemonic_matches_prefix (arg_ : string) +: M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) := + let _s824_ := arg_ in + (if match (_s821_ _s824_) with | Some s_ => true | _ => false end then + (match (_s821_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_ADD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((rop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((rop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s825_ _s824_) with | Some s_ => true | _ => false end then + (match (_s825_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLT, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s829_ _s824_) with | Some s_ => true | _ => false end then + (match (_s829_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLTU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s833_ _s824_) with | Some s_ => true | _ => false end then + (match (_s833_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_AND, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s837_ _s824_) with | Some s_ => true | _ => false end then + (match (_s837_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_OR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s841_ _s824_) with | Some s_ => true | _ => false end then + (match (_s841_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_XOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s845_ _s824_) with | Some s_ => true | _ => false end then + (match (_s845_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SLL, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s849_ _s824_) with | Some s_ => true | _ => false end then + (match (_s849_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SRL, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s853_ _s824_) with | Some s_ => true | _ => false end then + (match (_s853_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SUB, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s857_ _s824_) with | Some s_ => true | _ => false end then + (match (_s857_ _s824_) with + | Some s_ => + returnm (Some + (RISCV_SRA, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((rop * {n : Z & ArithFact (n >=? 0)}))). Definition extend_value {n : Z} (is_unsigned : bool) (value : MemoryOpResult (mword (8 * n))) -`{ArithFact (0 < n /\ n <= 8)} +`{ArithFact ((0 <? n) && (n <=? 8))} : MemoryOpResult (mword 64) := - match value with - | MemValue (v) => - MemValue (if sumbool_of_bool (is_unsigned) then EXTZ 64 v else (EXTS 64 v) : xlenbits) - | MemException (e) => MemException (e) + | MemValue v => + MemValue (if sumbool_of_bool is_unsigned then EXTZ 64 v else (EXTS 64 v) : xlenbits) + | MemException e => MemException e end. Definition process_load {n : Z} -(rd : mword 5) (addr : mword 64) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) -`{ArithFact (0 < n /\ n <= 8)} +(rd : mword 5) (vaddr : mword 64) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) +`{ArithFact ((0 <? n) && (n <=? 8))} : M (Retired) := - (match (extend_value is_unsigned value) with - | MemValue (result) => - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - | MemException (e) => (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemValue result => (wX_bits rd result) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL end) : M (Retired). -Definition check_misaligned (vaddr : mword 64) (width : word_width) -: M (bool) := - - (if ((plat_enable_misaligned_access tt)) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) - else - (match width with - | BYTE => - returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) - | HALF => - (bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__0 : bool => - returnm ((Bool.eqb w__0 true) - : bool) - | WORD => - (or_boolM - ((bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__1 : bool => - returnm ((Bool.eqb w__1 true) - : bool)) - ((bit_to_bool (access_vec_dec vaddr 1)) >>= fun w__2 : bool => - returnm ((Bool.eqb w__2 true) - : bool))) - : M (bool) - | DOUBLE => - (or_boolM - ((bit_to_bool (access_vec_dec vaddr 0)) >>= fun w__4 : bool => - returnm ((Bool.eqb w__4 true) - : bool)) - ((or_boolM - ((bit_to_bool (access_vec_dec vaddr 1)) >>= fun w__5 : bool => - returnm ((Bool.eqb w__5 true) - : bool)) - ((bit_to_bool (access_vec_dec vaddr 2)) >>= fun w__6 : bool => - returnm ((Bool.eqb w__6 true) - : bool))) - : M (bool))) - : M (bool) - end) - : M (bool)) - : M (bool). - -Definition maybe_aq_forwards (arg_ : bool) -: string := - +Definition check_misaligned (vaddr : mword 64) (width : word_width) : bool := + if plat_enable_misaligned_access tt then false + else + match width with + | BYTE => false + | HALF => eq_bit (access_vec_dec vaddr 0) B1 + | WORD => orb (eq_bit (access_vec_dec vaddr 0) B1) (eq_bit (access_vec_dec vaddr 1) B1) + | DOUBLE => + orb (eq_bit (access_vec_dec vaddr 0) B1) + (orb (eq_bit (access_vec_dec vaddr 1) B1) (eq_bit (access_vec_dec vaddr 2) B1)) + end. + +Definition maybe_aq_forwards (arg_ : bool) : string := match arg_ with | true => ".aq" | false => "" end. -Definition maybe_aq_backwards (arg_ : string) -: M (bool) := - +Definition maybe_aq_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ ".aq")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ ".aq" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_aq_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_aq_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_aq_backwards_matches (arg_ : string) -: bool := - +Definition maybe_aq_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ ".aq")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ ".aq" then true + else if generic_eq p0_ "" then true else false. -Definition _s604_ (_s605_ : string) -: option string := - - let _s606_ := _s605_ in - if ((string_startswith _s606_ "")) then - match (string_drop _s606_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s865_ (_s866_ : string) : option string := + let _s867_ := _s866_ in + if string_startswith _s867_ "" then + match (string_drop _s867_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s600_ (_s601_ : string) -: option string := - - let _s602_ := _s601_ in - if ((string_startswith _s602_ ".aq")) then - match (string_drop _s602_ (projT1 (string_length ".aq"))) with | s_ => Some (s_) end - else None. - -Definition maybe_aq_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s603_ := arg_ in - (if ((match (_s600_ _s603_) with | Some (s_) => true | _ => false end)) then - (match (_s600_ _s603_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s604_ _s603_) with | Some (s_) => true | _ => false end)) then - (match (_s604_ _s603_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s861_ (_s862_ : string) : option string := + let _s863_ := _s862_ in + if string_startswith _s863_ ".aq" then + match (string_drop _s863_ (projT1 (string_length ".aq"))) with | s_ => Some s_ end + else None. + +Definition maybe_aq_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s864_ := arg_ in + (if match (_s861_ _s864_) with | Some s_ => true | _ => false end then + (match (_s861_ _s864_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s865_ _s864_) with | Some s_ => true | _ => false end then + (match (_s865_ _s864_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_rl_forwards (arg_ : bool) -: string := - +Definition maybe_rl_forwards (arg_ : bool) : string := match arg_ with | true => ".rl" | false => "" end. -Definition maybe_rl_backwards (arg_ : string) -: M (bool) := - +Definition maybe_rl_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ ".rl")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ ".rl" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_rl_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_rl_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_rl_backwards_matches (arg_ : string) -: bool := - +Definition maybe_rl_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ ".rl")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ ".rl" then true + else if generic_eq p0_ "" then true else false. -Definition _s612_ (_s613_ : string) -: option string := - - let _s614_ := _s613_ in - if ((string_startswith _s614_ "")) then - match (string_drop _s614_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s873_ (_s874_ : string) : option string := + let _s875_ := _s874_ in + if string_startswith _s875_ "" then + match (string_drop _s875_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s608_ (_s609_ : string) -: option string := - - let _s610_ := _s609_ in - if ((string_startswith _s610_ ".rl")) then - match (string_drop _s610_ (projT1 (string_length ".rl"))) with | s_ => Some (s_) end - else None. - -Definition maybe_rl_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s611_ := arg_ in - (if ((match (_s608_ _s611_) with | Some (s_) => true | _ => false end)) then - (match (_s608_ _s611_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s612_ _s611_) with | Some (s_) => true | _ => false end)) then - (match (_s612_ _s611_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s869_ (_s870_ : string) : option string := + let _s871_ := _s870_ in + if string_startswith _s871_ ".rl" then + match (string_drop _s871_ (projT1 (string_length ".rl"))) with | s_ => Some s_ end + else None. + +Definition maybe_rl_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s872_ := arg_ in + (if match (_s869_ _s872_) with | Some s_ => true | _ => false end then + (match (_s869_ _s872_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s873_ _s872_) with | Some s_ => true | _ => false end then + (match (_s873_ _s872_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_u_forwards (arg_ : bool) -: string := - +Definition maybe_u_forwards (arg_ : bool) : string := match arg_ with | true => "u" | false => "" end. -Definition maybe_u_backwards (arg_ : string) -: M (bool) := - +Definition maybe_u_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "u")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ "u" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_u_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_u_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_u_backwards_matches (arg_ : string) -: bool := - +Definition maybe_u_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "u")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "u" then true + else if generic_eq p0_ "" then true else false. -Definition _s620_ (_s621_ : string) -: option string := - - let _s622_ := _s621_ in - if ((string_startswith _s622_ "")) then - match (string_drop _s622_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s881_ (_s882_ : string) : option string := + let _s883_ := _s882_ in + if string_startswith _s883_ "" then + match (string_drop _s883_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s616_ (_s617_ : string) -: option string := - - let _s618_ := _s617_ in - if ((string_startswith _s618_ "u")) then - match (string_drop _s618_ (projT1 (string_length "u"))) with | s_ => Some (s_) end - else None. - -Definition maybe_u_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s619_ := arg_ in - (if ((match (_s616_ _s619_) with | Some (s_) => true | _ => false end)) then - (match (_s616_ _s619_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s620_ _s619_) with | Some (s_) => true | _ => false end)) then - (match (_s620_ _s619_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s877_ (_s878_ : string) : option string := + let _s879_ := _s878_ in + if string_startswith _s879_ "u" then + match (string_drop _s879_ (projT1 (string_length "u"))) with | s_ => Some s_ end + else None. + +Definition maybe_u_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s880_ := arg_ in + (if match (_s877_ _s880_) with | Some s_ => true | _ => false end then + (match (_s877_ _s880_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s881_ _s880_) with | Some s_ => true | _ => false end then + (match (_s881_ _s880_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition shiftw_mnemonic_forwards (arg_ : sop) -: string := - +Definition shiftw_mnemonic_forwards (arg_ : sop) : string := match arg_ with | RISCV_SLLI => "slli" | RISCV_SRLI => "srli" | RISCV_SRAI => "srai" end. -Definition shiftw_mnemonic_backwards (arg_ : string) -: M (sop) := - +Definition shiftw_mnemonic_backwards (arg_ : string) : M (sop) := let p0_ := arg_ in - (if ((generic_eq p0_ "slli")) then returnm (RISCV_SLLI : sop) - else if ((generic_eq p0_ "srli")) then returnm (RISCV_SRLI : sop) - else if ((generic_eq p0_ "srai")) then returnm (RISCV_SRAI : sop) + (if generic_eq p0_ "slli" then returnm RISCV_SLLI + else if generic_eq p0_ "srli" then returnm RISCV_SRLI + else if generic_eq p0_ "srai" then returnm RISCV_SRAI else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sop). -Definition shiftw_mnemonic_forwards_matches (arg_ : sop) -: bool := - +Definition shiftw_mnemonic_forwards_matches (arg_ : sop) : bool := match arg_ with | RISCV_SLLI => true | RISCV_SRLI => true | RISCV_SRAI => true end. -Definition shiftw_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftw_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slli")) then true - else if ((generic_eq p0_ "srli")) then true - else if ((generic_eq p0_ "srai")) then true + if generic_eq p0_ "slli" then true + else if generic_eq p0_ "srli" then true + else if generic_eq p0_ "srai" then true else false. -Definition _s632_ (_s633_ : string) -: option string := - - let _s634_ := _s633_ in - if ((string_startswith _s634_ "srai")) then - match (string_drop _s634_ (projT1 (string_length "srai"))) with | s_ => Some (s_) end +Definition _s893_ (_s894_ : string) : option string := + let _s895_ := _s894_ in + if string_startswith _s895_ "srai" then + match (string_drop _s895_ (projT1 (string_length "srai"))) with | s_ => Some s_ end else None. -Definition _s628_ (_s629_ : string) -: option string := - - let _s630_ := _s629_ in - if ((string_startswith _s630_ "srli")) then - match (string_drop _s630_ (projT1 (string_length "srli"))) with | s_ => Some (s_) end +Definition _s889_ (_s890_ : string) : option string := + let _s891_ := _s890_ in + if string_startswith _s891_ "srli" then + match (string_drop _s891_ (projT1 (string_length "srli"))) with | s_ => Some s_ end else None. -Definition _s624_ (_s625_ : string) -: option string := - - let _s626_ := _s625_ in - if ((string_startswith _s626_ "slli")) then - match (string_drop _s626_ (projT1 (string_length "slli"))) with | s_ => Some (s_) end - else None. - -Definition shiftw_mnemonic_matches_prefix (arg_ : string) -: M (option ((sop * {n : Z & ArithFact (n >= 0)}))) := - - let _s627_ := arg_ in - (if ((match (_s624_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s624_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s628_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s628_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s632_ _s627_) with | Some (s_) => true | _ => false end)) then - (match (_s632_ _s627_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAI, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) +Definition _s885_ (_s886_ : string) : option string := + let _s887_ := _s886_ in + if string_startswith _s887_ "slli" then + match (string_drop _s887_ (projT1 (string_length "slli"))) with | s_ => Some s_ end + else None. + +Definition shiftw_mnemonic_matches_prefix (arg_ : string) +: M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) := + let _s888_ := arg_ in + (if match (_s885_ _s888_) with | Some s_ => true | _ => false end then + (match (_s885_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SLLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s889_ _s888_) with | Some s_ => true | _ => false end then + (match (_s889_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SRLI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s893_ _s888_) with | Some s_ => true | _ => false end then + (match (_s893_ _s888_) with + | Some s_ => + returnm (Some + (RISCV_SRAI, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sop * {n : Z & ArithFact (n >=? 0)}))). -Definition rtypew_mnemonic_forwards (arg_ : ropw) -: string := - +Definition rtypew_mnemonic_forwards (arg_ : ropw) : string := match arg_ with | RISCV_ADDW => "addw" | RISCV_SUBW => "subw" @@ -15146,21 +14390,17 @@ Definition rtypew_mnemonic_forwards (arg_ : ropw) | RISCV_SRAW => "sraw" end. -Definition rtypew_mnemonic_backwards (arg_ : string) -: M (ropw) := - +Definition rtypew_mnemonic_backwards (arg_ : string) : M (ropw) := let p0_ := arg_ in - (if ((generic_eq p0_ "addw")) then returnm (RISCV_ADDW : ropw) - else if ((generic_eq p0_ "subw")) then returnm (RISCV_SUBW : ropw) - else if ((generic_eq p0_ "sllw")) then returnm (RISCV_SLLW : ropw) - else if ((generic_eq p0_ "srlw")) then returnm (RISCV_SRLW : ropw) - else if ((generic_eq p0_ "sraw")) then returnm (RISCV_SRAW : ropw) + (if generic_eq p0_ "addw" then returnm RISCV_ADDW + else if generic_eq p0_ "subw" then returnm RISCV_SUBW + else if generic_eq p0_ "sllw" then returnm RISCV_SLLW + else if generic_eq p0_ "srlw" then returnm RISCV_SRLW + else if generic_eq p0_ "sraw" then returnm RISCV_SRAW else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (ropw). -Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) -: bool := - +Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) : bool := match arg_ with | RISCV_ADDW => true | RISCV_SUBW => true @@ -15169,531 +14409,441 @@ Definition rtypew_mnemonic_forwards_matches (arg_ : ropw) | RISCV_SRAW => true end. -Definition rtypew_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition rtypew_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "addw")) then true - else if ((generic_eq p0_ "subw")) then true - else if ((generic_eq p0_ "sllw")) then true - else if ((generic_eq p0_ "srlw")) then true - else if ((generic_eq p0_ "sraw")) then true + if generic_eq p0_ "addw" then true + else if generic_eq p0_ "subw" then true + else if generic_eq p0_ "sllw" then true + else if generic_eq p0_ "srlw" then true + else if generic_eq p0_ "sraw" then true else false. -Definition _s652_ (_s653_ : string) -: option string := - - let _s654_ := _s653_ in - if ((string_startswith _s654_ "sraw")) then - match (string_drop _s654_ (projT1 (string_length "sraw"))) with | s_ => Some (s_) end +Definition _s913_ (_s914_ : string) : option string := + let _s915_ := _s914_ in + if string_startswith _s915_ "sraw" then + match (string_drop _s915_ (projT1 (string_length "sraw"))) with | s_ => Some s_ end else None. -Definition _s648_ (_s649_ : string) -: option string := - - let _s650_ := _s649_ in - if ((string_startswith _s650_ "srlw")) then - match (string_drop _s650_ (projT1 (string_length "srlw"))) with | s_ => Some (s_) end +Definition _s909_ (_s910_ : string) : option string := + let _s911_ := _s910_ in + if string_startswith _s911_ "srlw" then + match (string_drop _s911_ (projT1 (string_length "srlw"))) with | s_ => Some s_ end else None. -Definition _s644_ (_s645_ : string) -: option string := - - let _s646_ := _s645_ in - if ((string_startswith _s646_ "sllw")) then - match (string_drop _s646_ (projT1 (string_length "sllw"))) with | s_ => Some (s_) end +Definition _s905_ (_s906_ : string) : option string := + let _s907_ := _s906_ in + if string_startswith _s907_ "sllw" then + match (string_drop _s907_ (projT1 (string_length "sllw"))) with | s_ => Some s_ end else None. -Definition _s640_ (_s641_ : string) -: option string := - - let _s642_ := _s641_ in - if ((string_startswith _s642_ "subw")) then - match (string_drop _s642_ (projT1 (string_length "subw"))) with | s_ => Some (s_) end +Definition _s901_ (_s902_ : string) : option string := + let _s903_ := _s902_ in + if string_startswith _s903_ "subw" then + match (string_drop _s903_ (projT1 (string_length "subw"))) with | s_ => Some s_ end else None. -Definition _s636_ (_s637_ : string) -: option string := - - let _s638_ := _s637_ in - if ((string_startswith _s638_ "addw")) then - match (string_drop _s638_ (projT1 (string_length "addw"))) with | s_ => Some (s_) end - else None. - -Definition rtypew_mnemonic_matches_prefix (arg_ : string) -: M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) := - - let _s639_ := arg_ in - (if ((match (_s636_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s636_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_ADDW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s640_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s640_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SUBW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s644_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s644_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s648_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s648_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s652_ _s639_) with | Some (s_) => true | _ => false end)) then - (match (_s652_ _s639_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ropw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) +Definition _s897_ (_s898_ : string) : option string := + let _s899_ := _s898_ in + if string_startswith _s899_ "addw" then + match (string_drop _s899_ (projT1 (string_length "addw"))) with | s_ => Some s_ end + else None. + +Definition rtypew_mnemonic_matches_prefix (arg_ : string) +: M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) := + let _s900_ := arg_ in + (if match (_s897_ _s900_) with | Some s_ => true | _ => false end then + (match (_s897_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_ADDW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s901_ _s900_) with | Some s_ => true | _ => false end then + (match (_s901_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SUBW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s905_ _s900_) with | Some s_ => true | _ => false end then + (match (_s905_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SLLW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s909_ _s900_) with | Some s_ => true | _ => false end then + (match (_s909_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SRLW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((ropw * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ropw * {n : Z & ArithFact (n >= 0)}))). + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s913_ _s900_) with | Some s_ => true | _ => false end then + (match (_s913_ _s900_) with + | Some s_ => + returnm (Some + (RISCV_SRAW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((ropw * {n : Z & ArithFact (n >=? 0)}))). -Definition shiftiwop_mnemonic_forwards (arg_ : sopw) -: string := - +Definition shiftiwop_mnemonic_forwards (arg_ : sopw) : string := match arg_ with | RISCV_SLLIW => "slliw" | RISCV_SRLIW => "srliw" | RISCV_SRAIW => "sraiw" end. -Definition shiftiwop_mnemonic_backwards (arg_ : string) -: M (sopw) := - +Definition shiftiwop_mnemonic_backwards (arg_ : string) : M (sopw) := let p0_ := arg_ in - (if ((generic_eq p0_ "slliw")) then returnm (RISCV_SLLIW : sopw) - else if ((generic_eq p0_ "srliw")) then returnm (RISCV_SRLIW : sopw) - else if ((generic_eq p0_ "sraiw")) then returnm (RISCV_SRAIW : sopw) + (if generic_eq p0_ "slliw" then returnm RISCV_SLLIW + else if generic_eq p0_ "srliw" then returnm RISCV_SRLIW + else if generic_eq p0_ "sraiw" then returnm RISCV_SRAIW else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (sopw). -Definition shiftiwop_mnemonic_forwards_matches (arg_ : sopw) -: bool := - +Definition shiftiwop_mnemonic_forwards_matches (arg_ : sopw) : bool := match arg_ with | RISCV_SLLIW => true | RISCV_SRLIW => true | RISCV_SRAIW => true end. -Definition shiftiwop_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition shiftiwop_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "slliw")) then true - else if ((generic_eq p0_ "srliw")) then true - else if ((generic_eq p0_ "sraiw")) then true + if generic_eq p0_ "slliw" then true + else if generic_eq p0_ "srliw" then true + else if generic_eq p0_ "sraiw" then true else false. -Definition _s664_ (_s665_ : string) -: option string := - - let _s666_ := _s665_ in - if ((string_startswith _s666_ "sraiw")) then - match (string_drop _s666_ (projT1 (string_length "sraiw"))) with | s_ => Some (s_) end +Definition _s925_ (_s926_ : string) : option string := + let _s927_ := _s926_ in + if string_startswith _s927_ "sraiw" then + match (string_drop _s927_ (projT1 (string_length "sraiw"))) with | s_ => Some s_ end else None. -Definition _s660_ (_s661_ : string) -: option string := - - let _s662_ := _s661_ in - if ((string_startswith _s662_ "srliw")) then - match (string_drop _s662_ (projT1 (string_length "srliw"))) with | s_ => Some (s_) end +Definition _s921_ (_s922_ : string) : option string := + let _s923_ := _s922_ in + if string_startswith _s923_ "srliw" then + match (string_drop _s923_ (projT1 (string_length "srliw"))) with | s_ => Some s_ end else None. -Definition _s656_ (_s657_ : string) -: option string := - - let _s658_ := _s657_ in - if ((string_startswith _s658_ "slliw")) then - match (string_drop _s658_ (projT1 (string_length "slliw"))) with | s_ => Some (s_) end - else None. - -Definition shiftiwop_mnemonic_matches_prefix (arg_ : string) -: M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) := - - let _s659_ := arg_ in - (if ((match (_s656_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s656_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SLLIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s660_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s660_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRLIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s664_ _s659_) with | Some (s_) => true | _ => false end)) then - (match (_s664_ _s659_) with - | Some (s_) => - returnm ((Some - ((RISCV_SRAIW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((sopw * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) +Definition _s917_ (_s918_ : string) : option string := + let _s919_ := _s918_ in + if string_startswith _s919_ "slliw" then + match (string_drop _s919_ (projT1 (string_length "slliw"))) with | s_ => Some s_ end + else None. + +Definition shiftiwop_mnemonic_matches_prefix (arg_ : string) +: M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) := + let _s920_ := arg_ in + (if match (_s917_ _s920_) with | Some s_ => true | _ => false end then + (match (_s917_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SLLIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s921_ _s920_) with | Some s_ => true | _ => false end then + (match (_s921_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SRLIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((sopw * {n : Z & ArithFact (n >= 0)})))) - : M (option ((sopw * {n : Z & ArithFact (n >= 0)}))). + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s925_ _s920_) with | Some s_ => true | _ => false end then + (match (_s925_ _s920_) with + | Some s_ => + returnm (Some + (RISCV_SRAIW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((sopw * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_r_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_r_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("r" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "r" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_r_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_r_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "r")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "r" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_r_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_r_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_r_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_r_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "r")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "r" then true + else if generic_eq p0_ "" then true else false. -Definition _s672_ (_s673_ : string) -: option string := - - let _s674_ := _s673_ in - if ((string_startswith _s674_ "")) then - match (string_drop _s674_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s933_ (_s934_ : string) : option string := + let _s935_ := _s934_ in + if string_startswith _s935_ "" then + match (string_drop _s935_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s668_ (_s669_ : string) -: option string := - - let _s670_ := _s669_ in - if ((string_startswith _s670_ "r")) then - match (string_drop _s670_ (projT1 (string_length "r"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_r_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s671_ := arg_ in - (if ((match (_s668_ _s671_) with | Some (s_) => true | _ => false end)) then - (match (_s668_ _s671_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s672_ _s671_) with | Some (s_) => true | _ => false end)) then - (match (_s672_ _s671_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s929_ (_s930_ : string) : option string := + let _s931_ := _s930_ in + if string_startswith _s931_ "r" then + match (string_drop _s931_ (projT1 (string_length "r"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_r_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s932_ := arg_ in + (if match (_s929_ _s932_) with | Some s_ => true | _ => false end then + (match (_s929_ _s932_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s933_ _s932_) with | Some s_ => true | _ => false end then + (match (_s933_ _s932_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_w_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_w_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("w" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "w" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_w_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_w_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "w")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "w" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_w_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_w_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_w_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_w_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "w")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "w" then true + else if generic_eq p0_ "" then true else false. -Definition _s680_ (_s681_ : string) -: option string := - - let _s682_ := _s681_ in - if ((string_startswith _s682_ "")) then - match (string_drop _s682_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s941_ (_s942_ : string) : option string := + let _s943_ := _s942_ in + if string_startswith _s943_ "" then + match (string_drop _s943_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s676_ (_s677_ : string) -: option string := - - let _s678_ := _s677_ in - if ((string_startswith _s678_ "w")) then - match (string_drop _s678_ (projT1 (string_length "w"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_w_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s679_ := arg_ in - (if ((match (_s676_ _s679_) with | Some (s_) => true | _ => false end)) then - (match (_s676_ _s679_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s680_ _s679_) with | Some (s_) => true | _ => false end)) then - (match (_s680_ _s679_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s937_ (_s938_ : string) : option string := + let _s939_ := _s938_ in + if string_startswith _s939_ "w" then + match (string_drop _s939_ (projT1 (string_length "w"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_w_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s940_ := arg_ in + (if match (_s937_ _s940_) with | Some s_ => true | _ => false end then + (match (_s937_ _s940_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s941_ _s940_) with | Some s_ => true | _ => false end then + (match (_s941_ _s940_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_i_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_i_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("i" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "i" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_i_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_i_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "i")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "i" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_i_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_i_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_i_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_i_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "i")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "i" then true + else if generic_eq p0_ "" then true else false. -Definition _s688_ (_s689_ : string) -: option string := - - let _s690_ := _s689_ in - if ((string_startswith _s690_ "")) then - match (string_drop _s690_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s949_ (_s950_ : string) : option string := + let _s951_ := _s950_ in + if string_startswith _s951_ "" then + match (string_drop _s951_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s684_ (_s685_ : string) -: option string := - - let _s686_ := _s685_ in - if ((string_startswith _s686_ "i")) then - match (string_drop _s686_ (projT1 (string_length "i"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_i_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s687_ := arg_ in - (if ((match (_s684_ _s687_) with | Some (s_) => true | _ => false end)) then - (match (_s684_ _s687_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s688_ _s687_) with | Some (s_) => true | _ => false end)) then - (match (_s688_ _s687_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s945_ (_s946_ : string) : option string := + let _s947_ := _s946_ in + if string_startswith _s947_ "i" then + match (string_drop _s947_ (projT1 (string_length "i"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_i_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s948_ := arg_ in + (if match (_s945_ _s948_) with | Some s_ => true | _ => false end then + (match (_s945_ _s948_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s949_ _s948_) with | Some s_ => true | _ => false end then + (match (_s949_ _s948_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition bit_maybe_o_forwards (arg_ : mword 1) -: M (string) := - +Definition bit_maybe_o_forwards (arg_ : mword 1) : M (string) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then returnm ("o" : string) - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then returnm ("" : string) + (if eq_vec b__0 ('b"1" : mword 1) then returnm "o" + else if eq_vec b__0 ('b"0" : mword 1) then returnm "" else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string). -Definition bit_maybe_o_backwards (arg_ : string) -: M (mword 1) := - +Definition bit_maybe_o_backwards (arg_ : string) : M (mword 1) := let p0_ := arg_ in - (if ((generic_eq p0_ "o")) then returnm ((vec_of_bits [B1] : mword 1) : mword 1) - else if ((generic_eq p0_ "")) then returnm ((vec_of_bits [B0] : mword 1) : mword 1) + (if generic_eq p0_ "o" then returnm ('b"1" : mword 1) + else if generic_eq p0_ "" then returnm ('b"0" : mword 1) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 1). -Definition bit_maybe_o_forwards_matches (arg_ : mword 1) -: bool := - +Definition bit_maybe_o_forwards_matches (arg_ : mword 1) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B1] : mword 1))) then true - else if ((eq_vec b__0 (vec_of_bits [B0] : mword 1))) then true + if eq_vec b__0 ('b"1" : mword 1) then true + else if eq_vec b__0 ('b"0" : mword 1) then true else false. -Definition bit_maybe_o_backwards_matches (arg_ : string) -: bool := - +Definition bit_maybe_o_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "o")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "o" then true + else if generic_eq p0_ "" then true else false. -Definition _s696_ (_s697_ : string) -: option string := - - let _s698_ := _s697_ in - if ((string_startswith _s698_ "")) then - match (string_drop _s698_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s957_ (_s958_ : string) : option string := + let _s959_ := _s958_ in + if string_startswith _s959_ "" then + match (string_drop _s959_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s692_ (_s693_ : string) -: option string := - - let _s694_ := _s693_ in - if ((string_startswith _s694_ "o")) then - match (string_drop _s694_ (projT1 (string_length "o"))) with | s_ => Some (s_) end - else None. - -Definition bit_maybe_o_matches_prefix (arg_ : string) -: M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) := - - let _s695_ := arg_ in - (if ((match (_s692_ _s695_) with | Some (s_) => true | _ => false end)) then - (match (_s692_ _s695_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B1] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s696_ _s695_) with | Some (s_) => true | _ => false end)) then - (match (_s696_ _s695_) with - | Some (s_) => - returnm ((Some - (((vec_of_bits [B0] : mword 1), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) +Definition _s953_ (_s954_ : string) : option string := + let _s955_ := _s954_ in + if string_startswith _s955_ "o" then + match (string_drop _s955_ (projT1 (string_length "o"))) with | s_ => Some s_ end + else None. + +Definition bit_maybe_o_matches_prefix (arg_ : string) +: M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) := + let _s956_ := arg_ in + (if match (_s953_ _s956_) with | Some s_ => true | _ => false end then + (match (_s953_ _s956_) with + | Some s_ => + returnm (Some + ('b"1" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 1 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 1 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s957_ _s956_) with | Some s_ => true | _ => false end then + (match (_s957_ _s956_) with + | Some s_ => + returnm (Some + ('b"0" + : mword 1, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 1 * {n : Z & ArithFact (n >=? 0)}))). -Definition fence_bits_forwards (arg_ : mword 4) -: M (string) := - +Definition fence_bits_forwards (arg_ : mword 4) : M (string) := (match arg_ with | v__0 => let i : bits 1 := subrange_vec_dec v__0 3 3 in @@ -15705,230 +14855,202 @@ Definition fence_bits_forwards (arg_ : mword 4) (bit_maybe_o_forwards o) >>= fun w__1 : string => (bit_maybe_r_forwards r) >>= fun w__2 : string => (bit_maybe_w_forwards w) >>= fun w__3 : string => - returnm ((string_append w__0 - (string_append w__1 (string_append w__2 (string_append w__3 "")))) - : string) + returnm (string_append w__0 (string_append w__1 (string_append w__2 (string_append w__3 "")))) end) : M (string). -Definition _s700_ (_s701_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := - - (match _s701_ with - | _s702_ => - (bit_maybe_i_matches_prefix _s702_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s961_ (_s962_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := + (match _s962_ with + | _s963_ => + (bit_maybe_i_matches_prefix _s963_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s703_ _)) => - (match (string_drop _s702_ _s703_) with - | _s704_ => - (bit_maybe_o_matches_prefix _s704_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s964_ _) => + (match (string_drop _s963_ _s964_) with + | _s965_ => + (bit_maybe_o_matches_prefix _s965_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s705_ _)) => - (match (string_drop _s704_ _s705_) with - | _s706_ => - (bit_maybe_r_matches_prefix _s706_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s966_ _) => + (match (string_drop _s965_ _s966_) with + | _s967_ => + (bit_maybe_r_matches_prefix _s967_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s707_ _)) => - (match (string_drop _s706_ _s707_) with - | _s708_ => - (bit_maybe_w_matches_prefix _s708_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s968_ _) => + (match (string_drop _s967_ _s968_) with + | _s969_ => + (bit_maybe_w_matches_prefix _s969_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s709_ _)) => - let p0_ := string_drop _s708_ _s709_ in - if ((generic_eq p0_ "")) then Some ((i, o, r, w)) - else None - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1))) + returnm (match w__3 with + | Some (w, existT _ _s970_ _) => + let p0_ := string_drop _s969_ _s970_ in + if generic_eq p0_ "" then Some (i, o, r, w) + else None + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))). -Definition fence_bits_backwards (arg_ : string) -: M (mword 4) := - - let _s710_ := arg_ in - (_s700_ _s710_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (if ((match w__0 with | Some ((i, o, r, w)) => true | _ => false end)) then - (_s700_ _s710_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => +Definition fence_bits_backwards (arg_ : string) : M (mword 4) := + let _s971_ := arg_ in + (_s961_ _s971_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (if match w__0 with | Some (i, o, r, w) => true | _ => false end then + (_s961_ _s971_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => (match w__1 with - | Some ((i, o, r, w)) => - returnm ((concat_vec (i : bits 1) - (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1)))) - : mword (1 + (1 + (1 + 1)))) + | Some (i, o, r, w) => + returnm (concat_vec (i : bits 1) + (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1)))) | _ => exit tt : M (mword 4) end) : M (mword 4) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 4). -Definition fence_bits_forwards_matches (arg_ : mword 4) -: bool := - +Definition fence_bits_forwards_matches (arg_ : mword 4) : bool := match arg_ with | v__1 => true end. -Definition _s711_ (_s712_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := - - (match _s712_ with - | _s713_ => - (bit_maybe_i_matches_prefix _s713_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s972_ (_s973_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) := + (match _s973_ with + | _s974_ => + (bit_maybe_i_matches_prefix _s974_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s714_ _)) => - (match (string_drop _s713_ _s714_) with - | _s715_ => - (bit_maybe_o_matches_prefix _s715_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s975_ _) => + (match (string_drop _s974_ _s975_) with + | _s976_ => + (bit_maybe_o_matches_prefix _s976_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s716_ _)) => - (match (string_drop _s715_ _s716_) with - | _s717_ => - (bit_maybe_r_matches_prefix _s717_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s977_ _) => + (match (string_drop _s976_ _s977_) with + | _s978_ => + (bit_maybe_r_matches_prefix _s978_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s718_ _)) => - (match (string_drop _s717_ _s718_) with - | _s719_ => - (bit_maybe_w_matches_prefix _s719_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s979_ _) => + (match (string_drop _s978_ _s979_) with + | _s980_ => + (bit_maybe_w_matches_prefix _s980_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s720_ _)) => - let p0_ := string_drop _s719_ _s720_ in - if ((generic_eq p0_ "")) then Some ((i, o, r, w)) - else None - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1))) + returnm (match w__3 with + | Some (w, existT _ _s981_ _) => + let p0_ := string_drop _s980_ _s981_ in + if generic_eq p0_ "" then Some (i, o, r, w) + else None + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1))). -Definition fence_bits_backwards_matches (arg_ : string) -: M (bool) := - - let _s721_ := arg_ in - (_s711_ _s721_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (if ((match w__0 with | Some ((i, o, r, w)) => true | _ => false end)) then - (_s711_ _s721_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => - (match w__1 with - | Some ((i, o, r, w)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) +Definition fence_bits_backwards_matches (arg_ : string) : M (bool) := + let _s982_ := arg_ in + (_s972_ _s982_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (if match w__0 with | Some (i, o, r, w) => true | _ => false end then + (_s972_ _s982_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1)) => + (match w__1 with | Some (i, o, r, w) => returnm true | _ => exit tt : M (bool) end) : M (bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + else returnm false) : M (bool). -Definition _s722_ (_s723_ : string) -: M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) := - - (match _s723_ with - | _s724_ => - (bit_maybe_i_matches_prefix _s724_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >= +Definition _s983_ (_s984_ : string) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) := + (match _s984_ with + | _s985_ => + (bit_maybe_i_matches_prefix _s985_) >>= fun w__0 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((i, existT _ _s725_ _)) => - (match (string_drop _s724_ _s725_) with - | _s726_ => - (bit_maybe_o_matches_prefix _s726_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (i, existT _ _s986_ _) => + (match (string_drop _s985_ _s986_) with + | _s987_ => + (bit_maybe_o_matches_prefix _s987_) >>= fun w__1 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((o, existT _ _s727_ _)) => - (match (string_drop _s726_ _s727_) with - | _s728_ => - (bit_maybe_r_matches_prefix _s728_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (o, existT _ _s988_ _) => + (match (string_drop _s987_ _s988_) with + | _s989_ => + (bit_maybe_r_matches_prefix _s989_) >>= fun w__2 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((r, existT _ _s729_ _)) => - (match (string_drop _s728_ _s729_) with - | _s730_ => - (bit_maybe_w_matches_prefix _s730_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >= + | Some (r, existT _ _s990_ _) => + (match (string_drop _s989_ _s990_) with + | _s991_ => + (bit_maybe_w_matches_prefix _s991_) >>= fun w__3 : option ((mword 1 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((w, existT _ _s731_ _)) => - match (string_drop _s730_ _s731_) with - | s_ => Some ((i, o, r, w, s_)) - end - | _ => None - end) - : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + returnm (match w__3 with + | Some (w, existT _ _s992_ _) => + match (string_drop _s991_ _s992_) with + | s_ => Some (i, o, r, w, s_) + end + | _ => None + end) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => - returnm (None - : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) - | _ => returnm (None : option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) + | _ => returnm None end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))) end) : M (option ((mword 1 * mword 1 * mword 1 * mword 1 * string))). -Definition fence_bits_matches_prefix (arg_ : string) -: M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) := - - let _s732_ := arg_ in - (_s722_ _s732_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => - (if ((match w__0 with | Some ((i, o, r, w, s_)) => true | _ => false end)) then - (_s722_ _s732_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => +Definition fence_bits_matches_prefix (arg_ : string) +: M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) := + let _s993_ := arg_ in + (_s983_ _s993_) >>= fun w__0 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => + (if match w__0 with | Some (i, o, r, w, s_) => true | _ => false end then + (_s983_ _s993_) >>= fun w__1 : option ((mword 1 * mword 1 * mword 1 * mword 1 * string)) => (match w__1 with - | Some ((i, o, r, w, s_)) => - returnm ((Some - ((concat_vec (i : bits 1) - (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1))), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) + | Some (i, o, r, w, s_) => + returnm (Some + (concat_vec (i : bits 1) + (concat_vec (o : bits 1) (concat_vec (r : bits 1) (w : bits 1))), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((mword 4 * {n : Z & ArithFact (n >= 0)})))) - : M (option ((mword 4 * {n : Z & ArithFact (n >= 0)}))). + : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((mword 4 * {n : Z & ArithFact (n >=? 0)}))). -Definition aqrl_str (aq : bool) (rl : bool) -: string := - +Definition aqrl_str (aq : bool) (rl : bool) : string := match (aq, rl) with | (false, false) => "" | (false, true) => ".rl" @@ -15936,62 +15058,49 @@ Definition aqrl_str (aq : bool) (rl : bool) | (true, true) => ".aqrl" end. -Definition lrsc_width_str (width : word_width) -: string := - +Definition lrsc_width_str (width : word_width) : string := match width with | BYTE => ".b" | HALF => ".h" | WORD => ".w" | DOUBLE => ".d" end. Definition process_loadres {n : Z} (rd : mword 5) (addr : mword 64) (value : MemoryOpResult (mword (8 * n))) (is_unsigned : bool) -`{ArithFact (0 < n /\ n <= 8)} +`{ArithFact ((0 <? n) && (n <=? 8))} : M (Retired) := - (match (extend_value is_unsigned value) with - | MemValue (result) => + | MemValue result => let '_ := (load_reservation addr) : unit in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - | MemException (e) => (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired). -Definition encdec_amoop_forwards (arg_ : amoop) -: mword 5 := - +Definition encdec_amoop_forwards (arg_ : amoop) : mword 5 := match arg_ with - | AMOSWAP => (vec_of_bits [B0;B0;B0;B0;B1] : mword 5) - | AMOADD => (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - | AMOXOR => (vec_of_bits [B0;B0;B1;B0;B0] : mword 5) - | AMOAND => (vec_of_bits [B0;B1;B1;B0;B0] : mword 5) - | AMOOR => (vec_of_bits [B0;B1;B0;B0;B0] : mword 5) - | AMOMIN => (vec_of_bits [B1;B0;B0;B0;B0] : mword 5) - | AMOMAX => (vec_of_bits [B1;B0;B1;B0;B0] : mword 5) - | AMOMINU => (vec_of_bits [B1;B1;B0;B0;B0] : mword 5) - | AMOMAXU => (vec_of_bits [B1;B1;B1;B0;B0] : mword 5) + | AMOSWAP => 'b"00001" : mword 5 + | AMOADD => 'b"00000" : mword 5 + | AMOXOR => 'b"00100" : mword 5 + | AMOAND => 'b"01100" : mword 5 + | AMOOR => 'b"01000" : mword 5 + | AMOMIN => 'b"10000" : mword 5 + | AMOMAX => 'b"10100" : mword 5 + | AMOMINU => 'b"11000" : mword 5 + | AMOMAXU => 'b"11100" : mword 5 end. -Definition encdec_amoop_backwards (arg_ : mword 5) -: M (amoop) := - +Definition encdec_amoop_backwards (arg_ : mword 5) : M (amoop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then returnm (AMOSWAP : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then returnm (AMOADD : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then returnm (AMOXOR : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then returnm (AMOAND : amoop) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then returnm (AMOOR : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then returnm (AMOMIN : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then returnm (AMOMAX : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then - returnm (AMOMINU - : amoop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then - returnm (AMOMAXU - : amoop) + (if eq_vec b__0 ('b"00001" : mword 5) then returnm AMOSWAP + else if eq_vec b__0 ('b"00000" : mword 5) then returnm AMOADD + else if eq_vec b__0 ('b"00100" : mword 5) then returnm AMOXOR + else if eq_vec b__0 ('b"01100" : mword 5) then returnm AMOAND + else if eq_vec b__0 ('b"01000" : mword 5) then returnm AMOOR + else if eq_vec b__0 ('b"10000" : mword 5) then returnm AMOMIN + else if eq_vec b__0 ('b"10100" : mword 5) then returnm AMOMAX + else if eq_vec b__0 ('b"11000" : mword 5) then returnm AMOMINU + else if eq_vec b__0 ('b"11100" : mword 5) then returnm AMOMAXU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (amoop). -Definition encdec_amoop_forwards_matches (arg_ : amoop) -: bool := - +Definition encdec_amoop_forwards_matches (arg_ : amoop) : bool := match arg_ with | AMOSWAP => true | AMOADD => true @@ -16004,24 +15113,20 @@ Definition encdec_amoop_forwards_matches (arg_ : amoop) | AMOMAXU => true end. -Definition encdec_amoop_backwards_matches (arg_ : mword 5) -: bool := - +Definition encdec_amoop_backwards_matches (arg_ : mword 5) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B1] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0] : mword 5))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B0;B0] : mword 5))) then true + if eq_vec b__0 ('b"00001" : mword 5) then true + else if eq_vec b__0 ('b"00000" : mword 5) then true + else if eq_vec b__0 ('b"00100" : mword 5) then true + else if eq_vec b__0 ('b"01100" : mword 5) then true + else if eq_vec b__0 ('b"01000" : mword 5) then true + else if eq_vec b__0 ('b"10000" : mword 5) then true + else if eq_vec b__0 ('b"10100" : mword 5) then true + else if eq_vec b__0 ('b"11000" : mword 5) then true + else if eq_vec b__0 ('b"11100" : mword 5) then true else false. -Definition amo_mnemonic_forwards (arg_ : amoop) -: string := - +Definition amo_mnemonic_forwards (arg_ : amoop) : string := match arg_ with | AMOSWAP => "amoswap" | AMOADD => "amoadd" @@ -16034,25 +15139,21 @@ Definition amo_mnemonic_forwards (arg_ : amoop) | AMOMAXU => "amomaxu" end. -Definition amo_mnemonic_backwards (arg_ : string) -: M (amoop) := - +Definition amo_mnemonic_backwards (arg_ : string) : M (amoop) := let p0_ := arg_ in - (if ((generic_eq p0_ "amoswap")) then returnm (AMOSWAP : amoop) - else if ((generic_eq p0_ "amoadd")) then returnm (AMOADD : amoop) - else if ((generic_eq p0_ "amoxor")) then returnm (AMOXOR : amoop) - else if ((generic_eq p0_ "amoand")) then returnm (AMOAND : amoop) - else if ((generic_eq p0_ "amoor")) then returnm (AMOOR : amoop) - else if ((generic_eq p0_ "amomin")) then returnm (AMOMIN : amoop) - else if ((generic_eq p0_ "amomax")) then returnm (AMOMAX : amoop) - else if ((generic_eq p0_ "amominu")) then returnm (AMOMINU : amoop) - else if ((generic_eq p0_ "amomaxu")) then returnm (AMOMAXU : amoop) + (if generic_eq p0_ "amoswap" then returnm AMOSWAP + else if generic_eq p0_ "amoadd" then returnm AMOADD + else if generic_eq p0_ "amoxor" then returnm AMOXOR + else if generic_eq p0_ "amoand" then returnm AMOAND + else if generic_eq p0_ "amoor" then returnm AMOOR + else if generic_eq p0_ "amomin" then returnm AMOMIN + else if generic_eq p0_ "amomax" then returnm AMOMAX + else if generic_eq p0_ "amominu" then returnm AMOMINU + else if generic_eq p0_ "amomaxu" then returnm AMOMAXU else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (amoop). -Definition amo_mnemonic_forwards_matches (arg_ : amoop) -: bool := - +Definition amo_mnemonic_forwards_matches (arg_ : amoop) : bool := match arg_ with | AMOSWAP => true | AMOADD => true @@ -16065,225 +15166,189 @@ Definition amo_mnemonic_forwards_matches (arg_ : amoop) | AMOMAXU => true end. -Definition amo_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition amo_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "amoswap")) then true - else if ((generic_eq p0_ "amoadd")) then true - else if ((generic_eq p0_ "amoxor")) then true - else if ((generic_eq p0_ "amoand")) then true - else if ((generic_eq p0_ "amoor")) then true - else if ((generic_eq p0_ "amomin")) then true - else if ((generic_eq p0_ "amomax")) then true - else if ((generic_eq p0_ "amominu")) then true - else if ((generic_eq p0_ "amomaxu")) then true + if generic_eq p0_ "amoswap" then true + else if generic_eq p0_ "amoadd" then true + else if generic_eq p0_ "amoxor" then true + else if generic_eq p0_ "amoand" then true + else if generic_eq p0_ "amoor" then true + else if generic_eq p0_ "amomin" then true + else if generic_eq p0_ "amomax" then true + else if generic_eq p0_ "amominu" then true + else if generic_eq p0_ "amomaxu" then true else false. -Definition _s765_ (_s766_ : string) -: option string := - - let _s767_ := _s766_ in - if ((string_startswith _s767_ "amomaxu")) then - match (string_drop _s767_ (projT1 (string_length "amomaxu"))) with | s_ => Some (s_) end +Definition _s1026_ (_s1027_ : string) : option string := + let _s1028_ := _s1027_ in + if string_startswith _s1028_ "amomaxu" then + match (string_drop _s1028_ (projT1 (string_length "amomaxu"))) with | s_ => Some s_ end else None. -Definition _s761_ (_s762_ : string) -: option string := - - let _s763_ := _s762_ in - if ((string_startswith _s763_ "amominu")) then - match (string_drop _s763_ (projT1 (string_length "amominu"))) with | s_ => Some (s_) end +Definition _s1022_ (_s1023_ : string) : option string := + let _s1024_ := _s1023_ in + if string_startswith _s1024_ "amominu" then + match (string_drop _s1024_ (projT1 (string_length "amominu"))) with | s_ => Some s_ end else None. -Definition _s757_ (_s758_ : string) -: option string := - - let _s759_ := _s758_ in - if ((string_startswith _s759_ "amomax")) then - match (string_drop _s759_ (projT1 (string_length "amomax"))) with | s_ => Some (s_) end +Definition _s1018_ (_s1019_ : string) : option string := + let _s1020_ := _s1019_ in + if string_startswith _s1020_ "amomax" then + match (string_drop _s1020_ (projT1 (string_length "amomax"))) with | s_ => Some s_ end else None. -Definition _s753_ (_s754_ : string) -: option string := - - let _s755_ := _s754_ in - if ((string_startswith _s755_ "amomin")) then - match (string_drop _s755_ (projT1 (string_length "amomin"))) with | s_ => Some (s_) end - else None. - -Definition _s749_ (_s750_ : string) -: option string := - - let _s751_ := _s750_ in - if ((string_startswith _s751_ "amoor")) then - match (string_drop _s751_ (projT1 (string_length "amoor"))) with | s_ => Some (s_) end - else None. - -Definition _s745_ (_s746_ : string) -: option string := - - let _s747_ := _s746_ in - if ((string_startswith _s747_ "amoand")) then - match (string_drop _s747_ (projT1 (string_length "amoand"))) with | s_ => Some (s_) end - else None. - -Definition _s741_ (_s742_ : string) -: option string := - - let _s743_ := _s742_ in - if ((string_startswith _s743_ "amoxor")) then - match (string_drop _s743_ (projT1 (string_length "amoxor"))) with | s_ => Some (s_) end - else None. - -Definition _s737_ (_s738_ : string) -: option string := - - let _s739_ := _s738_ in - if ((string_startswith _s739_ "amoadd")) then - match (string_drop _s739_ (projT1 (string_length "amoadd"))) with | s_ => Some (s_) end - else None. - -Definition _s733_ (_s734_ : string) -: option string := - - let _s735_ := _s734_ in - if ((string_startswith _s735_ "amoswap")) then - match (string_drop _s735_ (projT1 (string_length "amoswap"))) with | s_ => Some (s_) end - else None. - -Definition amo_mnemonic_matches_prefix (arg_ : string) -: M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) := - - let _s736_ := arg_ in - (if ((match (_s733_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s733_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOSWAP, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s737_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s737_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOADD, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s741_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s741_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOXOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s745_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s745_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOAND, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s749_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s749_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOOR, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s753_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s753_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMIN, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s757_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s757_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMAX, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s761_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s761_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMINU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s765_ _s736_) with | Some (s_) => true | _ => false end)) then - (match (_s765_ _s736_) with - | Some (s_) => - returnm ((Some - ((AMOMAXU, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((amoop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) +Definition _s1014_ (_s1015_ : string) : option string := + let _s1016_ := _s1015_ in + if string_startswith _s1016_ "amomin" then + match (string_drop _s1016_ (projT1 (string_length "amomin"))) with | s_ => Some s_ end + else None. + +Definition _s1010_ (_s1011_ : string) : option string := + let _s1012_ := _s1011_ in + if string_startswith _s1012_ "amoor" then + match (string_drop _s1012_ (projT1 (string_length "amoor"))) with | s_ => Some s_ end + else None. + +Definition _s1006_ (_s1007_ : string) : option string := + let _s1008_ := _s1007_ in + if string_startswith _s1008_ "amoand" then + match (string_drop _s1008_ (projT1 (string_length "amoand"))) with | s_ => Some s_ end + else None. + +Definition _s1002_ (_s1003_ : string) : option string := + let _s1004_ := _s1003_ in + if string_startswith _s1004_ "amoxor" then + match (string_drop _s1004_ (projT1 (string_length "amoxor"))) with | s_ => Some s_ end + else None. + +Definition _s998_ (_s999_ : string) : option string := + let _s1000_ := _s999_ in + if string_startswith _s1000_ "amoadd" then + match (string_drop _s1000_ (projT1 (string_length "amoadd"))) with | s_ => Some s_ end + else None. + +Definition _s994_ (_s995_ : string) : option string := + let _s996_ := _s995_ in + if string_startswith _s996_ "amoswap" then + match (string_drop _s996_ (projT1 (string_length "amoswap"))) with | s_ => Some s_ end + else None. + +Definition amo_mnemonic_matches_prefix (arg_ : string) +: M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) := + let _s997_ := arg_ in + (if match (_s994_ _s997_) with | Some s_ => true | _ => false end then + (match (_s994_ _s997_) with + | Some s_ => + returnm (Some + (AMOSWAP, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s998_ _s997_) with | Some s_ => true | _ => false end then + (match (_s998_ _s997_) with + | Some s_ => + returnm (Some + (AMOADD, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1002_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1002_ _s997_) with + | Some s_ => + returnm (Some + (AMOXOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1006_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1006_ _s997_) with + | Some s_ => + returnm (Some + (AMOAND, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1010_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1010_ _s997_) with + | Some s_ => + returnm (Some + (AMOOR, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((amoop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((amoop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1014_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1014_ _s997_) with + | Some s_ => + returnm (Some + (AMOMIN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1018_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1018_ _s997_) with + | Some s_ => + returnm (Some + (AMOMAX, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1022_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1022_ _s997_) with + | Some s_ => + returnm (Some + (AMOMINU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1026_ _s997_) with | Some s_ => true | _ => false end then + (match (_s1026_ _s997_) with + | Some s_ => + returnm (Some + (AMOMAXU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((amoop * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_mul_op_forwards (arg_ : (bool * bool * bool)) -: M (mword 3) := - +Definition encdec_mul_op_forwards (arg_ : (bool * bool * bool)) : M (mword 3) := (match arg_ with - | (false, true, true) => returnm ((vec_of_bits [B0;B0;B0] : mword 3) : mword 3) - | (true, true, true) => returnm ((vec_of_bits [B0;B0;B1] : mword 3) : mword 3) - | (true, true, false) => returnm ((vec_of_bits [B0;B1;B0] : mword 3) : mword 3) - | (true, false, false) => returnm ((vec_of_bits [B0;B1;B1] : mword 3) : mword 3) + | (false, true, true) => returnm ('b"000" : mword 3) + | (true, true, true) => returnm ('b"001" : mword 3) + | (true, true, false) => returnm ('b"010" : mword 3) + | (true, false, false) => returnm ('b"011" : mword 3) | _ => exit tt : M (mword 3) end) : M (mword 3). -Definition encdec_mul_op_backwards (arg_ : mword 3) -: M ((bool * bool * bool)) := - +Definition encdec_mul_op_backwards (arg_ : mword 3) : M ((bool * bool * bool)) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then returnm (false, true, true) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then returnm (true, true, true) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then returnm (true, true, false) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then returnm (true, false, false) + (if eq_vec b__0 ('b"000" : mword 3) then returnm (false, true, true) + else if eq_vec b__0 ('b"001" : mword 3) then returnm (true, true, true) + else if eq_vec b__0 ('b"010" : mword 3) then returnm (true, true, false) + else if eq_vec b__0 ('b"011" : mword 3) then returnm (true, false, false) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M ((bool * bool * bool)). -Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) -: bool := - +Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) : bool := match arg_ with | (false, true, true) => true | (true, true, true) => true @@ -16292,42 +15357,34 @@ Definition encdec_mul_op_forwards_matches (arg_ : (bool * bool * bool)) | _ => false end. -Definition encdec_mul_op_backwards_matches (arg_ : mword 3) -: bool := - +Definition encdec_mul_op_backwards_matches (arg_ : mword 3) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B0;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B0] : mword 3))) then true - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1] : mword 3))) then true + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true else false. -Definition mul_mnemonic_forwards (arg_ : (bool * bool * bool)) -: M (string) := - +Definition mul_mnemonic_forwards (arg_ : (bool * bool * bool)) : M (string) := (match arg_ with - | (false, true, true) => returnm ("mul" : string) - | (true, true, true) => returnm ("mulh" : string) - | (true, true, false) => returnm ("mulhsu" : string) - | (true, false, false) => returnm ("mulhu" : string) + | (false, true, true) => returnm "mul" + | (true, true, true) => returnm "mulh" + | (true, true, false) => returnm "mulhsu" + | (true, false, false) => returnm "mulhu" | _ => exit tt : M (string) end) : M (string). -Definition mul_mnemonic_backwards (arg_ : string) -: M ((bool * bool * bool)) := - +Definition mul_mnemonic_backwards (arg_ : string) : M ((bool * bool * bool)) := let p0_ := arg_ in - (if ((generic_eq p0_ "mul")) then returnm (false, true, true) - else if ((generic_eq p0_ "mulh")) then returnm (true, true, true) - else if ((generic_eq p0_ "mulhsu")) then returnm (true, true, false) - else if ((generic_eq p0_ "mulhu")) then returnm (true, false, false) + (if generic_eq p0_ "mul" then returnm (false, true, true) + else if generic_eq p0_ "mulh" then returnm (true, true, true) + else if generic_eq p0_ "mulhsu" then returnm (true, true, false) + else if generic_eq p0_ "mulhu" then returnm (true, false, false) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M ((bool * bool * bool)). -Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) -: bool := - +Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) : bool := match arg_ with | (false, true, true) => true | (true, true, true) => true @@ -16336,2780 +15393,7875 @@ Definition mul_mnemonic_forwards_matches (arg_ : (bool * bool * bool)) | _ => false end. -Definition mul_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition mul_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "mul")) then true - else if ((generic_eq p0_ "mulh")) then true - else if ((generic_eq p0_ "mulhsu")) then true - else if ((generic_eq p0_ "mulhu")) then true + if generic_eq p0_ "mul" then true + else if generic_eq p0_ "mulh" then true + else if generic_eq p0_ "mulhsu" then true + else if generic_eq p0_ "mulhu" then true else false. -Definition _s781_ (_s782_ : string) -: option string := - - let _s783_ := _s782_ in - if ((string_startswith _s783_ "mulhu")) then - match (string_drop _s783_ (projT1 (string_length "mulhu"))) with | s_ => Some (s_) end +Definition _s1042_ (_s1043_ : string) : option string := + let _s1044_ := _s1043_ in + if string_startswith _s1044_ "mulhu" then + match (string_drop _s1044_ (projT1 (string_length "mulhu"))) with | s_ => Some s_ end else None. -Definition _s777_ (_s778_ : string) -: option string := - - let _s779_ := _s778_ in - if ((string_startswith _s779_ "mulhsu")) then - match (string_drop _s779_ (projT1 (string_length "mulhsu"))) with | s_ => Some (s_) end +Definition _s1038_ (_s1039_ : string) : option string := + let _s1040_ := _s1039_ in + if string_startswith _s1040_ "mulhsu" then + match (string_drop _s1040_ (projT1 (string_length "mulhsu"))) with | s_ => Some s_ end else None. -Definition _s773_ (_s774_ : string) -: option string := - - let _s775_ := _s774_ in - if ((string_startswith _s775_ "mulh")) then - match (string_drop _s775_ (projT1 (string_length "mulh"))) with | s_ => Some (s_) end +Definition _s1034_ (_s1035_ : string) : option string := + let _s1036_ := _s1035_ in + if string_startswith _s1036_ "mulh" then + match (string_drop _s1036_ (projT1 (string_length "mulh"))) with | s_ => Some s_ end else None. -Definition _s769_ (_s770_ : string) -: option string := - - let _s771_ := _s770_ in - if ((string_startswith _s771_ "mul")) then - match (string_drop _s771_ (projT1 (string_length "mul"))) with | s_ => Some (s_) end - else None. - -Definition mul_mnemonic_matches_prefix (arg_ : string) -: M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) := - - let _s772_ := arg_ in - (if ((match (_s769_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s769_ _s772_) with - | Some (s_) => - returnm ((Some - (((false, true, true), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s773_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s773_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, true, true), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s777_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s777_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, true, false), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s781_ _s772_) with | Some (s_) => true | _ => false end)) then - (match (_s781_ _s772_) with - | Some (s_) => - returnm ((Some - (((true, false, false), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) +Definition _s1030_ (_s1031_ : string) : option string := + let _s1032_ := _s1031_ in + if string_startswith _s1032_ "mul" then + match (string_drop _s1032_ (projT1 (string_length "mul"))) with | s_ => Some s_ end + else None. + +Definition mul_mnemonic_matches_prefix (arg_ : string) +: M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) := + let _s1033_ := arg_ in + (if match (_s1030_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1030_ _s1033_) with + | Some s_ => + returnm (Some + ((false, true, true), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1034_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1034_ _s1033_) with + | Some s_ => + returnm (Some + ((true, true, true), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1038_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1038_ _s1033_) with + | Some s_ => + returnm (Some + ((true, true, false), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1042_ _s1033_) with | Some s_ => true | _ => false end then + (match (_s1042_ _s1033_) with + | Some s_ => + returnm (Some + ((true, false, false), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)})))) - : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >= 0)}))). + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)}))). -Definition maybe_not_u_forwards (arg_ : bool) -: string := - +Definition maybe_not_u_forwards (arg_ : bool) : string := match arg_ with | false => "u" | true => "" end. -Definition maybe_not_u_backwards (arg_ : string) -: M (bool) := - +Definition maybe_not_u_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "u")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (if generic_eq p0_ "u" then returnm false + else if generic_eq p0_ "" then returnm true else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_not_u_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_not_u_forwards_matches (arg_ : bool) : bool := match arg_ with | false => true | true => true end. -Definition maybe_not_u_backwards_matches (arg_ : string) -: bool := - +Definition maybe_not_u_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "u")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "u" then true + else if generic_eq p0_ "" then true else false. -Definition _s789_ (_s790_ : string) -: option string := - - let _s791_ := _s790_ in - if ((string_startswith _s791_ "")) then - match (string_drop _s791_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s1050_ (_s1051_ : string) : option string := + let _s1052_ := _s1051_ in + if string_startswith _s1052_ "" then + match (string_drop _s1052_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s785_ (_s786_ : string) -: option string := - - let _s787_ := _s786_ in - if ((string_startswith _s787_ "u")) then - match (string_drop _s787_ (projT1 (string_length "u"))) with | s_ => Some (s_) end +Definition _s1046_ (_s1047_ : string) : option string := + let _s1048_ := _s1047_ in + if string_startswith _s1048_ "u" then + match (string_drop _s1048_ (projT1 (string_length "u"))) with | s_ => Some s_ end else None. -Definition maybe_not_u_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s788_ := arg_ in - (if ((match (_s785_ _s788_) with | Some (s_) => true | _ => false end)) then - (match (_s785_ _s788_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition maybe_not_u_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s1049_ := arg_ in + (if match (_s1046_ _s1049_) with | Some s_ => true | _ => false end then + (match (_s1046_ _s1049_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s789_ _s788_) with | Some (s_) => true | _ => false end)) then - (match (_s789_ _s788_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1050_ _s1049_) with | Some s_ => true | _ => false end then + (match (_s1050_ _s1049_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_csrop_forwards (arg_ : csrop) -: mword 2 := - +Definition encdec_csrop_forwards (arg_ : csrop) : mword 2 := match arg_ with - | CSRRW => (vec_of_bits [B0;B1] : mword 2) - | CSRRS => (vec_of_bits [B1;B0] : mword 2) - | CSRRC => (vec_of_bits [B1;B1] : mword 2) + | CSRRW => 'b"01" : mword 2 + | CSRRS => 'b"10" : mword 2 + | CSRRC => 'b"11" : mword 2 end. -Definition encdec_csrop_backwards (arg_ : mword 2) -: M (csrop) := - +Definition encdec_csrop_backwards (arg_ : mword 2) : M (csrop) := let b__0 := arg_ in - (if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then returnm (CSRRW : csrop) - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then returnm (CSRRS : csrop) - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then returnm (CSRRC : csrop) + (if eq_vec b__0 ('b"01" : mword 2) then returnm CSRRW + else if eq_vec b__0 ('b"10" : mword 2) then returnm CSRRS + else if eq_vec b__0 ('b"11" : mword 2) then returnm CSRRC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (csrop). -Definition encdec_csrop_forwards_matches (arg_ : csrop) -: bool := - +Definition encdec_csrop_forwards_matches (arg_ : csrop) : bool := match arg_ with | CSRRW => true | CSRRS => true | CSRRC => true end. -Definition encdec_csrop_backwards_matches (arg_ : mword 2) -: bool := - +Definition encdec_csrop_backwards_matches (arg_ : mword 2) : bool := let b__0 := arg_ in - if ((eq_vec b__0 (vec_of_bits [B0;B1] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B0] : mword 2))) then true - else if ((eq_vec b__0 (vec_of_bits [B1;B1] : mword 2))) then true + if eq_vec b__0 ('b"01" : mword 2) then true + else if eq_vec b__0 ('b"10" : mword 2) then true + else if eq_vec b__0 ('b"11" : mword 2) then true else false. -Definition readCSR (csr : mword 12) -: M (mword 64) := - +Definition readCSR (csr : mword 12) : M (mword 64) := (match (csr, 64) with - | (b__0, g__222) => - (if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B0;B1] : mword 12))) then + | (b__0, g__324) => + (if eq_vec b__0 (Ox"F11" : mword 12) then ((read_reg mvendorid_ref) : M (mword 32)) >>= fun w__0 : mword 32 => - returnm ((EXTZ 64 w__0) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B0] : mword 12))) then + returnm (EXTZ 64 w__0) + else if eq_vec b__0 (Ox"F12" : mword 12) then ((read_reg marchid_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"F13" : mword 12) then ((read_reg mimpid_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B1;B1;B0;B0;B0;B1;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"F14" : mword 12) then ((read_reg mhartid_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__4 : Mstatus => - returnm ((_get_Mstatus_bits w__4) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - read_reg misa_ref >>= fun w__5 : Misa => returnm ((_get_Misa_bits w__5) : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg medeleg_ref >>= fun w__6 : Medeleg => - returnm ((_get_Medeleg_bits w__6) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - read_reg mideleg_ref >>= fun w__7 : Minterrupts => - returnm ((_get_Minterrupts_bits w__7) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__8 : Minterrupts => - returnm ((_get_Minterrupts_bits w__8) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_mtvec tt) - : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"300" : mword 12) then + read_reg mstatus_ref >>= fun w__4 : Mstatus => returnm (_get_Mstatus_bits w__4) + else if eq_vec b__0 (Ox"301" : mword 12) then + read_reg misa_ref >>= fun w__5 : Misa => returnm (_get_Misa_bits w__5) + else if eq_vec b__0 (Ox"302" : mword 12) then + read_reg medeleg_ref >>= fun w__6 : Medeleg => returnm (_get_Medeleg_bits w__6) + else if eq_vec b__0 (Ox"303" : mword 12) then + read_reg mideleg_ref >>= fun w__7 : Minterrupts => returnm (_get_Minterrupts_bits w__7) + else if eq_vec b__0 (Ox"304" : mword 12) then + read_reg mie_ref >>= fun w__8 : Minterrupts => returnm (_get_Minterrupts_bits w__8) + else if eq_vec b__0 (Ox"305" : mword 12) then (get_mtvec tt) : M (mword 64) + else if eq_vec b__0 (Ox"306" : mword 12) then read_reg mcounteren_ref >>= fun w__10 : Counteren => - returnm ((EXTZ 64 (_get_Counteren_bits w__10)) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + returnm (EXTZ 64 (_get_Counteren_bits w__10)) + else if eq_vec b__0 (Ox"320" : mword 12) then + read_reg mcountinhibit_ref >>= fun w__11 : Counterin => + returnm (EXTZ 64 (_get_Counterin_bits w__11)) + else if eq_vec b__0 (Ox"340" : mword 12) then ((read_reg mscratch_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (get_xret_target Machine) >>= fun w__12 : mword 64 => - (pc_alignment_mask tt) >>= fun w__13 : mword 64 => - returnm ((and_vec w__12 w__13) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg mcause_ref >>= fun w__14 : Mcause => - returnm ((_get_Mcause_bits w__14) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"341" : mword 12) then + (get_xret_target Machine) >>= fun w__13 : mword 64 => + (pc_alignment_mask tt) >>= fun w__14 : mword 64 => returnm (and_vec w__13 w__14) + else if eq_vec b__0 (Ox"342" : mword 12) then + read_reg mcause_ref >>= fun w__15 : Mcause => returnm (_get_Mcause_bits w__15) + else if eq_vec b__0 (Ox"343" : mword 12) then ((read_reg mtval_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__16 : Minterrupts => - returnm ((_get_Minterrupts_bits w__16) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - (pmpReadCfgReg 0) - : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - (pmpReadCfgReg 2) - : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"344" : mword 12) then + read_reg mip_ref >>= fun w__17 : Minterrupts => returnm (_get_Minterrupts_bits w__17) + else if eq_vec b__0 (Ox"3A0" : mword 12) then (pmpReadCfgReg 0) : M (mword 64) + else if eq_vec b__0 (Ox"3A2" : mword 12) then (pmpReadCfgReg 2) : M (mword 64) + else if eq_vec b__0 (Ox"3B0" : mword 12) then ((read_reg pmpaddr0_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B1" : mword 12) then ((read_reg pmpaddr1_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B2" : mword 12) then ((read_reg pmpaddr2_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B3" : mword 12) then ((read_reg pmpaddr3_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B4" : mword 12) then ((read_reg pmpaddr4_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B5" : mword 12) then ((read_reg pmpaddr5_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B6" : mword 12) then ((read_reg pmpaddr6_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B7" : mword 12) then ((read_reg pmpaddr7_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3B8" : mword 12) then ((read_reg pmpaddr8_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3B9" : mword 12) then ((read_reg pmpaddr9_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BA" : mword 12) then ((read_reg pmpaddr10_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BB" : mword 12) then ((read_reg pmpaddr11_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BC" : mword 12) then ((read_reg pmpaddr12_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BD" : mword 12) then ((read_reg pmpaddr13_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then + else if eq_vec b__0 (Ox"3BE" : mword 12) then ((read_reg pmpaddr14_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"3BF" : mword 12) then ((read_reg pmpaddr15_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__35 : mword 64 => - returnm ((subrange_vec_dec w__35 (Z.sub 64 1) 0) - : mword (63 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__36 : mword 64 => - returnm ((subrange_vec_dec w__36 (Z.sub 64 1) 0) - : mword (63 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg tselect_ref) : M (mword 64)) >>= fun w__37 : mword 64 => - returnm ((not_vec w__37) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__38 : Mstatus => - returnm ((_get_Sstatus_bits (lower_mstatus w__38)) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg sedeleg_ref >>= fun w__39 : Sedeleg => - returnm ((_get_Sedeleg_bits w__39) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then - read_reg sideleg_ref >>= fun w__40 : Sinterrupts => - returnm ((_get_Sinterrupts_bits w__40) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__41 : Minterrupts => - read_reg mideleg_ref >>= fun w__42 : Minterrupts => - returnm ((_get_Sinterrupts_bits (lower_mie w__41 w__42)) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (get_stvec tt) - : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - read_reg scounteren_ref >>= fun w__44 : Counteren => - returnm ((EXTZ 64 (_get_Counteren_bits w__44)) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"B00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__36 : mword 64 => + returnm (subrange_vec_dec w__36 (Z.sub 64 1) 0) + else if eq_vec b__0 (Ox"B02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__37 : mword 64 => + returnm (subrange_vec_dec w__37 (Z.sub 64 1) 0) + else if eq_vec b__0 (Ox"7A0" : mword 12) then + ((read_reg tselect_ref) : M (mword 64)) >>= fun w__38 : mword 64 => + returnm (not_vec w__38) + else if eq_vec b__0 (Ox"100" : mword 12) then + read_reg mstatus_ref >>= fun w__39 : Mstatus => + returnm (_get_Sstatus_bits (lower_mstatus w__39)) + else if eq_vec b__0 (Ox"102" : mword 12) then + read_reg sedeleg_ref >>= fun w__40 : Sedeleg => returnm (_get_Sedeleg_bits w__40) + else if eq_vec b__0 (Ox"103" : mword 12) then + read_reg sideleg_ref >>= fun w__41 : Sinterrupts => returnm (_get_Sinterrupts_bits w__41) + else if eq_vec b__0 (Ox"104" : mword 12) then + read_reg mie_ref >>= fun w__42 : Minterrupts => + read_reg mideleg_ref >>= fun w__43 : Minterrupts => + returnm (_get_Sinterrupts_bits (lower_mie w__42 w__43)) + else if eq_vec b__0 (Ox"105" : mword 12) then (get_stvec tt) : M (mword 64) + else if eq_vec b__0 (Ox"106" : mword 12) then + read_reg scounteren_ref >>= fun w__45 : Counteren => + returnm (EXTZ 64 (_get_Counteren_bits w__45)) + else if eq_vec b__0 (Ox"140" : mword 12) then ((read_reg sscratch_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (get_xret_target Supervisor) >>= fun w__46 : mword 64 => - (pc_alignment_mask tt) >>= fun w__47 : mword 64 => - returnm ((and_vec w__46 w__47) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg scause_ref >>= fun w__48 : Mcause => - returnm ((_get_Mcause_bits w__48) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + else if eq_vec b__0 (Ox"141" : mword 12) then + (get_xret_target Supervisor) >>= fun w__47 : mword 64 => + (pc_alignment_mask tt) >>= fun w__48 : mword 64 => returnm (and_vec w__47 w__48) + else if eq_vec b__0 (Ox"142" : mword 12) then + read_reg scause_ref >>= fun w__49 : Mcause => returnm (_get_Mcause_bits w__49) + else if eq_vec b__0 (Ox"143" : mword 12) then ((read_reg stval_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__50 : Minterrupts => - read_reg mideleg_ref >>= fun w__51 : Minterrupts => - returnm ((_get_Sinterrupts_bits (lower_mip w__50 w__51)) - : mword 64) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + else if eq_vec b__0 (Ox"144" : mword 12) then + read_reg mip_ref >>= fun w__51 : Minterrupts => + read_reg mideleg_ref >>= fun w__52 : Minterrupts => + returnm (_get_Sinterrupts_bits (lower_mip w__51 w__52)) + else if eq_vec b__0 (Ox"180" : mword 12) then ((read_reg satp_ref) : M (mword 64)) : M (mword 64) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__53 : mword 64 => - returnm ((subrange_vec_dec w__53 (Z.sub 64 1) 0) - : mword (63 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then - ((read_reg mtime_ref) : M (mword 64)) >>= fun w__54 : mword 64 => - returnm ((subrange_vec_dec w__54 (Z.sub 64 1) 0) - : mword (63 - 0 + 1)) - else if ((eq_vec b__0 (vec_of_bits [B1;B1;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__55 : mword 64 => - returnm ((subrange_vec_dec w__55 (Z.sub 64 1) 0) - : mword (63 - 0 + 1)) + else if eq_vec b__0 (Ox"C00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__54 : mword 64 => + returnm (subrange_vec_dec w__54 (Z.sub 64 1) 0) + else if eq_vec b__0 (Ox"C01" : mword 12) then + ((read_reg mtime_ref) : M (mword 64)) >>= fun w__55 : mword 64 => + returnm (subrange_vec_dec w__55 (Z.sub 64 1) 0) + else if eq_vec b__0 (Ox"C02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__56 : mword 64 => + returnm (subrange_vec_dec w__56 (Z.sub 64 1) 0) else - (ext_read_CSR csr) >>= fun w__56 : option (mword 64) => - returnm ((match w__56 with - | Some (res) => res - | None => - let '_ := (print_bits "unhandled read to CSR " csr) : unit in - EXTZ 64 (vec_of_bits [B0;B0;B0;B0] : mword 4) - end) - : mword 64)) + (ext_read_CSR csr) >>= fun w__57 : option (mword 64) => + returnm (match w__57 with + | Some res => res + | None => + let '_ := (print_bits "unhandled read to CSR " csr) : unit in + EXTZ 64 (Ox"0" : mword 4) + end)) : M (mword 64) end) >>= fun res : xlenbits => let '_ := - (if ((get_config_print_reg tt)) then + (if get_config_print_reg tt then print_endline (String.append "CSR " (String.append (csr_name csr) (String.append " -> " (string_of_bits res)))) else tt) : unit in - returnm (res - : mword 64). + returnm res. -Definition writeCSR (csr : mword 12) (value : mword 64) -: M (unit) := - +Definition writeCSR (csr : mword 12) (value : mword 64) : M (unit) := (match (csr, 64) with - | (b__0, g__221) => - (if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then + | (b__0, g__323) => + (if eq_vec b__0 (Ox"300" : mword 12) then read_reg mstatus_ref >>= fun w__0 : Mstatus => (legalize_mstatus w__0 value) >>= fun w__1 : Mstatus => write_reg mstatus_ref w__1 >> - read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__2)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12))) then + read_reg mstatus_ref >>= fun w__2 : Mstatus => returnm (Some (_get_Mstatus_bits w__2)) + else if eq_vec b__0 (Ox"301" : mword 12) then read_reg misa_ref >>= fun w__3 : Misa => (legalize_misa w__3 value) >>= fun w__4 : Misa => write_reg misa_ref w__4 >> - read_reg misa_ref >>= fun w__5 : Misa => - returnm ((Some - (_get_Misa_bits w__5)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then + read_reg misa_ref >>= fun w__5 : Misa => returnm (Some (_get_Misa_bits w__5)) + else if eq_vec b__0 (Ox"302" : mword 12) then read_reg medeleg_ref >>= fun w__6 : Medeleg => write_reg medeleg_ref (legalize_medeleg w__6 value) >> - read_reg medeleg_ref >>= fun w__7 : Medeleg => - returnm ((Some - (_get_Medeleg_bits w__7)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg medeleg_ref >>= fun w__7 : Medeleg => returnm (Some (_get_Medeleg_bits w__7)) + else if eq_vec b__0 (Ox"303" : mword 12) then read_reg mideleg_ref >>= fun w__8 : Minterrupts => write_reg mideleg_ref (legalize_mideleg w__8 value) >> read_reg mideleg_ref >>= fun w__9 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__9)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then + returnm (Some (_get_Minterrupts_bits w__9)) + else if eq_vec b__0 (Ox"304" : mword 12) then read_reg mie_ref >>= fun w__10 : Minterrupts => (legalize_mie w__10 value) >>= fun w__11 : Minterrupts => write_reg mie_ref w__11 >> read_reg mie_ref >>= fun w__12 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__12)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_mtvec value) >>= fun w__13 : mword 64 => - returnm ((Some - (w__13)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then + returnm (Some (_get_Minterrupts_bits w__12)) + else if eq_vec b__0 (Ox"305" : mword 12) then + (set_mtvec value) >>= fun w__13 : mword 64 => returnm (Some w__13) + else if eq_vec b__0 (Ox"306" : mword 12) then read_reg mcounteren_ref >>= fun w__14 : Counteren => - (legalize_mcounteren w__14 value) >>= fun w__15 : Counteren => - write_reg mcounteren_ref w__15 >> - read_reg mcounteren_ref >>= fun w__16 : Counteren => - returnm ((Some - (EXTZ 64 (_get_Counteren_bits w__16))) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + write_reg mcounteren_ref (legalize_mcounteren w__14 value) >> + read_reg mcounteren_ref >>= fun w__15 : Counteren => + returnm (Some (EXTZ 64 (_get_Counteren_bits w__15))) + else if eq_vec b__0 (Ox"320" : mword 12) then + read_reg mcountinhibit_ref >>= fun w__16 : Counterin => + write_reg mcountinhibit_ref (legalize_mcountinhibit w__16 value) >> + read_reg mcountinhibit_ref >>= fun w__17 : Counterin => + returnm (Some (EXTZ 64 (_get_Counterin_bits w__17))) + else if eq_vec b__0 (Ox"340" : mword 12) then write_reg mscratch_ref value >> - ((read_reg mscratch_ref) : M (mword 64)) >>= fun w__17 : mword 64 => - returnm ((Some - (w__17)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target Machine value) >>= fun w__18 : mword 64 => - returnm ((Some - (w__18)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg mscratch_ref) : M (mword 64)) >>= fun w__18 : mword 64 => returnm (Some w__18) + else if eq_vec b__0 (Ox"341" : mword 12) then + (set_xret_target Machine value) >>= fun w__19 : mword 64 => returnm (Some w__19) + else if eq_vec b__0 (Ox"342" : mword 12) then (_set_Mcause_bits mcause_ref value) >> - read_reg mcause_ref >>= fun w__19 : Mcause => - returnm ((Some - (_get_Mcause_bits w__19)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg mcause_ref >>= fun w__20 : Mcause => returnm (Some (_get_Mcause_bits w__20)) + else if eq_vec b__0 (Ox"343" : mword 12) then write_reg mtval_ref value >> - ((read_reg mtval_ref) : M (mword 64)) >>= fun w__20 : mword 64 => - returnm ((Some - (w__20)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__21 : Minterrupts => - (legalize_mip w__21 value) >>= fun w__22 : Minterrupts => - write_reg mip_ref w__22 >> - read_reg mip_ref >>= fun w__23 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__23)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then - (pmpWriteCfgReg 0 value) >> returnm ((Some (value)) : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B0;B0;B0;B1;B0] : mword 12))) then - (pmpWriteCfgReg 2 value) >> returnm ((Some (value)) : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B0] : mword 12))) then - read_reg pmp0cfg_ref >>= fun w__24 : Pmpcfg_ent => - ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__25 : mword 64 => - write_reg pmpaddr0_ref (pmpWriteAddr w__24 w__25 value) >> - ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__26 : mword 64 => - returnm ((Some - (w__26)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B0;B1] : mword 12))) then - read_reg pmp1cfg_ref >>= fun w__27 : Pmpcfg_ent => - ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__28 : mword 64 => - write_reg pmpaddr1_ref (pmpWriteAddr w__27 w__28 value) >> - ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__29 : mword 64 => - returnm ((Some - (w__29)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B0] : mword 12))) then - read_reg pmp2cfg_ref >>= fun w__30 : Pmpcfg_ent => - ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__31 : mword 64 => - write_reg pmpaddr2_ref (pmpWriteAddr w__30 w__31 value) >> - ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__32 : mword 64 => - returnm ((Some - (w__32)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B0;B1;B1] : mword 12))) then - read_reg pmp3cfg_ref >>= fun w__33 : Pmpcfg_ent => - ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__34 : mword 64 => - write_reg pmpaddr3_ref (pmpWriteAddr w__33 w__34 value) >> - ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__35 : mword 64 => - returnm ((Some - (w__35)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B0] : mword 12))) then - read_reg pmp4cfg_ref >>= fun w__36 : Pmpcfg_ent => - ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__37 : mword 64 => - write_reg pmpaddr4_ref (pmpWriteAddr w__36 w__37 value) >> - ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__38 : mword 64 => - returnm ((Some - (w__38)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B0;B1] : mword 12))) then - read_reg pmp5cfg_ref >>= fun w__39 : Pmpcfg_ent => - ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__40 : mword 64 => - write_reg pmpaddr5_ref (pmpWriteAddr w__39 w__40 value) >> - ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__41 : mword 64 => - returnm ((Some - (w__41)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B0] : mword 12))) then - read_reg pmp6cfg_ref >>= fun w__42 : Pmpcfg_ent => - ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__43 : mword 64 => - write_reg pmpaddr6_ref (pmpWriteAddr w__42 w__43 value) >> - ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__44 : mword 64 => - returnm ((Some - (w__44)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B0;B1;B1;B1] : mword 12))) then - read_reg pmp7cfg_ref >>= fun w__45 : Pmpcfg_ent => - ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__46 : mword 64 => - write_reg pmpaddr7_ref (pmpWriteAddr w__45 w__46 value) >> - ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__47 : mword 64 => - returnm ((Some - (w__47)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B0] : mword 12))) then - read_reg pmp8cfg_ref >>= fun w__48 : Pmpcfg_ent => - ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__49 : mword 64 => - write_reg pmpaddr8_ref (pmpWriteAddr w__48 w__49 value) >> - ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__50 : mword 64 => - returnm ((Some - (w__50)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B0;B1] : mword 12))) then - read_reg pmp9cfg_ref >>= fun w__51 : Pmpcfg_ent => - ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__52 : mword 64 => - write_reg pmpaddr9_ref (pmpWriteAddr w__51 w__52 value) >> - ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__53 : mword 64 => - returnm ((Some - (w__53)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B0] : mword 12))) then - read_reg pmp10cfg_ref >>= fun w__54 : Pmpcfg_ent => - ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__55 : mword 64 => - write_reg pmpaddr10_ref (pmpWriteAddr w__54 w__55 value) >> - ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__56 : mword 64 => - returnm ((Some - (w__56)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B0;B1;B1] : mword 12))) then - read_reg pmp11cfg_ref >>= fun w__57 : Pmpcfg_ent => - ((read_reg pmpaddr11_ref) : M (mword 64)) >>= fun w__58 : mword 64 => - write_reg pmpaddr11_ref (pmpWriteAddr w__57 w__58 value) >> - ((read_reg pmpaddr11_ref) : M (mword 64)) >>= fun w__59 : mword 64 => - returnm ((Some - (w__59)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B0] : mword 12))) then - read_reg pmp12cfg_ref >>= fun w__60 : Pmpcfg_ent => - ((read_reg pmpaddr12_ref) : M (mword 64)) >>= fun w__61 : mword 64 => - write_reg pmpaddr12_ref (pmpWriteAddr w__60 w__61 value) >> - ((read_reg pmpaddr12_ref) : M (mword 64)) >>= fun w__62 : mword 64 => - returnm ((Some - (w__62)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B0;B1] : mword 12))) then - read_reg pmp13cfg_ref >>= fun w__63 : Pmpcfg_ent => - ((read_reg pmpaddr13_ref) : M (mword 64)) >>= fun w__64 : mword 64 => - write_reg pmpaddr13_ref (pmpWriteAddr w__63 w__64 value) >> - ((read_reg pmpaddr13_ref) : M (mword 64)) >>= fun w__65 : mword 64 => - returnm ((Some - (w__65)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B0] : mword 12))) then - read_reg pmp14cfg_ref >>= fun w__66 : Pmpcfg_ent => - ((read_reg pmpaddr14_ref) : M (mword 64)) >>= fun w__67 : mword 64 => - write_reg pmpaddr14_ref (pmpWriteAddr w__66 w__67 value) >> - ((read_reg pmpaddr14_ref) : M (mword 64)) >>= fun w__68 : mword 64 => - returnm ((Some - (w__68)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B1;B1;B1;B0;B1;B1;B1;B1;B1;B1] : mword 12))) then - read_reg pmp15cfg_ref >>= fun w__69 : Pmpcfg_ent => - ((read_reg pmpaddr15_ref) : M (mword 64)) >>= fun w__70 : mword 64 => - write_reg pmpaddr15_ref (pmpWriteAddr w__69 w__70 value) >> - ((read_reg pmpaddr15_ref) : M (mword 64)) >>= fun w__71 : mword 64 => - returnm ((Some - (w__71)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__72 : mword 64 => - write_reg mcycle_ref (update_subrange_vec_dec w__72 (Z.sub 64 1) 0 value) >> - returnm ((Some - (value)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B1;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - ((read_reg minstret_ref) : M (mword 64)) >>= fun w__73 : mword 64 => - write_reg minstret_ref (update_subrange_vec_dec w__73 (Z.sub 64 1) 0 value) >> - write_reg minstret_written_ref true >> returnm ((Some (value)) : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B1;B1;B1;B1;B0;B1;B0;B0;B0;B0;B0] : mword 12))) then + ((read_reg mtval_ref) : M (mword 64)) >>= fun w__21 : mword 64 => returnm (Some w__21) + else if eq_vec b__0 (Ox"344" : mword 12) then + read_reg mip_ref >>= fun w__22 : Minterrupts => + (legalize_mip w__22 value) >>= fun w__23 : Minterrupts => + write_reg mip_ref w__23 >> + read_reg mip_ref >>= fun w__24 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__24)) + else if eq_vec b__0 (Ox"3A0" : mword 12) then + (pmpWriteCfgReg 0 value) >> + (pmpReadCfgReg 0) >>= fun w__25 : mword 64 => returnm (Some w__25) + else if eq_vec b__0 (Ox"3A2" : mword 12) then + (pmpWriteCfgReg 2 value) >> + (pmpReadCfgReg 2) >>= fun w__26 : mword 64 => returnm (Some w__26) + else if eq_vec b__0 (Ox"3B0" : mword 12) then + read_reg pmp0cfg_ref >>= fun w__27 : Pmpcfg_ent => + read_reg pmp1cfg_ref >>= fun w__28 : Pmpcfg_ent => + (pmpTORLocked w__28) >>= fun w__29 : bool => + ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__30 : mword 64 => + write_reg pmpaddr0_ref (pmpWriteAddr (pmpLocked w__27) w__29 w__30 value) >> + ((read_reg pmpaddr0_ref) : M (mword 64)) >>= fun w__31 : mword 64 => returnm (Some w__31) + else if eq_vec b__0 (Ox"3B1" : mword 12) then + read_reg pmp1cfg_ref >>= fun w__32 : Pmpcfg_ent => + read_reg pmp2cfg_ref >>= fun w__33 : Pmpcfg_ent => + (pmpTORLocked w__33) >>= fun w__34 : bool => + ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__35 : mword 64 => + write_reg pmpaddr1_ref (pmpWriteAddr (pmpLocked w__32) w__34 w__35 value) >> + ((read_reg pmpaddr1_ref) : M (mword 64)) >>= fun w__36 : mword 64 => returnm (Some w__36) + else if eq_vec b__0 (Ox"3B2" : mword 12) then + read_reg pmp2cfg_ref >>= fun w__37 : Pmpcfg_ent => + read_reg pmp3cfg_ref >>= fun w__38 : Pmpcfg_ent => + (pmpTORLocked w__38) >>= fun w__39 : bool => + ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__40 : mword 64 => + write_reg pmpaddr2_ref (pmpWriteAddr (pmpLocked w__37) w__39 w__40 value) >> + ((read_reg pmpaddr2_ref) : M (mword 64)) >>= fun w__41 : mword 64 => returnm (Some w__41) + else if eq_vec b__0 (Ox"3B3" : mword 12) then + read_reg pmp3cfg_ref >>= fun w__42 : Pmpcfg_ent => + read_reg pmp4cfg_ref >>= fun w__43 : Pmpcfg_ent => + (pmpTORLocked w__43) >>= fun w__44 : bool => + ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__45 : mword 64 => + write_reg pmpaddr3_ref (pmpWriteAddr (pmpLocked w__42) w__44 w__45 value) >> + ((read_reg pmpaddr3_ref) : M (mword 64)) >>= fun w__46 : mword 64 => returnm (Some w__46) + else if eq_vec b__0 (Ox"3B4" : mword 12) then + read_reg pmp4cfg_ref >>= fun w__47 : Pmpcfg_ent => + read_reg pmp5cfg_ref >>= fun w__48 : Pmpcfg_ent => + (pmpTORLocked w__48) >>= fun w__49 : bool => + ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__50 : mword 64 => + write_reg pmpaddr4_ref (pmpWriteAddr (pmpLocked w__47) w__49 w__50 value) >> + ((read_reg pmpaddr4_ref) : M (mword 64)) >>= fun w__51 : mword 64 => returnm (Some w__51) + else if eq_vec b__0 (Ox"3B5" : mword 12) then + read_reg pmp5cfg_ref >>= fun w__52 : Pmpcfg_ent => + read_reg pmp6cfg_ref >>= fun w__53 : Pmpcfg_ent => + (pmpTORLocked w__53) >>= fun w__54 : bool => + ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__55 : mword 64 => + write_reg pmpaddr5_ref (pmpWriteAddr (pmpLocked w__52) w__54 w__55 value) >> + ((read_reg pmpaddr5_ref) : M (mword 64)) >>= fun w__56 : mword 64 => returnm (Some w__56) + else if eq_vec b__0 (Ox"3B6" : mword 12) then + read_reg pmp6cfg_ref >>= fun w__57 : Pmpcfg_ent => + read_reg pmp7cfg_ref >>= fun w__58 : Pmpcfg_ent => + (pmpTORLocked w__58) >>= fun w__59 : bool => + ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__60 : mword 64 => + write_reg pmpaddr6_ref (pmpWriteAddr (pmpLocked w__57) w__59 w__60 value) >> + ((read_reg pmpaddr6_ref) : M (mword 64)) >>= fun w__61 : mword 64 => returnm (Some w__61) + else if eq_vec b__0 (Ox"3B7" : mword 12) then + read_reg pmp7cfg_ref >>= fun w__62 : Pmpcfg_ent => + read_reg pmp8cfg_ref >>= fun w__63 : Pmpcfg_ent => + (pmpTORLocked w__63) >>= fun w__64 : bool => + ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__65 : mword 64 => + write_reg pmpaddr7_ref (pmpWriteAddr (pmpLocked w__62) w__64 w__65 value) >> + ((read_reg pmpaddr7_ref) : M (mword 64)) >>= fun w__66 : mword 64 => returnm (Some w__66) + else if eq_vec b__0 (Ox"3B8" : mword 12) then + read_reg pmp8cfg_ref >>= fun w__67 : Pmpcfg_ent => + read_reg pmp9cfg_ref >>= fun w__68 : Pmpcfg_ent => + (pmpTORLocked w__68) >>= fun w__69 : bool => + ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__70 : mword 64 => + write_reg pmpaddr8_ref (pmpWriteAddr (pmpLocked w__67) w__69 w__70 value) >> + ((read_reg pmpaddr8_ref) : M (mword 64)) >>= fun w__71 : mword 64 => returnm (Some w__71) + else if eq_vec b__0 (Ox"3B9" : mword 12) then + read_reg pmp9cfg_ref >>= fun w__72 : Pmpcfg_ent => + read_reg pmp10cfg_ref >>= fun w__73 : Pmpcfg_ent => + (pmpTORLocked w__73) >>= fun w__74 : bool => + ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__75 : mword 64 => + write_reg pmpaddr9_ref (pmpWriteAddr (pmpLocked w__72) w__74 w__75 value) >> + ((read_reg pmpaddr9_ref) : M (mword 64)) >>= fun w__76 : mword 64 => returnm (Some w__76) + else if eq_vec b__0 (Ox"3BA" : mword 12) then + read_reg pmp10cfg_ref >>= fun w__77 : Pmpcfg_ent => + read_reg pmp11cfg_ref >>= fun w__78 : Pmpcfg_ent => + (pmpTORLocked w__78) >>= fun w__79 : bool => + ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__80 : mword 64 => + write_reg pmpaddr10_ref (pmpWriteAddr (pmpLocked w__77) w__79 w__80 value) >> + ((read_reg pmpaddr10_ref) : M (mword 64)) >>= fun w__81 : mword 64 => + returnm (Some w__81) + else if eq_vec b__0 (Ox"3BB" : mword 12) then + read_reg pmp11cfg_ref >>= fun w__82 : Pmpcfg_ent => + read_reg pmp12cfg_ref >>= fun w__83 : Pmpcfg_ent => + (pmpTORLocked w__83) >>= fun w__84 : bool => + ((read_reg pmpaddr11_ref) : M (mword 64)) >>= fun w__85 : mword 64 => + write_reg pmpaddr11_ref (pmpWriteAddr (pmpLocked w__82) w__84 w__85 value) >> + ((read_reg pmpaddr11_ref) : M (mword 64)) >>= fun w__86 : mword 64 => + returnm (Some w__86) + else if eq_vec b__0 (Ox"3BC" : mword 12) then + read_reg pmp12cfg_ref >>= fun w__87 : Pmpcfg_ent => + read_reg pmp13cfg_ref >>= fun w__88 : Pmpcfg_ent => + (pmpTORLocked w__88) >>= fun w__89 : bool => + ((read_reg pmpaddr12_ref) : M (mword 64)) >>= fun w__90 : mword 64 => + write_reg pmpaddr12_ref (pmpWriteAddr (pmpLocked w__87) w__89 w__90 value) >> + ((read_reg pmpaddr12_ref) : M (mword 64)) >>= fun w__91 : mword 64 => + returnm (Some w__91) + else if eq_vec b__0 (Ox"3BD" : mword 12) then + read_reg pmp13cfg_ref >>= fun w__92 : Pmpcfg_ent => + read_reg pmp14cfg_ref >>= fun w__93 : Pmpcfg_ent => + (pmpTORLocked w__93) >>= fun w__94 : bool => + ((read_reg pmpaddr13_ref) : M (mword 64)) >>= fun w__95 : mword 64 => + write_reg pmpaddr13_ref (pmpWriteAddr (pmpLocked w__92) w__94 w__95 value) >> + ((read_reg pmpaddr13_ref) : M (mword 64)) >>= fun w__96 : mword 64 => + returnm (Some w__96) + else if eq_vec b__0 (Ox"3BE" : mword 12) then + read_reg pmp14cfg_ref >>= fun w__97 : Pmpcfg_ent => + read_reg pmp15cfg_ref >>= fun w__98 : Pmpcfg_ent => + (pmpTORLocked w__98) >>= fun w__99 : bool => + ((read_reg pmpaddr14_ref) : M (mword 64)) >>= fun w__100 : mword 64 => + write_reg pmpaddr14_ref (pmpWriteAddr (pmpLocked w__97) w__99 w__100 value) >> + ((read_reg pmpaddr14_ref) : M (mword 64)) >>= fun w__101 : mword 64 => + returnm (Some w__101) + else if eq_vec b__0 (Ox"3BF" : mword 12) then + read_reg pmp15cfg_ref >>= fun w__102 : Pmpcfg_ent => + ((read_reg pmpaddr15_ref) : M (mword 64)) >>= fun w__103 : mword 64 => + write_reg pmpaddr15_ref (pmpWriteAddr (pmpLocked w__102) false w__103 value) >> + ((read_reg pmpaddr15_ref) : M (mword 64)) >>= fun w__104 : mword 64 => + returnm (Some w__104) + else if eq_vec b__0 (Ox"B00" : mword 12) then + ((read_reg mcycle_ref) : M (mword 64)) >>= fun w__105 : mword 64 => + write_reg mcycle_ref (update_subrange_vec_dec w__105 (Z.sub 64 1) 0 value) >> + returnm (Some value) + else if eq_vec b__0 (Ox"B02" : mword 12) then + ((read_reg minstret_ref) : M (mword 64)) >>= fun w__106 : mword 64 => + write_reg minstret_ref (update_subrange_vec_dec w__106 (Z.sub 64 1) 0 value) >> + write_reg minstret_written_ref true >> returnm (Some value) + else if eq_vec b__0 (Ox"7A0" : mword 12) then write_reg tselect_ref value >> - ((read_reg tselect_ref) : M (mword 64)) >>= fun w__74 : mword 64 => - returnm ((Some - (w__74)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - read_reg mstatus_ref >>= fun w__75 : Mstatus => - (legalize_sstatus w__75 value) >>= fun w__76 : Mstatus => - write_reg mstatus_ref w__76 >> - read_reg mstatus_ref >>= fun w__77 : Mstatus => - returnm ((Some - (_get_Mstatus_bits w__77)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0] : mword 12))) then - read_reg sedeleg_ref >>= fun w__78 : Sedeleg => - write_reg sedeleg_ref (legalize_sedeleg w__78 value) >> - read_reg sedeleg_ref >>= fun w__79 : Sedeleg => - returnm ((Some - (_get_Sedeleg_bits w__79)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B1] : mword 12))) then + ((read_reg tselect_ref) : M (mword 64)) >>= fun w__107 : mword 64 => + returnm (Some w__107) + else if eq_vec b__0 (Ox"100" : mword 12) then + read_reg mstatus_ref >>= fun w__108 : Mstatus => + (legalize_sstatus w__108 value) >>= fun w__109 : Mstatus => + write_reg mstatus_ref w__109 >> + read_reg mstatus_ref >>= fun w__110 : Mstatus => returnm (Some (_get_Mstatus_bits w__110)) + else if eq_vec b__0 (Ox"102" : mword 12) then + read_reg sedeleg_ref >>= fun w__111 : Sedeleg => + write_reg sedeleg_ref (legalize_sedeleg w__111 value) >> + read_reg sedeleg_ref >>= fun w__112 : Sedeleg => returnm (Some (_get_Sedeleg_bits w__112)) + else if eq_vec b__0 (Ox"103" : mword 12) then (_set_Sinterrupts_bits sideleg_ref value) >> - read_reg sideleg_ref >>= fun w__80 : Sinterrupts => - returnm ((Some - (_get_Sinterrupts_bits w__80)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mie_ref >>= fun w__81 : Minterrupts => - read_reg mideleg_ref >>= fun w__82 : Minterrupts => - (legalize_sie w__81 w__82 value) >>= fun w__83 : Minterrupts => - write_reg mie_ref w__83 >> - read_reg mie_ref >>= fun w__84 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__84)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12))) then - (set_stvec value) >>= fun w__85 : mword 64 => - returnm ((Some - (w__85)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B1;B0] : mword 12))) then - read_reg scounteren_ref >>= fun w__86 : Counteren => - (legalize_scounteren w__86 value) >>= fun w__87 : Counteren => - write_reg scounteren_ref w__87 >> - read_reg scounteren_ref >>= fun w__88 : Counteren => - returnm ((Some - (EXTZ 64 (_get_Counteren_bits w__88))) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0] : mword 12))) then + read_reg sideleg_ref >>= fun w__113 : Sinterrupts => + returnm (Some (_get_Sinterrupts_bits w__113)) + else if eq_vec b__0 (Ox"104" : mword 12) then + read_reg mie_ref >>= fun w__114 : Minterrupts => + read_reg mideleg_ref >>= fun w__115 : Minterrupts => + (legalize_sie w__114 w__115 value) >>= fun w__116 : Minterrupts => + write_reg mie_ref w__116 >> + read_reg mie_ref >>= fun w__117 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__117)) + else if eq_vec b__0 (Ox"105" : mword 12) then + (set_stvec value) >>= fun w__118 : mword 64 => returnm (Some w__118) + else if eq_vec b__0 (Ox"106" : mword 12) then + read_reg scounteren_ref >>= fun w__119 : Counteren => + write_reg scounteren_ref (legalize_scounteren w__119 value) >> + read_reg scounteren_ref >>= fun w__120 : Counteren => + returnm (Some (EXTZ 64 (_get_Counteren_bits w__120))) + else if eq_vec b__0 (Ox"140" : mword 12) then write_reg sscratch_ref value >> - ((read_reg sscratch_ref) : M (mword 64)) >>= fun w__89 : mword 64 => - returnm ((Some - (w__89)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B1] : mword 12))) then - (set_xret_target Supervisor value) >>= fun w__90 : mword 64 => - returnm ((Some - (w__90)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B0] : mword 12))) then + ((read_reg sscratch_ref) : M (mword 64)) >>= fun w__121 : mword 64 => + returnm (Some w__121) + else if eq_vec b__0 (Ox"141" : mword 12) then + (set_xret_target Supervisor value) >>= fun w__122 : mword 64 => returnm (Some w__122) + else if eq_vec b__0 (Ox"142" : mword 12) then (_set_Mcause_bits scause_ref value) >> - read_reg scause_ref >>= fun w__91 : Mcause => - returnm ((Some - (_get_Mcause_bits w__91)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B1;B1] : mword 12))) then + read_reg scause_ref >>= fun w__123 : Mcause => returnm (Some (_get_Mcause_bits w__123)) + else if eq_vec b__0 (Ox"143" : mword 12) then write_reg stval_ref value >> - ((read_reg stval_ref) : M (mword 64)) >>= fun w__92 : mword 64 => - returnm ((Some - (w__92)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B0;B1;B0;B0;B0;B1;B0;B0] : mword 12))) then - read_reg mip_ref >>= fun w__93 : Minterrupts => - read_reg mideleg_ref >>= fun w__94 : Minterrupts => - (legalize_sip w__93 w__94 value) >>= fun w__95 : Minterrupts => - write_reg mip_ref w__95 >> - read_reg mip_ref >>= fun w__96 : Minterrupts => - returnm ((Some - (_get_Minterrupts_bits w__96)) - : option (mword 64)) - else if ((eq_vec b__0 (vec_of_bits [B0;B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B0] : mword 12))) then - (cur_Architecture tt) >>= fun w__97 : Architecture => - ((read_reg satp_ref) : M (mword 64)) >>= fun w__98 : mword 64 => - write_reg satp_ref (legalize_satp w__97 w__98 value) >> - ((read_reg satp_ref) : M (mword 64)) >>= fun w__99 : mword 64 => - returnm ((Some - (w__99)) - : option (mword 64)) - else returnm (None : option (mword 64))) + ((read_reg stval_ref) : M (mword 64)) >>= fun w__124 : mword 64 => returnm (Some w__124) + else if eq_vec b__0 (Ox"144" : mword 12) then + read_reg mip_ref >>= fun w__125 : Minterrupts => + read_reg mideleg_ref >>= fun w__126 : Minterrupts => + (legalize_sip w__125 w__126 value) >>= fun w__127 : Minterrupts => + write_reg mip_ref w__127 >> + read_reg mip_ref >>= fun w__128 : Minterrupts => + returnm (Some (_get_Minterrupts_bits w__128)) + else if eq_vec b__0 (Ox"180" : mword 12) then + (cur_Architecture tt) >>= fun w__129 : Architecture => + ((read_reg satp_ref) : M (mword 64)) >>= fun w__130 : mword 64 => + write_reg satp_ref (legalize_satp w__129 w__130 value) >> + ((read_reg satp_ref) : M (mword 64)) >>= fun w__131 : mword 64 => returnm (Some w__131) + else (ext_write_CSR csr value) : M (option (mword 64))) : M (option (mword 64)) end) >>= fun res : option xlenbits => - (match res with - | Some (v) => - returnm ((if ((get_config_print_reg tt)) then - print_endline - (String.append "CSR " - (String.append (csr_name csr) - (String.append " <- " - (String.append (string_of_bits v) - (String.append " (input: " - (String.append (string_of_bits value) ")")))))) - else tt) - : unit) - | None => - (ext_write_CSR csr value) >>= fun w__145 : bool => - returnm ((if sumbool_of_bool (w__145) then tt - else print_bits "unhandled write to CSR " csr) - : unit) - end) - : M (unit). + returnm (match res with + | Some v => + if get_config_print_reg tt then + print_endline + (String.append "CSR " + (String.append (csr_name csr) + (String.append " <- " + (String.append (string_of_bits v) + (String.append " (input: " (String.append (string_of_bits value) ")")))))) + else tt + | None => print_bits "unhandled write to CSR " csr + end). -Definition maybe_i_forwards (arg_ : bool) -: string := - +Definition maybe_i_forwards (arg_ : bool) : string := match arg_ with | true => "i" | false => "" end. -Definition maybe_i_backwards (arg_ : string) -: M (bool) := - +Definition maybe_i_backwards (arg_ : string) : M (bool) := let p0_ := arg_ in - (if ((generic_eq p0_ "i")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq p0_ "")) then - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))})) + (if generic_eq p0_ "i" then returnm true + else if generic_eq p0_ "" then returnm false else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (bool). -Definition maybe_i_forwards_matches (arg_ : bool) -: bool := - +Definition maybe_i_forwards_matches (arg_ : bool) : bool := match arg_ with | true => true | false => true end. -Definition maybe_i_backwards_matches (arg_ : string) -: bool := - +Definition maybe_i_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "i")) then true - else if ((generic_eq p0_ "")) then true + if generic_eq p0_ "i" then true + else if generic_eq p0_ "" then true else false. -Definition _s797_ (_s798_ : string) -: option string := - - let _s799_ := _s798_ in - if ((string_startswith _s799_ "")) then - match (string_drop _s799_ (projT1 (string_length ""))) with | s_ => Some (s_) end +Definition _s1058_ (_s1059_ : string) : option string := + let _s1060_ := _s1059_ in + if string_startswith _s1060_ "" then + match (string_drop _s1060_ (projT1 (string_length ""))) with | s_ => Some s_ end else None. -Definition _s793_ (_s794_ : string) -: option string := - - let _s795_ := _s794_ in - if ((string_startswith _s795_ "i")) then - match (string_drop _s795_ (projT1 (string_length "i"))) with | s_ => Some (s_) end - else None. - -Definition maybe_i_matches_prefix (arg_ : string) -: M (option ((bool * {n : Z & ArithFact (n >= 0)}))) := - - let _s796_ := arg_ in - (if ((match (_s793_ _s796_) with | Some (s_) => true | _ => false end)) then - (match (_s793_ _s796_) with - | Some (s_) => - returnm ((Some - ((true, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s797_ _s796_) with | Some (s_) => true | _ => false end)) then - (match (_s797_ _s796_) with - | Some (s_) => - returnm ((Some - ((false, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((bool * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) +Definition _s1054_ (_s1055_ : string) : option string := + let _s1056_ := _s1055_ in + if string_startswith _s1056_ "i" then + match (string_drop _s1056_ (projT1 (string_length "i"))) with | s_ => Some s_ end + else None. + +Definition maybe_i_matches_prefix (arg_ : string) +: M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) := + let _s1057_ := arg_ in + (if match (_s1054_ _s1057_) with | Some s_ => true | _ => false end then + (match (_s1054_ _s1057_) with + | Some s_ => + returnm (Some + (true, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((bool * {n : Z & ArithFact (n >= 0)})))) - : M (option ((bool * {n : Z & ArithFact (n >= 0)}))). + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1058_ _s1057_) with | Some s_ => true | _ => false end then + (match (_s1058_ _s1057_) with + | Some s_ => + returnm (Some + (false, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((bool * {n : Z & ArithFact (n >=? 0)}))). -Definition csr_mnemonic_forwards (arg_ : csrop) -: string := - +Definition csr_mnemonic_forwards (arg_ : csrop) : string := match arg_ with | CSRRW => "csrrw" | CSRRS => "csrrs" | CSRRC => "csrrc" end. -Definition csr_mnemonic_backwards (arg_ : string) -: M (csrop) := - +Definition csr_mnemonic_backwards (arg_ : string) : M (csrop) := let p0_ := arg_ in - (if ((generic_eq p0_ "csrrw")) then returnm (CSRRW : csrop) - else if ((generic_eq p0_ "csrrs")) then returnm (CSRRS : csrop) - else if ((generic_eq p0_ "csrrc")) then returnm (CSRRC : csrop) + (if generic_eq p0_ "csrrw" then returnm CSRRW + else if generic_eq p0_ "csrrs" then returnm CSRRS + else if generic_eq p0_ "csrrc" then returnm CSRRC else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (csrop). -Definition csr_mnemonic_forwards_matches (arg_ : csrop) -: bool := - +Definition csr_mnemonic_forwards_matches (arg_ : csrop) : bool := match arg_ with | CSRRW => true | CSRRS => true | CSRRC => true end. -Definition csr_mnemonic_backwards_matches (arg_ : string) -: bool := - +Definition csr_mnemonic_backwards_matches (arg_ : string) : bool := let p0_ := arg_ in - if ((generic_eq p0_ "csrrw")) then true - else if ((generic_eq p0_ "csrrs")) then true - else if ((generic_eq p0_ "csrrc")) then true + if generic_eq p0_ "csrrw" then true + else if generic_eq p0_ "csrrs" then true + else if generic_eq p0_ "csrrc" then true else false. -Definition _s809_ (_s810_ : string) -: option string := - - let _s811_ := _s810_ in - if ((string_startswith _s811_ "csrrc")) then - match (string_drop _s811_ (projT1 (string_length "csrrc"))) with | s_ => Some (s_) end +Definition _s1070_ (_s1071_ : string) : option string := + let _s1072_ := _s1071_ in + if string_startswith _s1072_ "csrrc" then + match (string_drop _s1072_ (projT1 (string_length "csrrc"))) with | s_ => Some s_ end else None. -Definition _s805_ (_s806_ : string) -: option string := - - let _s807_ := _s806_ in - if ((string_startswith _s807_ "csrrs")) then - match (string_drop _s807_ (projT1 (string_length "csrrs"))) with | s_ => Some (s_) end +Definition _s1066_ (_s1067_ : string) : option string := + let _s1068_ := _s1067_ in + if string_startswith _s1068_ "csrrs" then + match (string_drop _s1068_ (projT1 (string_length "csrrs"))) with | s_ => Some s_ end else None. -Definition _s801_ (_s802_ : string) -: option string := - - let _s803_ := _s802_ in - if ((string_startswith _s803_ "csrrw")) then - match (string_drop _s803_ (projT1 (string_length "csrrw"))) with | s_ => Some (s_) end - else None. - -Definition csr_mnemonic_matches_prefix (arg_ : string) -: M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) := - - let _s804_ := arg_ in - (if ((match (_s801_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s801_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRW, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s805_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s805_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRS, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s809_ _s804_) with | Some (s_) => true | _ => false end)) then - (match (_s809_ _s804_) with - | Some (s_) => - returnm ((Some - ((CSRRC, build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((csrop * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) +Definition _s1062_ (_s1063_ : string) : option string := + let _s1064_ := _s1063_ in + if string_startswith _s1064_ "csrrw" then + match (string_drop _s1064_ (projT1 (string_length "csrrw"))) with | s_ => Some s_ end + else None. + +Definition csr_mnemonic_matches_prefix (arg_ : string) +: M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) := + let _s1065_ := arg_ in + (if match (_s1062_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1062_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRW, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1066_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1066_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRS, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1070_ _s1065_) with | Some s_ => true | _ => false end then + (match (_s1070_ _s1065_) with + | Some s_ => + returnm (Some + (CSRRC, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((csrop * {n : Z & ArithFact (n >=? 0)}))). + +Definition encdec_rounding_mode_forwards (arg_ : rounding_mode) : mword 3 := + match arg_ with + | RM_RNE => 'b"000" : mword 3 + | RM_RTZ => 'b"001" : mword 3 + | RM_RDN => 'b"010" : mword 3 + | RM_RUP => 'b"011" : mword 3 + | RM_RMM => 'b"100" : mword 3 + | RM_DYN => 'b"111" : mword 3 + end. + +Definition encdec_rounding_mode_backwards (arg_ : mword 3) : M (rounding_mode) := + let b__0 := arg_ in + (if eq_vec b__0 ('b"000" : mword 3) then returnm RM_RNE + else if eq_vec b__0 ('b"001" : mword 3) then returnm RM_RTZ + else if eq_vec b__0 ('b"010" : mword 3) then returnm RM_RDN + else if eq_vec b__0 ('b"011" : mword 3) then returnm RM_RUP + else if eq_vec b__0 ('b"100" : mword 3) then returnm RM_RMM + else if eq_vec b__0 ('b"111" : mword 3) then returnm RM_DYN + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (rounding_mode). + +Definition encdec_rounding_mode_forwards_matches (arg_ : rounding_mode) : bool := + match arg_ with + | RM_RNE => true + | RM_RTZ => true + | RM_RDN => true + | RM_RUP => true + | RM_RMM => true + | RM_DYN => true + end. + +Definition encdec_rounding_mode_backwards_matches (arg_ : mword 3) : bool := + let b__0 := arg_ in + if eq_vec b__0 ('b"000" : mword 3) then true + else if eq_vec b__0 ('b"001" : mword 3) then true + else if eq_vec b__0 ('b"010" : mword 3) then true + else if eq_vec b__0 ('b"011" : mword 3) then true + else if eq_vec b__0 ('b"100" : mword 3) then true + else if eq_vec b__0 ('b"111" : mword 3) then true + else false. + +Definition frm_mnemonic_forwards (arg_ : rounding_mode) : string := + match arg_ with + | RM_RNE => "rne" + | RM_RTZ => "rtz" + | RM_RDN => "rdn" + | RM_RUP => "rup" + | RM_RMM => "rmm" + | RM_DYN => "dyn" + end. + +Definition frm_mnemonic_backwards (arg_ : string) : M (rounding_mode) := + let p0_ := arg_ in + (if generic_eq p0_ "rne" then returnm RM_RNE + else if generic_eq p0_ "rtz" then returnm RM_RTZ + else if generic_eq p0_ "rdn" then returnm RM_RDN + else if generic_eq p0_ "rup" then returnm RM_RUP + else if generic_eq p0_ "rmm" then returnm RM_RMM + else if generic_eq p0_ "dyn" then returnm RM_DYN + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (rounding_mode). + +Definition frm_mnemonic_forwards_matches (arg_ : rounding_mode) : bool := + match arg_ with + | RM_RNE => true + | RM_RTZ => true + | RM_RDN => true + | RM_RUP => true + | RM_RMM => true + | RM_DYN => true + end. + +Definition frm_mnemonic_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "rne" then true + else if generic_eq p0_ "rtz" then true + else if generic_eq p0_ "rdn" then true + else if generic_eq p0_ "rup" then true + else if generic_eq p0_ "rmm" then true + else if generic_eq p0_ "dyn" then true + else false. + +Definition _s1094_ (_s1095_ : string) : option string := + let _s1096_ := _s1095_ in + if string_startswith _s1096_ "dyn" then + match (string_drop _s1096_ (projT1 (string_length "dyn"))) with | s_ => Some s_ end + else None. + +Definition _s1090_ (_s1091_ : string) : option string := + let _s1092_ := _s1091_ in + if string_startswith _s1092_ "rmm" then + match (string_drop _s1092_ (projT1 (string_length "rmm"))) with | s_ => Some s_ end + else None. + +Definition _s1086_ (_s1087_ : string) : option string := + let _s1088_ := _s1087_ in + if string_startswith _s1088_ "rup" then + match (string_drop _s1088_ (projT1 (string_length "rup"))) with | s_ => Some s_ end + else None. + +Definition _s1082_ (_s1083_ : string) : option string := + let _s1084_ := _s1083_ in + if string_startswith _s1084_ "rdn" then + match (string_drop _s1084_ (projT1 (string_length "rdn"))) with | s_ => Some s_ end + else None. + +Definition _s1078_ (_s1079_ : string) : option string := + let _s1080_ := _s1079_ in + if string_startswith _s1080_ "rtz" then + match (string_drop _s1080_ (projT1 (string_length "rtz"))) with | s_ => Some s_ end + else None. + +Definition _s1074_ (_s1075_ : string) : option string := + let _s1076_ := _s1075_ in + if string_startswith _s1076_ "rne" then + match (string_drop _s1076_ (projT1 (string_length "rne"))) with | s_ => Some s_ end + else None. + +Definition frm_mnemonic_matches_prefix (arg_ : string) +: M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) := + let _s1077_ := arg_ in + (if match (_s1074_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1074_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RNE, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1078_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1078_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RTZ, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1082_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1082_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RDN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1086_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1086_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RUP, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1090_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1090_ _s1077_) with + | Some s_ => + returnm (Some + (RM_RMM, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1094_ _s1077_) with | Some s_ => true | _ => false end then + (match (_s1094_ _s1077_) with + | Some s_ => + returnm (Some + (RM_DYN, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((rounding_mode * {n : Z & ArithFact (n >=? 0)}))). + +Definition select_instr_or_fcsr_rm (instr_rm : rounding_mode) : M (rounding_mode) := + (if generic_eq instr_rm RM_DYN then + read_reg fcsr_ref >>= fun w__0 : Fcsr => + (encdec_rounding_mode_backwards (_get_Fcsr_FRM w__0)) + : M (rounding_mode) + else returnm instr_rm) + : M (rounding_mode). + +Definition nxFlag '(tt : unit) : mword 5 := 'b"00001" : mword 5. + +Definition ufFlag '(tt : unit) : mword 5 := 'b"00010" : mword 5. + +Definition ofFlag '(tt : unit) : mword 5 := 'b"00100" : mword 5. + +Definition dzFlag '(tt : unit) : mword 5 := 'b"01000" : mword 5. + +Definition nvFlag '(tt : unit) : mword 5 := 'b"10000" : mword 5. + +Definition fsplit_S (x32 : mword 32) : (mword 1 * mword 8 * mword 23) := + (subrange_vec_dec x32 31 31, subrange_vec_dec x32 30 23, subrange_vec_dec x32 22 0). + +Definition fmake_S (sign : mword 1) (exp : mword 8) (mant : mword 23) : mword 32 := + concat_vec sign (concat_vec exp mant). + +Definition canonical_NaN_S '(tt : unit) : mword 32 := Ox"7FC00000" : mword 32. + +Definition f_is_neg_inf_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (ones 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_neg_norm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (neq_vec exp (zeros_implicit 8)) (neq_vec exp (ones 8))). + +Definition f_is_neg_subnorm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (zeros_implicit 8)) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_neg_zero_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (ones 1)) + (andb (eq_vec exp (zeros_implicit 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_zero_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_subnorm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 8)) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_pos_norm_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (neq_vec exp (zeros_implicit 8)) (neq_vec exp (ones 8))). + +Definition f_is_pos_inf_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (ones 8)) (eq_vec mant (zeros_implicit 23))). + +Definition f_is_SNaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) + (andb (eq_bit (access_vec_dec mant 22) B0) (neq_vec mant (zeros_implicit 23))). + +Definition f_is_QNaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) (eq_bit (access_vec_dec mant 22) B1). + +Definition f_is_NaN_S (x32 : mword 32) : bool := + let '(sign, exp, mant) := fsplit_S x32 in + andb (eq_vec exp (ones 8)) (neq_vec mant (zeros_implicit 23)). + +Definition negate_S (x32 : mword 32) : mword 32 := + let '(sign, exp, mant) := fsplit_S x32 in + let new_sign := if eq_vec sign ('b"0" : mword 1) then 'b"1" : mword 1 else 'b"0" : mword 1 in + fmake_S new_sign exp mant. + +Definition feq_quiet_S (v1 : mword 32) (v2 : mword 32) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let v1Is0 := orb (f_is_neg_zero_S v1) (f_is_pos_zero_S v1) in + let v2Is0 := orb (f_is_neg_zero_S v2) (f_is_pos_zero_S v2) in + let result := orb (eq_vec v1 v2) (andb v1Is0 v2Is0) in + let fflags := if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt else zeros_implicit 5 in + (result, fflags). + +Definition flt_S (v1 : mword 32) (v2 : mword 32) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.ltb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then false + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.gtb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_S v1) (f_is_NaN_S v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition fle_S (v1 : mword 32) (v2 : mword 32) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_S v1 in + let '(s2, e2, m2) := fsplit_S v2 in + let v1Is0 := orb (f_is_neg_zero_S v1) (f_is_pos_zero_S v1) in + let v2Is0 := orb (f_is_neg_zero_S v2) (f_is_pos_zero_S v2) in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.leb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then + andb v1Is0 v2Is0 + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.geb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_S v1) (f_is_SNaN_S v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_S v1) (f_is_NaN_S v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition nan_box (val_32b : mword 32) : mword 64 := concat_vec (Ox"FFFFFFFF" : mword 32) val_32b. + +Definition nan_unbox (regval : mword 64) : mword 32 := + if eq_vec (subrange_vec_dec regval 63 32) (Ox"FFFFFFFF" : mword (63 - 32 + 1)) then + subrange_vec_dec regval 31 0 + else canonical_NaN_S tt. + +Definition is_RV32F_or_RV64F '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveFExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && ((64 =? 32) || (64 =? 64))) _bool = true)})). + +Definition is_RV64F '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveFExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 64) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 64) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 64) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 64)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 64)) _bool = true)})). + +Definition is_RV32D_or_RV64D '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveDExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && ((64 =? 32) || (64 =? 64))) _bool = true)})). + +Definition is_RV64D '(tt : unit) : M (bool) := + projT1_m + ((and_boolMP (build_trivial_ex ((haveDExt tt) : M (bool))) + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 64) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 64) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 64) _bool)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 64)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 64)) _bool = true)})). + +Definition process_fload64 (rd : mword 5) (addr : mword 64) (value : MemoryOpResult (mword 64)) +: M (Retired) := + (match value with + | MemValue result => (wF_bits rd result) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + end) + : M (Retired). + +Definition process_fload32 (rd : mword 5) (addr : mword 64) (value : MemoryOpResult (mword 32)) +: M (Retired) := + (match value with + | MemValue result => (wF_bits rd (nan_box result)) >> returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + end) + : M (Retired). + +Definition process_fstore (vaddr : mword 64) (value : MemoryOpResult bool) : M (Retired) := + (match value with + | MemValue true => returnm RETIRE_SUCCESS + | MemValue false => (internal_error "store got false from mem_write_value") : M (Retired) + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + end) + : M (Retired). + +Definition f_madd_type_mnemonic_S_forwards (arg_ : f_madd_op_S) : string := + match arg_ with + | FMADD_S => "fmadd.s" + | FMSUB_S => "fmsub.s" + | FNMSUB_S => "fnmsub.s" + | FNMADD_S => "fnmadd.s" + end. + +Definition f_madd_type_mnemonic_S_backwards (arg_ : string) : M (f_madd_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fmadd.s" then returnm FMADD_S + else if generic_eq p0_ "fmsub.s" then returnm FMSUB_S + else if generic_eq p0_ "fnmsub.s" then returnm FNMSUB_S + else if generic_eq p0_ "fnmadd.s" then returnm FNMADD_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_madd_op_S). + +Definition f_madd_type_mnemonic_S_forwards_matches (arg_ : f_madd_op_S) : bool := + match arg_ with | FMADD_S => true | FMSUB_S => true | FNMSUB_S => true | FNMADD_S => true end. + +Definition f_madd_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmadd.s" then true + else if generic_eq p0_ "fmsub.s" then true + else if generic_eq p0_ "fnmsub.s" then true + else if generic_eq p0_ "fnmadd.s" then true + else false. + +Definition _s1110_ (_s1111_ : string) : option string := + let _s1112_ := _s1111_ in + if string_startswith _s1112_ "fnmadd.s" then + match (string_drop _s1112_ (projT1 (string_length "fnmadd.s"))) with | s_ => Some s_ end + else None. + +Definition _s1106_ (_s1107_ : string) : option string := + let _s1108_ := _s1107_ in + if string_startswith _s1108_ "fnmsub.s" then + match (string_drop _s1108_ (projT1 (string_length "fnmsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1102_ (_s1103_ : string) : option string := + let _s1104_ := _s1103_ in + if string_startswith _s1104_ "fmsub.s" then + match (string_drop _s1104_ (projT1 (string_length "fmsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1098_ (_s1099_ : string) : option string := + let _s1100_ := _s1099_ in + if string_startswith _s1100_ "fmadd.s" then + match (string_drop _s1100_ (projT1 (string_length "fmadd.s"))) with | s_ => Some s_ end + else None. + +Definition f_madd_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1101_ := arg_ in + (if match (_s1098_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1098_ _s1101_) with + | Some s_ => + returnm (Some + (FMADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1102_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1102_ _s1101_) with + | Some s_ => + returnm (Some + (FMSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1106_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1106_ _s1101_) with + | Some s_ => + returnm (Some + (FNMSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1110_ _s1101_) with | Some s_ => true | _ => false end then + (match (_s1110_ _s1101_) with + | Some s_ => + returnm (Some + (FNMADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_rm_type_mnemonic_S_forwards (arg_ : f_bin_rm_op_S) : string := + match arg_ with + | FADD_S => "fadd.s" + | FSUB_S => "fsub.s" + | FMUL_S => "fmul.s" + | FDIV_S => "fdiv.s" + end. + +Definition f_bin_rm_type_mnemonic_S_backwards (arg_ : string) : M (f_bin_rm_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fadd.s" then returnm FADD_S + else if generic_eq p0_ "fsub.s" then returnm FSUB_S + else if generic_eq p0_ "fmul.s" then returnm FMUL_S + else if generic_eq p0_ "fdiv.s" then returnm FDIV_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_rm_op_S). + +Definition f_bin_rm_type_mnemonic_S_forwards_matches (arg_ : f_bin_rm_op_S) : bool := + match arg_ with | FADD_S => true | FSUB_S => true | FMUL_S => true | FDIV_S => true end. + +Definition f_bin_rm_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fadd.s" then true + else if generic_eq p0_ "fsub.s" then true + else if generic_eq p0_ "fmul.s" then true + else if generic_eq p0_ "fdiv.s" then true + else false. + +Definition _s1126_ (_s1127_ : string) : option string := + let _s1128_ := _s1127_ in + if string_startswith _s1128_ "fdiv.s" then + match (string_drop _s1128_ (projT1 (string_length "fdiv.s"))) with | s_ => Some s_ end + else None. + +Definition _s1122_ (_s1123_ : string) : option string := + let _s1124_ := _s1123_ in + if string_startswith _s1124_ "fmul.s" then + match (string_drop _s1124_ (projT1 (string_length "fmul.s"))) with | s_ => Some s_ end + else None. + +Definition _s1118_ (_s1119_ : string) : option string := + let _s1120_ := _s1119_ in + if string_startswith _s1120_ "fsub.s" then + match (string_drop _s1120_ (projT1 (string_length "fsub.s"))) with | s_ => Some s_ end + else None. + +Definition _s1114_ (_s1115_ : string) : option string := + let _s1116_ := _s1115_ in + if string_startswith _s1116_ "fadd.s" then + match (string_drop _s1116_ (projT1 (string_length "fadd.s"))) with | s_ => Some s_ end + else None. + +Definition f_bin_rm_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1117_ := arg_ in + (if match (_s1114_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1114_ _s1117_) with + | Some s_ => + returnm (Some + (FADD_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1118_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1118_ _s1117_) with + | Some s_ => + returnm (Some + (FSUB_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1122_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1122_ _s1117_) with + | Some s_ => + returnm (Some + (FMUL_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1126_ _s1117_) with | Some s_ => true | _ => false end then + (match (_s1126_ _s1117_) with + | Some s_ => + returnm (Some + (FDIV_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_rm_type_mnemonic_S_forwards (arg_ : f_un_rm_op_S) : string := + match arg_ with + | FSQRT_S => "fsqrt.s" + | FCVT_W_S => "fcvt.w.s" + | FCVT_WU_S => "fcvt.wu.s" + | FCVT_S_W => "fcvt.s.w" + | FCVT_S_WU => "fcvt.s.wu" + | FCVT_L_S => "fcvt.l.s" + | FCVT_LU_S => "fcvt.lu.s" + | FCVT_S_L => "fcvt.s.l" + | FCVT_S_LU => "fcvt.s.lu" + end. + +Definition f_un_rm_type_mnemonic_S_backwards (arg_ : string) : M (f_un_rm_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fsqrt.s" then returnm FSQRT_S + else if generic_eq p0_ "fcvt.w.s" then returnm FCVT_W_S + else if generic_eq p0_ "fcvt.wu.s" then returnm FCVT_WU_S + else if generic_eq p0_ "fcvt.s.w" then returnm FCVT_S_W + else if generic_eq p0_ "fcvt.s.wu" then returnm FCVT_S_WU + else if generic_eq p0_ "fcvt.l.s" then returnm FCVT_L_S + else if generic_eq p0_ "fcvt.lu.s" then returnm FCVT_LU_S + else if generic_eq p0_ "fcvt.s.l" then returnm FCVT_S_L + else if generic_eq p0_ "fcvt.s.lu" then returnm FCVT_S_LU + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_rm_op_S). + +Definition f_un_rm_type_mnemonic_S_forwards_matches (arg_ : f_un_rm_op_S) : bool := + match arg_ with + | FSQRT_S => true + | FCVT_W_S => true + | FCVT_WU_S => true + | FCVT_S_W => true + | FCVT_S_WU => true + | FCVT_L_S => true + | FCVT_LU_S => true + | FCVT_S_L => true + | FCVT_S_LU => true + end. + +Definition f_un_rm_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsqrt.s" then true + else if generic_eq p0_ "fcvt.w.s" then true + else if generic_eq p0_ "fcvt.wu.s" then true + else if generic_eq p0_ "fcvt.s.w" then true + else if generic_eq p0_ "fcvt.s.wu" then true + else if generic_eq p0_ "fcvt.l.s" then true + else if generic_eq p0_ "fcvt.lu.s" then true + else if generic_eq p0_ "fcvt.s.l" then true + else if generic_eq p0_ "fcvt.s.lu" then true + else false. + +Definition _s1162_ (_s1163_ : string) : option string := + let _s1164_ := _s1163_ in + if string_startswith _s1164_ "fcvt.s.lu" then + match (string_drop _s1164_ (projT1 (string_length "fcvt.s.lu"))) with | s_ => Some s_ end + else None. + +Definition _s1158_ (_s1159_ : string) : option string := + let _s1160_ := _s1159_ in + if string_startswith _s1160_ "fcvt.s.l" then + match (string_drop _s1160_ (projT1 (string_length "fcvt.s.l"))) with | s_ => Some s_ end + else None. + +Definition _s1154_ (_s1155_ : string) : option string := + let _s1156_ := _s1155_ in + if string_startswith _s1156_ "fcvt.lu.s" then + match (string_drop _s1156_ (projT1 (string_length "fcvt.lu.s"))) with | s_ => Some s_ end + else None. + +Definition _s1150_ (_s1151_ : string) : option string := + let _s1152_ := _s1151_ in + if string_startswith _s1152_ "fcvt.l.s" then + match (string_drop _s1152_ (projT1 (string_length "fcvt.l.s"))) with | s_ => Some s_ end + else None. + +Definition _s1146_ (_s1147_ : string) : option string := + let _s1148_ := _s1147_ in + if string_startswith _s1148_ "fcvt.s.wu" then + match (string_drop _s1148_ (projT1 (string_length "fcvt.s.wu"))) with | s_ => Some s_ end + else None. + +Definition _s1142_ (_s1143_ : string) : option string := + let _s1144_ := _s1143_ in + if string_startswith _s1144_ "fcvt.s.w" then + match (string_drop _s1144_ (projT1 (string_length "fcvt.s.w"))) with | s_ => Some s_ end + else None. + +Definition _s1138_ (_s1139_ : string) : option string := + let _s1140_ := _s1139_ in + if string_startswith _s1140_ "fcvt.wu.s" then + match (string_drop _s1140_ (projT1 (string_length "fcvt.wu.s"))) with | s_ => Some s_ end + else None. + +Definition _s1134_ (_s1135_ : string) : option string := + let _s1136_ := _s1135_ in + if string_startswith _s1136_ "fcvt.w.s" then + match (string_drop _s1136_ (projT1 (string_length "fcvt.w.s"))) with | s_ => Some s_ end + else None. + +Definition _s1130_ (_s1131_ : string) : option string := + let _s1132_ := _s1131_ in + if string_startswith _s1132_ "fsqrt.s" then + match (string_drop _s1132_ (projT1 (string_length "fsqrt.s"))) with | s_ => Some s_ end + else None. + +Definition f_un_rm_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1133_ := arg_ in + (if match (_s1130_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1130_ _s1133_) with + | Some s_ => + returnm (Some + (FSQRT_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1134_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1134_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_W_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1138_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1138_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_WU_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1142_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1142_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_W, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1146_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1146_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_WU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1150_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1150_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_L_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1154_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1154_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_LU_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1158_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1158_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_L, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1162_ _s1133_) with | Some s_ => true | _ => false end then + (match (_s1162_ _s1133_) with + | Some s_ => + returnm (Some + (FCVT_S_LU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_type_mnemonic_S_forwards (arg_ : f_bin_op_S) : string := + match arg_ with + | FSGNJ_S => "fsgnj.s" + | FSGNJN_S => "fsgnjn.s" + | FSGNJX_S => "fsgnjx.s" + | FMIN_S => "fmin.s" + | FMAX_S => "fmax.s" + | FEQ_S => "feq.s" + | FLT_S => "flt.s" + | FLE_S => "fle.s" + end. + +Definition f_bin_type_mnemonic_S_backwards (arg_ : string) : M (f_bin_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fsgnj.s" then returnm FSGNJ_S + else if generic_eq p0_ "fsgnjn.s" then returnm FSGNJN_S + else if generic_eq p0_ "fsgnjx.s" then returnm FSGNJX_S + else if generic_eq p0_ "fmin.s" then returnm FMIN_S + else if generic_eq p0_ "fmax.s" then returnm FMAX_S + else if generic_eq p0_ "feq.s" then returnm FEQ_S + else if generic_eq p0_ "flt.s" then returnm FLT_S + else if generic_eq p0_ "fle.s" then returnm FLE_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_op_S). + +Definition f_bin_type_mnemonic_S_forwards_matches (arg_ : f_bin_op_S) : bool := + match arg_ with + | FSGNJ_S => true + | FSGNJN_S => true + | FSGNJX_S => true + | FMIN_S => true + | FMAX_S => true + | FEQ_S => true + | FLT_S => true + | FLE_S => true + end. + +Definition f_bin_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsgnj.s" then true + else if generic_eq p0_ "fsgnjn.s" then true + else if generic_eq p0_ "fsgnjx.s" then true + else if generic_eq p0_ "fmin.s" then true + else if generic_eq p0_ "fmax.s" then true + else if generic_eq p0_ "feq.s" then true + else if generic_eq p0_ "flt.s" then true + else if generic_eq p0_ "fle.s" then true + else false. + +Definition _s1194_ (_s1195_ : string) : option string := + let _s1196_ := _s1195_ in + if string_startswith _s1196_ "fle.s" then + match (string_drop _s1196_ (projT1 (string_length "fle.s"))) with | s_ => Some s_ end + else None. + +Definition _s1190_ (_s1191_ : string) : option string := + let _s1192_ := _s1191_ in + if string_startswith _s1192_ "flt.s" then + match (string_drop _s1192_ (projT1 (string_length "flt.s"))) with | s_ => Some s_ end + else None. + +Definition _s1186_ (_s1187_ : string) : option string := + let _s1188_ := _s1187_ in + if string_startswith _s1188_ "feq.s" then + match (string_drop _s1188_ (projT1 (string_length "feq.s"))) with | s_ => Some s_ end + else None. + +Definition _s1182_ (_s1183_ : string) : option string := + let _s1184_ := _s1183_ in + if string_startswith _s1184_ "fmax.s" then + match (string_drop _s1184_ (projT1 (string_length "fmax.s"))) with | s_ => Some s_ end + else None. + +Definition _s1178_ (_s1179_ : string) : option string := + let _s1180_ := _s1179_ in + if string_startswith _s1180_ "fmin.s" then + match (string_drop _s1180_ (projT1 (string_length "fmin.s"))) with | s_ => Some s_ end + else None. + +Definition _s1174_ (_s1175_ : string) : option string := + let _s1176_ := _s1175_ in + if string_startswith _s1176_ "fsgnjx.s" then + match (string_drop _s1176_ (projT1 (string_length "fsgnjx.s"))) with | s_ => Some s_ end + else None. + +Definition _s1170_ (_s1171_ : string) : option string := + let _s1172_ := _s1171_ in + if string_startswith _s1172_ "fsgnjn.s" then + match (string_drop _s1172_ (projT1 (string_length "fsgnjn.s"))) with | s_ => Some s_ end + else None. + +Definition _s1166_ (_s1167_ : string) : option string := + let _s1168_ := _s1167_ in + if string_startswith _s1168_ "fsgnj.s" then + match (string_drop _s1168_ (projT1 (string_length "fsgnj.s"))) with | s_ => Some s_ end + else None. + +Definition f_bin_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1169_ := arg_ in + (if match (_s1166_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1166_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJ_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1170_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1170_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJN_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1174_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1174_ _s1169_) with + | Some s_ => + returnm (Some + (FSGNJX_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1178_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1178_ _s1169_) with + | Some s_ => + returnm (Some + (FMIN_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1182_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1182_ _s1169_) with + | Some s_ => + returnm (Some + (FMAX_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1186_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1186_ _s1169_) with + | Some s_ => + returnm (Some + (FEQ_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1190_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1190_ _s1169_) with + | Some s_ => + returnm (Some + (FLT_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1194_ _s1169_) with | Some s_ => true | _ => false end then + (match (_s1194_ _s1169_) with + | Some s_ => + returnm (Some + (FLE_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_type_mnemonic_S_forwards (arg_ : f_un_op_S) : string := + match arg_ with | FMV_X_W => "fmv.x.w" | FCLASS_S => "fclass.s" | FMV_W_X => "fmv.w.x" end. + +Definition f_un_type_mnemonic_S_backwards (arg_ : string) : M (f_un_op_S) := + let p0_ := arg_ in + (if generic_eq p0_ "fmv.x.w" then returnm FMV_X_W + else if generic_eq p0_ "fclass.s" then returnm FCLASS_S + else if generic_eq p0_ "fmv.w.x" then returnm FMV_W_X + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_op_S). + +Definition f_un_type_mnemonic_S_forwards_matches (arg_ : f_un_op_S) : bool := + match arg_ with | FMV_X_W => true | FCLASS_S => true | FMV_W_X => true end. + +Definition f_un_type_mnemonic_S_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmv.x.w" then true + else if generic_eq p0_ "fclass.s" then true + else if generic_eq p0_ "fmv.w.x" then true + else false. + +Definition _s1206_ (_s1207_ : string) : option string := + let _s1208_ := _s1207_ in + if string_startswith _s1208_ "fmv.w.x" then + match (string_drop _s1208_ (projT1 (string_length "fmv.w.x"))) with | s_ => Some s_ end + else None. + +Definition _s1202_ (_s1203_ : string) : option string := + let _s1204_ := _s1203_ in + if string_startswith _s1204_ "fclass.s" then + match (string_drop _s1204_ (projT1 (string_length "fclass.s"))) with | s_ => Some s_ end + else None. + +Definition _s1198_ (_s1199_ : string) : option string := + let _s1200_ := _s1199_ in + if string_startswith _s1200_ "fmv.x.w" then + match (string_drop _s1200_ (projT1 (string_length "fmv.x.w"))) with | s_ => Some s_ end + else None. + +Definition f_un_type_mnemonic_S_matches_prefix (arg_ : string) +: M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) := + let _s1201_ := arg_ in + (if match (_s1198_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1198_ _s1201_) with + | Some s_ => + returnm (Some + (FMV_X_W, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1202_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1202_ _s1201_) with + | Some s_ => + returnm (Some + (FCLASS_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1206_ _s1201_) with | Some s_ => true | _ => false end then + (match (_s1206_ _s1201_) with + | Some s_ => + returnm (Some + (FMV_W_X, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_op_S * {n : Z & ArithFact (n >=? 0)}))). + +Definition fsplit_D (x64 : mword 64) : (mword 1 * mword 11 * mword 52) := + (subrange_vec_dec x64 63 63, subrange_vec_dec x64 62 52, subrange_vec_dec x64 51 0). + +Definition fmake_D (sign : mword 1) (exp : mword 11) (mant : mword 52) : mword 64 := + concat_vec sign (concat_vec exp mant). + +Definition canonical_NaN_D '(tt : unit) : mword 64 := Ox"7FF8000000000000" : mword 64. + +Definition f_is_neg_inf_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (ones 11)) (eq_vec mant (zeros_implicit 52))). + +Definition f_is_neg_norm_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (neq_vec exp (zeros_implicit 11)) (neq_vec exp (ones 11))). + +Definition f_is_neg_subnorm_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign ('b"1" : mword 1)) + (andb (eq_vec exp (zeros_implicit 11)) (neq_vec mant (zeros_implicit 52))). + +Definition f_is_neg_zero_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign (ones 1)) + (andb (eq_vec exp (zeros_implicit 11)) (eq_vec mant (zeros_implicit 52))). + +Definition f_is_pos_zero_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 11)) (eq_vec mant (zeros_implicit 52))). + +Definition f_is_pos_subnorm_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (zeros_implicit 11)) (neq_vec mant (zeros_implicit 52))). + +Definition f_is_pos_norm_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (neq_vec exp (zeros_implicit 11)) (neq_vec exp (ones 11))). + +Definition f_is_pos_inf_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec sign (zeros_implicit 1)) + (andb (eq_vec exp (ones 11)) (eq_vec mant (zeros_implicit 52))). + +Definition f_is_SNaN_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec exp (ones 11)) + (andb (eq_bit (access_vec_dec mant 51) B0) (neq_vec mant (zeros_implicit 52))). + +Definition f_is_QNaN_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec exp (ones 11)) (eq_bit (access_vec_dec mant 51) B1). + +Definition f_is_NaN_D (x64 : mword 64) : bool := + let '(sign, exp, mant) := fsplit_D x64 in + andb (eq_vec exp (ones 11)) (neq_vec mant (zeros_implicit 52)). + +Definition negate_D (x64 : mword 64) : mword 64 := + let '(sign, exp, mant) := fsplit_D x64 in + let new_sign := if eq_vec sign ('b"0" : mword 1) then 'b"1" : mword 1 else 'b"0" : mword 1 in + fmake_D new_sign exp mant. + +Definition feq_quiet_D (v1 : mword 64) (v2 : mword 64) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_D v1 in + let '(s2, e2, m2) := fsplit_D v2 in + let v1Is0 := orb (f_is_neg_zero_D v1) (f_is_pos_zero_D v1) in + let v2Is0 := orb (f_is_neg_zero_D v2) (f_is_pos_zero_D v2) in + let result := orb (eq_vec v1 v2) (andb v1Is0 v2Is0) in + let fflags := if orb (f_is_SNaN_D v1) (f_is_SNaN_D v2) then nvFlag tt else zeros_implicit 5 in + (result, fflags). + +Definition flt_D (v1 : mword 64) (v2 : mword 64) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_D v1 in + let '(s2, e2, m2) := fsplit_D v2 in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.ltb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then false + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.gtb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_D v1) (f_is_SNaN_D v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_D v1) (f_is_NaN_D v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition fle_D (v1 : mword 64) (v2 : mword 64) (is_quiet : bool) : (bool * mword 5) := + let '(s1, e1, m1) := fsplit_D v1 in + let '(s2, e2, m2) := fsplit_D v2 in + let v1Is0 := orb (f_is_neg_zero_D v1) (f_is_pos_zero_D v1) in + let v2Is0 := orb (f_is_neg_zero_D v2) (f_is_pos_zero_D v2) in + let result : bool := + if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then + if eq_vec e1 e2 then Z.leb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.ltb (projT1 (uint e1)) (projT1 (uint e2)) + else if andb (eq_vec s1 ('b"0" : mword 1)) (eq_vec s2 ('b"1" : mword 1)) then + andb v1Is0 v2Is0 + else if andb (eq_vec s1 ('b"1" : mword 1)) (eq_vec s2 ('b"0" : mword 1)) then true + else if eq_vec e1 e2 then Z.geb (projT1 (uint m1)) (projT1 (uint m2)) + else Z.gtb (projT1 (uint e1)) (projT1 (uint e2)) in + let fflags := + if sumbool_of_bool is_quiet then + if orb (f_is_SNaN_D v1) (f_is_SNaN_D v2) then nvFlag tt + else zeros_implicit 5 + else if orb (f_is_NaN_D v1) (f_is_NaN_D v2) then nvFlag tt + else zeros_implicit 5 in + (result, fflags). + +Definition f_madd_type_mnemonic_D_forwards (arg_ : f_madd_op_D) : string := + match arg_ with + | FMADD_D => "fmadd.d" + | FMSUB_D => "fmsub.d" + | FNMSUB_D => "fnmsub.d" + | FNMADD_D => "fnmadd.d" + end. + +Definition f_madd_type_mnemonic_D_backwards (arg_ : string) : M (f_madd_op_D) := + let p0_ := arg_ in + (if generic_eq p0_ "fmadd.d" then returnm FMADD_D + else if generic_eq p0_ "fmsub.d" then returnm FMSUB_D + else if generic_eq p0_ "fnmsub.d" then returnm FNMSUB_D + else if generic_eq p0_ "fnmadd.d" then returnm FNMADD_D + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_madd_op_D). + +Definition f_madd_type_mnemonic_D_forwards_matches (arg_ : f_madd_op_D) : bool := + match arg_ with | FMADD_D => true | FMSUB_D => true | FNMSUB_D => true | FNMADD_D => true end. + +Definition f_madd_type_mnemonic_D_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmadd.d" then true + else if generic_eq p0_ "fmsub.d" then true + else if generic_eq p0_ "fnmsub.d" then true + else if generic_eq p0_ "fnmadd.d" then true + else false. + +Definition _s1222_ (_s1223_ : string) : option string := + let _s1224_ := _s1223_ in + if string_startswith _s1224_ "fnmadd.d" then + match (string_drop _s1224_ (projT1 (string_length "fnmadd.d"))) with | s_ => Some s_ end + else None. + +Definition _s1218_ (_s1219_ : string) : option string := + let _s1220_ := _s1219_ in + if string_startswith _s1220_ "fnmsub.d" then + match (string_drop _s1220_ (projT1 (string_length "fnmsub.d"))) with | s_ => Some s_ end + else None. + +Definition _s1214_ (_s1215_ : string) : option string := + let _s1216_ := _s1215_ in + if string_startswith _s1216_ "fmsub.d" then + match (string_drop _s1216_ (projT1 (string_length "fmsub.d"))) with | s_ => Some s_ end + else None. + +Definition _s1210_ (_s1211_ : string) : option string := + let _s1212_ := _s1211_ in + if string_startswith _s1212_ "fmadd.d" then + match (string_drop _s1212_ (projT1 (string_length "fmadd.d"))) with | s_ => Some s_ end + else None. + +Definition f_madd_type_mnemonic_D_matches_prefix (arg_ : string) +: M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) := + let _s1213_ := arg_ in + (if match (_s1210_ _s1213_) with | Some s_ => true | _ => false end then + (match (_s1210_ _s1213_) with + | Some s_ => + returnm (Some + (FMADD_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1214_ _s1213_) with | Some s_ => true | _ => false end then + (match (_s1214_ _s1213_) with + | Some s_ => + returnm (Some + (FMSUB_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1218_ _s1213_) with | Some s_ => true | _ => false end then + (match (_s1218_ _s1213_) with + | Some s_ => + returnm (Some + (FNMSUB_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1222_ _s1213_) with | Some s_ => true | _ => false end then + (match (_s1222_ _s1213_) with + | Some s_ => + returnm (Some + (FNMADD_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_madd_op_D * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_rm_type_mnemonic_D_forwards (arg_ : f_bin_rm_op_D) : string := + match arg_ with + | FADD_D => "fadd.d" + | FSUB_D => "fsub.d" + | FMUL_D => "fmul.d" + | FDIV_D => "fdiv.d" + end. + +Definition f_bin_rm_type_mnemonic_D_backwards (arg_ : string) : M (f_bin_rm_op_D) := + let p0_ := arg_ in + (if generic_eq p0_ "fadd.d" then returnm FADD_D + else if generic_eq p0_ "fsub.d" then returnm FSUB_D + else if generic_eq p0_ "fmul.d" then returnm FMUL_D + else if generic_eq p0_ "fdiv.d" then returnm FDIV_D + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_rm_op_D). + +Definition f_bin_rm_type_mnemonic_D_forwards_matches (arg_ : f_bin_rm_op_D) : bool := + match arg_ with | FADD_D => true | FSUB_D => true | FMUL_D => true | FDIV_D => true end. + +Definition f_bin_rm_type_mnemonic_D_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fadd.d" then true + else if generic_eq p0_ "fsub.d" then true + else if generic_eq p0_ "fmul.d" then true + else if generic_eq p0_ "fdiv.d" then true + else false. + +Definition _s1238_ (_s1239_ : string) : option string := + let _s1240_ := _s1239_ in + if string_startswith _s1240_ "fdiv.d" then + match (string_drop _s1240_ (projT1 (string_length "fdiv.d"))) with | s_ => Some s_ end + else None. + +Definition _s1234_ (_s1235_ : string) : option string := + let _s1236_ := _s1235_ in + if string_startswith _s1236_ "fmul.d" then + match (string_drop _s1236_ (projT1 (string_length "fmul.d"))) with | s_ => Some s_ end + else None. + +Definition _s1230_ (_s1231_ : string) : option string := + let _s1232_ := _s1231_ in + if string_startswith _s1232_ "fsub.d" then + match (string_drop _s1232_ (projT1 (string_length "fsub.d"))) with | s_ => Some s_ end + else None. + +Definition _s1226_ (_s1227_ : string) : option string := + let _s1228_ := _s1227_ in + if string_startswith _s1228_ "fadd.d" then + match (string_drop _s1228_ (projT1 (string_length "fadd.d"))) with | s_ => Some s_ end + else None. + +Definition f_bin_rm_type_mnemonic_D_matches_prefix (arg_ : string) +: M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) := + let _s1229_ := arg_ in + (if match (_s1226_ _s1229_) with | Some s_ => true | _ => false end then + (match (_s1226_ _s1229_) with + | Some s_ => + returnm (Some + (FADD_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1230_ _s1229_) with | Some s_ => true | _ => false end then + (match (_s1230_ _s1229_) with + | Some s_ => + returnm (Some + (FSUB_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1234_ _s1229_) with | Some s_ => true | _ => false end then + (match (_s1234_ _s1229_) with + | Some s_ => + returnm (Some + (FMUL_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1238_ _s1229_) with | Some s_ => true | _ => false end then + (match (_s1238_ _s1229_) with + | Some s_ => + returnm (Some + (FDIV_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_rm_type_mnemonic_D_forwards (arg_ : f_un_rm_op_D) : string := + match arg_ with + | FSQRT_D => "fsqrt.d" + | FCVT_W_D => "fcvt.w.d" + | FCVT_WU_D => "fcvt.wu.d" + | FCVT_D_W => "fcvt.d.w" + | FCVT_D_WU => "fcvt.d.wu" + | FCVT_L_D => "fcvt.l.d" + | FCVT_LU_D => "fcvt.lu.d" + | FCVT_D_L => "fcvt.d.l" + | FCVT_D_LU => "fcvt.d.lu" + | FCVT_S_D => "fcvt.s.d" + | FCVT_D_S => "fcvt.d.s" + end. + +Definition f_un_rm_type_mnemonic_D_backwards (arg_ : string) : M (f_un_rm_op_D) := + let p0_ := arg_ in + (if generic_eq p0_ "fsqrt.d" then returnm FSQRT_D + else if generic_eq p0_ "fcvt.w.d" then returnm FCVT_W_D + else if generic_eq p0_ "fcvt.wu.d" then returnm FCVT_WU_D + else if generic_eq p0_ "fcvt.d.w" then returnm FCVT_D_W + else if generic_eq p0_ "fcvt.d.wu" then returnm FCVT_D_WU + else if generic_eq p0_ "fcvt.l.d" then returnm FCVT_L_D + else if generic_eq p0_ "fcvt.lu.d" then returnm FCVT_LU_D + else if generic_eq p0_ "fcvt.d.l" then returnm FCVT_D_L + else if generic_eq p0_ "fcvt.d.lu" then returnm FCVT_D_LU + else if generic_eq p0_ "fcvt.s.d" then returnm FCVT_S_D + else if generic_eq p0_ "fcvt.d.s" then returnm FCVT_D_S + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_rm_op_D). + +Definition f_un_rm_type_mnemonic_D_forwards_matches (arg_ : f_un_rm_op_D) : bool := + match arg_ with + | FSQRT_D => true + | FCVT_W_D => true + | FCVT_WU_D => true + | FCVT_D_W => true + | FCVT_D_WU => true + | FCVT_L_D => true + | FCVT_LU_D => true + | FCVT_D_L => true + | FCVT_D_LU => true + | FCVT_S_D => true + | FCVT_D_S => true + end. + +Definition f_un_rm_type_mnemonic_D_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsqrt.d" then true + else if generic_eq p0_ "fcvt.w.d" then true + else if generic_eq p0_ "fcvt.wu.d" then true + else if generic_eq p0_ "fcvt.d.w" then true + else if generic_eq p0_ "fcvt.d.wu" then true + else if generic_eq p0_ "fcvt.l.d" then true + else if generic_eq p0_ "fcvt.lu.d" then true + else if generic_eq p0_ "fcvt.d.l" then true + else if generic_eq p0_ "fcvt.d.lu" then true + else if generic_eq p0_ "fcvt.s.d" then true + else if generic_eq p0_ "fcvt.d.s" then true + else false. + +Definition _s1282_ (_s1283_ : string) : option string := + let _s1284_ := _s1283_ in + if string_startswith _s1284_ "fcvt.d.s" then + match (string_drop _s1284_ (projT1 (string_length "fcvt.d.s"))) with | s_ => Some s_ end + else None. + +Definition _s1278_ (_s1279_ : string) : option string := + let _s1280_ := _s1279_ in + if string_startswith _s1280_ "fcvt.s.d" then + match (string_drop _s1280_ (projT1 (string_length "fcvt.s.d"))) with | s_ => Some s_ end + else None. + +Definition _s1274_ (_s1275_ : string) : option string := + let _s1276_ := _s1275_ in + if string_startswith _s1276_ "fcvt.d.lu" then + match (string_drop _s1276_ (projT1 (string_length "fcvt.d.lu"))) with | s_ => Some s_ end + else None. + +Definition _s1270_ (_s1271_ : string) : option string := + let _s1272_ := _s1271_ in + if string_startswith _s1272_ "fcvt.d.l" then + match (string_drop _s1272_ (projT1 (string_length "fcvt.d.l"))) with | s_ => Some s_ end + else None. + +Definition _s1266_ (_s1267_ : string) : option string := + let _s1268_ := _s1267_ in + if string_startswith _s1268_ "fcvt.lu.d" then + match (string_drop _s1268_ (projT1 (string_length "fcvt.lu.d"))) with | s_ => Some s_ end + else None. + +Definition _s1262_ (_s1263_ : string) : option string := + let _s1264_ := _s1263_ in + if string_startswith _s1264_ "fcvt.l.d" then + match (string_drop _s1264_ (projT1 (string_length "fcvt.l.d"))) with | s_ => Some s_ end + else None. + +Definition _s1258_ (_s1259_ : string) : option string := + let _s1260_ := _s1259_ in + if string_startswith _s1260_ "fcvt.d.wu" then + match (string_drop _s1260_ (projT1 (string_length "fcvt.d.wu"))) with | s_ => Some s_ end + else None. + +Definition _s1254_ (_s1255_ : string) : option string := + let _s1256_ := _s1255_ in + if string_startswith _s1256_ "fcvt.d.w" then + match (string_drop _s1256_ (projT1 (string_length "fcvt.d.w"))) with | s_ => Some s_ end + else None. + +Definition _s1250_ (_s1251_ : string) : option string := + let _s1252_ := _s1251_ in + if string_startswith _s1252_ "fcvt.wu.d" then + match (string_drop _s1252_ (projT1 (string_length "fcvt.wu.d"))) with | s_ => Some s_ end + else None. + +Definition _s1246_ (_s1247_ : string) : option string := + let _s1248_ := _s1247_ in + if string_startswith _s1248_ "fcvt.w.d" then + match (string_drop _s1248_ (projT1 (string_length "fcvt.w.d"))) with | s_ => Some s_ end + else None. + +Definition _s1242_ (_s1243_ : string) : option string := + let _s1244_ := _s1243_ in + if string_startswith _s1244_ "fsqrt.d" then + match (string_drop _s1244_ (projT1 (string_length "fsqrt.d"))) with | s_ => Some s_ end + else None. + +Definition f_un_rm_type_mnemonic_D_matches_prefix (arg_ : string) +: M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) := + let _s1245_ := arg_ in + (if match (_s1242_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1242_ _s1245_) with + | Some s_ => + returnm (Some + (FSQRT_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1246_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1246_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_W_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1250_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1250_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_WU_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1254_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1254_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_D_W, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1258_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1258_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_D_WU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1262_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1262_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_L_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1266_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1266_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_LU_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1270_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1270_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_D_L, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1274_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1274_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_D_LU, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1278_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1278_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_S_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1282_ _s1245_) with | Some s_ => true | _ => false end then + (match (_s1282_ _s1245_) with + | Some s_ => + returnm (Some + (FCVT_D_S, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_bin_type_mnemonic_D_forwards (arg_ : f_bin_op_D) : string := + match arg_ with + | FSGNJ_D => "fsgnj.d" + | FSGNJN_D => "fsgnjn.d" + | FSGNJX_D => "fsgnjx.d" + | FMIN_D => "fmin.d" + | FMAX_D => "fmax.d" + | FEQ_D => "feq.d" + | FLT_D => "flt.d" + | FLE_D => "fle.d" + end. + +Definition f_bin_type_mnemonic_D_backwards (arg_ : string) : M (f_bin_op_D) := + let p0_ := arg_ in + (if generic_eq p0_ "fsgnj.d" then returnm FSGNJ_D + else if generic_eq p0_ "fsgnjn.d" then returnm FSGNJN_D + else if generic_eq p0_ "fsgnjx.d" then returnm FSGNJX_D + else if generic_eq p0_ "fmin.d" then returnm FMIN_D + else if generic_eq p0_ "fmax.d" then returnm FMAX_D + else if generic_eq p0_ "feq.d" then returnm FEQ_D + else if generic_eq p0_ "flt.d" then returnm FLT_D + else if generic_eq p0_ "fle.d" then returnm FLE_D + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_bin_op_D). + +Definition f_bin_type_mnemonic_D_forwards_matches (arg_ : f_bin_op_D) : bool := + match arg_ with + | FSGNJ_D => true + | FSGNJN_D => true + | FSGNJX_D => true + | FMIN_D => true + | FMAX_D => true + | FEQ_D => true + | FLT_D => true + | FLE_D => true + end. + +Definition f_bin_type_mnemonic_D_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fsgnj.d" then true + else if generic_eq p0_ "fsgnjn.d" then true + else if generic_eq p0_ "fsgnjx.d" then true + else if generic_eq p0_ "fmin.d" then true + else if generic_eq p0_ "fmax.d" then true + else if generic_eq p0_ "feq.d" then true + else if generic_eq p0_ "flt.d" then true + else if generic_eq p0_ "fle.d" then true + else false. + +Definition _s1314_ (_s1315_ : string) : option string := + let _s1316_ := _s1315_ in + if string_startswith _s1316_ "fle.d" then + match (string_drop _s1316_ (projT1 (string_length "fle.d"))) with | s_ => Some s_ end + else None. + +Definition _s1310_ (_s1311_ : string) : option string := + let _s1312_ := _s1311_ in + if string_startswith _s1312_ "flt.d" then + match (string_drop _s1312_ (projT1 (string_length "flt.d"))) with | s_ => Some s_ end + else None. + +Definition _s1306_ (_s1307_ : string) : option string := + let _s1308_ := _s1307_ in + if string_startswith _s1308_ "feq.d" then + match (string_drop _s1308_ (projT1 (string_length "feq.d"))) with | s_ => Some s_ end + else None. + +Definition _s1302_ (_s1303_ : string) : option string := + let _s1304_ := _s1303_ in + if string_startswith _s1304_ "fmax.d" then + match (string_drop _s1304_ (projT1 (string_length "fmax.d"))) with | s_ => Some s_ end + else None. + +Definition _s1298_ (_s1299_ : string) : option string := + let _s1300_ := _s1299_ in + if string_startswith _s1300_ "fmin.d" then + match (string_drop _s1300_ (projT1 (string_length "fmin.d"))) with | s_ => Some s_ end + else None. + +Definition _s1294_ (_s1295_ : string) : option string := + let _s1296_ := _s1295_ in + if string_startswith _s1296_ "fsgnjx.d" then + match (string_drop _s1296_ (projT1 (string_length "fsgnjx.d"))) with | s_ => Some s_ end + else None. + +Definition _s1290_ (_s1291_ : string) : option string := + let _s1292_ := _s1291_ in + if string_startswith _s1292_ "fsgnjn.d" then + match (string_drop _s1292_ (projT1 (string_length "fsgnjn.d"))) with | s_ => Some s_ end + else None. + +Definition _s1286_ (_s1287_ : string) : option string := + let _s1288_ := _s1287_ in + if string_startswith _s1288_ "fsgnj.d" then + match (string_drop _s1288_ (projT1 (string_length "fsgnj.d"))) with | s_ => Some s_ end + else None. + +Definition f_bin_type_mnemonic_D_matches_prefix (arg_ : string) +: M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) := + let _s1289_ := arg_ in + (if match (_s1286_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1286_ _s1289_) with + | Some s_ => + returnm (Some + (FSGNJ_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1290_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1290_ _s1289_) with + | Some s_ => + returnm (Some + (FSGNJN_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1294_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1294_ _s1289_) with + | Some s_ => + returnm (Some + (FSGNJX_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1298_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1298_ _s1289_) with + | Some s_ => + returnm (Some + (FMIN_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1302_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1302_ _s1289_) with + | Some s_ => + returnm (Some + (FMAX_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1306_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1306_ _s1289_) with + | Some s_ => + returnm (Some + (FEQ_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1310_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1310_ _s1289_) with + | Some s_ => + returnm (Some + (FLT_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1314_ _s1289_) with | Some s_ => true | _ => false end then + (match (_s1314_ _s1289_) with + | Some s_ => + returnm (Some + (FLE_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)}))). + +Definition f_un_type_mnemonic_D_forwards (arg_ : f_un_op_D) : string := + match arg_ with | FMV_X_D => "fmv.x.d" | FCLASS_D => "fclass.d" | FMV_D_X => "fmv.d.x" end. + +Definition f_un_type_mnemonic_D_backwards (arg_ : string) : M (f_un_op_D) := + let p0_ := arg_ in + (if generic_eq p0_ "fmv.x.d" then returnm FMV_X_D + else if generic_eq p0_ "fclass.d" then returnm FCLASS_D + else if generic_eq p0_ "fmv.d.x" then returnm FMV_D_X + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (f_un_op_D). + +Definition f_un_type_mnemonic_D_forwards_matches (arg_ : f_un_op_D) : bool := + match arg_ with | FMV_X_D => true | FCLASS_D => true | FMV_D_X => true end. + +Definition f_un_type_mnemonic_D_backwards_matches (arg_ : string) : bool := + let p0_ := arg_ in + if generic_eq p0_ "fmv.x.d" then true + else if generic_eq p0_ "fclass.d" then true + else if generic_eq p0_ "fmv.d.x" then true + else false. + +Definition _s1326_ (_s1327_ : string) : option string := + let _s1328_ := _s1327_ in + if string_startswith _s1328_ "fmv.d.x" then + match (string_drop _s1328_ (projT1 (string_length "fmv.d.x"))) with | s_ => Some s_ end + else None. + +Definition _s1322_ (_s1323_ : string) : option string := + let _s1324_ := _s1323_ in + if string_startswith _s1324_ "fclass.d" then + match (string_drop _s1324_ (projT1 (string_length "fclass.d"))) with | s_ => Some s_ end + else None. + +Definition _s1318_ (_s1319_ : string) : option string := + let _s1320_ := _s1319_ in + if string_startswith _s1320_ "fmv.x.d" then + match (string_drop _s1320_ (projT1 (string_length "fmv.x.d"))) with | s_ => Some s_ end + else None. + +Definition f_un_type_mnemonic_D_matches_prefix (arg_ : string) +: M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) := + let _s1321_ := arg_ in + (if match (_s1318_ _s1321_) with | Some s_ => true | _ => false end then + (match (_s1318_ _s1321_) with + | Some s_ => + returnm (Some + (FMV_X_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1322_ _s1321_) with | Some s_ => true | _ => false end then + (match (_s1322_ _s1321_) with + | Some s_ => + returnm (Some + (FCLASS_D, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) + end) + : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s1326_ _s1321_) with | Some s_ => true | _ => false end then + (match (_s1326_ _s1321_) with + | Some s_ => + returnm (Some + (FMV_D_X, build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))) - else returnm (None : option ((csrop * {n : Z & ArithFact (n >= 0)})))) - : M (option ((csrop * {n : Z & ArithFact (n >= 0)}))). + : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))) + else returnm None) + : M (option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)}))). -Definition encdec_forwards (arg_ : ast) -: M (mword 32) := - +Definition encdec_forwards (arg_ : ast) : M (mword 32) := (match arg_ with - | UTYPE ((imm, rd, op)) => - returnm ((concat_vec (imm : mword 20) (concat_vec (rd : mword 5) (encdec_uop_forwards op))) - : mword (20 + (5 + 7))) - | RISCV_JAL ((v__2, rd)) => - (if ((eq_vec (subrange_vec_dec v__2 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then + | UTYPE (imm, rd, op) => + returnm (concat_vec (imm : mword 20) (concat_vec (rd : mword 5) (encdec_uop_forwards op))) + | RISCV_JAL (v__2, rd) => + (if eq_vec (subrange_vec_dec v__2 0 0) ('b"0" : mword (0 - 0 + 1)) then let imm_19 : bits 1 := subrange_vec_dec v__2 20 20 in let imm_8 : bits 1 := subrange_vec_dec v__2 11 11 in let imm_7_0 : bits 8 := subrange_vec_dec v__2 19 12 in let imm_19 : bits 1 := subrange_vec_dec v__2 20 20 in let imm_18_13 : bits 6 := subrange_vec_dec v__2 10 5 in let imm_12_9 : bits 4 := subrange_vec_dec v__2 4 1 in - returnm ((concat_vec (imm_19 : bits 1) - (concat_vec (imm_18_13 : bits 6) - (concat_vec (imm_12_9 : bits 4) - (concat_vec (imm_8 : bits 1) - (concat_vec (imm_7_0 : bits 8) - (concat_vec (rd : mword 5) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword 7))))))) - : mword 32) + returnm (concat_vec (imm_19 : bits 1) + (concat_vec (imm_18_13 : bits 6) + (concat_vec (imm_12_9 : bits 4) + (concat_vec (imm_8 : bits 1) + (concat_vec (imm_7_0 : bits 8) + (concat_vec (rd : mword 5) ('b"1101111" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RISCV_JALR ((imm, rs1, rd)) => - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | BTYPE ((v__4, rs2, rs1, op)) => - (if ((eq_vec (subrange_vec_dec v__4 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then + | RISCV_JALR (imm, rs1, rd) => + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1100111" : mword 7))))) + | BTYPE (v__4, rs2, rs1, op) => + (if eq_vec (subrange_vec_dec v__4 0 0) ('b"0" : mword (0 - 0 + 1)) then let imm7_6 : bits 1 := subrange_vec_dec v__4 12 12 in let imm7_6 : bits 1 := subrange_vec_dec v__4 12 12 in let imm7_5_0 : bits 6 := subrange_vec_dec v__4 10 5 in let imm5_4_1 : bits 4 := subrange_vec_dec v__4 4 1 in let imm5_0 : bits 1 := subrange_vec_dec v__4 11 11 in - returnm ((concat_vec (imm7_6 : bits 1) - (concat_vec (imm7_5_0 : bits 6) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (encdec_bop_forwards op) - (concat_vec (imm5_4_1 : bits 4) - (concat_vec (imm5_0 : bits 1) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword 7)))))))) - : mword 32) + returnm (concat_vec (imm7_6 : bits 1) + (concat_vec (imm7_5_0 : bits 6) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_bop_forwards op) + (concat_vec (imm5_4_1 : bits 4) + (concat_vec (imm5_0 : bits 1) ('b"1100011" : mword 7)))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | ITYPE ((imm, rs1, rd, op)) => - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (encdec_iop_forwards op) - (concat_vec (rd : mword 5) (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SLLI)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRLI)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRAI)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword 6) - (concat_vec (shamt : mword 6) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (6 + (6 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_ADD)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLT)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLTU)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_AND)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_OR)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_XOR)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SLL)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SRL)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SUB)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | RTYPE ((rs2, rs1, rd, RISCV_SRA)) => - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | LOAD ((imm, rs1, rd, is_unsigned, size, false, false)) => - (if sumbool_of_bool ((orb (Z.ltb (projT1 (word_width_bytes size)) 8) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 8) - : bool)))) then - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (bool_bits_forwards is_unsigned) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword 7)))))) - : mword (12 + (5 + (1 + (2 + (5 + 7)))))) + | ITYPE (imm, rs1, rd, op) => + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_iop_forwards op) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SLLI) => + returnm (concat_vec ('b"000000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SRLI) => + returnm (concat_vec ('b"000000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | SHIFTIOP (shamt, rs1, rd, RISCV_SRAI) => + returnm (concat_vec ('b"010000" : mword 6) + (concat_vec (shamt : mword 6) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0010011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_ADD) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLT) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLTU) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_AND) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"111" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_OR) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"110" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_XOR) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"100" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SLL) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SRL) => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SUB) => + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | RTYPE (rs2, rs1, rd, RISCV_SRA) => + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | LOAD (imm, rs1, rd, is_unsigned, size, false, false) => + (if sumbool_of_bool + (orb (Z.ltb (projT1 (word_width_bytes size)) 8) + (andb (negb is_unsigned) ((Z.leb (projT1 (word_width_bytes size)) 8) : bool))) then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (bool_bits_forwards is_unsigned) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0000011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | STORE ((v__6, rs2, rs1, size, false, false)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then + | STORE (v__6, rs2, rs1, size, false, false) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then let imm7 : bits 7 := subrange_vec_dec v__6 11 5 in let imm7 : bits 7 := subrange_vec_dec v__6 11 5 in let imm5 : bits 5 := subrange_vec_dec v__6 4 0 in - returnm ((concat_vec (imm7 : bits 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (imm5 : bits 5) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword 7))))))) - : mword 32) + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (imm5 : bits 5) ('b"0100011" : mword 7))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | ADDIW ((imm, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (imm : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) + | ADDIW (imm, rs1, rd) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SLLI)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SLLI) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SRLI)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SRLI) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTW ((shamt, rs1, rd, RISCV_SRAI)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTW (shamt, rs1, rd, RISCV_SRAI) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_ADDW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_ADDW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SUBW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SUBW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SLLW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SLLW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SRLW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SRLW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | RTYPEW ((rs2, rs1, rd, RISCV_SRAW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | RTYPEW (rs2, rs1, rd, RISCV_SRAW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SLLIW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRLIW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRAIW)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (shamt : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec (shamt : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"101" : mword 3) + (concat_vec (rd : mword 5) ('b"0011011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | FENCE ((pred, succ)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0] : mword 4) - (concat_vec (pred : mword 4) - (concat_vec (succ : mword 4) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))))) - : mword (4 + (4 + (4 + (5 + (3 + (5 + 7))))))) - | FENCE_TSO ((pred, succ)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0;B0] : mword 4) - (concat_vec (pred : mword 4) - (concat_vec (succ : mword 4) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))))) - : mword (4 + (4 + (4 + (5 + (3 + (5 + 7))))))) - | FENCEI (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B0;B0;B1;B1;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | ECALL (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | MRET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B1;B1;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | SRET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | EBREAK (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | WFI (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1] : mword 12) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7))))) - : mword (12 + (5 + (3 + (5 + 7))))) - | SFENCE_VMA ((rs1, rs2)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | LOADRES ((aq, rl, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | FENCE (pred, succ) => + returnm (concat_vec (Ox"0" : mword 4) + (concat_vec (pred : mword 4) + (concat_vec (succ : mword 4) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))))) + | FENCE_TSO (pred, succ) => + returnm (concat_vec (Ox"8" : mword 4) + (concat_vec (pred : mword 4) + (concat_vec (succ : mword 4) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))))) + | FENCEI tt => + returnm (concat_vec (Ox"000" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"0001111" : mword 7))))) + | ECALL tt => + returnm (concat_vec (Ox"000" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | MRET tt => + returnm (concat_vec ('b"0011000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | SRET tt => + returnm (concat_vec ('b"0001000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | EBREAK tt => + returnm (concat_vec (Ox"001" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | WFI tt => + returnm (concat_vec (Ox"105" : mword 12) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7))))) + | SFENCE_VMA (rs1, rs2) => + returnm (concat_vec ('b"0001001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | LOADRES (aq, rl, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then + returnm (concat_vec ('b"00010" : mword 5) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | STORECON ((aq, rl, rs2, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B1;B1] : mword 5) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | STORECON (aq, rl, rs2, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then + returnm (concat_vec ('b"00011" : mword 5) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | AMO ((op, aq, rl, rs2, rs1, size, rd)) => - (if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then - returnm ((concat_vec (encdec_amoop_forwards op) - (concat_vec (bool_bits_forwards aq) - (concat_vec (bool_bits_forwards rl) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (size_bits_forwards size) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] : mword 7))))))))) - : mword (5 + (1 + (1 + (5 + (5 + (1 + (2 + (5 + 7))))))))) + | AMO (op, aq, rl, rs2, rs1, size, rd) => + (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then + returnm (concat_vec (encdec_amoop_forwards op) + (concat_vec (bool_bits_forwards aq) + (concat_vec (bool_bits_forwards rl) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"0" : mword 1) + (concat_vec (size_bits_forwards size) + (concat_vec (rd : mword 5) ('b"0101111" : mword 7))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | MUL (rs2, rs1, rd, high, signed1, signed2) => (encdec_mul_op_forwards (high, signed1, signed2)) >>= fun w__38 : mword 3 => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (w__38 : bits 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | DIV ((rs2, rs1, rd, s)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) - | REM ((rs2, rs1, rd, s)) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) - | MULW ((rs2, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (w__38 : bits 3) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7)))))) + | DIV (rs2, rs1, rd, s) => + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"10" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7))))))) + | REM (rs2, rs1, rd, s) => + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"11" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0110011" : mword 7))))))) + | MULW (rs2, rs1, rd) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | DIVW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"10" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | REMW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"11" : mword 2) + (concat_vec (bool_not_bits_forwards s) + (concat_vec (rd : mword 5) ('b"0111011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | CSR (csr, rs1, rd, is_imm, op) => + returnm (concat_vec (csr : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec (bool_bits_forwards is_imm) + (concat_vec (encdec_csrop_forwards op) + (concat_vec (rd : mword 5) ('b"1110011" : mword 7)))))) + | URET tt => + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec ('b"00000" : mword 5) ('b"1110011" : mword 7)))))) + | LOAD_FP (imm, rs1, rd, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__45 : bool => + (if sumbool_of_bool w__45 then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"0000111" : mword 7))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | LOAD_FP (imm, rs1, rd, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__48 : bool => + (if sumbool_of_bool w__48 then + returnm (concat_vec (imm : mword 12) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (rd : mword 5) ('b"0000111" : mword 7))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | STORE_FP (v__7, rs2, rs1, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__51 : bool => + (if sumbool_of_bool w__51 then + let imm7 : bits 7 := subrange_vec_dec v__7 11 5 in + let imm7 : bits 7 := subrange_vec_dec v__7 11 5 in + let imm5 : bits 5 := subrange_vec_dec v__7 4 0 in + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (imm5 : bits 5) ('b"0100111" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | STORE_FP (v__8, rs2, rs1, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__54 : bool => + (if sumbool_of_bool w__54 then + let imm7 : bits 7 := subrange_vec_dec v__8 11 5 in + let imm7 : bits 7 := subrange_vec_dec v__8 11 5 in + let imm5 : bits 5 := subrange_vec_dec v__8 4 0 in + returnm (concat_vec (imm7 : bits 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"011" : mword 3) + (concat_vec (imm5 : bits 5) ('b"0100111" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__57 : bool => + (if sumbool_of_bool w__57 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000111" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__63 : bool => + (if sumbool_of_bool w__63 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001111" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__69 : bool => + (if sumbool_of_bool w__69 then + returnm (concat_vec ('b"0000000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__72 : bool => + (if sumbool_of_bool w__72 then + returnm (concat_vec ('b"0000100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FMUL_S) => + (is_RV32F_or_RV64F tt) >>= fun w__75 : bool => + (if sumbool_of_bool w__75 then + returnm (concat_vec ('b"0001000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FDIV_S) => + (is_RV32F_or_RV64F tt) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + returnm (concat_vec ('b"0001100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__81 : bool => + (if sumbool_of_bool w__81 then + returnm (concat_vec ('b"0101100" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (is_RV32F_or_RV64F tt) >>= fun w__84 : bool => + (if sumbool_of_bool w__84 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (is_RV32F_or_RV64F tt) >>= fun w__87 : bool => + (if sumbool_of_bool w__87 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (is_RV32F_or_RV64F tt) >>= fun w__90 : bool => + (if sumbool_of_bool w__90 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (is_RV32F_or_RV64F tt) >>= fun w__93 : bool => + (if sumbool_of_bool w__93 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (is_RV64F tt) >>= fun w__96 : bool => + (if sumbool_of_bool w__96 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (is_RV64F tt) >>= fun w__99 : bool => + (if sumbool_of_bool w__99 then + returnm (concat_vec ('b"1100000" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (is_RV64F tt) >>= fun w__102 : bool => + (if sumbool_of_bool w__102 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (is_RV64F tt) >>= fun w__105 : bool => + (if sumbool_of_bool w__105 then + returnm (concat_vec ('b"1101000" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__108 : bool => + (if sumbool_of_bool w__108 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__111 : bool => + (if sumbool_of_bool w__111 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__114 : bool => + (if sumbool_of_bool w__114 then + returnm (concat_vec ('b"0010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__117 : bool => + (if sumbool_of_bool w__117 then + returnm (concat_vec ('b"0010100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__120 : bool => + (if sumbool_of_bool w__120 then + returnm (concat_vec ('b"0010100" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__123 : bool => + (if sumbool_of_bool w__123 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__126 : bool => + (if sumbool_of_bool w__126 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (is_RV32F_or_RV64F tt) >>= fun w__129 : bool => + (if sumbool_of_bool w__129 then + returnm (concat_vec ('b"1010000" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (haveFExt tt) >>= fun w__132 : bool => + (if sumbool_of_bool w__132 then + returnm (concat_vec ('b"1110000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (haveFExt tt) >>= fun w__135 : bool => + (if sumbool_of_bool w__135 then + returnm (concat_vec ('b"1110000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (haveFExt tt) >>= fun w__138 : bool => + (if sumbool_of_bool w__138 then + returnm (concat_vec ('b"1111000" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FMADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__141 : bool => + (if sumbool_of_bool w__141 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FMSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__144 : bool => + (if sumbool_of_bool w__144 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1000111" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FNMSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__147 : bool => + (if sumbool_of_bool w__147 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001011" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FNMADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__150 : bool => + (if sumbool_of_bool w__150 then + returnm (concat_vec (rs3 : mword 5) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1001111" : mword 7))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__153 : bool => + (if sumbool_of_bool w__153 then + returnm (concat_vec ('b"0000001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__156 : bool => + (if sumbool_of_bool w__156 then + returnm (concat_vec ('b"0000101" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FMUL_D) => + (is_RV32D_or_RV64D tt) >>= fun w__159 : bool => + (if sumbool_of_bool w__159 then + returnm (concat_vec ('b"0001001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FDIV_D) => + (is_RV32D_or_RV64D tt) >>= fun w__162 : bool => + (if sumbool_of_bool w__162 then + returnm (concat_vec ('b"0001101" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | DIVW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FSQRT_D) => + (is_RV32D_or_RV64D tt) >>= fun w__165 : bool => + (if sumbool_of_bool w__165 then + returnm (concat_vec ('b"0101101" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | REMW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] : mword 7) - (concat_vec (rs2 : mword 5) - (concat_vec (rs1 : mword 5) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (bool_not_bits_forwards s) - (concat_vec (rd : mword 5) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] : mword 7))))))) - : mword (7 + (5 + (5 + (2 + (1 + (5 + 7))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_W_D) => + (is_RV32D_or_RV64D tt) >>= fun w__168 : bool => + (if sumbool_of_bool w__168 then + returnm (concat_vec ('b"1100001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 32) - | CSR ((csr, rs1, rd, is_imm, op)) => - returnm ((concat_vec (csr : mword 12) - (concat_vec (rs1 : mword 5) - (concat_vec (bool_bits_forwards is_imm) - (concat_vec (encdec_csrop_forwards op) - (concat_vec (rd : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (12 + (5 + (1 + (2 + (5 + 7)))))) - | URET (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword 7) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] : mword 7)))))) - : mword (7 + (5 + (5 + (3 + (5 + 7)))))) - | ILLEGAL (s) => returnm (s : mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_WU_D) => + (is_RV32D_or_RV64D tt) >>= fun w__171 : bool => + (if sumbool_of_bool w__171 then + returnm (concat_vec ('b"1100001" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_W) => + (is_RV32D_or_RV64D tt) >>= fun w__174 : bool => + (if sumbool_of_bool w__174 then + returnm (concat_vec ('b"1101001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_WU) => + (is_RV32D_or_RV64D tt) >>= fun w__177 : bool => + (if sumbool_of_bool w__177 then + returnm (concat_vec ('b"1101001" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_S_D) => + (is_RV32D_or_RV64D tt) >>= fun w__180 : bool => + (if sumbool_of_bool w__180 then + returnm (concat_vec ('b"0100000" : mword 7) + (concat_vec ('b"00001" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_S) => + (is_RV32D_or_RV64D tt) >>= fun w__183 : bool => + (if sumbool_of_bool w__183 then + returnm (concat_vec ('b"0100001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_L_D) => + (is_RV64D tt) >>= fun w__186 : bool => + (if sumbool_of_bool w__186 then + returnm (concat_vec ('b"1100001" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_LU_D) => + (is_RV64D tt) >>= fun w__189 : bool => + (if sumbool_of_bool w__189 then + returnm (concat_vec ('b"1100001" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_L) => + (is_RV64D tt) >>= fun w__192 : bool => + (if sumbool_of_bool w__192 then + returnm (concat_vec ('b"1101001" : mword 7) + (concat_vec ('b"00010" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_LU) => + (is_RV64D tt) >>= fun w__195 : bool => + (if sumbool_of_bool w__195 then + returnm (concat_vec ('b"1101001" : mword 7) + (concat_vec ('b"00011" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec (encdec_rounding_mode_forwards rm) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJ_D) => + (is_RV32D_or_RV64D tt) >>= fun w__198 : bool => + (if sumbool_of_bool w__198 then + returnm (concat_vec ('b"0010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJN_D) => + (is_RV32D_or_RV64D tt) >>= fun w__201 : bool => + (if sumbool_of_bool w__201 then + returnm (concat_vec ('b"0010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJX_D) => + (is_RV32D_or_RV64D tt) >>= fun w__204 : bool => + (if sumbool_of_bool w__204 then + returnm (concat_vec ('b"0010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FMIN_D) => + (is_RV32D_or_RV64D tt) >>= fun w__207 : bool => + (if sumbool_of_bool w__207 then + returnm (concat_vec ('b"0010101" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FMAX_D) => + (is_RV32D_or_RV64D tt) >>= fun w__210 : bool => + (if sumbool_of_bool w__210 then + returnm (concat_vec ('b"0010101" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FEQ_D) => + (is_RV32D_or_RV64D tt) >>= fun w__213 : bool => + (if sumbool_of_bool w__213 then + returnm (concat_vec ('b"1010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"010" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FLT_D) => + (is_RV32D_or_RV64D tt) >>= fun w__216 : bool => + (if sumbool_of_bool w__216 then + returnm (concat_vec ('b"1010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_BIN_TYPE_D (rs2, rs1, rd, FLE_D) => + (is_RV32D_or_RV64D tt) >>= fun w__219 : bool => + (if sumbool_of_bool w__219 then + returnm (concat_vec ('b"1010001" : mword 7) + (concat_vec (rs2 : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_D (rs1, rd, FCLASS_D) => + (haveDExt tt) >>= fun w__222 : bool => + (if sumbool_of_bool w__222 then + returnm (concat_vec ('b"1110001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"001" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_D (rs1, rd, FMV_X_D) => + (is_RV64D tt) >>= fun w__225 : bool => + (if sumbool_of_bool w__225 then + returnm (concat_vec ('b"1110001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | F_UN_TYPE_D (rs1, rd, FMV_D_X) => + (is_RV64D tt) >>= fun w__228 : bool => + (if sumbool_of_bool w__228 then + returnm (concat_vec ('b"1111001" : mword 7) + (concat_vec ('b"00000" : mword 5) + (concat_vec (rs1 : mword 5) + (concat_vec ('b"000" : mword 3) + (concat_vec (rd : mword 5) ('b"1010011" : mword 7)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 32) + | ILLEGAL s => returnm s | _ => assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt end) : M (mword 32). -Definition encdec_backwards (arg_ : mword 32) -: M (ast) := - - let v__7 := arg_ in - let _mappingpatterns_23_ : mword 7 := subrange_vec_dec v__7 6 0 in - (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_23_) : bool)) - ((if ((encdec_uop_backwards_matches _mappingpatterns_23_)) then - (encdec_uop_backwards _mappingpatterns_23_) >>= fun op => returnm ((true : bool) : bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) +Definition encdec_backwards (arg_ : mword 32) : M (ast) := + let v__9 := arg_ in + let _mappingpatterns_59_ : mword 7 := subrange_vec_dec v__9 6 0 in + (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_59_) : bool)) + ((if encdec_uop_backwards_matches _mappingpatterns_59_ then + (encdec_uop_backwards _mappingpatterns_59_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - let imm : mword 20 := subrange_vec_dec v__7 31 12 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 20 := subrange_vec_dec v__7 31 12 in - let _mappingpatterns_23_ : mword 7 := subrange_vec_dec v__7 6 0 in - (encdec_uop_backwards _mappingpatterns_23_) >>= fun op => - returnm ((UTYPE - ((imm, rd, op))) - : ast) - else if ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword (6 - 0 + 1)))) then - let imm_19 : bits 1 := subrange_vec_dec v__7 31 31 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm_8 : bits 1 := subrange_vec_dec v__7 20 20 in - let imm_7_0 : bits 8 := subrange_vec_dec v__7 19 12 in - let imm_19 : bits 1 := subrange_vec_dec v__7 31 31 in - let imm_18_13 : bits 6 := subrange_vec_dec v__7 30 25 in - let imm_12_9 : bits 4 := subrange_vec_dec v__7 24 21 in - returnm ((RISCV_JAL - ((concat_vec (imm_19 : bits 1) - (concat_vec (imm_7_0 : bits 8) - (concat_vec (imm_8 : bits 1) - (concat_vec (imm_18_13 : bits 6) - (concat_vec (imm_12_9 : bits 4) (vec_of_bits [B0] : mword 1))))), rd))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword (6 - 0 + 1))))) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - returnm ((RISCV_JALR - ((imm, rs1, rd))) - : ast) + (if sumbool_of_bool w__1 then + let imm : mword 20 := subrange_vec_dec v__9 31 12 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 20 := subrange_vec_dec v__9 31 12 in + let _mappingpatterns_59_ : mword 7 := subrange_vec_dec v__9 6 0 in + (encdec_uop_backwards _mappingpatterns_59_) >>= fun op => returnm (UTYPE (imm, rd, op)) + else if eq_vec (subrange_vec_dec v__9 6 0) ('b"1101111" : mword (6 - 0 + 1)) then + let imm_19 : bits 1 := subrange_vec_dec v__9 31 31 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm_8 : bits 1 := subrange_vec_dec v__9 20 20 in + let imm_7_0 : bits 8 := subrange_vec_dec v__9 19 12 in + let imm_19 : bits 1 := subrange_vec_dec v__9 31 31 in + let imm_18_13 : bits 6 := subrange_vec_dec v__9 30 25 in + let imm_12_9 : bits 4 := subrange_vec_dec v__9 24 21 in + returnm (RISCV_JAL + (concat_vec (imm_19 : bits 1) + (concat_vec (imm_7_0 : bits 8) + (concat_vec (imm_8 : bits 1) + (concat_vec (imm_18_13 : bits 6) + (concat_vec (imm_12_9 : bits 4) ('b"0" : mword 1))))), rd)) + else if andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"1100111" : mword (6 - 0 + 1))) then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (RISCV_JALR (imm, rs1, rd)) else (and_boolM - (let _mappingpatterns_24_ : mword 3 := subrange_vec_dec v__7 14 12 in - (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_24_) : bool)) - ((if ((encdec_bop_backwards_matches _mappingpatterns_24_)) then - (encdec_bop_backwards _mappingpatterns_24_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (let _mappingpatterns_60_ : mword 3 := subrange_vec_dec v__9 14 12 in + (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_60_) : bool)) + ((if encdec_bop_backwards_matches _mappingpatterns_60_ then + (encdec_bop_backwards _mappingpatterns_60_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - let imm7_6 : bits 1 := subrange_vec_dec v__7 31 31 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let imm7_6 : bits 1 := subrange_vec_dec v__7 31 31 in - let imm7_5_0 : bits 6 := subrange_vec_dec v__7 30 25 in - let imm5_4_1 : bits 4 := subrange_vec_dec v__7 11 8 in - let imm5_0 : bits 1 := subrange_vec_dec v__7 7 7 in - let _mappingpatterns_24_ : mword 3 := subrange_vec_dec v__7 14 12 in - (encdec_bop_backwards _mappingpatterns_24_) >>= fun op => - returnm ((BTYPE - ((concat_vec (imm7_6 : bits 1) - (concat_vec (imm5_0 : bits 1) - (concat_vec (imm7_5_0 : bits 6) - (concat_vec (imm5_4_1 : bits 4) (vec_of_bits [B0] : mword 1)))), rs2, rs1, op))) - : ast) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"1100011" : mword (6 - 0 + 1))) : bool))) >>= fun w__4 : bool => + (if sumbool_of_bool w__4 then + let imm7_6 : bits 1 := subrange_vec_dec v__9 31 31 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let imm7_6 : bits 1 := subrange_vec_dec v__9 31 31 in + let imm7_5_0 : bits 6 := subrange_vec_dec v__9 30 25 in + let imm5_4_1 : bits 4 := subrange_vec_dec v__9 11 8 in + let imm5_0 : bits 1 := subrange_vec_dec v__9 7 7 in + let _mappingpatterns_60_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_bop_backwards _mappingpatterns_60_) >>= fun op => + returnm (BTYPE + (concat_vec (imm7_6 : bits 1) + (concat_vec (imm5_0 : bits 1) + (concat_vec (imm7_5_0 : bits 6) + (concat_vec (imm5_4_1 : bits 4) ('b"0" : mword 1)))), rs2, rs1, op)) else (and_boolM - (let _mappingpatterns_25_ : mword 3 := subrange_vec_dec v__7 14 12 in - (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_25_) : bool)) - ((if ((encdec_iop_backwards_matches _mappingpatterns_25_)) then - (encdec_iop_backwards _mappingpatterns_25_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (let _mappingpatterns_61_ : mword 3 := subrange_vec_dec v__9 14 12 in + (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_61_) : bool)) + ((if encdec_iop_backwards_matches _mappingpatterns_61_ then + (encdec_iop_backwards _mappingpatterns_61_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1))) : bool))) >>= fun w__7 : bool => - (if sumbool_of_bool (w__7) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let _mappingpatterns_25_ : mword 3 := subrange_vec_dec v__7 14 12 in - (encdec_iop_backwards _mappingpatterns_25_) >>= fun op => - returnm ((ITYPE - ((imm, rs1, rd, op))) - : ast) + (if sumbool_of_bool w__7 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_61_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_iop_backwards _mappingpatterns_61_) >>= fun op => + returnm (ITYPE (imm, rs1, rd, op)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SLLI)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SRLI)) + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__9 31 26) ('b"010000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) then + let shamt : mword 6 := subrange_vec_dec v__9 25 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIOP (shamt, rs1, rd, RISCV_SRAI)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_ADD)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"010" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLT)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"011" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLTU)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"111" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_AND)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"110" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_OR)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"100" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_XOR)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SLL)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SRL)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SUB)) + else if andb (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0110011" : mword (6 - 0 + 1)))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPE (rs2, rs1, rd, RISCV_SRA)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__8 : bool => - returnm ((Bool.eqb w__8 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex - (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = true) (simp_0 = - true /\ - (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__10 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__10) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SLLI))) - : ast) + (and_boolM + (let _mappingpatterns_63_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_62_ : mword 1 := subrange_vec_dec v__9 14 14 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_63_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_63_ then + (size_bits_backwards _mappingpatterns_63_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_62_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_62_ then + (bool_bits_backwards _mappingpatterns_62_) >>= fun is_unsigned => + returnm ((orb (Z.ltb (projT1 (word_width_bytes size)) 8) + (andb (negb is_unsigned) + ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool))) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) ('b"0000011" : mword (6 - 0 + 1))) + : bool))) >>= fun w__12 : bool => + (if sumbool_of_bool w__12 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_63_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_62_ : mword 1 := subrange_vec_dec v__9 14 14 in + (size_bits_backwards _mappingpatterns_63_) >>= fun size => + (bool_bits_backwards _mappingpatterns_62_) >>= fun is_unsigned => + returnm (LOAD (imm, rs1, rd, is_unsigned, size, false, false)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__11 : bool => - returnm ((Bool.eqb w__11 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_64_ : mword 2 := subrange_vec_dec v__9 13 12 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_64_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_64_ then + (size_bits_backwards _mappingpatterns_64_) >>= fun size => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) : bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__13 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__13) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SRLI))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 14) ('b"0" : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0100011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__15 : bool => + (if sumbool_of_bool w__15 then + let imm7 : bits 7 := subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_64_ : mword 2 := subrange_vec_dec v__9 13 12 in + (size_bits_backwards _mappingpatterns_64_) >>= fun size => + returnm (STORE + (concat_vec (imm7 : bits 7) (imm5 : bits 5), rs2, rs1, size, false, false)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1))))) + then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (ADDIW (imm, rs1, rd)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SLLI)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SRLI)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTW (shamt, rs1, rd, RISCV_SRAI)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_ADDW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SUBW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SLLW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SRLW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (RTYPEW (rs2, rs1, rd, RISCV_SRAW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + let shamt : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW)) + else if andb (eq_vec (subrange_vec_dec v__9 31 28) (Ox"0" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__9 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + let succ : mword 4 := subrange_vec_dec v__9 23 20 in + let pred : mword 4 := subrange_vec_dec v__9 27 24 in + returnm (FENCE (pred, succ)) + else if andb (eq_vec (subrange_vec_dec v__9 31 28) (Ox"8" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__9 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + let succ : mword 4 := subrange_vec_dec v__9 23 20 in + let pred : mword 4 := subrange_vec_dec v__9 27 24 in + returnm (FENCE_TSO (pred, succ)) + else if eq_vec v__9 (Ox"0000100F" : mword 32) then returnm (FENCEI tt) + else if eq_vec v__9 (Ox"00000073" : mword 32) then returnm (ECALL tt) + else if eq_vec v__9 (Ox"30200073" : mword 32) then returnm (MRET tt) + else if eq_vec v__9 (Ox"10200073" : mword 32) then returnm (SRET tt) + else if eq_vec v__9 (Ox"00100073" : mword 32) then returnm (EBREAK tt) + else if eq_vec v__9 (Ox"10500073" : mword 32) then returnm (WFI tt) + else if andb + (eq_vec (subrange_vec_dec v__9 31 25) ('b"0001001" : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 14 0) + ('b"000000001110011" + : mword (14 - 0 + 1))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + returnm (SFENCE_VMA (rs1, rs2)) else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__14 : bool => - returnm ((Bool.eqb w__14 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_67_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_66_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_65_ : mword 1 := subrange_vec_dec v__9 26 26 in + (and_boolM + (returnm ((size_bits_backwards_matches _mappingpatterns_67_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_67_ then + (size_bits_backwards _mappingpatterns_67_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_66_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_66_ then + (bool_bits_backwards _mappingpatterns_66_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_65_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_65_ then + (bool_bits_backwards _mappingpatterns_65_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 26) - (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword (31 - 26 + 1))) + (eq_vec (subrange_vec_dec v__9 31 27) + ('b"00010" + : mword (31 - 27 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__16 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__16) then - let shamt : mword 6 := subrange_vec_dec v__7 25 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIOP - ((shamt, rs1, rd, RISCV_SRAI))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_ADD))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLT))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLTU))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_AND))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_OR))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_XOR))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SLL))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SRL))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SUB))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPE - ((rs2, rs1, rd, RISCV_SRA))) - : ast) + (eq_vec (subrange_vec_dec v__9 24 20) + ('b"00000" + : mword (24 - 20 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))))) + : bool))) >>= fun w__22 : bool => + (if sumbool_of_bool w__22 then + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_67_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_66_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_65_ : mword 1 := subrange_vec_dec v__9 26 26 in + (size_bits_backwards _mappingpatterns_67_) >>= fun size => + (bool_bits_backwards _mappingpatterns_66_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_65_) >>= fun aq => + returnm (LOADRES (aq, rl, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_27_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_26_ : mword 1 := subrange_vec_dec v__7 14 14 in + (let _mappingpatterns_70_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_69_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_68_ : mword 1 := subrange_vec_dec v__9 26 26 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_27_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_27_)) then - (size_bits_backwards _mappingpatterns_27_) >>= fun size => + (returnm ((size_bits_backwards_matches _mappingpatterns_70_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_70_ then + (size_bits_backwards _mappingpatterns_70_) >>= fun size => (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_26_) + (returnm ((bool_bits_backwards_matches _mappingpatterns_69_) : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_26_)) then - (bool_bits_backwards _mappingpatterns_26_) >>= fun is_unsigned => - returnm (((orb (Z.ltb (projT1 (word_width_bytes size)) 8) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 8) - : bool))) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__18 : bool => - returnm ((w__18 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_bits_backwards_matches _mappingpatterns_69_ then + (bool_bits_backwards _mappingpatterns_69_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_68_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_68_ then + (bool_bits_backwards _mappingpatterns_68_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__21 : bool => - (if sumbool_of_bool (w__21) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let _mappingpatterns_27_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_26_ : mword 1 := subrange_vec_dec v__7 14 14 in - (size_bits_backwards _mappingpatterns_27_) >>= fun size => - (bool_bits_backwards _mappingpatterns_26_) >>= fun is_unsigned => - returnm ((LOAD - ((imm, rs1, rd, is_unsigned, size, false, false))) - : ast) + (returnm ((andb + (eq_vec (subrange_vec_dec v__9 31 27) + ('b"00011" + : mword (31 - 27 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__29 : bool => + (if sumbool_of_bool w__29 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_70_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_69_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_68_ : mword 1 := subrange_vec_dec v__9 26 26 in + (size_bits_backwards _mappingpatterns_70_) >>= fun size => + (bool_bits_backwards _mappingpatterns_69_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_68_) >>= fun aq => + returnm (STORECON (aq, rl, rs2, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_28_ : mword 2 := subrange_vec_dec v__7 13 12 in + (let _mappingpatterns_71_ : mword 5 := subrange_vec_dec v__9 31 27 in + let _mappingpatterns_74_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_73_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_72_ : mword 1 := subrange_vec_dec v__9 26 26 in + let _mappingpatterns_71_ : mword 5 := subrange_vec_dec v__9 31 27 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_28_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_28_)) then - (size_bits_backwards _mappingpatterns_28_) >>= fun size => - returnm (((Z.leb (projT1 (word_width_bytes size)) 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (returnm ((size_bits_backwards_matches _mappingpatterns_74_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_74_ then + (size_bits_backwards _mappingpatterns_74_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_73_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_73_ then + (bool_bits_backwards _mappingpatterns_73_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_72_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_72_ + then + (bool_bits_backwards _mappingpatterns_72_) >>= fun aq => + (and_boolM + (returnm ((encdec_amoop_backwards_matches + _mappingpatterns_71_) + : bool)) + ((if encdec_amoop_backwards_matches + _mappingpatterns_71_ then + (encdec_amoop_backwards _mappingpatterns_71_) >>= fun op => + returnm ((Z.leb + (projT1 + (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1)))) - : bool))) >>= fun w__24 : bool => - (if sumbool_of_bool (w__24) then - let imm7 : bits 7 := subrange_vec_dec v__7 31 25 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let imm7 : bits 7 := subrange_vec_dec v__7 31 25 in - let imm5 : bits 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_28_ : mword 2 := subrange_vec_dec v__7 13 12 in - (size_bits_backwards _mappingpatterns_28_) >>= fun size => - returnm ((STORE - ((concat_vec (imm7 : bits 7) (imm5 : bits 5), rs2, rs1, size, false, false))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1)))))) then - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let imm : mword 12 := subrange_vec_dec v__7 31 20 in - returnm ((ADDIW - ((imm, rs1, rd))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SLLI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SRLI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTW - ((shamt, rs1, rd, RISCV_SRAI))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_ADDW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SUBW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SLLW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SRLW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((RTYPEW - ((rs2, rs1, rd, RISCV_SRAW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SLLIW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SRLIW))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - let shamt : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((SHIFTIWOP - ((shamt, rs1, rd, RISCV_SRAIW))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 28) - (vec_of_bits [B0;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__7 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - let succ : mword 4 := subrange_vec_dec v__7 23 20 in - let pred : mword 4 := subrange_vec_dec v__7 27 24 in - returnm ((FENCE - ((pred, succ))) - : ast) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 28) - (vec_of_bits [B1;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__7 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - let succ : mword 4 := subrange_vec_dec v__7 23 20 in - let pred : mword 4 := subrange_vec_dec v__7 27 24 in - returnm ((FENCE_TSO - ((pred, succ))) - : ast) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0; - B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword 32))) then - returnm ((FENCEI - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((ECALL - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((MRET - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((SRET - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((EBREAK - (tt)) - : ast ) - else if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm ((WFI - (tt)) - : ast ) - else if ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__7 14 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword (14 - 0 + 1))))) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - returnm ((SFENCE_VMA - ((rs1, rs2))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__38 : bool => + (if sumbool_of_bool w__38 then + let _mappingpatterns_71_ : mword 5 := subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_74_ : mword 2 := subrange_vec_dec v__9 13 12 in + let _mappingpatterns_73_ : mword 1 := subrange_vec_dec v__9 25 25 in + let _mappingpatterns_72_ : mword 1 := subrange_vec_dec v__9 26 26 in + let _mappingpatterns_71_ : mword 5 := subrange_vec_dec v__9 31 27 in + (size_bits_backwards _mappingpatterns_74_) >>= fun size => + (bool_bits_backwards _mappingpatterns_73_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_72_) >>= fun aq => + (encdec_amoop_backwards _mappingpatterns_71_) >>= fun op => + returnm (AMO (op, aq, rl, rs2, rs1, size, rd)) else (and_boolM - (let _mappingpatterns_31_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_30_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_29_ : mword 1 := subrange_vec_dec v__7 26 26 in + (let _mappingpatterns_75_ : mword 3 := subrange_vec_dec v__9 14 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_31_) + (returnm ((encdec_mul_op_backwards_matches _mappingpatterns_75_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_31_)) then - (size_bits_backwards _mappingpatterns_31_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_30_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_30_)) - then - (bool_bits_backwards _mappingpatterns_30_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_29_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_29_)) then - (bool_bits_backwards _mappingpatterns_29_) >>= fun aq => - returnm (((Z.leb (projT1 (word_width_bytes size)) - 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__26 : bool => - returnm ((w__26 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__28 : bool => - returnm ((w__28 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_mul_op_backwards_matches _mappingpatterns_75_ then + (encdec_mul_op_backwards _mappingpatterns_75_) >>= fun '(high, signed1, signed2) => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 27) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (31 - 27 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 24 20) - (vec_of_bits [B0;B0;B0;B0;B0] - : mword (24 - 20 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))))) - : bool))) >>= fun w__31 : bool => - (if sumbool_of_bool (w__31) then - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_31_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_30_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_29_ : mword 1 := subrange_vec_dec v__7 26 26 in - (size_bits_backwards _mappingpatterns_31_) >>= fun size => - (bool_bits_backwards _mappingpatterns_30_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_29_) >>= fun aq => - returnm ((LOADRES - ((aq, rl, rs1, size, rd))) - : ast) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__41 : bool => + (if sumbool_of_bool w__41 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_75_ : mword 3 := subrange_vec_dec v__9 14 12 in + (encdec_mul_op_backwards _mappingpatterns_75_) >>= fun '(high, signed1, signed2) => + returnm (MUL (rs2, rs1, rd, high, signed1, signed2)) else (and_boolM - (let _mappingpatterns_34_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_33_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_32_ : mword 1 := subrange_vec_dec v__7 26 26 in + (let _mappingpatterns_76_ : mword 1 := subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_34_) + (returnm ((bool_not_bits_backwards_matches _mappingpatterns_76_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_34_)) then - (size_bits_backwards _mappingpatterns_34_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_33_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_33_)) - then - (bool_bits_backwards _mappingpatterns_33_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_32_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_32_)) then - (bool_bits_backwards _mappingpatterns_32_) >>= fun aq => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__33 : bool => - returnm ((w__33 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__35 : bool => - returnm ((w__35 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_76_ then + (bool_not_bits_backwards _mappingpatterns_76_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 27) - (vec_of_bits [B0;B0;B0;B1;B1] - : mword (31 - 27 + 1))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__38 : bool => - (if sumbool_of_bool (w__38) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_34_ : mword 2 := subrange_vec_dec v__7 13 12 in - let _mappingpatterns_33_ : mword 1 := subrange_vec_dec v__7 25 25 in - let _mappingpatterns_32_ : mword 1 := subrange_vec_dec v__7 26 26 in - (size_bits_backwards _mappingpatterns_34_) >>= fun size => - (bool_bits_backwards _mappingpatterns_33_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_32_) >>= fun aq => - returnm ((STORECON - ((aq, rl, rs2, rs1, size, rd))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__44 : bool => + (if sumbool_of_bool w__44 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_76_ : mword 1 := subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_76_) >>= fun s => + returnm (DIV (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - let _mappingpatterns_38_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_37_ : mword 1 := - subrange_vec_dec v__7 25 25 in - let _mappingpatterns_36_ : mword 1 := - subrange_vec_dec v__7 26 26 in - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in + (let _mappingpatterns_77_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_38_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_77_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_38_)) + ((if bool_not_bits_backwards_matches _mappingpatterns_77_ then - (size_bits_backwards _mappingpatterns_38_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_37_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_37_)) then - (bool_bits_backwards _mappingpatterns_37_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_36_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_36_)) then - (bool_bits_backwards _mappingpatterns_36_) >>= fun aq => - (and_boolM - (returnm ((encdec_amoop_backwards_matches - _mappingpatterns_35_) - : bool)) - ((if ((encdec_amoop_backwards_matches - _mappingpatterns_35_)) then - (encdec_amoop_backwards - _mappingpatterns_35_) >>= fun op => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) - 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__40 : bool => - returnm ((w__40 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__42 : bool => - returnm ((w__42 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__44 : bool => - returnm ((w__44 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (bool_not_bits_backwards _mappingpatterns_77_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__47 : bool => - (if sumbool_of_bool (w__47) then - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_38_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_37_ : mword 1 := - subrange_vec_dec v__7 25 25 in - let _mappingpatterns_36_ : mword 1 := - subrange_vec_dec v__7 26 26 in - let _mappingpatterns_35_ : mword 5 := - subrange_vec_dec v__7 31 27 in - (size_bits_backwards _mappingpatterns_38_) >>= fun size => - (bool_bits_backwards _mappingpatterns_37_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_36_) >>= fun aq => - (encdec_amoop_backwards _mappingpatterns_35_) >>= fun op => - returnm ((AMO - ((op, aq, rl, rs2, rs1, size, rd))) - : ast) + (if sumbool_of_bool w__47 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_77_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_77_) >>= fun s => + returnm (REM (rs2, rs1, rd, s)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1)))))) then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + returnm (MULW (rs2, rs1, rd)) else (and_boolM - (let _mappingpatterns_39_ : mword 3 := - subrange_vec_dec v__7 14 12 in + (let _mappingpatterns_78_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM - (returnm ((encdec_mul_op_backwards_matches - _mappingpatterns_39_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_78_) : bool)) - ((if ((encdec_mul_op_backwards_matches - _mappingpatterns_39_)) then - (encdec_mul_op_backwards _mappingpatterns_39_) >>= fun '(high, signed1, signed2) => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_78_ + then + (bool_not_bits_backwards _mappingpatterns_78_) >>= fun s => + returnm ((Z.eqb 64 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__50 : bool => - (if sumbool_of_bool (w__50) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_39_ : mword 3 := - subrange_vec_dec v__7 14 12 in - (encdec_mul_op_backwards _mappingpatterns_39_) >>= fun '(high, signed1, signed2) => - returnm ((MUL - ((rs2, rs1, rd, high, signed1, signed2))) - : ast) + (if sumbool_of_bool w__50 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_78_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_78_) >>= fun s => + returnm (DIVW (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_40_ : mword 1 := - subrange_vec_dec v__7 12 12 in + (let _mappingpatterns_79_ : mword 1 := + subrange_vec_dec v__9 12 12 in (and_boolM (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_40_) + _mappingpatterns_79_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_40_)) then - (bool_not_bits_backwards _mappingpatterns_40_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches + _mappingpatterns_79_ then + (bool_not_bits_backwards _mappingpatterns_79_) >>= fun s => + returnm ((Z.eqb 64 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__9 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) + (eq_vec (subrange_vec_dec v__9 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__53 : bool => - (if sumbool_of_bool (w__53) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_40_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_40_) >>= fun s => - returnm ((DIV - ((rs2, rs1, rd, s))) - : ast) + (if sumbool_of_bool w__53 then + let rs2 : mword 5 := subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let _mappingpatterns_79_ : mword 1 := + subrange_vec_dec v__9 12 12 in + (bool_not_bits_backwards _mappingpatterns_79_) >>= fun s => + returnm (REMW (rs2, rs1, rd, s)) else (and_boolM - (let _mappingpatterns_41_ : mword 1 := - subrange_vec_dec v__7 12 12 in + (let _mappingpatterns_81_ : mword 2 := + subrange_vec_dec v__9 13 12 in + let _mappingpatterns_80_ : mword 1 := + subrange_vec_dec v__9 14 14 in (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_41_) + (returnm ((encdec_csrop_backwards_matches + _mappingpatterns_81_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_41_)) then - (bool_not_bits_backwards _mappingpatterns_41_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_csrop_backwards_matches + _mappingpatterns_81_ then + (encdec_csrop_backwards _mappingpatterns_81_) >>= fun op => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_80_) + : bool)) + ((if bool_bits_backwards_matches + _mappingpatterns_80_ then + (bool_bits_backwards _mappingpatterns_80_) >>= fun is_imm => + returnm (true : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__56 : bool => - (if sumbool_of_bool (w__56) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_41_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_41_) >>= fun s => - returnm ((REM - ((rs2, rs1, rd, s))) - : ast) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec - (subrange_vec_dec v__7 - 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec - v__7 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec - (subrange_vec_dec - v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) - then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - returnm ((MULW - ((rs2, rs1, rd))) - : ast) + (returnm ((eq_vec (subrange_vec_dec v__9 6 0) + ('b"1110011" + : mword (6 - 0 + 1))) + : bool))) >>= fun w__58 : bool => + (if sumbool_of_bool w__58 then + let csr : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let csr : mword 12 := subrange_vec_dec v__9 31 20 in + let _mappingpatterns_81_ : mword 2 := + subrange_vec_dec v__9 13 12 in + let _mappingpatterns_80_ : mword 1 := + subrange_vec_dec v__9 14 14 in + (encdec_csrop_backwards _mappingpatterns_81_) >>= fun op => + (bool_bits_backwards _mappingpatterns_80_) >>= fun is_imm => + returnm (CSR (csr, rs1, rd, is_imm, op)) + else if eq_vec v__9 (Ox"00200073" : mword 32) then + returnm (URET tt) else - (and_boolM - (let _mappingpatterns_42_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_42_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_42_)) then - (bool_not_bits_backwards _mappingpatterns_42_) >>= fun s => - returnm (((Z.eqb 64 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__59 : bool => - (if sumbool_of_bool (w__59) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_42_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_42_) >>= fun s => - returnm ((DIVW - ((rs2, rs1, rd, s))) - : ast) + (eq_vec (subrange_vec_dec v__9 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (LOAD_FP (imm, rs1, rd, WORD)) else - (and_boolM - (let _mappingpatterns_43_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_43_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_43_)) then - (bool_not_bits_backwards - _mappingpatterns_43_) >>= fun s => - returnm (((Z.eqb 64 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32D_or_RV64D tt) : M (bool)) (returnm ((andb (eq_vec - (subrange_vec_dec v__7 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__7 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__7 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) + (subrange_vec_dec v__9 14 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__9 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) : bool))) >>= fun w__62 : bool => - (if sumbool_of_bool (w__62) then - let rs2 : mword 5 := subrange_vec_dec v__7 24 20 in - let rs1 : mword 5 := subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let _mappingpatterns_43_ : mword 1 := - subrange_vec_dec v__7 12 12 in - (bool_not_bits_backwards _mappingpatterns_43_) >>= fun s => - returnm ((REMW - ((rs2, rs1, rd, s))) - : ast) + (if sumbool_of_bool w__62 then + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + let rs1 : mword 5 := subrange_vec_dec v__9 19 15 in + let rd : mword 5 := subrange_vec_dec v__9 11 7 in + let imm : mword 12 := subrange_vec_dec v__9 31 20 in + returnm (LOAD_FP (imm, rs1, rd, DOUBLE)) else - (and_boolM - (let _mappingpatterns_45_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_44_ : mword 1 := - subrange_vec_dec v__7 14 14 in - (and_boolM - (returnm ((encdec_csrop_backwards_matches - _mappingpatterns_45_) - : bool)) - ((if ((encdec_csrop_backwards_matches - _mappingpatterns_45_)) then - (encdec_csrop_backwards - _mappingpatterns_45_) >>= fun op => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_44_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_44_)) then - (bool_bits_backwards - _mappingpatterns_44_) >>= fun is_imm => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__64 : bool => - returnm ((w__64 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__7 6 0) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))) - : bool))) >>= fun w__67 : bool => - (if sumbool_of_bool (w__67) then - let csr : mword 12 := - subrange_vec_dec v__7 31 20 in + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__64 : bool => + (if sumbool_of_bool w__64 then + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in let rs1 : mword 5 := - subrange_vec_dec v__7 19 15 in - let rd : mword 5 := subrange_vec_dec v__7 11 7 in - let csr : mword 12 := - subrange_vec_dec v__7 31 20 in - let _mappingpatterns_45_ : mword 2 := - subrange_vec_dec v__7 13 12 in - let _mappingpatterns_44_ : mword 1 := - subrange_vec_dec v__7 14 14 in - (encdec_csrop_backwards _mappingpatterns_45_) >>= fun op => - (bool_bits_backwards _mappingpatterns_44_) >>= fun is_imm => - returnm ((CSR - ((csr, rs1, rd, is_imm, op))) - : ast) + subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := + subrange_vec_dec v__9 11 7 in + returnm (STORE_FP + (concat_vec (imm7 : bits 7) + (imm5 + : bits 5), rs2, rs1, WORD)) else - returnm ((if ((eq_vec v__7 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - URET - (tt) - else ILLEGAL (v__7)) - : ast)) + (and_boolM + ((is_RV32D_or_RV64D tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 14 + 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let imm7 : bits 7 := + subrange_vec_dec v__9 31 25 in + let imm5 : bits 5 := + subrange_vec_dec v__9 11 7 in + returnm (STORE_FP + (concat_vec (imm7 : bits 7) + (imm5 + : bits 5), rs2, rs1, DOUBLE)) + else + (and_boolM + (let _mappingpatterns_82_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_82_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_82_ then + (encdec_rounding_mode_backwards + _mappingpatterns_82_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__9 + 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec v__9 6 + 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__70 : bool => + (if sumbool_of_bool w__70 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_82_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_82_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FMADD_S)) + else + (and_boolM + (let _mappingpatterns_83_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_83_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_83_ then + (encdec_rounding_mode_backwards + _mappingpatterns_83_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__74 : bool => + (if sumbool_of_bool w__74 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_83_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_83_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FMSUB_S)) + else + (and_boolM + (let _mappingpatterns_84_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_84_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_84_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_84_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_84_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_84_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FNMSUB_S)) + else + (and_boolM + (let _mappingpatterns_85_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_85_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_85_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_85_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__82 : bool => + (if sumbool_of_bool w__82 then + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs3 : mword 5 := + subrange_vec_dec v__9 31 27 in + let rs2 : mword 5 := + subrange_vec_dec v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_85_ : mword 3 := + subrange_vec_dec v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_85_) >>= fun rm => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, FNMADD_S)) + else + (and_boolM + (let _mappingpatterns_86_ : mword 3 := + subrange_vec_dec v__9 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_86_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_86_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_86_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 31 + 25) + ('b"0000000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__86 : bool => + (if sumbool_of_bool w__86 then + let rs2 : mword 5 := + subrange_vec_dec v__9 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 19 + 15 in + let rd : mword 5 := + subrange_vec_dec v__9 11 7 in + let _mappingpatterns_86_ : mword 3 := + subrange_vec_dec v__9 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_86_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FADD_S)) + else + (and_boolM + (let _mappingpatterns_87_ : mword 3 := + subrange_vec_dec v__9 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_87_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_87_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_87_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 25) + ('b"0000100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__90 : bool => + (if sumbool_of_bool + w__90 then + let rs2 : mword 5 := + subrange_vec_dec v__9 + 24 20 in + let rs1 : mword 5 := + subrange_vec_dec v__9 + 19 15 in + let rd : mword 5 := + subrange_vec_dec v__9 + 11 7 in + let _mappingpatterns_87_ : mword 3 := + subrange_vec_dec v__9 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_87_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FSUB_S)) + else + (and_boolM + (let _mappingpatterns_88_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_88_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_88_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_88_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__94 : bool => + (if sumbool_of_bool + w__94 then + let rs2 : mword 5 := + subrange_vec_dec + v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_88_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_88_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FMUL_S)) + else + (and_boolM + (let _mappingpatterns_89_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_89_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_89_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_89_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__98 : bool => + (if sumbool_of_bool + w__98 then + let rs2 : mword 5 := + subrange_vec_dec + v__9 24 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_89_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_89_) >>= fun rm => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, FDIV_S)) + else + (and_boolM + (let _mappingpatterns_90_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_90_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_90_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_90_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"580" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__102 : bool => + (if sumbool_of_bool + w__102 then + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_90_ : mword 3 := + subrange_vec_dec + v__9 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_90_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S)) + else + (and_boolM + (let _mappingpatterns_91_ : mword 3 := + subrange_vec_dec + v__9 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_91_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_91_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_91_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__106 : bool => + (if sumbool_of_bool + w__106 then + let rs1 : mword 5 := + subrange_vec_dec + v__9 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 11 7 in + let _mappingpatterns_91_ : mword 3 := + subrange_vec_dec + v__9 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_91_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S)) + else + (and_boolM + (let _mappingpatterns_92_ : mword 3 := + subrange_vec_dec + v__9 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_92_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_92_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_92_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__110 : bool => + (if sumbool_of_bool + w__110 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 7 in + let _mappingpatterns_92_ : mword 3 := + subrange_vec_dec + v__9 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_92_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S)) + else + (and_boolM + (let _mappingpatterns_93_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_93_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_93_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_93_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__114 : bool => + (if sumbool_of_bool + w__114 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_93_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_93_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W)) + else + (and_boolM + (let _mappingpatterns_94_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_94_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_94_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_94_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__118 : bool => + (if sumbool_of_bool + w__118 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_94_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_94_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU)) + else + (and_boolM + (let _mappingpatterns_95_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_95_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_95_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_95_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__122 : bool => + (if sumbool_of_bool + w__122 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_95_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_95_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S)) + else + (and_boolM + (let _mappingpatterns_96_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_96_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_96_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_96_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__126 : bool => + (if + sumbool_of_bool + w__126 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_96_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_96_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S)) + else + (and_boolM + (let _mappingpatterns_97_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_97_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_97_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_97_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__130 : bool => + (if + sumbool_of_bool + w__130 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_97_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_97_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L)) + else + (and_boolM + (let _mappingpatterns_98_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_98_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_98_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_98_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__134 : bool => + (if + sumbool_of_bool + w__134 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_98_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_98_) >>= fun rm => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__136 : bool => + (if + sumbool_of_bool + w__136 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__138 : bool => + (if + sumbool_of_bool + w__138 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__140 : bool => + (if + sumbool_of_bool + w__140 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__142 : bool => + (if + sumbool_of_bool + w__142 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__144 : bool => + (if + sumbool_of_bool + w__144 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__146 : bool => + (if + sumbool_of_bool + w__146 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__148 : bool => + (if + sumbool_of_bool + w__148 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S)) + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__150 : bool => + (if + sumbool_of_bool + w__150 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__152 : bool => + (if + sumbool_of_bool + w__152 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_S + (rs1, rd, FCLASS_S)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__154 : bool => + (if + sumbool_of_bool + w__154 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_S + (rs1, rd, FMV_X_W)) + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"F00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__156 : bool => + (if + sumbool_of_bool + w__156 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_S + (rs1, rd, FMV_W_X)) + else + (and_boolM + (let _mappingpatterns_99_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_99_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_99_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_99_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__160 : bool => + (if + sumbool_of_bool + w__160 + then + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_99_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_99_) >>= fun rm => + returnm (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, FMADD_D)) + else + (and_boolM + (let _mappingpatterns_100_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_100_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_100_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_100_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__164 : bool => + (if + sumbool_of_bool + w__164 + then + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_100_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_100_) >>= fun rm => + returnm (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, FMSUB_D)) + else + (and_boolM + (let _mappingpatterns_101_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_101_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_101_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_101_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__168 : bool => + (if + sumbool_of_bool + w__168 + then + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_101_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_101_) >>= fun rm => + returnm (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, FNMSUB_D)) + else + (and_boolM + (let _mappingpatterns_102_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_102_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_102_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_102_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__172 : bool => + (if + sumbool_of_bool + w__172 + then + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs3 : mword 5 := + subrange_vec_dec + v__9 + 31 + 27 in + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_102_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_102_) >>= fun rm => + returnm (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, FNMADD_D)) + else + (and_boolM + (let _mappingpatterns_103_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_103_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_103_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_103_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__176 : bool => + (if + sumbool_of_bool + w__176 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_103_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_103_) >>= fun rm => + returnm (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, FADD_D)) + else + (and_boolM + (let _mappingpatterns_104_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_104_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_104_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_104_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0000101" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__180 : bool => + (if + sumbool_of_bool + w__180 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_104_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_104_) >>= fun rm => + returnm (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, FSUB_D)) + else + (and_boolM + (let _mappingpatterns_105_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_105_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_105_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_105_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001001" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__184 : bool => + (if + sumbool_of_bool + w__184 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_105_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_105_) >>= fun rm => + returnm (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, FMUL_D)) + else + (and_boolM + (let _mappingpatterns_106_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_106_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_106_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_106_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0001101" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__188 : bool => + (if + sumbool_of_bool + w__188 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_106_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_106_) >>= fun rm => + returnm (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, FDIV_D)) + else + (and_boolM + (let _mappingpatterns_107_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_107_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_107_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_107_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"5A0" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__192 : bool => + (if + sumbool_of_bool + w__192 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_107_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_107_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FSQRT_D)) + else + (and_boolM + (let _mappingpatterns_108_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_108_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_108_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_108_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C20" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__196 : bool => + (if + sumbool_of_bool + w__196 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_108_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_108_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_W_D)) + else + (and_boolM + (let _mappingpatterns_109_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_109_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_109_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_109_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C21" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__200 : bool => + (if + sumbool_of_bool + w__200 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_109_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_109_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_WU_D)) + else + (and_boolM + (let _mappingpatterns_110_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_110_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_110_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_110_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D20" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__204 : bool => + (if + sumbool_of_bool + w__204 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_110_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_110_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_W)) + else + (and_boolM + (let _mappingpatterns_111_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_111_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_111_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_111_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D21" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__208 : bool => + (if + sumbool_of_bool + w__208 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_111_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_111_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_WU)) + else + (and_boolM + (let _mappingpatterns_112_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_112_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_112_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_112_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"401" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__212 : bool => + (if + sumbool_of_bool + w__212 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_112_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_112_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_S_D)) + else + (and_boolM + (let _mappingpatterns_113_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_113_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_113_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_113_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"420" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__216 : bool => + (if + sumbool_of_bool + w__216 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_113_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_113_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_S)) + else + (and_boolM + (let _mappingpatterns_114_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_114_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_114_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_114_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C22" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__220 : bool => + (if + sumbool_of_bool + w__220 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_114_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_114_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_L_D)) + else + (and_boolM + (let _mappingpatterns_115_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_115_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_115_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_115_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"C23" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__224 : bool => + (if + sumbool_of_bool + w__224 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_115_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_115_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_LU_D)) + else + (and_boolM + (let _mappingpatterns_116_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_116_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_116_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_116_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D22" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__228 : bool => + (if + sumbool_of_bool + w__228 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_116_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_116_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_L)) + else + (and_boolM + (let _mappingpatterns_117_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_117_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_117_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_117_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"D23" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__232 : bool => + (if + sumbool_of_bool + w__232 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + let _mappingpatterns_117_ : mword 3 := + subrange_vec_dec + v__9 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_117_) >>= fun rm => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_LU)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__234 : bool => + (if + sumbool_of_bool + w__234 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJ_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__236 : bool => + (if + sumbool_of_bool + w__236 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJN_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__238 : bool => + (if + sumbool_of_bool + w__238 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJX_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010101" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__240 : bool => + (if + sumbool_of_bool + w__240 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FMIN_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"0010101" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__242 : bool => + (if + sumbool_of_bool + w__242 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FMAX_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__244 : bool => + (if + sumbool_of_bool + w__244 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FEQ_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__246 : bool => + (if + sumbool_of_bool + w__246 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FLT_D)) + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__248 : bool => + (if + sumbool_of_bool + w__248 + then + let rs2 : mword 5 := + subrange_vec_dec + v__9 + 24 + 20 in + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FLE_D)) + else + (and_boolM + ((haveDExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__250 : bool => + (if + sumbool_of_bool + w__250 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_D + (rs1, rd, FCLASS_D)) + else + (and_boolM + ((is_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"E20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__252 : bool => + (if + sumbool_of_bool + w__252 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + returnm (F_UN_TYPE_D + (rs1, rd, FMV_X_D)) + else + (and_boolM + ((is_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__9 + 31 + 20) + (Ox"F20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__9 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__9 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__254 : bool => + returnm (if + sumbool_of_bool + w__254 + then + let rs1 : mword 5 := + subrange_vec_dec + v__9 + 19 + 15 in + let rd : mword 5 := + subrange_vec_dec + v__9 + 11 + 7 in + F_UN_TYPE_D + (rs1, rd, FMV_D_X) + else + ILLEGAL + v__9)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) : M (ast)) : M (ast)) : M (ast)) @@ -19128,1280 +23280,3541 @@ Definition encdec_backwards (arg_ : mword 32) : M (ast)) : M (ast). -Definition encdec_forwards_matches (arg_ : ast) -: bool := - - match arg_ with - | UTYPE ((imm, rd, op)) => true - | RISCV_JAL ((v__220, rd)) => - if ((eq_vec (subrange_vec_dec v__220 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then true - else false - | RISCV_JALR ((imm, rs1, rd)) => true - | BTYPE ((v__222, rs2, rs1, op)) => - if ((eq_vec (subrange_vec_dec v__222 0 0) (vec_of_bits [B0] : mword (0 - 0 + 1)))) then true - else false - | ITYPE ((imm, rs1, rd, op)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SLLI)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRLI)) => true - | SHIFTIOP ((shamt, rs1, rd, RISCV_SRAI)) => true - | RTYPE ((rs2, rs1, rd, RISCV_ADD)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLT)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLTU)) => true - | RTYPE ((rs2, rs1, rd, RISCV_AND)) => true - | RTYPE ((rs2, rs1, rd, RISCV_OR)) => true - | RTYPE ((rs2, rs1, rd, RISCV_XOR)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SLL)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SRL)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SUB)) => true - | RTYPE ((rs2, rs1, rd, RISCV_SRA)) => true - | LOAD ((imm, rs1, rd, is_unsigned, size, false, false)) => - if sumbool_of_bool ((orb (Z.ltb (projT1 (word_width_bytes size)) 8) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 8) - : bool)))) then - true - else false - | STORE ((v__224, rs2, rs1, size, false, false)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then true else false - | ADDIW ((imm, rs1, rd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SLLI)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SRLI)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTW ((shamt, rs1, rd, RISCV_SRAI)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_ADDW)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SUBW)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SLLW)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SRLW)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, RISCV_SRAW)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SLLIW)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRLIW)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, RISCV_SRAIW)) => - if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | FENCE ((pred, succ)) => true - | FENCE_TSO ((pred, succ)) => true - | FENCEI (tt) => true - | ECALL (tt) => true - | MRET (tt) => true - | SRET (tt) => true - | EBREAK (tt) => true - | WFI (tt) => true - | SFENCE_VMA ((rs1, rs2)) => true - | LOADRES ((aq, rl, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then true else false - | STORECON ((aq, rl, rs2, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then true else false - | AMO ((op, aq, rl, rs2, rs1, size, rd)) => - if sumbool_of_bool ((Z.leb (projT1 (word_width_bytes size)) 8)) then true else false - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => true - | DIV ((rs2, rs1, rd, s)) => true - | REM ((rs2, rs1, rd, s)) => true - | MULW ((rs2, rs1, rd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | DIVW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | REMW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | CSR ((csr, rs1, rd, is_imm, op)) => true - | URET (tt) => true - | ILLEGAL (s) => true - | _ => false - end. +Definition encdec_forwards_matches (arg_ : ast) : M (bool) := + (match arg_ with + | UTYPE (imm, rd, op) => returnm true + | RISCV_JAL (v__456, rd) => + returnm (if eq_vec (subrange_vec_dec v__456 0 0) ('b"0" : mword (0 - 0 + 1)) then true + else false) + | RISCV_JALR (imm, rs1, rd) => returnm true + | BTYPE (v__458, rs2, rs1, op) => + returnm (if eq_vec (subrange_vec_dec v__458 0 0) ('b"0" : mword (0 - 0 + 1)) then true + else false) + | ITYPE (imm, rs1, rd, op) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SLLI) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SRLI) => returnm true + | SHIFTIOP (shamt, rs1, rd, RISCV_SRAI) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_ADD) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLT) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLTU) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_AND) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_OR) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_XOR) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SLL) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SRL) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SUB) => returnm true + | RTYPE (rs2, rs1, rd, RISCV_SRA) => returnm true + | LOAD (imm, rs1, rd, is_unsigned, size, false, false) => + returnm (if sumbool_of_bool + (orb (Z.ltb (projT1 (word_width_bytes size)) 8) + (andb (negb is_unsigned) ((Z.leb (projT1 (word_width_bytes size)) 8) : bool))) + then + true + else false) + | STORE (v__460, rs2, rs1, size, false, false) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then true else false) + | ADDIW (imm, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SLLI) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SRLI) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTW (shamt, rs1, rd, RISCV_SRAI) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_ADDW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SUBW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SLLW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SRLW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | RTYPEW (rs2, rs1, rd, RISCV_SRAW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SLLIW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRLIW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | SHIFTIWOP (shamt, rs1, rd, RISCV_SRAIW) => + returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | FENCE (pred, succ) => returnm true + | FENCE_TSO (pred, succ) => returnm true + | FENCEI tt => returnm true + | ECALL tt => returnm true + | MRET tt => returnm true + | SRET tt => returnm true + | EBREAK tt => returnm true + | WFI tt => returnm true + | SFENCE_VMA (rs1, rs2) => returnm true + | LOADRES (aq, rl, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then true else false) + | STORECON (aq, rl, rs2, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then true else false) + | AMO (op, aq, rl, rs2, rs1, size, rd) => + returnm (if sumbool_of_bool (Z.leb (projT1 (word_width_bytes size)) 8) then true else false) + | MUL (rs2, rs1, rd, high, signed1, signed2) => returnm true + | DIV (rs2, rs1, rd, s) => returnm true + | REM (rs2, rs1, rd, s) => returnm true + | MULW (rs2, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | DIVW (rs2, rs1, rd, s) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | REMW (rs2, rs1, rd, s) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | CSR (csr, rs1, rd, is_imm, op) => returnm true + | URET tt => returnm true + | LOAD_FP (imm, rs1, rd, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__0 : bool => + returnm (if sumbool_of_bool w__0 then true else false) + | LOAD_FP (imm, rs1, rd, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__1 : bool => + returnm (if sumbool_of_bool w__1 then true else false) + | STORE_FP (v__461, rs2, rs1, WORD) => + (is_RV32F_or_RV64F tt) >>= fun w__2 : bool => + returnm (if sumbool_of_bool w__2 then true else false) + | STORE_FP (v__462, rs2, rs1, DOUBLE) => + (is_RV32D_or_RV64D tt) >>= fun w__3 : bool => + returnm (if sumbool_of_bool w__3 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__4 : bool => + returnm (if sumbool_of_bool w__4 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__5 : bool => + returnm (if sumbool_of_bool w__5 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__6 : bool => + returnm (if sumbool_of_bool w__6 then true else false) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, FNMADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__7 : bool => + returnm (if sumbool_of_bool w__7 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FADD_S) => + (is_RV32F_or_RV64F tt) >>= fun w__8 : bool => + returnm (if sumbool_of_bool w__8 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FSUB_S) => + (is_RV32F_or_RV64F tt) >>= fun w__9 : bool => + returnm (if sumbool_of_bool w__9 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FMUL_S) => + (is_RV32F_or_RV64F tt) >>= fun w__10 : bool => + returnm (if sumbool_of_bool w__10 then true else false) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, FDIV_S) => + (is_RV32F_or_RV64F tt) >>= fun w__11 : bool => + returnm (if sumbool_of_bool w__11 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__12 : bool => + returnm (if sumbool_of_bool w__12 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (is_RV32F_or_RV64F tt) >>= fun w__13 : bool => + returnm (if sumbool_of_bool w__13 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (is_RV32F_or_RV64F tt) >>= fun w__14 : bool => + returnm (if sumbool_of_bool w__14 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (is_RV32F_or_RV64F tt) >>= fun w__15 : bool => + returnm (if sumbool_of_bool w__15 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (is_RV32F_or_RV64F tt) >>= fun w__16 : bool => + returnm (if sumbool_of_bool w__16 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (is_RV64F tt) >>= fun w__17 : bool => returnm (if sumbool_of_bool w__17 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (is_RV64F tt) >>= fun w__18 : bool => returnm (if sumbool_of_bool w__18 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (is_RV64F tt) >>= fun w__19 : bool => returnm (if sumbool_of_bool w__19 then true else false) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (is_RV64F tt) >>= fun w__20 : bool => returnm (if sumbool_of_bool w__20 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__21 : bool => + returnm (if sumbool_of_bool w__21 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__22 : bool => + returnm (if sumbool_of_bool w__22 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__23 : bool => + returnm (if sumbool_of_bool w__23 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (is_RV32F_or_RV64F tt) >>= fun w__24 : bool => + returnm (if sumbool_of_bool w__24 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (is_RV32F_or_RV64F tt) >>= fun w__25 : bool => + returnm (if sumbool_of_bool w__25 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (is_RV32F_or_RV64F tt) >>= fun w__26 : bool => + returnm (if sumbool_of_bool w__26 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (is_RV32F_or_RV64F tt) >>= fun w__27 : bool => + returnm (if sumbool_of_bool w__27 then true else false) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (is_RV32F_or_RV64F tt) >>= fun w__28 : bool => + returnm (if sumbool_of_bool w__28 then true else false) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (haveFExt tt) >>= fun w__29 : bool => returnm (if sumbool_of_bool w__29 then true else false) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (haveFExt tt) >>= fun w__30 : bool => returnm (if sumbool_of_bool w__30 then true else false) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (haveFExt tt) >>= fun w__31 : bool => returnm (if sumbool_of_bool w__31 then true else false) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FMADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__32 : bool => + returnm (if sumbool_of_bool w__32 then true else false) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FMSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__33 : bool => + returnm (if sumbool_of_bool w__33 then true else false) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FNMSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__34 : bool => + returnm (if sumbool_of_bool w__34 then true else false) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, FNMADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__35 : bool => + returnm (if sumbool_of_bool w__35 then true else false) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FADD_D) => + (is_RV32D_or_RV64D tt) >>= fun w__36 : bool => + returnm (if sumbool_of_bool w__36 then true else false) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FSUB_D) => + (is_RV32D_or_RV64D tt) >>= fun w__37 : bool => + returnm (if sumbool_of_bool w__37 then true else false) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FMUL_D) => + (is_RV32D_or_RV64D tt) >>= fun w__38 : bool => + returnm (if sumbool_of_bool w__38 then true else false) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, FDIV_D) => + (is_RV32D_or_RV64D tt) >>= fun w__39 : bool => + returnm (if sumbool_of_bool w__39 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FSQRT_D) => + (is_RV32D_or_RV64D tt) >>= fun w__40 : bool => + returnm (if sumbool_of_bool w__40 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_W_D) => + (is_RV32D_or_RV64D tt) >>= fun w__41 : bool => + returnm (if sumbool_of_bool w__41 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_WU_D) => + (is_RV32D_or_RV64D tt) >>= fun w__42 : bool => + returnm (if sumbool_of_bool w__42 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_W) => + (is_RV32D_or_RV64D tt) >>= fun w__43 : bool => + returnm (if sumbool_of_bool w__43 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_WU) => + (is_RV32D_or_RV64D tt) >>= fun w__44 : bool => + returnm (if sumbool_of_bool w__44 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_S_D) => + (is_RV32D_or_RV64D tt) >>= fun w__45 : bool => + returnm (if sumbool_of_bool w__45 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_S) => + (is_RV32D_or_RV64D tt) >>= fun w__46 : bool => + returnm (if sumbool_of_bool w__46 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_L_D) => + (is_RV64D tt) >>= fun w__47 : bool => returnm (if sumbool_of_bool w__47 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_LU_D) => + (is_RV64D tt) >>= fun w__48 : bool => returnm (if sumbool_of_bool w__48 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_L) => + (is_RV64D tt) >>= fun w__49 : bool => returnm (if sumbool_of_bool w__49 then true else false) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_LU) => + (is_RV64D tt) >>= fun w__50 : bool => returnm (if sumbool_of_bool w__50 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJ_D) => + (is_RV32D_or_RV64D tt) >>= fun w__51 : bool => + returnm (if sumbool_of_bool w__51 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJN_D) => + (is_RV32D_or_RV64D tt) >>= fun w__52 : bool => + returnm (if sumbool_of_bool w__52 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJX_D) => + (is_RV32D_or_RV64D tt) >>= fun w__53 : bool => + returnm (if sumbool_of_bool w__53 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FMIN_D) => + (is_RV32D_or_RV64D tt) >>= fun w__54 : bool => + returnm (if sumbool_of_bool w__54 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FMAX_D) => + (is_RV32D_or_RV64D tt) >>= fun w__55 : bool => + returnm (if sumbool_of_bool w__55 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FEQ_D) => + (is_RV32D_or_RV64D tt) >>= fun w__56 : bool => + returnm (if sumbool_of_bool w__56 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FLT_D) => + (is_RV32D_or_RV64D tt) >>= fun w__57 : bool => + returnm (if sumbool_of_bool w__57 then true else false) + | F_BIN_TYPE_D (rs2, rs1, rd, FLE_D) => + (is_RV32D_or_RV64D tt) >>= fun w__58 : bool => + returnm (if sumbool_of_bool w__58 then true else false) + | F_UN_TYPE_D (rs1, rd, FCLASS_D) => + (haveDExt tt) >>= fun w__59 : bool => returnm (if sumbool_of_bool w__59 then true else false) + | F_UN_TYPE_D (rs1, rd, FMV_X_D) => + (is_RV64D tt) >>= fun w__60 : bool => returnm (if sumbool_of_bool w__60 then true else false) + | F_UN_TYPE_D (rs1, rd, FMV_D_X) => + (is_RV64D tt) >>= fun w__61 : bool => returnm (if sumbool_of_bool w__61 then true else false) + | ILLEGAL s => returnm true + | _ => returnm false + end) + : M (bool). -Definition encdec_backwards_matches (arg_ : mword 32) -: M (bool) := - - let v__225 := arg_ in - let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__225 6 0 in +Definition encdec_backwards_matches (arg_ : mword 32) : M (bool) := + let v__463 := arg_ in + let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__463 6 0 in (and_boolM (returnm ((encdec_uop_backwards_matches _mappingpatterns_0_) : bool)) - ((if ((encdec_uop_backwards_matches _mappingpatterns_0_)) then - (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm ((true : bool) : bool) - else returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_uop_backwards_matches _mappingpatterns_0_ then + (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__225 6 0 in - (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm (true : bool) - else if ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B1;B1;B1;B1] : mword (6 - 0 + 1)))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B0;B1;B1;B1] : mword (6 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (if sumbool_of_bool w__1 then + let _mappingpatterns_0_ : mword 7 := subrange_vec_dec v__463 6 0 in + (encdec_uop_backwards _mappingpatterns_0_) >>= fun op => returnm true + else if eq_vec (subrange_vec_dec v__463 6 0) ('b"1101111" : mword (6 - 0 + 1)) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"1100111" : mword (6 - 0 + 1))) then + returnm true else (and_boolM - (let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__463 14 12 in (and_boolM (returnm ((encdec_bop_backwards_matches _mappingpatterns_1_) : bool)) - ((if ((encdec_bop_backwards_matches _mappingpatterns_1_)) then - (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_bop_backwards_matches _mappingpatterns_1_ then + (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__463 6 0) ('b"1100011" : mword (6 - 0 + 1))) : bool))) >>= fun w__4 : bool => - (if sumbool_of_bool (w__4) then - let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__225 14 12 in - (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm (true : bool) + (if sumbool_of_bool w__4 then + let _mappingpatterns_1_ : mword 3 := subrange_vec_dec v__463 14 12 in + (encdec_bop_backwards _mappingpatterns_1_) >>= fun op => returnm true else (and_boolM - (let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__463 14 12 in (and_boolM (returnm ((encdec_iop_backwards_matches _mappingpatterns_2_) : bool)) - ((if ((encdec_iop_backwards_matches _mappingpatterns_2_)) then - (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_iop_backwards_matches _mappingpatterns_2_ then + (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))) + (returnm ((eq_vec (subrange_vec_dec v__463 6 0) ('b"0010011" : mword (6 - 0 + 1))) : bool))) >>= fun w__7 : bool => - (if sumbool_of_bool (w__7) then - let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__225 14 12 in - (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm (true : bool) + (if sumbool_of_bool w__7 then + let _mappingpatterns_2_ : mword 3 := subrange_vec_dec v__463 14 12 in + (encdec_iop_backwards _mappingpatterns_2_) >>= fun op => returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__463 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__463 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__463 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__463 31 26) ('b"000000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb + (let shamt : mword 6 := subrange_vec_dec v__463 25 20 in + orb (Z.eqb 64 64) (eq_bit (access_vec_dec shamt 5) B0)) + (andb (eq_vec (subrange_vec_dec v__463 31 26) ('b"010000" : mword (31 - 26 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0010011" : mword (6 - 0 + 1)))))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"010" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"011" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"111" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"110" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"100" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0110011" : mword (6 - 0 + 1)))) + then + returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__8 : bool => - returnm ((Bool.eqb w__8 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex - (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = true) (simp_0 = - true /\ - (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__10 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__10) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (and_boolM + (let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__463 14 14 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_4_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_4_ then + (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_3_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_3_ then + (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => + returnm ((orb (Z.ltb (projT1 (word_width_bytes size)) 8) + (andb (negb is_unsigned) + ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool))) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((eq_vec (subrange_vec_dec v__463 6 0) ('b"0000011" : mword (6 - 0 + 1))) + : bool))) >>= fun w__12 : bool => + (if sumbool_of_bool w__12 then + let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__463 14 14 in + (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__11 : bool => - returnm ((Bool.eqb w__11 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = - 64 \/ - simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__463 13 12 in + (and_boolM (returnm ((size_bits_backwards_matches _mappingpatterns_5_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_5_ then + (size_bits_backwards _mappingpatterns_5_) >>= fun size => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) : bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (31 - 26 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__13 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__13) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__463 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0100011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__15 : bool => + (if sumbool_of_bool w__15 then + let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__463 13 12 in + (size_bits_backwards _mappingpatterns_5_) >>= fun size => returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0111011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"001" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0000000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) ('b"0100000" : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) ('b"101" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) ('b"0011011" : mword (6 - 0 + 1)))))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 28) (Ox"0" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__463 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + returnm true + else if andb (eq_vec (subrange_vec_dec v__463 31 28) (Ox"8" : mword (31 - 28 + 1))) + (eq_vec (subrange_vec_dec v__463 19 0) (Ox"0000F" : mword (19 - 0 + 1))) + then + returnm true + else if eq_vec v__463 (Ox"0000100F" : mword 32) then returnm true + else if eq_vec v__463 (Ox"00000073" : mword 32) then returnm true + else if eq_vec v__463 (Ox"30200073" : mword 32) then returnm true + else if eq_vec v__463 (Ox"10200073" : mword 32) then returnm true + else if eq_vec v__463 (Ox"00100073" : mword 32) then returnm true + else if eq_vec v__463 (Ox"10500073" : mword 32) then returnm true + else if andb + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0001001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__463 14 0) + ('b"000000001110011" + : mword (14 - 0 + 1))) then + returnm true else - (and_boolMP - ((let shamt : mword 6 := subrange_vec_dec v__225 25 20 in - (or_boolMP - ((returnm (build_ex - (projT1 - (build_ex - (Z.eqb 64 64) - : {_bool : bool & ArithFact (iff (_bool = true) (64 = 64))})))) : M ({_bool : bool & ArithFact (iff (_bool = - true) (64 = 64))})) - (build_trivial_ex - ((bit_to_bool (access_vec_dec shamt 5)) >>= fun w__14 : bool => - returnm ((Bool.eqb w__14 false) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = true) (64 = 64 \/ - simp_0 = true))})) : M ({_bool : bool & ArithFact (exists simp_0 , iff (_bool = - true) (64 = 64 \/ simp_0 = true))})) - (build_trivial_ex + (and_boolM + (let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__463 25 25 in + let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__463 26 26 in + (and_boolM + (returnm ((size_bits_backwards_matches _mappingpatterns_8_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_8_ then + (size_bits_backwards _mappingpatterns_8_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_7_) : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_7_ then + (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_6_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_6_ then + (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 26) - (vec_of_bits [B0;B1;B0;B0;B0;B0] : mword (31 - 26 + 1))) + (eq_vec (subrange_vec_dec v__463 31 27) + ('b"00010" + : mword (31 - 27 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) - : bool))) : M ({_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))})) >>= fun '(existT _ w__16 _ : {_bool : bool & ArithFact (exists simp_0 simp_1 , iff (_bool = - true) (simp_0 = true /\ (64 = 64 \/ simp_1 = true)))}) => - (if sumbool_of_bool (w__16) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B1;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] : mword (6 - 0 + 1)))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__463 24 20) + ('b"00000" + : mword (24 - 20 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))))) + : bool))) >>= fun w__22 : bool => + (if sumbool_of_bool w__22 then + let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__463 25 25 in + let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__463 26 26 in + (size_bits_backwards _mappingpatterns_8_) >>= fun size => + (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => returnm true else (and_boolM - (let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__225 14 14 in + (let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__463 26 26 in + let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__463 25 25 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_4_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_4_)) then - (size_bits_backwards _mappingpatterns_4_) >>= fun size => + (returnm ((size_bits_backwards_matches _mappingpatterns_11_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_11_ then + (size_bits_backwards _mappingpatterns_11_) >>= fun size => (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_3_) + (returnm ((bool_bits_backwards_matches _mappingpatterns_10_) : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_3_)) then - (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => - returnm (((orb (Z.ltb (projT1 (word_width_bytes size)) 8) - (andb (negb is_unsigned) - ((Z.leb (projT1 (word_width_bytes size)) 8) - : bool))) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__18 : bool => - returnm ((w__18 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_bits_backwards_matches _mappingpatterns_10_ then + (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_9_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_9_ then + (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => + returnm ((Z.leb (projT1 (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))) - : bool))) >>= fun w__21 : bool => - (if sumbool_of_bool (w__21) then - let _mappingpatterns_4_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_3_ : mword 1 := subrange_vec_dec v__225 14 14 in - (size_bits_backwards _mappingpatterns_4_) >>= fun size => - (bool_bits_backwards _mappingpatterns_3_) >>= fun is_unsigned => - returnm (true - : bool) + (returnm ((andb + (eq_vec (subrange_vec_dec v__463 31 27) + ('b"00011" + : mword (31 - 27 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0101111" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__29 : bool => + (if sumbool_of_bool w__29 then + let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__463 26 26 in + let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__463 25 25 in + (size_bits_backwards _mappingpatterns_11_) >>= fun size => + (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => returnm true else (and_boolM - (let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__225 13 12 in + (let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__463 31 27 in + let _mappingpatterns_15_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_14_ : mword 1 := subrange_vec_dec v__463 25 25 in + let _mappingpatterns_13_ : mword 1 := subrange_vec_dec v__463 26 26 in + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__463 31 27 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_5_) - : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_5_)) then - (size_bits_backwards _mappingpatterns_5_) >>= fun size => - returnm (((Z.leb (projT1 (word_width_bytes size)) 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (returnm ((size_bits_backwards_matches _mappingpatterns_15_) : bool)) + ((if size_bits_backwards_matches _mappingpatterns_15_ then + (size_bits_backwards _mappingpatterns_15_) >>= fun size => + (and_boolM + (returnm ((bool_bits_backwards_matches _mappingpatterns_14_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_14_ then + (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_13_) + : bool)) + ((if bool_bits_backwards_matches _mappingpatterns_13_ + then + (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => + (and_boolM + (returnm ((encdec_amoop_backwards_matches + _mappingpatterns_12_) + : bool)) + ((if encdec_amoop_backwards_matches + _mappingpatterns_12_ then + (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => + returnm ((Z.leb + (projT1 + (word_width_bytes size)) 8) + : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B0;B0;B1;B1] : mword (6 - 0 + 1)))) - : bool))) >>= fun w__24 : bool => - (if sumbool_of_bool (w__24) then - let _mappingpatterns_5_ : mword 2 := subrange_vec_dec v__225 13 12 in - (size_bits_backwards _mappingpatterns_5_) >>= fun size => - returnm (true - : bool) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1)))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B0;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B1;B0;B0;B0;B0;B0] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 12) - (vec_of_bits [B1;B0;B1] - : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B0;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 28) - (vec_of_bits [B0;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__225 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 28) - (vec_of_bits [B1;B0;B0;B0] : mword (31 - 28 + 1))) - (eq_vec (subrange_vec_dec v__225 19 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword (19 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0; - B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B1;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B1;B0;B0;B0;B0;B0;B1;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B1;B0;B0;B1] : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__225 14 0) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword (14 - 0 + 1))))) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (eq_vec (subrange_vec_dec v__463 14 14) + ('b"0" + : mword (14 - 14 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0101111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__38 : bool => + (if sumbool_of_bool w__38 then + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__463 31 27 in + let _mappingpatterns_15_ : mword 2 := subrange_vec_dec v__463 13 12 in + let _mappingpatterns_14_ : mword 1 := subrange_vec_dec v__463 25 25 in + let _mappingpatterns_13_ : mword 1 := subrange_vec_dec v__463 26 26 in + let _mappingpatterns_12_ : mword 5 := subrange_vec_dec v__463 31 27 in + (size_bits_backwards _mappingpatterns_15_) >>= fun size => + (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => + (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => + (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => returnm true else (and_boolM - (let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__225 25 25 in - let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__225 26 26 in + (let _mappingpatterns_16_ : mword 3 := subrange_vec_dec v__463 14 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_8_) + (returnm ((encdec_mul_op_backwards_matches _mappingpatterns_16_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_8_)) then - (size_bits_backwards _mappingpatterns_8_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches _mappingpatterns_7_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_7_)) - then - (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_6_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_6_)) then - (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => - returnm (((Z.leb (projT1 (word_width_bytes size)) - 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__26 : bool => - returnm ((w__26 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__28 : bool => - returnm ((w__28 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_mul_op_backwards_matches _mappingpatterns_16_ then + (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 27) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (31 - 27 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 24 20) - (vec_of_bits [B0;B0;B0;B0;B0] - : mword (24 - 20 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))))) - : bool))) >>= fun w__31 : bool => - (if sumbool_of_bool (w__31) then - let _mappingpatterns_8_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_7_ : mword 1 := subrange_vec_dec v__225 25 25 in - let _mappingpatterns_6_ : mword 1 := subrange_vec_dec v__225 26 26 in - (size_bits_backwards _mappingpatterns_8_) >>= fun size => - (bool_bits_backwards _mappingpatterns_7_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_6_) >>= fun aq => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0110011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__41 : bool => + (if sumbool_of_bool w__41 then + let _mappingpatterns_16_ : mword 3 := subrange_vec_dec v__463 14 12 in + (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => + returnm true else (and_boolM - (let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__225 26 26 in - let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__225 25 25 in + (let _mappingpatterns_17_ : mword 1 := + subrange_vec_dec v__463 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_11_) + (returnm ((bool_not_bits_backwards_matches _mappingpatterns_17_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_11_)) then - (size_bits_backwards _mappingpatterns_11_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_10_) - : bool)) - ((if ((bool_bits_backwards_matches _mappingpatterns_10_)) - then - (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_9_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_9_)) then - (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__33 : bool => - returnm ((w__33 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__35 : bool => - returnm ((w__35 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_17_ then + (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 27) - (vec_of_bits [B0;B0;B0;B1;B1] - : mword (31 - 27 + 1))) + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__38 : bool => - (if sumbool_of_bool (w__38) then - let _mappingpatterns_9_ : mword 1 := subrange_vec_dec v__225 26 26 in - let _mappingpatterns_11_ : mword 2 := subrange_vec_dec v__225 13 12 in - let _mappingpatterns_10_ : mword 1 := subrange_vec_dec v__225 25 25 in - (size_bits_backwards _mappingpatterns_11_) >>= fun size => - (bool_bits_backwards _mappingpatterns_10_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_9_) >>= fun aq => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__463 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__44 : bool => + (if sumbool_of_bool w__44 then + let _mappingpatterns_17_ : mword 1 := subrange_vec_dec v__463 12 12 in + (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - let _mappingpatterns_15_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_14_ : mword 1 := - subrange_vec_dec v__225 25 25 in - let _mappingpatterns_13_ : mword 1 := - subrange_vec_dec v__225 26 26 in - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in + (let _mappingpatterns_18_ : mword 1 := + subrange_vec_dec v__463 12 12 in (and_boolM - (returnm ((size_bits_backwards_matches _mappingpatterns_15_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_18_) : bool)) - ((if ((size_bits_backwards_matches _mappingpatterns_15_)) + ((if bool_not_bits_backwards_matches _mappingpatterns_18_ then - (size_bits_backwards _mappingpatterns_15_) >>= fun size => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_14_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_14_)) then - (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_13_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_13_)) then - (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => - (and_boolM - (returnm ((encdec_amoop_backwards_matches - _mappingpatterns_12_) - : bool)) - ((if ((encdec_amoop_backwards_matches - _mappingpatterns_12_)) then - (encdec_amoop_backwards - _mappingpatterns_12_) >>= fun op => - returnm (((Z.leb - (projT1 - (word_width_bytes size)) - 8) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__40 : bool => - returnm ((w__40 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__42 : bool => - returnm ((w__42 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) - : M (bool))) >>= fun w__44 : bool => - returnm ((w__44 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => + returnm (true : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 14 14) - (vec_of_bits [B0] : mword (14 - 14 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B0;B1;B1;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0110011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__47 : bool => - (if sumbool_of_bool (w__47) then - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - let _mappingpatterns_15_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_14_ : mword 1 := - subrange_vec_dec v__225 25 25 in - let _mappingpatterns_13_ : mword 1 := - subrange_vec_dec v__225 26 26 in - let _mappingpatterns_12_ : mword 5 := - subrange_vec_dec v__225 31 27 in - (size_bits_backwards _mappingpatterns_15_) >>= fun size => - (bool_bits_backwards _mappingpatterns_14_) >>= fun rl => - (bool_bits_backwards _mappingpatterns_13_) >>= fun aq => - (encdec_amoop_backwards _mappingpatterns_12_) >>= fun op => - returnm (true - : bool) + (if sumbool_of_bool w__47 then + let _mappingpatterns_18_ : mword 1 := + subrange_vec_dec v__463 12 12 in + (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0111011" + : mword (6 - 0 + 1)))))) then + returnm true else (and_boolM - (let _mappingpatterns_16_ : mword 3 := - subrange_vec_dec v__225 14 12 in + (let _mappingpatterns_19_ : mword 1 := + subrange_vec_dec v__463 12 12 in (and_boolM - (returnm ((encdec_mul_op_backwards_matches - _mappingpatterns_16_) + (returnm ((bool_not_bits_backwards_matches + _mappingpatterns_19_) : bool)) - ((if ((encdec_mul_op_backwards_matches - _mappingpatterns_16_)) then - (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches _mappingpatterns_19_ + then + (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => + returnm ((Z.eqb 64 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1)))) + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (andb + (eq_vec (subrange_vec_dec v__463 14 13) + ('b"10" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__50 : bool => - (if sumbool_of_bool (w__50) then - let _mappingpatterns_16_ : mword 3 := - subrange_vec_dec v__225 14 12 in - (encdec_mul_op_backwards _mappingpatterns_16_) >>= fun '(high, signed1, signed2) => - returnm (true - : bool) + (if sumbool_of_bool w__50 then + let _mappingpatterns_19_ : mword 1 := + subrange_vec_dec v__463 12 12 in + (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_17_ : mword 1 := - subrange_vec_dec v__225 12 12 in + (let _mappingpatterns_20_ : mword 1 := + subrange_vec_dec v__463 12 12 in (and_boolM (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_17_) + _mappingpatterns_20_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_17_)) then - (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if bool_not_bits_backwards_matches + _mappingpatterns_20_ then + (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => + returnm ((Z.eqb 64 64) : bool) + else returnm false) : M (bool))) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) + (eq_vec (subrange_vec_dec v__463 31 25) + ('b"0000001" + : mword (31 - 25 + 1))) (andb - (eq_vec (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) + (eq_vec (subrange_vec_dec v__463 14 13) + ('b"11" + : mword (14 - 13 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0111011" + : mword (6 - 0 + 1))))) : bool))) >>= fun w__53 : bool => - (if sumbool_of_bool (w__53) then - let _mappingpatterns_17_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_17_) >>= fun s => - returnm (true - : bool) + (if sumbool_of_bool w__53 then + let _mappingpatterns_20_ : mword 1 := + subrange_vec_dec v__463 12 12 in + (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => + returnm true else (and_boolM - (let _mappingpatterns_18_ : mword 1 := - subrange_vec_dec v__225 12 12 in + (let _mappingpatterns_22_ : mword 2 := + subrange_vec_dec v__463 13 12 in + let _mappingpatterns_21_ : mword 1 := + subrange_vec_dec v__463 14 14 in (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_18_) + (returnm ((encdec_csrop_backwards_matches + _mappingpatterns_22_) : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_18_)) then - (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = true))}))) + ((if encdec_csrop_backwards_matches + _mappingpatterns_22_ then + (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => + (and_boolM + (returnm ((bool_bits_backwards_matches + _mappingpatterns_21_) + : bool)) + ((if bool_bits_backwards_matches + _mappingpatterns_21_ then + (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => + returnm (true : bool) + else returnm false) + : M (bool))) + : M (bool) + else returnm false) : M (bool))) : M (bool)) - (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__56 : bool => - (if sumbool_of_bool (w__56) then - let _mappingpatterns_18_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_18_) >>= fun s => - returnm (true - : bool) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec - (subrange_vec_dec - v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec - v__225 14 12) - (vec_of_bits [B0;B0;B0] - : mword (14 - 12 + 1))) - (eq_vec - (subrange_vec_dec - v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))))) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + (returnm ((eq_vec (subrange_vec_dec v__463 6 0) + ('b"1110011" + : mword (6 - 0 + 1))) + : bool))) >>= fun w__58 : bool => + (if sumbool_of_bool w__58 then + let _mappingpatterns_22_ : mword 2 := + subrange_vec_dec v__463 13 12 in + let _mappingpatterns_21_ : mword 1 := + subrange_vec_dec v__463 14 14 in + (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => + (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => + returnm true + else if eq_vec v__463 (Ox"00200073" : mword 32) then + returnm true else - (and_boolM - (let _mappingpatterns_19_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_19_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_19_)) then - (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => - returnm (((Z.eqb 64 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) (returnm ((andb - (eq_vec (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B0] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) - : bool))) >>= fun w__59 : bool => - (if sumbool_of_bool (w__59) then - let _mappingpatterns_19_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_19_) >>= fun s => - returnm (true - : bool) + (eq_vec (subrange_vec_dec v__463 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__463 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__60 : bool => + (if sumbool_of_bool w__60 then returnm true else - (and_boolM - (let _mappingpatterns_20_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (and_boolM - (returnm ((bool_not_bits_backwards_matches - _mappingpatterns_20_) - : bool)) - ((if ((bool_not_bits_backwards_matches - _mappingpatterns_20_)) then - (bool_not_bits_backwards - _mappingpatterns_20_) >>= fun s => - returnm (((Z.eqb 64 64) - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) - : M (bool)) + (and_boolM ((is_RV32D_or_RV64D tt) : M (bool)) (returnm ((andb (eq_vec - (subrange_vec_dec v__225 31 25) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B1] - : mword (31 - 25 + 1))) - (andb - (eq_vec - (subrange_vec_dec v__225 14 13) - (vec_of_bits [B1;B1] - : mword (14 - 13 + 1))) - (eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B0;B1;B1;B1;B0;B1;B1] - : mword (6 - 0 + 1))))) + (subrange_vec_dec v__463 14 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__463 6 0) + ('b"0000111" + : mword (6 - 0 + 1)))) : bool))) >>= fun w__62 : bool => - (if sumbool_of_bool (w__62) then - let _mappingpatterns_20_ : mword 1 := - subrange_vec_dec v__225 12 12 in - (bool_not_bits_backwards _mappingpatterns_20_) >>= fun s => - returnm (true - : bool) + (if sumbool_of_bool w__62 then returnm true else - (and_boolM - (let _mappingpatterns_22_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_21_ : mword 1 := - subrange_vec_dec v__225 14 14 in + (and_boolM ((is_RV32F_or_RV64F tt) : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__463 14 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__463 6 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__64 : bool => + (if sumbool_of_bool w__64 then returnm true + else (and_boolM - (returnm ((encdec_csrop_backwards_matches - _mappingpatterns_22_) - : bool)) - ((if ((encdec_csrop_backwards_matches - _mappingpatterns_22_)) then - (encdec_csrop_backwards - _mappingpatterns_22_) >>= fun op => - (and_boolM - (returnm ((bool_bits_backwards_matches - _mappingpatterns_21_) - : bool)) - ((if ((bool_bits_backwards_matches - _mappingpatterns_21_)) then - (bool_bits_backwards - _mappingpatterns_21_) >>= fun is_imm => - returnm ((true - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) >>= fun w__64 : bool => - returnm ((w__64 - : bool) - : bool) - else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) - : M (bool))) + ((is_RV32D_or_RV64D tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__463 14 + 12) + ('b"011" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec v__463 6 + 0) + ('b"0100111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__66 : bool => + (if sumbool_of_bool w__66 then returnm true + else + (and_boolM + (let _mappingpatterns_23_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_23_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_23_ then + (encdec_rounding_mode_backwards + _mappingpatterns_23_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec v__463 + 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec v__463 + 6 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__70 : bool => + (if sumbool_of_bool w__70 then + let _mappingpatterns_23_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_23_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_24_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_24_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_24_ then + (encdec_rounding_mode_backwards + _mappingpatterns_24_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 6 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__74 : bool => + (if sumbool_of_bool w__74 then + let _mappingpatterns_24_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_24_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_25_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_25_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_25_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_25_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 6 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__78 : bool => + (if sumbool_of_bool w__78 then + let _mappingpatterns_25_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_25_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_26_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_26_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_26_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_26_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 26 25) + ('b"00" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 6 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__82 : bool => + (if sumbool_of_bool w__82 then + let _mappingpatterns_26_ : mword 3 := + subrange_vec_dec v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_26_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_27_ : mword 3 := + subrange_vec_dec v__463 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_27_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_27_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_27_) >>= fun rm => + (is_RV32F_or_RV64F tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 31 + 25) + ('b"0000000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__86 : bool => + (if sumbool_of_bool w__86 then + let _mappingpatterns_27_ : mword 3 := + subrange_vec_dec v__463 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_27_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_28_ : mword 3 := + subrange_vec_dec v__463 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_28_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_28_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_28_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 25) + ('b"0000100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__90 : bool => + (if sumbool_of_bool + w__90 then + let _mappingpatterns_28_ : mword 3 := + subrange_vec_dec v__463 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_28_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_29_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_29_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_29_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_29_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0001000" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__94 : bool => + (if sumbool_of_bool + w__94 then + let _mappingpatterns_29_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_29_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_30_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_30_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_30_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_30_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0001100" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__98 : bool => + (if sumbool_of_bool + w__98 then + let _mappingpatterns_30_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_30_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_31_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_31_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_31_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_31_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"580" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__102 : bool => + (if sumbool_of_bool + w__102 then + let _mappingpatterns_31_ : mword 3 := + subrange_vec_dec + v__463 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_31_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_32_ : mword 3 := + subrange_vec_dec + v__463 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_32_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_32_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_32_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__106 : bool => + (if sumbool_of_bool + w__106 then + let _mappingpatterns_32_ : mword 3 := + subrange_vec_dec + v__463 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_32_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_33_ : mword 3 := + subrange_vec_dec + v__463 + 14 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_33_) + : bool)) + ((if encdec_rounding_mode_backwards_matches + _mappingpatterns_33_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_33_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__110 : bool => + (if sumbool_of_bool + w__110 + then + let _mappingpatterns_33_ : mword 3 := + subrange_vec_dec + v__463 + 14 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_33_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_34_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_34_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_34_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_34_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D00" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__114 : bool => + (if sumbool_of_bool + w__114 + then + let _mappingpatterns_34_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_34_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_35_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_35_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_35_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_35_) >>= fun rm => + (is_RV32F_or_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D01" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__118 : bool => + (if sumbool_of_bool + w__118 + then + let _mappingpatterns_35_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_35_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_36_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_36_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_36_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_36_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__122 : bool => + (if sumbool_of_bool + w__122 + then + let _mappingpatterns_36_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_36_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_37_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_37_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_37_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_37_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__126 : bool => + (if + sumbool_of_bool + w__126 + then + let _mappingpatterns_37_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_37_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_38_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_38_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_38_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_38_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D02" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__130 : bool => + (if + sumbool_of_bool + w__130 + then + let _mappingpatterns_38_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_38_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_39_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_39_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_39_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_39_) >>= fun rm => + (is_RV64F + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D03" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__134 : bool => + (if + sumbool_of_bool + w__134 + then + let _mappingpatterns_39_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_39_) >>= fun rm => + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__136 : bool => + (if + sumbool_of_bool + w__136 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__138 : bool => + (if + sumbool_of_bool + w__138 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__140 : bool => + (if + sumbool_of_bool + w__140 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__142 : bool => + (if + sumbool_of_bool + w__142 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010100" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__144 : bool => + (if + sumbool_of_bool + w__144 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__146 : bool => + (if + sumbool_of_bool + w__146 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__148 : bool => + (if + sumbool_of_bool + w__148 + then + returnm true + else + (and_boolM + ((is_RV32F_or_RV64F + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010000" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__150 : bool => + (if + sumbool_of_bool + w__150 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__152 : bool => + (if + sumbool_of_bool + w__152 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"E00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__154 : bool => + (if + sumbool_of_bool + w__154 + then + returnm true + else + (and_boolM + ((haveFExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"F00" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__156 : bool => + (if + sumbool_of_bool + w__156 + then + returnm true + else + (and_boolM + (let _mappingpatterns_40_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_40_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_40_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_40_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1000011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__160 : bool => + (if + sumbool_of_bool + w__160 + then + let _mappingpatterns_40_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_40_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_41_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_41_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_41_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_41_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1000111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__164 : bool => + (if + sumbool_of_bool + w__164 + then + let _mappingpatterns_41_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_41_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_42_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_42_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_42_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_42_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1001011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__168 : bool => + (if + sumbool_of_bool + w__168 + then + let _mappingpatterns_42_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_42_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_43_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_43_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_43_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_43_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 26 + 25) + ('b"01" + : mword (26 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1001111" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__172 : bool => + (if + sumbool_of_bool + w__172 + then + let _mappingpatterns_43_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_43_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_44_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_44_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_44_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_44_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0000001" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__176 : bool => + (if + sumbool_of_bool + w__176 + then + let _mappingpatterns_44_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_44_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_45_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_45_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_45_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_45_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0000101" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__180 : bool => + (if + sumbool_of_bool + w__180 + then + let _mappingpatterns_45_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_45_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_46_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_46_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_46_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_46_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0001001" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__184 : bool => + (if + sumbool_of_bool + w__184 + then + let _mappingpatterns_46_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_46_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_47_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_47_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_47_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_47_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0001101" + : mword (31 - 25 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__188 : bool => + (if + sumbool_of_bool + w__188 + then + let _mappingpatterns_47_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_47_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_48_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_48_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_48_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_48_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"5A0" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__192 : bool => + (if + sumbool_of_bool + w__192 + then + let _mappingpatterns_48_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_48_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_49_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_49_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_49_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_49_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C20" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__196 : bool => + (if + sumbool_of_bool + w__196 + then + let _mappingpatterns_49_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_49_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_50_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_50_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_50_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_50_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C21" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__200 : bool => + (if + sumbool_of_bool + w__200 + then + let _mappingpatterns_50_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_50_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_51_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_51_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_51_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_51_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D20" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__204 : bool => + (if + sumbool_of_bool + w__204 + then + let _mappingpatterns_51_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_51_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_52_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_52_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_52_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_52_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D21" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__208 : bool => + (if + sumbool_of_bool + w__208 + then + let _mappingpatterns_52_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_52_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_53_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_53_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_53_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_53_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"401" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__212 : bool => + (if + sumbool_of_bool + w__212 + then + let _mappingpatterns_53_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_53_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_54_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_54_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_54_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_54_) >>= fun rm => + (is_RV32D_or_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"420" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__216 : bool => + (if + sumbool_of_bool + w__216 + then + let _mappingpatterns_54_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_54_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_55_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_55_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_55_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_55_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C22" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__220 : bool => + (if + sumbool_of_bool + w__220 + then + let _mappingpatterns_55_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_55_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_56_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_56_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_56_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_56_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"C23" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__224 : bool => + (if + sumbool_of_bool + w__224 + then + let _mappingpatterns_56_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_56_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_57_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_57_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_57_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_57_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D22" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__228 : bool => + (if + sumbool_of_bool + w__228 + then + let _mappingpatterns_57_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_57_) >>= fun rm => + returnm true + else + (and_boolM + (let _mappingpatterns_58_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (and_boolM + (returnm ((encdec_rounding_mode_backwards_matches + _mappingpatterns_58_) + : bool)) + ((if + encdec_rounding_mode_backwards_matches + _mappingpatterns_58_ + then + (encdec_rounding_mode_backwards + _mappingpatterns_58_) >>= fun rm => + (is_RV64D + tt) + : M (bool) + else + returnm false) + : M (bool))) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"D23" + : mword (31 - 20 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1)))) + : bool))) >>= fun w__232 : bool => + (if + sumbool_of_bool + w__232 + then + let _mappingpatterns_58_ : mword 3 := + subrange_vec_dec + v__463 + 14 + 12 in + (encdec_rounding_mode_backwards + _mappingpatterns_58_) >>= fun rm => + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__234 : bool => + (if + sumbool_of_bool + w__234 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__236 : bool => + (if + sumbool_of_bool + w__236 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__238 : bool => + (if + sumbool_of_bool + w__238 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010101" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__240 : bool => + (if + sumbool_of_bool + w__240 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"0010101" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__242 : bool => + (if + sumbool_of_bool + w__242 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"010" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__244 : bool => + (if + sumbool_of_bool + w__244 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__246 : bool => + (if + sumbool_of_bool + w__246 + then + returnm true + else + (and_boolM + ((is_RV32D_or_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 25) + ('b"1010001" + : mword (31 - 25 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__248 : bool => + (if + sumbool_of_bool + w__248 + then + returnm true + else + (and_boolM + ((haveDExt + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"E20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"001" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__250 : bool => + (if + sumbool_of_bool + w__250 + then + returnm true + else + (and_boolM + ((is_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"E20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__252 : bool => + (if + sumbool_of_bool + w__252 + then + returnm true + else + (and_boolM + ((is_RV64D + tt) + : M (bool)) + (returnm ((andb + (eq_vec + (subrange_vec_dec + v__463 + 31 + 20) + (Ox"F20" + : mword (31 - 20 + 1))) + (andb + (eq_vec + (subrange_vec_dec + v__463 + 14 + 12) + ('b"000" + : mword (14 - 12 + 1))) + (eq_vec + (subrange_vec_dec + v__463 + 6 + 0) + ('b"1010011" + : mword (6 - 0 + 1))))) + : bool))) >>= fun w__254 : bool => + returnm (if + sumbool_of_bool + w__254 + then + true + else + true)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) : M (bool)) - (returnm ((eq_vec - (subrange_vec_dec v__225 6 0) - (vec_of_bits [B1;B1;B1;B0;B0;B1;B1] - : mword (6 - 0 + 1))) - : bool))) >>= fun w__67 : bool => - (if sumbool_of_bool (w__67) then - let _mappingpatterns_22_ : mword 2 := - subrange_vec_dec v__225 13 12 in - let _mappingpatterns_21_ : mword 1 := - subrange_vec_dec v__225 14 14 in - (encdec_csrop_backwards _mappingpatterns_22_) >>= fun op => - (bool_bits_backwards _mappingpatterns_21_) >>= fun is_imm => - returnm (true - : bool) - else - returnm ((if ((eq_vec v__225 - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B1;B1;B1;B0;B0;B1;B1] - : mword 32))) then - true - else true) - : bool)) : M (bool)) : M (bool)) : M (bool)) @@ -20420,1637 +26833,1976 @@ Definition encdec_backwards_matches (arg_ : mword 32) : M (bool)) : M (bool). -Definition encdec_compressed_forwards (arg_ : ast) -: M (mword 16) := - +Definition encdec_compressed_forwards (arg_ : ast) : M (mword 16) := (match arg_ with - | C_NOP (tt) => - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B0;B1] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) - | C_ADDI4SPN ((rd, v__438)) => - (if ((let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__438 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__438 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__438 0 0 in + | C_NOP tt => + returnm (concat_vec ('b"000" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"00000" : mword 5) ('b"01" : mword 2))))) + | C_ADDI4SPN (rd, v__910) => + (if let nz96 : bits 4 := subrange_vec_dec v__910 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__910 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__910 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__910 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__910 0 0 in neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1)))))) then - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__438 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__438 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__438 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__438 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nz54 : bits 2) - (concat_vec (nz96 : bits 4) - (concat_vec (nz2 : bits 1) - (concat_vec (nz3 : bits 1) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) + (Ox"00" + : mword (4 + (2 + (1 + 1)))) then + let nz96 : bits 4 := subrange_vec_dec v__910 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__910 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__910 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__910 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__910 0 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nz54 : bits 2) + (concat_vec (nz96 : bits 4) + (concat_vec (nz2 : bits 1) + (concat_vec (nz3 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LW ((v__439, rs1, rd)) => - let ui6 : bits 1 := subrange_vec_dec v__439 4 4 in - let ui6 : bits 1 := subrange_vec_dec v__439 4 4 in - let ui53 : bits 3 := subrange_vec_dec v__439 3 1 in - let ui2 : bits 1 := subrange_vec_dec v__439 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui2 : bits 1) - (concat_vec (ui6 : bits 1) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) - | C_LD ((v__440, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - let ui76 : bits 2 := subrange_vec_dec v__440 4 3 in - let ui76 : bits 2 := subrange_vec_dec v__440 4 3 in - let ui53 : bits 3 := subrange_vec_dec v__440 2 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui76 : bits 2) - (concat_vec (rd : cregidx) (vec_of_bits [B0;B0] : mword 2)))))) - : mword 16) + | C_LW (v__911, rs1, rd) => + let ui6 : bits 1 := subrange_vec_dec v__911 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__911 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__911 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__911 0 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) + | C_LD (v__912, rs1, rd) => + (if sumbool_of_bool (Z.eqb 64 64) then + let ui76 : bits 2 := subrange_vec_dec v__912 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__912 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__912 2 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui76 : bits 2) + (concat_vec (rd : cregidx) ('b"00" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SW ((v__441, rs1, rs2)) => - let ui6 : bits 1 := subrange_vec_dec v__441 4 4 in - let ui6 : bits 1 := subrange_vec_dec v__441 4 4 in - let ui53 : bits 3 := subrange_vec_dec v__441 3 1 in - let ui2 : bits 1 := subrange_vec_dec v__441 0 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : cregidx) - (concat_vec (ui2 : bits 1) - (concat_vec (ui6 : bits 1) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B0] : mword 2))))))) - : mword 16) - | C_SD ((v__442, rs1, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - let ui76 : bits 2 := subrange_vec_dec v__442 4 3 in - let ui76 : bits 2 := subrange_vec_dec v__442 4 3 in - let ui53 : bits 3 := subrange_vec_dec v__442 2 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (rs1 : bits 3) - (concat_vec (ui76 : bits 2) - (concat_vec (rs2 : bits 3) (vec_of_bits [B0;B0] : mword 2)))))) - : mword 16) + | C_SW (v__913, rs1, rs2) => + let ui6 : bits 1 := subrange_vec_dec v__913 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__913 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__913 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__913 0 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rs2 : cregidx) ('b"00" : mword 2))))))) + | C_SD (v__914, rs1, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then + let ui76 : bits 2 := subrange_vec_dec v__914 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__914 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__914 2 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : bits 3) + (concat_vec (ui76 : bits 2) + (concat_vec (rs2 : bits 3) ('b"00" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDI ((v__443, rsd)) => - (if ((let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__443 4 0 in - andb (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__443 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__443 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nzi5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (nzi40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_ADDI (v__915, rsd) => + (if let nzi5 : bits 1 := subrange_vec_dec v__915 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__915 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__915 4 0 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) (neq_vec rsd zreg) + then + let nzi5 : bits 1 := subrange_vec_dec v__915 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__915 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__915 4 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nzi5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (nzi40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JAL (v__444) => - (if sumbool_of_bool ((Z.eqb 64 32)) then - let i11 : bits 1 := subrange_vec_dec v__444 10 10 in - let i98 : bits 2 := subrange_vec_dec v__444 8 7 in - let i7 : bits 1 := subrange_vec_dec v__444 6 6 in - let i6 : bits 1 := subrange_vec_dec v__444 5 5 in - let i5 : bits 1 := subrange_vec_dec v__444 4 4 in - let i4 : bits 1 := subrange_vec_dec v__444 3 3 in - let i31 : bits 3 := subrange_vec_dec v__444 2 0 in - let i11 : bits 1 := subrange_vec_dec v__444 10 10 in - let i10 : bits 1 := subrange_vec_dec v__444 9 9 in - returnm ((concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (i11 : bits 1) - (concat_vec (i4 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i10 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i7 : bits 1) - (concat_vec (i31 : bits 3) - (concat_vec (i5 : bits 1) - (vec_of_bits [B0;B1] : mword 2)))))))))) - : mword 16) + | C_JAL v__916 => + (if sumbool_of_bool (Z.eqb 64 32) then + let i11 : bits 1 := subrange_vec_dec v__916 10 10 in + let i98 : bits 2 := subrange_vec_dec v__916 8 7 in + let i7 : bits 1 := subrange_vec_dec v__916 6 6 in + let i6 : bits 1 := subrange_vec_dec v__916 5 5 in + let i5 : bits 1 := subrange_vec_dec v__916 4 4 in + let i4 : bits 1 := subrange_vec_dec v__916 3 3 in + let i31 : bits 3 := subrange_vec_dec v__916 2 0 in + let i11 : bits 1 := subrange_vec_dec v__916 10 10 in + let i10 : bits 1 := subrange_vec_dec v__916 9 9 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (i11 : bits 1) + (concat_vec (i4 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i10 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i7 : bits 1) + (concat_vec (i31 : bits 3) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDIW ((v__445, rsd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64))) then - let imm5 : bits 1 := subrange_vec_dec v__445 5 5 in - let imm5 : bits 1 := subrange_vec_dec v__445 5 5 in - let imm40 : bits 5 := subrange_vec_dec v__445 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B1] : mword 3) - (concat_vec (imm5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (imm40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_ADDIW (v__917, rsd) => + (if sumbool_of_bool (andb (neq_vec rsd zreg) (Z.eqb 64 64)) then + let imm5 : bits 1 := subrange_vec_dec v__917 5 5 in + let imm5 : bits 1 := subrange_vec_dec v__917 5 5 in + let imm40 : bits 5 := subrange_vec_dec v__917 4 0 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (imm5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (imm40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LI ((v__446, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - let imm5 : bits 1 := subrange_vec_dec v__446 5 5 in - let imm5 : bits 1 := subrange_vec_dec v__446 5 5 in - let imm40 : bits 5 := subrange_vec_dec v__446 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (imm5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (imm40 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_LI (v__918, rd) => + (if neq_vec rd zreg then + let imm5 : bits 1 := subrange_vec_dec v__918 5 5 in + let imm5 : bits 1 := subrange_vec_dec v__918 5 5 in + let imm40 : bits 5 := subrange_vec_dec v__918 4 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (imm5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (imm40 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDI16SP (v__447) => - (if ((let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__447 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__447 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__447 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__447 0 0 in + | C_ADDI16SP v__919 => + (if let nzi9 : bits 1 := subrange_vec_dec v__919 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__919 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__919 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__919 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__919 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__919 0 0 in neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1))))))) then - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__447 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__447 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__447 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__447 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__447 0 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (nzi9 : bits 1) - (concat_vec (vec_of_bits [B0;B0;B0;B1;B0] : mword 5) - (concat_vec (nzi4 : bits 1) - (concat_vec (nzi6 : bits 1) - (concat_vec (nzi87 : bits 2) - (concat_vec (nzi5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1))))) then + let nzi9 : bits 1 := subrange_vec_dec v__919 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__919 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__919 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__919 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__919 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__919 0 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (nzi9 : bits 1) + (concat_vec ('b"00010" : mword 5) + (concat_vec (nzi4 : bits 1) + (concat_vec (nzi6 : bits 1) + (concat_vec (nzi87 : bits 2) + (concat_vec (nzi5 : bits 1) ('b"01" : mword 2)))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LUI ((v__448, rd)) => - (if sumbool_of_bool ((let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__448 4 0 in - andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool))) then - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__448 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__448 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (imm17 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (imm1612 : bits 5) (vec_of_bits [B0;B1] : mword 2))))) - : mword 16) + | C_LUI (v__920, rd) => + (if let imm17 : bits 1 := subrange_vec_dec v__920 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__920 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__920 4 0 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5)))) + then + let imm17 : bits 1 := subrange_vec_dec v__920 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__920 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__920 4 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (imm17 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (imm1612 : bits 5) ('b"01" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SRLI ((v__449, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__449 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - then - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__449 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__449 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) + | C_SRLI (v__921, rsd) => + (if let nzui5 : bits 1 := subrange_vec_dec v__921 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__921 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__921 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + let nzui5 : bits 1 := subrange_vec_dec v__921 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__921 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__921 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec ('b"00" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (nzui40 : bits 5) ('b"01" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SRAI ((v__450, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__450 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - then - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__450 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__450 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) + | C_SRAI (v__922, rsd) => + (if let nzui5 : bits 1 := subrange_vec_dec v__922 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__922 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__922 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + let nzui5 : bits 1 := subrange_vec_dec v__922 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__922 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__922 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec ('b"01" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (nzui40 : bits 5) ('b"01" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ANDI ((v__451, rsd)) => - let i5 : bits 1 := subrange_vec_dec v__451 5 5 in - let i5 : bits 1 := subrange_vec_dec v__451 5 5 in - let i40 : bits 5 := subrange_vec_dec v__451 4 0 in - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (i5 : bits 1) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (i40 : bits 5) (vec_of_bits [B0;B1] : mword 2)))))) - : mword 16) - | C_SUB ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_XOR ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_OR ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B1;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_AND ((rsd, rs2)) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) - | C_SUBW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) + | C_ANDI (v__923, rsd) => + let i5 : bits 1 := subrange_vec_dec v__923 5 5 in + let i5 : bits 1 := subrange_vec_dec v__923 5 5 in + let i40 : bits 5 := subrange_vec_dec v__923 4 0 in + returnm (concat_vec ('b"100" : mword 3) + (concat_vec (i5 : bits 1) + (concat_vec ('b"10" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec (i40 : bits 5) ('b"01" : mword 2)))))) + | C_SUB (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_XOR (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_OR (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"10" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_AND (rsd, rs2) => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"11" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) + | C_SUBW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"00" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ADDW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B1;B1] : mword 2) - (concat_vec (rsd : cregidx) - (concat_vec (vec_of_bits [B0;B1] : mword 2) - (concat_vec (rs2 : cregidx) (vec_of_bits [B0;B1] : mword 2))))))) - : mword (3 + (1 + (2 + (3 + (2 + (3 + 2))))))) + | C_ADDW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"11" : mword 2) + (concat_vec (rsd : cregidx) + (concat_vec ('b"01" : mword 2) + (concat_vec (rs2 : cregidx) ('b"01" : mword 2))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_J (v__452) => - let i11 : bits 1 := subrange_vec_dec v__452 10 10 in - let i98 : bits 2 := subrange_vec_dec v__452 8 7 in - let i7 : bits 1 := subrange_vec_dec v__452 6 6 in - let i6 : bits 1 := subrange_vec_dec v__452 5 5 in - let i5 : bits 1 := subrange_vec_dec v__452 4 4 in - let i4 : bits 1 := subrange_vec_dec v__452 3 3 in - let i31 : bits 3 := subrange_vec_dec v__452 2 0 in - let i11 : bits 1 := subrange_vec_dec v__452 10 10 in - let i10 : bits 1 := subrange_vec_dec v__452 9 9 in - returnm ((concat_vec (vec_of_bits [B1;B0;B1] : mword 3) - (concat_vec (i11 : bits 1) - (concat_vec (i4 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i10 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i7 : bits 1) - (concat_vec (i31 : bits 3) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))))) - : mword 16) - | C_BEQZ ((v__453, rs)) => - let i8 : bits 1 := subrange_vec_dec v__453 7 7 in - let i8 : bits 1 := subrange_vec_dec v__453 7 7 in - let i76 : bits 2 := subrange_vec_dec v__453 6 5 in - let i5 : bits 1 := subrange_vec_dec v__453 4 4 in - let i43 : bits 2 := subrange_vec_dec v__453 3 2 in - let i21 : bits 2 := subrange_vec_dec v__453 1 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (i8 : bits 1) - (concat_vec (i43 : bits 2) - (concat_vec (rs : cregidx) - (concat_vec (i76 : bits 2) - (concat_vec (i21 : bits 2) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) - | C_BNEZ ((v__454, rs)) => - let i8 : bits 1 := subrange_vec_dec v__454 7 7 in - let i8 : bits 1 := subrange_vec_dec v__454 7 7 in - let i76 : bits 2 := subrange_vec_dec v__454 6 5 in - let i5 : bits 1 := subrange_vec_dec v__454 4 4 in - let i43 : bits 2 := subrange_vec_dec v__454 3 2 in - let i21 : bits 2 := subrange_vec_dec v__454 1 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (i8 : bits 1) - (concat_vec (i43 : bits 2) - (concat_vec (rs : cregidx) - (concat_vec (i76 : bits 2) - (concat_vec (i21 : bits 2) - (concat_vec (i5 : bits 1) (vec_of_bits [B0;B1] : mword 2)))))))) - : mword 16) - | C_SLLI ((v__455, rsd)) => - (if ((let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__455 4 0 in - andb - (neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 64 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool))) then - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__455 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__455 4 0 in - returnm ((concat_vec (vec_of_bits [B0;B0;B0] : mword 3) - (concat_vec (nzui5 : bits 1) - (concat_vec (rsd : regidx) - (concat_vec (nzui40 : bits 5) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) + | C_J v__924 => + let i11 : bits 1 := subrange_vec_dec v__924 10 10 in + let i98 : bits 2 := subrange_vec_dec v__924 8 7 in + let i7 : bits 1 := subrange_vec_dec v__924 6 6 in + let i6 : bits 1 := subrange_vec_dec v__924 5 5 in + let i5 : bits 1 := subrange_vec_dec v__924 4 4 in + let i4 : bits 1 := subrange_vec_dec v__924 3 3 in + let i31 : bits 3 := subrange_vec_dec v__924 2 0 in + let i11 : bits 1 := subrange_vec_dec v__924 10 10 in + let i10 : bits 1 := subrange_vec_dec v__924 9 9 in + returnm (concat_vec ('b"101" : mword 3) + (concat_vec (i11 : bits 1) + (concat_vec (i4 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i10 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i7 : bits 1) + (concat_vec (i31 : bits 3) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))))) + | C_BEQZ (v__925, rs) => + let i8 : bits 1 := subrange_vec_dec v__925 7 7 in + let i8 : bits 1 := subrange_vec_dec v__925 7 7 in + let i76 : bits 2 := subrange_vec_dec v__925 6 5 in + let i5 : bits 1 := subrange_vec_dec v__925 4 4 in + let i43 : bits 2 := subrange_vec_dec v__925 3 2 in + let i21 : bits 2 := subrange_vec_dec v__925 1 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (i8 : bits 1) + (concat_vec (i43 : bits 2) + (concat_vec (rs : cregidx) + (concat_vec (i76 : bits 2) + (concat_vec (i21 : bits 2) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))) + | C_BNEZ (v__926, rs) => + let i8 : bits 1 := subrange_vec_dec v__926 7 7 in + let i8 : bits 1 := subrange_vec_dec v__926 7 7 in + let i76 : bits 2 := subrange_vec_dec v__926 6 5 in + let i5 : bits 1 := subrange_vec_dec v__926 4 4 in + let i43 : bits 2 := subrange_vec_dec v__926 3 2 in + let i21 : bits 2 := subrange_vec_dec v__926 1 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (i8 : bits 1) + (concat_vec (i43 : bits 2) + (concat_vec (rs : cregidx) + (concat_vec (i76 : bits 2) + (concat_vec (i21 : bits 2) + (concat_vec (i5 : bits 1) ('b"01" : mword 2)))))))) + | C_SLLI (v__927, rsd) => + (if sumbool_of_bool + (let nzui5 : bits 1 := subrange_vec_dec v__927 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__927 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__927 4 0 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 64 64) (eq_vec nzui5 ('b"0" : mword 1))))) then + let nzui5 : bits 1 := subrange_vec_dec v__927 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__927 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__927 4 0 in + returnm (concat_vec ('b"000" : mword 3) + (concat_vec (nzui5 : bits 1) + (concat_vec (rsd : regidx) + (concat_vec (nzui40 : bits 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LWSP ((v__456, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - let ui76 : bits 2 := subrange_vec_dec v__456 5 4 in - let ui76 : bits 2 := subrange_vec_dec v__456 5 4 in - let ui5 : bits 1 := subrange_vec_dec v__456 3 3 in - let ui42 : bits 3 := subrange_vec_dec v__456 2 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B0] : mword 3) - (concat_vec (ui5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (ui42 : bits 3) - (concat_vec (ui76 : bits 2) (vec_of_bits [B1;B0] : mword 2)))))) - : mword 16) + | C_LWSP (v__928, rd) => + (if neq_vec rd zreg then + let ui76 : bits 2 := subrange_vec_dec v__928 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__928 5 4 in + let ui5 : bits 1 := subrange_vec_dec v__928 3 3 in + let ui42 : bits 3 := subrange_vec_dec v__928 2 0 in + returnm (concat_vec ('b"010" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui42 : bits 3) + (concat_vec (ui76 : bits 2) ('b"10" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_LDSP ((v__457, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64))) then - let ui86 : bits 3 := subrange_vec_dec v__457 5 3 in - let ui86 : bits 3 := subrange_vec_dec v__457 5 3 in - let ui5 : bits 1 := subrange_vec_dec v__457 2 2 in - let ui43 : bits 2 := subrange_vec_dec v__457 1 0 in - returnm ((concat_vec (vec_of_bits [B0;B1;B1] : mword 3) - (concat_vec (ui5 : bits 1) - (concat_vec (rd : regidx) - (concat_vec (ui43 : bits 2) - (concat_vec (ui86 : bits 3) (vec_of_bits [B1;B0] : mword 2)))))) - : mword 16) + | C_LDSP (v__929, rd) => + (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 64 64)) then + let ui86 : bits 3 := subrange_vec_dec v__929 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__929 5 3 in + let ui5 : bits 1 := subrange_vec_dec v__929 2 2 in + let ui43 : bits 2 := subrange_vec_dec v__929 1 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui43 : bits 2) + (concat_vec (ui86 : bits 3) ('b"10" : mword 2)))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_SWSP ((v__458, rs2)) => - let ui76 : bits 2 := subrange_vec_dec v__458 5 4 in - let ui76 : bits 2 := subrange_vec_dec v__458 5 4 in - let ui52 : bits 4 := subrange_vec_dec v__458 3 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B0] : mword 3) - (concat_vec (ui52 : bits 4) - (concat_vec (ui76 : bits 2) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) - | C_SDSP ((v__459, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then - let ui86 : bits 3 := subrange_vec_dec v__459 5 3 in - let ui86 : bits 3 := subrange_vec_dec v__459 5 3 in - let ui53 : bits 3 := subrange_vec_dec v__459 2 0 in - returnm ((concat_vec (vec_of_bits [B1;B1;B1] : mword 3) - (concat_vec (ui53 : bits 3) - (concat_vec (ui86 : bits 3) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword 16) + | C_SWSP (v__930, rs2) => + let ui76 : bits 2 := subrange_vec_dec v__930 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__930 5 4 in + let ui52 : bits 4 := subrange_vec_dec v__930 3 0 in + returnm (concat_vec ('b"110" : mword 3) + (concat_vec (ui52 : bits 4) + (concat_vec (ui76 : bits 2) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + | C_SDSP (v__931, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then + let ui86 : bits 3 := subrange_vec_dec v__931 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__931 5 3 in + let ui53 : bits 3 := subrange_vec_dec v__931 2 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (ui86 : bits 3) + (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (rs1 : regidx) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_JR rs1 => + (if neq_vec rs1 zreg then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec (rs1 : regidx) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_JALR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (rs1 : regidx) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_JALR rs1 => + (if neq_vec rs1 zreg then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec (rs1 : regidx) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_MV ((rd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B0] : mword 1) - (concat_vec (rd : regidx) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_MV (rd, rs2) => + (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"0" : mword 1) + (concat_vec (rd : regidx) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_EBREAK (tt) => - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (concat_vec (vec_of_bits [B0;B0;B0;B0;B0] : mword 5) - (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) - | C_ADD ((rsd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - returnm ((concat_vec (vec_of_bits [B1;B0;B0] : mword 3) - (concat_vec (vec_of_bits [B1] : mword 1) - (concat_vec (rsd : regidx) - (concat_vec (rs2 : regidx) (vec_of_bits [B1;B0] : mword 2))))) - : mword (3 + (1 + (5 + (5 + 2))))) + | C_EBREAK tt => + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec ('b"00000" : mword 5) + (concat_vec ('b"00000" : mword 5) ('b"10" : mword 2))))) + | C_ADD (rsd, rs2) => + (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then + returnm (concat_vec ('b"100" : mword 3) + (concat_vec ('b"1" : mword 1) + (concat_vec (rsd : regidx) (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FLWSP (v__932, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__45 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__45 then + let ui76 : bits 2 := subrange_vec_dec v__932 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__932 5 4 in + let ui5 : bits 1 := subrange_vec_dec v__932 3 3 in + let ui42 : bits 3 := subrange_vec_dec v__932 2 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui42 : bits 3) + (concat_vec (ui76 : bits 2) ('b"10" : mword 2)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSWSP (v__933, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__51 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__51 then + let ui76 : bits 2 := subrange_vec_dec v__933 5 4 in + let ui76 : bits 2 := subrange_vec_dec v__933 5 4 in + let ui52 : bits 4 := subrange_vec_dec v__933 3 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui52 : bits 4) + (concat_vec (ui76 : bits 2) + (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (mword 16) - | C_ILLEGAL (s) => returnm (s : mword 16) + | C_FLW (v__934, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__57 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__57 then + let ui6 : bits 1 := subrange_vec_dec v__934 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__934 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__934 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__934 0 0 in + returnm (concat_vec ('b"011" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rd : cregidx) ('b"00" : mword 2))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSW (v__935, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__63 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__63 then + let ui6 : bits 1 := subrange_vec_dec v__935 4 4 in + let ui6 : bits 1 := subrange_vec_dec v__935 4 4 in + let ui53 : bits 3 := subrange_vec_dec v__935 3 1 in + let ui2 : bits 1 := subrange_vec_dec v__935 0 0 in + returnm (concat_vec ('b"111" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui2 : bits 1) + (concat_vec (ui6 : bits 1) + (concat_vec (rs2 : cregidx) ('b"00" : mword 2))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FLDSP (v__936, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__69 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__69 then + let ui86 : bits 3 := subrange_vec_dec v__936 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__936 5 3 in + let ui5 : bits 1 := subrange_vec_dec v__936 2 2 in + let ui43 : bits 2 := subrange_vec_dec v__936 1 0 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (ui5 : bits 1) + (concat_vec (rd : regidx) + (concat_vec (ui43 : bits 2) + (concat_vec (ui86 : bits 3) ('b"10" : mword 2)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSDSP (v__937, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__75 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__75 then + let ui86 : bits 3 := subrange_vec_dec v__937 5 3 in + let ui86 : bits 3 := subrange_vec_dec v__937 5 3 in + let ui53 : bits 3 := subrange_vec_dec v__937 2 0 in + returnm (concat_vec ('b"101" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (ui86 : bits 3) + (concat_vec (rs2 : regidx) ('b"10" : mword 2))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FLD (v__938, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__81 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__81 then + let ui76 : bits 2 := subrange_vec_dec v__938 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__938 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__938 2 0 in + returnm (concat_vec ('b"001" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : cregidx) + (concat_vec (ui76 : bits 2) + (concat_vec (rd : cregidx) ('b"00" : mword 2)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_FSD (v__939, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__87 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__87 then + let ui76 : bits 2 := subrange_vec_dec v__939 4 3 in + let ui76 : bits 2 := subrange_vec_dec v__939 4 3 in + let ui53 : bits 3 := subrange_vec_dec v__939 2 0 in + returnm (concat_vec ('b"101" : mword 3) + (concat_vec (ui53 : bits 3) + (concat_vec (rs1 : bits 3) + (concat_vec (ui76 : bits 2) + (concat_vec (rs2 : bits 3) ('b"00" : mword 2)))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (mword 16) + | C_ILLEGAL s => returnm s | _ => assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt end) : M (mword 16). -Definition encdec_compressed_backwards (arg_ : mword 16) -: ast := - - let v__460 := arg_ in - if ((eq_vec v__460 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 16))) - then - C_NOP - (tt) - else if ((andb - (let nz96 : bits 4 := subrange_vec_dec v__460 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__460 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__460 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__460 6 6 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1))))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) - then - let rd : cregidx := subrange_vec_dec v__460 4 2 in - let nz96 : bits 4 := subrange_vec_dec v__460 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__460 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__460 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__460 6 6 in - C_ADDI4SPN - ((rd, concat_vec (nz96 : bits 4) - (concat_vec (nz54 : bits 2) (concat_vec (nz3 : bits 1) (nz2 : bits 1))))) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - let ui6 : bits 1 := subrange_vec_dec v__460 5 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let ui2 : bits 1 := subrange_vec_dec v__460 6 6 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - let rd : cregidx := subrange_vec_dec v__460 4 2 in - C_LW - ((concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 6 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - let rd : cregidx := subrange_vec_dec v__460 4 2 in - C_LD - ((concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - let ui6 : bits 1 := subrange_vec_dec v__460 5 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let ui2 : bits 1 := subrange_vec_dec v__460 6 6 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - let rs1 : cregidx := subrange_vec_dec v__460 9 7 in - C_SW - ((concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 6 5 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs2 : bits 3 := subrange_vec_dec v__460 4 2 in - let rs1 : bits 3 := subrange_vec_dec v__460 9 7 in - C_SD - ((concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rs2)) - else if ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ADDI - ((concat_vec (nzi5 : bits 1) (nzi40 : bits 5), rsd)) - else if sumbool_of_bool ((andb (Z.eqb 64 32) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let i98 : bits 2 := subrange_vec_dec v__460 10 9 in - let i7 : bits 1 := subrange_vec_dec v__460 6 6 in - let i6 : bits 1 := subrange_vec_dec v__460 7 7 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i4 : bits 1 := subrange_vec_dec v__460 11 11 in - let i31 : bits 3 := subrange_vec_dec v__460 5 3 in - let i11 : bits 1 := subrange_vec_dec v__460 12 12 in - let i10 : bits 1 := subrange_vec_dec v__460 8 8 in - C_JAL - (concat_vec (i11 : bits 1) - (concat_vec (i10 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i7 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i5 : bits 1) (concat_vec (i4 : bits 1) (i31 : bits 3)))))))) - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let imm5 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ADDIW - ((concat_vec (imm5 : bits 1) (imm40 : bits 5), rsd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm5 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_LI - ((concat_vec (imm5 : bits 1) (imm40 : bits 5), rd)) - else if ((andb - (let nzi9 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__460 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__460 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__460 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__460 6 6 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1)))))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 7) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (11 - 7 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let nzi9 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__460 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__460 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__460 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__460 6 6 in - C_ADDI16SP - (concat_vec (nzi9 : bits 1) - (concat_vec (nzi87 : bits 2) - (concat_vec (nzi6 : bits 1) (concat_vec (nzi5 : bits 1) (nzi4 : bits 1))))) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - let rd : regidx := subrange_vec_dec v__460 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__460 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__460 6 2 in - C_LUI - ((concat_vec (imm17 : bits 1) (imm1612 : bits 5), rd)) - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B0;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SRLI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B0;B1] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SRAI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 11 10) - (vec_of_bits [B1;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let i5 : bits 1 := subrange_vec_dec v__460 12 12 in - let i40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_ANDI - ((concat_vec (i5 : bits 1) (i40 : bits 5), rsd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_SUB - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_XOR - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B1;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_OR - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) (vec_of_bits [B1;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_AND - ((rsd, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) - (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_SUBW - ((rsd, rs2)) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__460 6 5) - (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - let rsd : cregidx := subrange_vec_dec v__460 9 7 in - let rs2 : cregidx := subrange_vec_dec v__460 4 2 in - C_ADDW - ((rsd, rs2)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let i98 : bits 2 := subrange_vec_dec v__460 10 9 in - let i7 : bits 1 := subrange_vec_dec v__460 6 6 in - let i6 : bits 1 := subrange_vec_dec v__460 7 7 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i4 : bits 1 := subrange_vec_dec v__460 11 11 in - let i31 : bits 3 := subrange_vec_dec v__460 5 3 in - let i11 : bits 1 := subrange_vec_dec v__460 12 12 in - let i10 : bits 1 := subrange_vec_dec v__460 8 8 in - C_J - (concat_vec (i11 : bits 1) - (concat_vec (i10 : bits 1) - (concat_vec (i98 : bits 2) - (concat_vec (i7 : bits 1) - (concat_vec (i6 : bits 1) - (concat_vec (i5 : bits 1) (concat_vec (i4 : bits 1) (i31 : bits 3)))))))) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let rs : cregidx := subrange_vec_dec v__460 9 7 in - let i8 : bits 1 := subrange_vec_dec v__460 12 12 in - let i76 : bits 2 := subrange_vec_dec v__460 6 5 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i43 : bits 2 := subrange_vec_dec v__460 11 10 in - let i21 : bits 2 := subrange_vec_dec v__460 4 3 in - C_BEQZ - ((concat_vec (i8 : bits 1) - (concat_vec (i76 : bits 2) - (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - let rs : cregidx := subrange_vec_dec v__460 9 7 in - let i8 : bits 1 := subrange_vec_dec v__460 12 12 in - let i76 : bits 2 := subrange_vec_dec v__460 6 5 in - let i5 : bits 1 := subrange_vec_dec v__460 2 2 in - let i43 : bits 2 := subrange_vec_dec v__460 11 10 in - let i21 : bits 2 := subrange_vec_dec v__460 4 3 in - C_BNEZ - ((concat_vec (i8 : bits 1) - (concat_vec (i76 : bits 2) - (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) - else if ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - andb - (neq_vec (concat_vec nzui5 nzui40) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 64 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) - then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__460 6 2 in - C_SLLI - ((concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui76 : bits 2 := subrange_vec_dec v__460 3 2 in - let ui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let ui42 : bits 3 := subrange_vec_dec v__460 6 4 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_LWSP - ((concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64)) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui86 : bits 3 := subrange_vec_dec v__460 4 2 in - let ui5 : bits 1 := subrange_vec_dec v__460 12 12 in - let ui43 : bits 2 := subrange_vec_dec v__460 6 5 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_LDSP - ((concat_vec (ui86 : bits 3) (concat_vec (ui5 : bits 1) (ui43 : bits 2)), rd)) - else if ((andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - let ui76 : bits 2 := subrange_vec_dec v__460 8 7 in - let ui52 : bits 4 := subrange_vec_dec v__460 12 9 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_SWSP - ((concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__460 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let ui86 : bits 3 := subrange_vec_dec v__460 9 7 in - let ui53 : bits 3 := subrange_vec_dec v__460 12 10 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_SDSP - ((concat_vec (ui86 : bits 3) (ui53 : bits 3), rs2)) - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - let rs1 : regidx := subrange_vec_dec v__460 11 7 in - C_JR - (rs1) - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__460 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) +Definition encdec_compressed_backwards (arg_ : mword 16) : M (ast) := + let v__940 := arg_ in + (if eq_vec v__940 (Ox"0001" : mword 16) then returnm (C_NOP tt) + else if andb + (let nz96 : bits 4 := subrange_vec_dec v__940 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__940 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__940 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__940 6 6 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1))))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1)))) then + let rd : cregidx := subrange_vec_dec v__940 4 2 in + let nz96 : bits 4 := subrange_vec_dec v__940 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__940 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__940 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__940 6 6 in + returnm (C_ADDI4SPN + (rd, concat_vec (nz96 : bits 4) + (concat_vec (nz54 : bits 2) (concat_vec (nz3 : bits 1) (nz2 : bits 1))))) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1))) then + let ui6 : bits 1 := subrange_vec_dec v__940 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__940 6 6 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + let rd : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_LW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1))))) then + let ui76 : bits 2 := subrange_vec_dec v__940 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + let rd : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_LD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rd)) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1))) then + let ui6 : bits 1 := subrange_vec_dec v__940 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__940 6 6 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + returnm (C_SW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1))))) then + let ui76 : bits 2 := subrange_vec_dec v__940 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs2 : bits 3 := subrange_vec_dec v__940 4 2 in + let rs1 : bits 3 := subrange_vec_dec v__940 9 7 in + returnm (C_SD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rs2)) + else if andb + (let rsd : regidx := subrange_vec_dec v__940 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__940 6 2 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg)) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : regidx := subrange_vec_dec v__940 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_ADDI (concat_vec (nzi5 : bits 1) (nzi40 : bits 5), rsd)) + else if sumbool_of_bool + (andb (Z.eqb 64 32) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let i98 : bits 2 := subrange_vec_dec v__940 10 9 in + let i7 : bits 1 := subrange_vec_dec v__940 6 6 in + let i6 : bits 1 := subrange_vec_dec v__940 7 7 in + let i5 : bits 1 := subrange_vec_dec v__940 2 2 in + let i4 : bits 1 := subrange_vec_dec v__940 11 11 in + let i31 : bits 3 := subrange_vec_dec v__940 5 3 in + let i11 : bits 1 := subrange_vec_dec v__940 12 12 in + let i10 : bits 1 := subrange_vec_dec v__940 8 8 in + returnm (C_JAL + (concat_vec (i11 : bits 1) + (concat_vec (i10 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i7 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i5 : bits 1) + (concat_vec (i4 : bits 1) (i31 : bits 3))))))))) + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__940 11 7 in + andb (neq_vec rsd zreg) (Z.eqb 64 64)) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : regidx := subrange_vec_dec v__940 11 7 in + let imm5 : bits 1 := subrange_vec_dec v__940 12 12 in + let imm40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_ADDIW (concat_vec (imm5 : bits 1) (imm40 : bits 5), rsd)) + else if andb + (let rd : regidx := subrange_vec_dec v__940 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rd : regidx := subrange_vec_dec v__940 11 7 in + let imm5 : bits 1 := subrange_vec_dec v__940 12 12 in + let imm40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_LI (concat_vec (imm5 : bits 1) (imm40 : bits 5), rd)) + else if andb + (let nzi9 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__940 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__940 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__940 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__940 6 6 in + neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1)))))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 11 7) ('b"00010" : mword (11 - 7 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let nzi9 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__940 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__940 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__940 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__940 6 6 in + returnm (C_ADDI16SP + (concat_vec (nzi9 : bits 1) + (concat_vec (nzi87 : bits 2) + (concat_vec (nzi6 : bits 1) (concat_vec (nzi5 : bits 1) (nzi4 : bits 1)))))) + else if andb + (let rd : regidx := subrange_vec_dec v__940 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__940 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__940 6 2 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5))))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rd : regidx := subrange_vec_dec v__940 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__940 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_LUI (concat_vec (imm17 : bits 1) (imm1612 : bits 5), rd)) + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 11 10) ('b"00" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_SRLI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 11 10) ('b"01" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_SRAI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 11 10) ('b"10" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let i5 : bits 1 := subrange_vec_dec v__940 12 12 in + let i40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_ANDI (concat_vec (i5 : bits 1) (i40 : bits 5), rsd)) + else if andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_SUB (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_XOR (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"10" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_OR (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"11" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_AND (rsd, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_SUBW (rsd, rs2)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__940 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__940 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + let rsd : cregidx := subrange_vec_dec v__940 9 7 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_ADDW (rsd, rs2)) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"101" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))) then + let i98 : bits 2 := subrange_vec_dec v__940 10 9 in + let i7 : bits 1 := subrange_vec_dec v__940 6 6 in + let i6 : bits 1 := subrange_vec_dec v__940 7 7 in + let i5 : bits 1 := subrange_vec_dec v__940 2 2 in + let i4 : bits 1 := subrange_vec_dec v__940 11 11 in + let i31 : bits 3 := subrange_vec_dec v__940 5 3 in + let i11 : bits 1 := subrange_vec_dec v__940 12 12 in + let i10 : bits 1 := subrange_vec_dec v__940 8 8 in + returnm (C_J + (concat_vec (i11 : bits 1) + (concat_vec (i10 : bits 1) + (concat_vec (i98 : bits 2) + (concat_vec (i7 : bits 1) + (concat_vec (i6 : bits 1) + (concat_vec (i5 : bits 1) + (concat_vec (i4 : bits 1) (i31 : bits 3))))))))) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))) then + let rs : cregidx := subrange_vec_dec v__940 9 7 in + let i8 : bits 1 := subrange_vec_dec v__940 12 12 in + let i76 : bits 2 := subrange_vec_dec v__940 6 5 in + let i5 : bits 1 := subrange_vec_dec v__940 2 2 in + let i43 : bits 2 := subrange_vec_dec v__940 11 10 in + let i21 : bits 2 := subrange_vec_dec v__940 4 3 in + returnm (C_BEQZ + (concat_vec (i8 : bits 1) + (concat_vec (i76 : bits 2) + (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"01" : mword (1 - 0 + 1))) then + let rs : cregidx := subrange_vec_dec v__940 9 7 in + let i8 : bits 1 := subrange_vec_dec v__940 12 12 in + let i76 : bits 2 := subrange_vec_dec v__940 6 5 in + let i5 : bits 1 := subrange_vec_dec v__940 2 2 in + let i43 : bits 2 := subrange_vec_dec v__940 11 10 in + let i21 : bits 2 := subrange_vec_dec v__940 4 3 in + returnm (C_BNEZ + (concat_vec (i8 : bits 1) + (concat_vec (i76 : bits 2) + (concat_vec (i5 : bits 1) (concat_vec (i43 : bits 2) (i21 : bits 2)))), rs)) + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__940 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 64 64) (eq_vec nzui5 ('b"0" : mword 1))))) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let rsd : regidx := subrange_vec_dec v__940 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__940 6 2 in + returnm (C_SLLI (concat_vec (nzui5 : bits 1) (nzui40 : bits 5), rsd)) + else if andb + (let rd : regidx := subrange_vec_dec v__940 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let ui76 : bits 2 := subrange_vec_dec v__940 3 2 in + let ui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let ui42 : bits 3 := subrange_vec_dec v__940 6 4 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_LWSP + (concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) + else if sumbool_of_bool + (andb + (let rd : regidx := subrange_vec_dec v__940 11 7 in + andb (neq_vec rd zreg) (Z.eqb 64 64)) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let ui86 : bits 3 := subrange_vec_dec v__940 4 2 in + let ui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let ui43 : bits 2 := subrange_vec_dec v__940 6 5 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_LDSP + (concat_vec (ui86 : bits 3) (concat_vec (ui5 : bits 1) (ui43 : bits 2)), rd)) + else if andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1))) then + let ui76 : bits 2 := subrange_vec_dec v__940 8 7 in + let ui52 : bits 4 := subrange_vec_dec v__940 12 9 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + returnm (C_SWSP (concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1))))) then + let ui86 : bits 3 := subrange_vec_dec v__940 9 7 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + returnm (C_SDSP (concat_vec (ui86 : bits 3) (ui53 : bits 3), rs2)) + else if andb + (let rs1 : regidx := subrange_vec_dec v__940 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__940 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__940 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + let rs1 : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_JR rs1) + else if andb + (let rs1 : regidx := subrange_vec_dec v__940 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__940 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__940 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + let rs1 : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_JALR rs1) + else if andb + (let rs2 : regidx := subrange_vec_dec v__940 6 2 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + andb (neq_vec rd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__940 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_MV (rd, rs2)) + else if eq_vec v__940 (Ox"9002" : mword 16) then returnm (C_EBREAK tt) + else if andb + (let rsd : regidx := subrange_vec_dec v__940 11 7 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + andb (neq_vec rsd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__940 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1)))) then + let rsd : regidx := subrange_vec_dec v__940 11 7 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + returnm (C_ADD (rsd, rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__4 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__4 then + let ui76 : bits 2 := subrange_vec_dec v__940 3 2 in + let ui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let ui42 : bits 3 := subrange_vec_dec v__940 6 4 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_FLWSP + (concat_vec (ui76 : bits 2) (concat_vec (ui5 : bits 1) (ui42 : bits 3)), rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__9 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__9 then + let ui76 : bits 2 := subrange_vec_dec v__940 8 7 in + let ui52 : bits 4 := subrange_vec_dec v__940 12 9 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + returnm (C_FSWSP (concat_vec (ui76 : bits 2) (ui52 : bits 4), rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__14 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__14 then + let ui6 : bits 1 := subrange_vec_dec v__940 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__940 6 6 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + let rd : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_FLW + (concat_vec (ui6 : bits 1) (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) + ('b"111" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__19 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__19 then + let ui6 : bits 1 := subrange_vec_dec v__940 5 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let ui2 : bits 1 := subrange_vec_dec v__940 6 6 in + let rs2 : cregidx := subrange_vec_dec v__940 4 2 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + returnm (C_FSW + (concat_vec (ui6 : bits 1) + (concat_vec (ui53 : bits 3) (ui2 : bits 1)), rs1, rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) + ('b"001" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) + ('b"10" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__24 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__24 then + let ui86 : bits 3 := subrange_vec_dec v__940 4 2 in + let ui5 : bits 1 := subrange_vec_dec v__940 12 12 in + let ui43 : bits 2 := subrange_vec_dec v__940 6 5 in + let rd : regidx := subrange_vec_dec v__940 11 7 in + returnm (C_FLDSP + (concat_vec (ui86 : bits 3) + (concat_vec (ui5 : bits 1) (ui43 : bits 2)), rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) + ('b"101" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) + ('b"10" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__29 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__29 then + let ui86 : bits 3 := subrange_vec_dec v__940 9 7 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs2 : regidx := subrange_vec_dec v__940 6 2 in + returnm (C_FSDSP (concat_vec (ui86 : bits 3) (ui53 : bits 3), rs2)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - let rs1 : regidx := subrange_vec_dec v__460 11 7 in - C_JALR - (rs1) - else if sumbool_of_bool ((andb - (let rs2 : regidx := subrange_vec_dec v__460 6 2 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - let rd : regidx := subrange_vec_dec v__460 11 7 in - C_MV - ((rd, rs2)) - else if ((eq_vec v__460 - (vec_of_bits [B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 16))) then - C_EBREAK - (tt) - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__460 11 7 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) + ('b"001" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) + ('b"00" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__34 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__34 then + let ui76 : bits 2 := subrange_vec_dec v__940 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs1 : cregidx := subrange_vec_dec v__940 9 7 in + let rd : cregidx := subrange_vec_dec v__940 4 2 in + returnm (C_FLD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rd)) + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__460 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__460 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - let rsd : regidx := subrange_vec_dec v__460 11 7 in - let rs2 : regidx := subrange_vec_dec v__460 6 2 in - C_ADD - ((rsd, rs2)) - else C_ILLEGAL (v__460). - -Definition encdec_compressed_forwards_matches (arg_ : ast) -: bool := - - match arg_ with - | C_NOP (tt) => true - | C_ADDI4SPN ((rd, v__596)) => - if ((let nz96 : bits 4 := subrange_vec_dec v__596 7 4 in - let nz96 : bits 4 := subrange_vec_dec v__596 7 4 in - let nz54 : bits 2 := subrange_vec_dec v__596 3 2 in - let nz3 : bits 1 := subrange_vec_dec v__596 1 1 in - let nz2 : bits 1 := subrange_vec_dec v__596 0 0 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1)))))) then - true - else false - | C_LW ((v__597, rs1, rd)) => true - | C_LD ((v__598, rs1, rd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_SW ((v__599, rs1, rs2)) => true - | C_SD ((v__600, rs1, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_ADDI ((v__601, rsd)) => - if ((let nzi5 : bits 1 := subrange_vec_dec v__601 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__601 5 5 in - let nzi40 : bits 5 := subrange_vec_dec v__601 4 0 in - andb (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_JAL (v__602) => if sumbool_of_bool ((Z.eqb 64 32)) then true else false - | C_ADDIW ((v__603, rsd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64))) then - true - else false - | C_LI ((v__604, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_ADDI16SP (v__605) => - if ((let nzi9 : bits 1 := subrange_vec_dec v__605 5 5 in - let nzi9 : bits 1 := subrange_vec_dec v__605 5 5 in - let nzi87 : bits 2 := subrange_vec_dec v__605 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__605 2 2 in - let nzi5 : bits 1 := subrange_vec_dec v__605 1 1 in - let nzi4 : bits 1 := subrange_vec_dec v__605 0 0 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1))))))) then - true - else false - | C_LUI ((v__606, rd)) => - if sumbool_of_bool ((let imm17 : bits 1 := subrange_vec_dec v__606 5 5 in - let imm17 : bits 1 := subrange_vec_dec v__606 5 5 in - let imm1612 : bits 5 := subrange_vec_dec v__606 4 0 in - andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool))) then - true - else false - | C_SRLI ((v__607, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__607 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__607 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__607 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) then - true - else false - | C_SRAI ((v__608, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__608 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__608 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__608 4 0 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) then - true - else false - | C_ANDI ((v__609, rsd)) => true - | C_SUB ((rsd, rs2)) => true - | C_XOR ((rsd, rs2)) => true - | C_OR ((rsd, rs2)) => true - | C_AND ((rsd, rs2)) => true - | C_SUBW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_ADDW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_J (v__610) => true - | C_BEQZ ((v__611, rs)) => true - | C_BNEZ ((v__612, rs)) => true - | C_SLLI ((v__613, rsd)) => - if ((let nzui5 : bits 1 := subrange_vec_dec v__613 5 5 in - let nzui5 : bits 1 := subrange_vec_dec v__613 5 5 in - let nzui40 : bits 5 := subrange_vec_dec v__613 4 0 in - andb (neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb (projT1 (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 64 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool))) then - true - else false - | C_LWSP ((v__614, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_LDSP ((v__615, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - (Z.eqb 64 64))) then - true - else false - | C_SWSP ((v__616, rs2)) => true - | C_SDSP ((v__617, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_JR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_JALR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_MV ((rd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_EBREAK (tt) => true - | C_ADD ((rsd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_ILLEGAL (s) => true - | _ => false - end. + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || + (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) + ((haveDExt tt) + : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__940 15 13) + ('b"101" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__940 1 0) + ('b"00" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__39 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__39 then + let ui76 : bits 2 := subrange_vec_dec v__940 6 5 in + let ui53 : bits 3 := subrange_vec_dec v__940 12 10 in + let rs2 : bits 3 := subrange_vec_dec v__940 4 2 in + let rs1 : bits 3 := subrange_vec_dec v__940 9 7 in + C_FSD (concat_vec (ui76 : bits 2) (ui53 : bits 3), rs1, rs2) + else C_ILLEGAL v__940)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast). -Definition encdec_compressed_backwards_matches (arg_ : mword 16) -: bool := - - let v__618 := arg_ in - if ((eq_vec v__618 (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1] : mword 16))) - then - true - else if ((andb - (let nz96 : bits 4 := subrange_vec_dec v__618 10 7 in - let nz54 : bits 2 := subrange_vec_dec v__618 12 11 in - let nz3 : bits 1 := subrange_vec_dec v__618 5 5 in - let nz2 : bits 1 := subrange_vec_dec v__618 6 6 in - neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword (4 + (2 + (1 + 1))))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let nzi5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzi40 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (neq_vec (concat_vec nzi5 nzi40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 64 32) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let nzi9 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzi87 : bits 2 := subrange_vec_dec v__618 4 3 in - let nzi6 : bits 1 := subrange_vec_dec v__618 5 5 in - let nzi5 : bits 1 := subrange_vec_dec v__618 2 2 in - let nzi4 : bits 1 := subrange_vec_dec v__618 6 6 in - neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + (2 + (1 + (1 + 1)))))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 7) - (vec_of_bits [B0;B0;B0;B1;B0] : mword (11 - 7 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - let imm17 : bits 1 := subrange_vec_dec v__618 12 12 in - let imm1612 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec (concat_vec imm17 imm1612) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B0;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - neq_vec (concat_vec nzui5 nzui40) (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B0;B1] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B0] : mword (15 - 13 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 11 10) - (vec_of_bits [B1;B0] : mword (11 - 10 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B1;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B0;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) (vec_of_bits [B1;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) - (vec_of_bits [B0;B0] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 10) - (vec_of_bits [B1;B0;B0;B1;B1;B1] : mword (15 - 10 + 1))) - (andb - (eq_vec (subrange_vec_dec v__618 6 5) - (vec_of_bits [B0;B1] : mword (6 - 5 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B0;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - true - else if ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let nzui5 : bits 1 := subrange_vec_dec v__618 12 12 in - let nzui40 : bits 5 := subrange_vec_dec v__618 6 2 in - andb - (neq_vec (concat_vec nzui5 nzui40) - (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword (1 + 5))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - (orb (Z.eqb 64 64) (eq_vec nzui5 ((bool_to_bits false) : mword 1)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B0;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64)) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B0;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if ((andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B0] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - true - else if sumbool_of_bool ((andb (Z.eqb 64 64) - (andb - (eq_vec (subrange_vec_dec v__618 15 13) - (vec_of_bits [B1;B1;B1] : mword (15 - 13 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) - (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rs1 : regidx := subrange_vec_dec v__618 11 7 in - projT1 - (neq_int (projT1 (regidx_to_regno rs1)) +Definition encdec_compressed_forwards_matches (arg_ : ast) : M (bool) := + (match arg_ with + | C_NOP tt => returnm true + | C_ADDI4SPN (rd, v__1100) => + returnm (if let nz96 : bits 4 := subrange_vec_dec v__1100 7 4 in + let nz96 : bits 4 := subrange_vec_dec v__1100 7 4 in + let nz54 : bits 2 := subrange_vec_dec v__1100 3 2 in + let nz3 : bits 1 := subrange_vec_dec v__1100 1 1 in + let nz2 : bits 1 := subrange_vec_dec v__1100 0 0 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1)))) then + true + else false) + | C_LW (v__1101, rs1, rd) => returnm true + | C_LD (v__1102, rs1, rd) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | C_SW (v__1103, rs1, rs2) => returnm true + | C_SD (v__1104, rs1, rs2) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | C_ADDI (v__1105, rsd) => + returnm (if let nzi5 : bits 1 := subrange_vec_dec v__1105 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__1105 5 5 in + let nzi40 : bits 5 := subrange_vec_dec v__1105 4 0 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg) then + true + else false) + | C_JAL v__1106 => returnm (if sumbool_of_bool (Z.eqb 64 32) then true else false) + | C_ADDIW (v__1107, rsd) => + returnm (if sumbool_of_bool (andb (neq_vec rsd zreg) (Z.eqb 64 64)) then true else false) + | C_LI (v__1108, rd) => returnm (if neq_vec rd zreg then true else false) + | C_ADDI16SP v__1109 => + returnm (if let nzi9 : bits 1 := subrange_vec_dec v__1109 5 5 in + let nzi9 : bits 1 := subrange_vec_dec v__1109 5 5 in + let nzi87 : bits 2 := subrange_vec_dec v__1109 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__1109 2 2 in + let nzi5 : bits 1 := subrange_vec_dec v__1109 1 1 in + let nzi4 : bits 1 := subrange_vec_dec v__1109 0 0 in + neq_vec + (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1))))) then + true + else false) + | C_LUI (v__1110, rd) => + returnm (if let imm17 : bits 1 := subrange_vec_dec v__1110 5 5 in + let imm17 : bits 1 := subrange_vec_dec v__1110 5 5 in + let imm1612 : bits 5 := subrange_vec_dec v__1110 4 0 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5)))) then + true + else false) + | C_SRLI (v__1111, rsd) => + returnm (if let nzui5 : bits 1 := subrange_vec_dec v__1111 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__1111 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__1111 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + true + else false) + | C_SRAI (v__1112, rsd) => + returnm (if let nzui5 : bits 1 := subrange_vec_dec v__1112 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__1112 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__1112 4 0 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5)) then + true + else false) + | C_ANDI (v__1113, rsd) => returnm true + | C_SUB (rsd, rs2) => returnm true + | C_XOR (rsd, rs2) => returnm true + | C_OR (rsd, rs2) => returnm true + | C_AND (rsd, rs2) => returnm true + | C_SUBW (rsd, rs2) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | C_ADDW (rsd, rs2) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | C_J v__1114 => returnm true + | C_BEQZ (v__1115, rs) => returnm true + | C_BNEZ (v__1116, rs) => returnm true + | C_SLLI (v__1117, rsd) => + returnm (if sumbool_of_bool + (let nzui5 : bits 1 := subrange_vec_dec v__1117 5 5 in + let nzui5 : bits 1 := subrange_vec_dec v__1117 5 5 in + let nzui40 : bits 5 := subrange_vec_dec v__1117 4 0 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 64 64) (eq_vec nzui5 ('b"0" : mword 1))))) + then + true + else false) + | C_LWSP (v__1118, rd) => returnm (if neq_vec rd zreg then true else false) + | C_LDSP (v__1119, rd) => + returnm (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 64 64)) then true else false) + | C_SWSP (v__1120, rs2) => returnm true + | C_SDSP (v__1121, rs2) => returnm (if sumbool_of_bool (Z.eqb 64 64) then true else false) + | C_JR rs1 => returnm (if neq_vec rs1 zreg then true else false) + | C_JALR rs1 => returnm (if neq_vec rs1 zreg then true else false) + | C_MV (rd, rs2) => returnm (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then true else false) + | C_EBREAK tt => returnm true + | C_ADD (rsd, rs2) => + returnm (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then true else false) + | C_FLWSP (v__1122, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__3 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__3 then true else false) + | C_FSWSP (v__1123, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__7 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__7 then true else false) + | C_FLW (v__1124, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__11 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__11 then true else false) + | C_FSW (v__1125, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__15 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + returnm (if sumbool_of_bool w__15 then true else false) + | C_FLDSP (v__1126, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__19 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__19 then true else false) + | C_FSDSP (v__1127, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__23 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__23 then true else false) + | C_FLD (v__1128, rs1, rd) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__27 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__27 then true else false) + | C_FSD (v__1129, rs1, rs2) => + (and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__31 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__31 then true else false) + | C_ILLEGAL s => returnm true + | _ => returnm false + end) + : M (bool). + +Definition encdec_compressed_backwards_matches (arg_ : mword 16) : M (bool) := + let v__1130 := arg_ in + (if eq_vec v__1130 (Ox"0001" : mword 16) then returnm true + else if andb + (let nz96 : bits 4 := subrange_vec_dec v__1130 10 7 in + let nz54 : bits 2 := subrange_vec_dec v__1130 12 11 in + let nz3 : bits 1 := subrange_vec_dec v__1130 5 5 in + let nz2 : bits 1 := subrange_vec_dec v__1130 6 6 in + neq_vec (concat_vec nz96 (concat_vec nz54 (concat_vec nz3 nz2))) + (Ox"00" + : mword (4 + (2 + (1 + 1))))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rsd : regidx := subrange_vec_dec v__1130 11 7 in + let nzi5 : bits 1 := subrange_vec_dec v__1130 12 12 in + let nzi40 : bits 5 := subrange_vec_dec v__1130 6 2 in + andb (neq_vec (concat_vec nzi5 nzi40) ('b"000000" : mword (1 + 5))) + (neq_vec rsd zreg)) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 32) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__1130 11 7 in + andb (neq_vec rsd zreg) (Z.eqb 64 64)) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"001" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__1130 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb + (let nzi9 : bits 1 := subrange_vec_dec v__1130 12 12 in + let nzi87 : bits 2 := subrange_vec_dec v__1130 4 3 in + let nzi6 : bits 1 := subrange_vec_dec v__1130 5 5 in + let nzi5 : bits 1 := subrange_vec_dec v__1130 2 2 in + let nzi4 : bits 1 := subrange_vec_dec v__1130 6 6 in + neq_vec (concat_vec nzi9 (concat_vec nzi87 (concat_vec nzi6 (concat_vec nzi5 nzi4)))) + ('b"000000" + : mword (1 + (2 + (1 + (1 + 1)))))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"011" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 11 7) ('b"00010" : mword (11 - 7 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__1130 11 7 in + let imm17 : bits 1 := subrange_vec_dec v__1130 12 12 in + let imm1612 : bits 5 := subrange_vec_dec v__1130 6 2 in + andb (neq_vec rd zreg) + (andb (neq_vec rd sp) + (neq_vec (concat_vec imm17 imm1612) ('b"000000" : mword (1 + 5))))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__1130 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__1130 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 11 10) ('b"00" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let nzui5 : bits 1 := subrange_vec_dec v__1130 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__1130 6 2 in + neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 11 10) ('b"01" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"100" : mword (15 - 13 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 11 10) ('b"10" : mword (11 - 10 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"10" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100011" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"11" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"00" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__1130 15 10) ('b"100111" : mword (15 - 10 + 1))) + (andb (eq_vec (subrange_vec_dec v__1130 6 5) ('b"01" : mword (6 - 5 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1)))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"101" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb + (let rsd : regidx := subrange_vec_dec v__1130 11 7 in + let nzui5 : bits 1 := subrange_vec_dec v__1130 12 12 in + let nzui40 : bits 5 := subrange_vec_dec v__1130 6 2 in + andb (neq_vec (concat_vec nzui5 nzui40) ('b"000000" : mword (1 + 5))) + (andb (neq_vec rsd zreg) (orb (Z.eqb 64 64) (eq_vec nzui5 ('b"0" : mword 1))))) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"000" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rd : regidx := subrange_vec_dec v__1130 11 7 in + neq_vec rd zreg) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"010" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else if sumbool_of_bool + (andb + (let rd : regidx := subrange_vec_dec v__1130 11 7 in + andb (neq_vec rd zreg) (Z.eqb 64 64)) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"110" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1))) then + returnm true + else if sumbool_of_bool + (andb (Z.eqb 64 64) + (andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1))))) then + returnm true + else if andb + (let rs1 : regidx := subrange_vec_dec v__1130 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__1130 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__1130 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + returnm true + else if andb + (let rs1 : regidx := subrange_vec_dec v__1130 11 7 in + neq_vec rs1 zreg) + (andb (eq_vec (subrange_vec_dec v__1130 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__1130 6 0) ('b"0000010" : mword (6 - 0 + 1)))) then + returnm true + else if andb + (let rs2 : regidx := subrange_vec_dec v__1130 6 2 in + let rd : regidx := subrange_vec_dec v__1130 11 7 in + andb (neq_vec rd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__1130 15 12) (Ox"8" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else if eq_vec v__1130 (Ox"9002" : mword 16) then returnm true + else if andb + (let rsd : regidx := subrange_vec_dec v__1130 11 7 in + let rs2 : regidx := subrange_vec_dec v__1130 6 2 in + andb (neq_vec rsd zreg) (neq_vec rs2 zreg)) + (andb (eq_vec (subrange_vec_dec v__1130 15 12) (Ox"9" : mword (15 - 12 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1)))) then + returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb (eq_vec (subrange_vec_dec v__1130 15 13) ('b"011" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__4 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__4 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) ('b"111" : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"10" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__9 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__9 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"011" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__14 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__14 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (Z.eqb 64 32) + : {_bool : bool & ArithFact (Bool.eqb (64 =? 32) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb (64 =? + 32) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveFExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && (64 =? 32)) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"111" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) ('b"00" : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)})) >>= fun '(existT _ w__19 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + (64 =? 32)) _bool = true)}) => + (if sumbool_of_bool w__19 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"001" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) + ('b"10" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__24 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__24 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex + (projT1 + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"101" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) + ('b"10" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__29 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__29 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex (projT1 - (regidx_to_regno zreg)))) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B0] : mword (6 - 0 + 1)))))) - then - true - else if sumbool_of_bool ((andb - (let rs2 : regidx := subrange_vec_dec v__618 6 2 in - let rd : regidx := subrange_vec_dec v__618 11 7 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B0] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else if ((eq_vec v__618 - (vec_of_bits [B1;B0;B0;B1;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B1;B0] : mword 16))) then - true - else if sumbool_of_bool ((andb - (let rsd : regidx := subrange_vec_dec v__618 11 7 in - let rs2 : regidx := subrange_vec_dec v__618 6 2 in - andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) ((haveDExt tt) : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"001" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) + ('b"00" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__34 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + (if sumbool_of_bool w__34 then returnm true + else + (and_boolMP + (((and_boolMP + ((returnm (build_ex (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool)) - (andb - (eq_vec (subrange_vec_dec v__618 15 12) - (vec_of_bits [B1;B0;B0;B1] : mword (15 - 12 + 1))) - (eq_vec (subrange_vec_dec v__618 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1)))))) then - true - else true. + (build_ex + (orb (Z.eqb 64 32) (Z.eqb 64 64)) + : {_bool : bool & ArithFact (Bool.eqb ((64 =? 32) || + (64 =? 64)) _bool)})))) : M ({_bool : bool & ArithFact (Bool.eqb ((64 =? + 32) || + (64 =? 64)) _bool)})) + (build_trivial_ex + ((and_boolM ((haveRVC tt) : M (bool)) + ((haveDExt tt) + : M (bool))) + : M (bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) + (build_trivial_ex + (returnm ((andb + (eq_vec (subrange_vec_dec v__1130 15 13) + ('b"101" + : mword (15 - 13 + 1))) + (eq_vec (subrange_vec_dec v__1130 1 0) + ('b"00" + : mword (1 - 0 + 1)))) + : bool))) : M ({_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)})) >>= fun '(existT _ w__39 _ : {_bool : bool & ArithFactP (exists simp_0 , Bool.eqb (simp_0 && + ((64 =? 32) || (64 =? 64))) _bool = true)}) => + returnm (if sumbool_of_bool w__39 then true else true)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool). -Definition execute_WFI '(tt : unit) -: M (Retired) := - +Definition execute_WFI '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | Machine => (platform_wfi tt) >> returnm (RETIRE_SUCCESS : Retired) + | Machine => (platform_wfi tt) >> returnm RETIRE_SUCCESS | Supervisor => read_reg mstatus_ref >>= fun w__1 : Mstatus => - (if ((eq_vec (_get_Mstatus_TW w__1) ((bool_to_bits true) : mword 1))) then - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) - else (platform_wfi tt) >> returnm (RETIRE_SUCCESS : Retired)) + (if eq_vec (_get_Mstatus_TW w__1) ('b"1" : mword 1) then + (handle_illegal tt) >> returnm RETIRE_FAIL + else (platform_wfi tt) >> returnm RETIRE_SUCCESS) : M (Retired) - | User => (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + | User => (handle_illegal tt) >> returnm RETIRE_FAIL end) : M (Retired). -Definition execute_UTYPE (imm : mword 20) (rd : mword 5) (op : uop) -: M (Retired) := - - let off : xlenbits := - EXTS 64 (concat_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0] : mword 12)) in +Definition execute_UTYPE (imm : mword 20) (rd : mword 5) (op : uop) : M (Retired) := + let off : xlenbits := EXTS 64 (concat_vec imm (Ox"000" : mword 12)) in (match op with - | RISCV_LUI => returnm (off : mword 64) - | RISCV_AUIPC => - (get_arch_pc tt) >>= fun w__0 : mword 64 => returnm ((add_vec w__0 off) : mword 64) + | RISCV_LUI => returnm off + | RISCV_AUIPC => (get_arch_pc tt) >>= fun w__0 : mword 64 => returnm (add_vec w__0 off) end) >>= fun ret : xlenbits => - (wX (projT1 (regidx_to_regno rd)) ret) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd ret) >> returnm RETIRE_SUCCESS. -Definition execute_URET '(tt : unit) -: M (Retired) := - +Definition execute_URET '(tt : unit) : M (Retired) := (haveUsrMode tt) >>= fun w__0 : bool => - (if sumbool_of_bool ((negb w__0)) then (handle_illegal tt) : M (unit) + (if sumbool_of_bool (negb w__0) then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv User) then returnm (ext_fail_xret_priv tt) else read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (exception_handler w__1 (CTL_URET (tt)) w__2) >>= fun w__3 : mword 64 => + (exception_handler w__1 (CTL_URET tt) w__2) >>= fun w__3 : mword 64 => (set_next_pc w__3) : M (unit)) >> - returnm (RETIRE_FAIL - : Retired). + returnm RETIRE_FAIL. + +Definition execute_STORE_FP (imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) +: M (Retired) := + let offset : xlenbits := EXTS 64 imm in + let '(aq, rl, con) := (false, false, false) in + (ext_data_get_addr rs1 offset (Write Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => + (match w__0 with + | Ext_DataAddr_Error e => + let '_ := (ext_handle_data_check_error e) : unit in + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL + else + (translateAddr vaddr (Write Data)) >>= fun w__1 : TR_Result (mword 64) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => + (match width with + | BYTE => returnm (MemValue tt) + | HALF => returnm (MemValue tt) + | WORD => (mem_write_ea addr 4 aq rl false) : M (MemoryOpResult unit) + | DOUBLE => (mem_write_ea addr 8 aq rl false) : M (MemoryOpResult unit) + end) >>= fun eares : MemoryOpResult unit => + (match eares with + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rF_bits rs2) >>= fun rs2_val => + (match (width, 64) with + | (BYTE, g__320) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (HALF, g__321) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (WORD, g__322) => + (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl con) >>= fun w__4 : MemoryOpResult bool => + (process_fstore vaddr w__4) + : M (Retired) + | (DOUBLE, l__9) => + (if sumbool_of_bool (Z.eqb l__9 64) then + (mem_write_value addr 8 rs2_val aq rl con) >>= fun w__6 : MemoryOpResult bool => + (process_fstore vaddr w__6) + : M (Retired) + else + assert_exp' false "Pattern match failure at model/riscv_insts_fext.sail 401:14 - 406:15" >>= fun _ => + exit tt) + : M (Retired) + end) + : M (Retired) + end) + : M (Retired) + end) + : M (Retired)) + : M (Retired) + end) + : M (Retired). Definition execute_STORECON -(aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (rd : mword 5) +(aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (rd : mword 5) : M (Retired) := - (speculate_conditional tt) >>= fun w__0 : bool => - (if ((Bool.eqb w__0 false)) then - (wX (projT1 (regidx_to_regno rd)) (EXTZ 64 (vec_of_bits [B1] : mword 1))) >> - returnm (RETIRE_SUCCESS - : Retired) + (if Bool.eqb w__0 false then (wX_bits rd (EXTZ 64 ('b"1" : mword 1))) >> returnm RETIRE_SUCCESS else (haveAtomics tt) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (ext_data_get_addr rs1 (zeros_implicit 64) Write width) >>= fun w__2 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__1 then + (ext_data_get_addr rs1 (zeros_implicit 64) (Write Data) width) >>= fun w__2 : Ext_DataAddr_Check unit => (match w__2 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (match width with - | BYTE => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | HALF => - (cast_unit_vec (access_vec_dec vaddr 0)) >>= fun w__3 : mword 1 => - returnm ((eq_vec w__3 (vec_of_bits [B0] : mword 1)) - : bool) - | WORD => - returnm ((eq_vec (subrange_vec_dec vaddr 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - : bool) - | DOUBLE => - returnm ((eq_vec (subrange_vec_dec vaddr 2 0) - (vec_of_bits [B0;B0;B0] : mword (2 - 0 + 1))) - : bool) - end) >>= fun aligned : bool => - (if sumbool_of_bool ((negb aligned)) then - (handle_mem_exception vaddr E_SAMO_Addr_Align) >> returnm (RETIRE_FAIL : Retired) - else if ((Bool.eqb (match_reservation vaddr) false)) then - (wX (projT1 (regidx_to_regno rd)) (EXTZ 64 (vec_of_bits [B1] : mword 1))) >> + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + let aligned : bool := + match width with + | BYTE => true + | HALF => eq_vec (subrange_vec_dec vaddr 0 0) ('b"0" : mword (0 - 0 + 1)) + | WORD => eq_vec (subrange_vec_dec vaddr 1 0) ('b"00" : mword (1 - 0 + 1)) + | DOUBLE => eq_vec (subrange_vec_dec vaddr 2 0) ('b"000" : mword (2 - 0 + 1)) + end in + (if sumbool_of_bool (negb aligned) then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL + else if Bool.eqb (match_reservation vaddr) false then + (wX_bits rd (EXTZ 64 ('b"1" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) + returnm RETIRE_SUCCESS else - (translateAddr vaddr Write) >>= fun w__4 : TR_Result (mword 64) ExceptionType => - (match w__4 with - | TR_Failure (e) => - (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Write Data)) >>= fun w__3 : TR_Result (mword 64) ExceptionType => + (match w__3 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 64) with - | (WORD, g__217) => (mem_write_ea addr 4 aq rl true) : M (MemoryOpResult unit) + | (WORD, g__313) => (mem_write_ea addr 4 aq rl true) : M (MemoryOpResult unit) | (DOUBLE, l__4) => - (if sumbool_of_bool ((Z.eqb l__4 64)) then + (if sumbool_of_bool (Z.eqb l__4 64) then (mem_write_ea addr 8 aq rl true) : M (MemoryOpResult unit) else @@ -22062,16 +28814,15 @@ Definition execute_STORECON : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rX_bits rs2) >>= fun rs2_val => (match (width, 64) with - | (WORD, g__216) => + | (WORD, g__312) => (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl true) : M (MemoryOpResult bool) | (DOUBLE, l__3) => - (if sumbool_of_bool ((Z.eqb l__3 64)) then + (if sumbool_of_bool (Z.eqb l__3 64) then (mem_write_value addr 8 rs2_val aq rl true) : M (MemoryOpResult bool) else @@ -22083,20 +28834,15 @@ Definition execute_STORECON : M (MemoryOpResult bool) end) >>= fun res : MemoryOpResult bool => (match res with - | MemValue (true) => - (wX (projT1 (regidx_to_regno rd)) - (EXTZ 64 (vec_of_bits [B0] : mword 1))) >> + | MemValue true => + (wX_bits rd (EXTZ 64 ('b"0" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) - | MemValue (false) => - (wX (projT1 (regidx_to_regno rd)) - (EXTZ 64 (vec_of_bits [B1] : mword 1))) >> + returnm RETIRE_SUCCESS + | MemValue false => + (wX_bits rd (EXTZ 64 ('b"1" : mword 1))) >> let '_ := (cancel_reservation tt) : unit in - returnm (RETIRE_SUCCESS - : Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_SUCCESS + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -22106,54 +28852,50 @@ Definition execute_STORECON : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired)) : M (Retired). Definition execute_STORE -(imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (aq : bool) (rl : bool) +(imm : mword 12) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) (aq : bool) (rl : bool) : M (Retired) := - let offset : xlenbits := EXTS 64 imm in - (ext_data_get_addr rs1 offset Write width) >>= fun w__0 : Ext_DataAddr_Check unit => + (ext_data_get_addr rs1 offset (Write Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => (match w__0 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (check_misaligned vaddr width) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (handle_mem_exception vaddr E_SAMO_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_SAMO_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Write) >>= fun w__2 : TR_Result (mword 64) ExceptionType => - (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Write Data)) >>= fun w__1 : TR_Result (mword 64) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (paddr, _) => (match width with - | BYTE => (mem_write_ea addr 1 aq rl false) : M (MemoryOpResult unit) - | HALF => (mem_write_ea addr 2 aq rl false) : M (MemoryOpResult unit) - | WORD => (mem_write_ea addr 4 aq rl false) : M (MemoryOpResult unit) - | DOUBLE => (mem_write_ea addr 8 aq rl false) : M (MemoryOpResult unit) + | BYTE => (mem_write_ea paddr 1 aq rl false) : M (MemoryOpResult unit) + | HALF => (mem_write_ea paddr 2 aq rl false) : M (MemoryOpResult unit) + | WORD => (mem_write_ea paddr 4 aq rl false) : M (MemoryOpResult unit) + | DOUBLE => (mem_write_ea paddr 8 aq rl false) : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | MemValue _ => + (rX_bits rs2) >>= fun rs2_val => (match (width, 64) with - | (BYTE, g__210) => - (mem_write_value addr 1 (subrange_vec_dec rs2_val 7 0) aq rl false) + | (BYTE, g__306) => + (mem_write_value paddr 1 (subrange_vec_dec rs2_val 7 0) aq rl false) : M (MemoryOpResult bool) - | (HALF, g__211) => - (mem_write_value addr 2 (subrange_vec_dec rs2_val 15 0) aq rl false) + | (HALF, g__307) => + (mem_write_value paddr 2 (subrange_vec_dec rs2_val 15 0) aq rl false) : M (MemoryOpResult bool) - | (WORD, g__212) => - (mem_write_value addr 4 (subrange_vec_dec rs2_val 31 0) aq rl false) + | (WORD, g__308) => + (mem_write_value paddr 4 (subrange_vec_dec rs2_val 31 0) aq rl false) : M (MemoryOpResult bool) | (DOUBLE, l__1) => - (if sumbool_of_bool ((Z.eqb l__1 64)) then - (mem_write_value addr 8 rs2_val aq rl false) + (if sumbool_of_bool (Z.eqb l__1 64) then + (mem_write_value paddr 8 rs2_val aq rl false) : M (MemoryOpResult bool) else assert_exp' false "Pattern match failure at model/riscv_insts_base.sail 394:47 - 399:15" >>= fun _ => @@ -22161,11 +28903,10 @@ Definition execute_STORE : M (MemoryOpResult bool) end) >>= fun res : MemoryOpResult bool => (match res with - | MemValue (true) => returnm (RETIRE_SUCCESS : Retired) - | MemValue (false) => + | MemValue true => returnm RETIRE_SUCCESS + | MemValue false => (internal_error "store got false from mem_write_value") : M (Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemException e => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -22176,43 +28917,29 @@ Definition execute_STORE end) : M (Retired). -Definition execute_SRET '(tt : unit) -: M (Retired) := - +Definition execute_SRET '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => (match w__0 with - | User => (handle_illegal tt) : M (unit) + | User => returnm true | Supervisor => (or_boolM ((haveSupMode tt) >>= fun w__1 : bool => returnm ((negb w__1) : bool)) (read_reg mstatus_ref >>= fun w__2 : Mstatus => - returnm ((eq_vec (_get_Mstatus_TSR w__2) ((bool_to_bits true) : mword 1)) - : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then (handle_illegal tt) : M (unit) - else - read_reg cur_privilege_ref >>= fun w__4 : Privilege => - ((read_reg PC_ref) : M (mword 64)) >>= fun w__5 : mword 64 => - (exception_handler w__4 (CTL_SRET (tt)) w__5) >>= fun w__6 : mword 64 => - (set_next_pc w__6) - : M (unit)) - : M (unit) - | Machine => - (haveSupMode tt) >>= fun w__7 : bool => - (if sumbool_of_bool ((negb w__7)) then (handle_illegal tt) : M (unit) - else - read_reg cur_privilege_ref >>= fun w__8 : Privilege => - ((read_reg PC_ref) : M (mword 64)) >>= fun w__9 : mword 64 => - (exception_handler w__8 (CTL_SRET (tt)) w__9) >>= fun w__10 : mword 64 => - (set_next_pc w__10) - : M (unit)) - : M (unit) - end) >> - returnm (RETIRE_FAIL - : Retired). + returnm ((eq_vec (_get_Mstatus_TSR w__2) ('b"1" : mword 1)) : bool))) + : M (bool) + | Machine => (haveSupMode tt) >>= fun w__4 : bool => returnm (negb w__4) + end) >>= fun sret_illegal : bool => + (if sumbool_of_bool sret_illegal then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv Supervisor) then returnm (ext_fail_xret_priv tt) + else + read_reg cur_privilege_ref >>= fun w__5 : Privilege => + ((read_reg PC_ref) : M (mword 64)) >>= fun w__6 : mword 64 => + (exception_handler w__5 (CTL_SRET tt) w__6) >>= fun w__7 : mword 64 => + (set_next_pc w__7) + : M (unit)) >> + returnm RETIRE_FAIL. -Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 64 => +Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sop) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 64 => let rs1_val := subrange_vec_dec w__0 31 0 in let result : bits 32 := match op with @@ -22220,67 +28947,49 @@ Definition execute_SHIFTW (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : | RISCV_SRLI => shift_bits_right rs1_val shamt | RISCV_SRAI => shift_right_arith32 rs1_val shamt end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 64 result)) >> returnm RETIRE_SUCCESS. -Definition execute_SHIFTIWOP (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sopw) +Definition execute_SHIFTIWOP (shamt : mword 5) (rs1 : mword 5) (rd : mword 5) (op : sopw) : M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => + (rX_bits rs1) >>= fun rs1_val => let result : bits 32 := match op with | RISCV_SLLIW => shift_bits_left (subrange_vec_dec rs1_val 31 0) shamt | RISCV_SRLIW => shift_bits_right (subrange_vec_dec rs1_val 31 0) shamt | RISCV_SRAIW => shift_right_arith32 (subrange_vec_dec rs1_val 31 0) shamt end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 64 result)) >> returnm RETIRE_SUCCESS. -Definition execute_SHIFTIOP (shamt : mword 6) (rs1 : mword 5) (rd : mword 5) (op : sop) +Definition execute_SHIFTIOP (shamt : mword 6) (rs1 : mword 5) (rd : mword 5) (op : sop) : M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => + (rX_bits rs1) >>= fun rs1_val => let result : xlenbits := match op with | RISCV_SLLI => shift_bits_left rs1_val shamt | RISCV_SRLI => shift_bits_right rs1_val shamt | RISCV_SRAI => shift_right_arith64 rs1_val shamt end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. -Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) -: M (Retired) := - - (if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then - returnm (None - : option (mword 64)) - else - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 64 => - returnm ((Some - (w__0)) - : option (mword 64))) >>= fun addr : option xlenbits => - (if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then - returnm (None - : option (mword 64)) - else - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__1 : mword 64 => - returnm ((Some - (w__1)) - : option (mword 64))) >>= fun asid : option xlenbits => +Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) : M (Retired) := + (if eq_vec rs1 ('b"00000" : mword 5) then returnm None + else (rX_bits rs1) >>= fun w__0 : mword 64 => returnm (Some w__0)) >>= fun addr : option xlenbits => + (if eq_vec rs2 ('b"00000" : mword 5) then returnm None + else (rX_bits rs2) >>= fun w__1 : mword 64 => returnm (Some w__1)) >>= fun asid : option xlenbits => read_reg cur_privilege_ref >>= fun w__2 : Privilege => (match w__2 with - | User => (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + | User => (handle_illegal tt) >> returnm RETIRE_FAIL | Supervisor => read_reg mstatus_ref >>= fun w__3 : Mstatus => read_reg mstatus_ref >>= fun w__4 : Mstatus => - let p__214 := (architecture (get_mstatus_SXL w__3), _get_Mstatus_TVM w__4) in - (match p__214 with - | (Some (g__213), v_0) => - (if ((eq_vec v_0 ((bool_to_bits true) : mword 1))) then - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) - else if ((eq_vec v_0 ((bool_to_bits false) : mword 1))) then - (flush_TLB asid addr) >> returnm (RETIRE_SUCCESS : Retired) + let p__310 := (architecture (get_mstatus_SXL w__3), _get_Mstatus_TVM w__4) in + (match p__310 with + | (Some g__309, b__0) => + (if eq_vec b__0 ('b"1" : mword 1) then (handle_illegal tt) >> returnm RETIRE_FAIL + else if eq_vec b__0 ('b"0" : mword 1) then + (flush_TLB asid addr) >> returnm RETIRE_SUCCESS else - (match (Some - (g__213), v_0) with + (match (Some g__309, b__0) with | (_, _) => (internal_error "unimplemented sfence architecture") : M (Retired) end) : M (Retired)) @@ -22288,16 +28997,14 @@ Definition execute_SFENCE_VMA (rs1 : mword 5) (rs2 : mword 5) | (_, _) => (internal_error "unimplemented sfence architecture") : M (Retired) end) : M (Retired) - | Machine => (flush_TLB asid addr) >> returnm (RETIRE_SUCCESS : Retired) + | Machine => (flush_TLB asid addr) >> returnm RETIRE_SUCCESS end) : M (Retired). -Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ropw) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 64 => +Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ropw) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 64 => let rs1_val := subrange_vec_dec w__0 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__1 : mword 64 => + (rX_bits rs2) >>= fun w__1 : mword 64 => let rs2_val := subrange_vec_dec w__1 31 0 in let result : bits 32 := match op with @@ -22307,13 +29014,11 @@ Definition execute_RTYPEW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : r | RISCV_SRLW => shift_bits_right rs1_val (subrange_vec_dec rs2_val 4 0) | RISCV_SRAW => shift_right_arith32 rs1_val (subrange_vec_dec rs2_val 4 0) end in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 result)) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd (EXTS 64 result)) >> returnm RETIRE_SUCCESS. -Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : rop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => +Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : rop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let result : xlenbits := match op with | RISCV_ADD => add_vec rs1_val rs2_val @@ -22327,192 +29032,196 @@ Definition execute_RTYPE (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (op : ro | RISCV_SUB => sub_vec rs1_val rs2_val | RISCV_SRA => shift_right_arith64 rs1_val (subrange_vec_dec rs2_val 5 0) end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. -Definition execute_RISCV_JALR (imm : mword 12) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 64 => +Definition execute_RISCV_JALR (imm : mword 12) (rs1 : mword 5) (rd : mword 5) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 64 => let t : xlenbits := add_vec w__0 (EXTS 64 imm) in (match (ext_control_check_addr t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (addr) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK addr => let target := update_vec_dec addr 0 B0 in (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL else (get_next_pc tt) >>= fun w__4 : mword 64 => - (wX (projT1 (regidx_to_regno rd)) w__4) >> - (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (wX_bits rd w__4) >> (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired). -Definition execute_RISCV_JAL (imm : mword 21) (rd : mword 5) -: M (Retired) := - +Definition execute_RISCV_JAL (imm : mword 21) (rd : mword 5) : M (Retired) := ((read_reg PC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => let t : xlenbits := add_vec w__0 (EXTS 64 imm) in (match (ext_control_check_pc t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (target) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK target => (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL else (get_next_pc tt) >>= fun w__4 : mword 64 => - (wX (projT1 (regidx_to_regno rd)) w__4) >> - (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (wX_bits rd w__4) >> (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired). -Definition execute_REMW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_REMW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 64 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 64 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 64 => + (rX_bits rs2) >>= fun w__2 : mword 64 => let rs2_val := subrange_vec_dec w__2 31 0 in - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let r : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then rs1_int else Z.rem rs1_int rs2_int in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 (to_bits 32 r))) >> - returnm (RETIRE_SUCCESS - : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let r : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then rs1_int else Z.rem rs1_int rs2_int in + (wX_bits rd (EXTS 64 (to_bits 32 r))) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_REM (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_REM (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let r : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then rs1_int else Z.rem rs1_int rs2_int in - (wX (projT1 (regidx_to_regno rd)) (to_bits 64 r)) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let r : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then rs1_int else Z.rem rs1_int rs2_int in + (wX_bits rd (to_bits 64 r)) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_MULW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - +Definition execute_MULW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 64 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 64 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 64 => + (rX_bits rs2) >>= fun w__2 : mword 64 => let rs2_val := subrange_vec_dec w__2 31 0 in let rs1_int : Z := projT1 (sint rs1_val) in let rs2_int : Z := projT1 (sint rs2_val) in let result32 := subrange_vec_dec (to_bits 64 (Z.mul rs1_int rs2_int)) 31 0 in let result : xlenbits := EXTS 64 result32 in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). Definition execute_MUL -(rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (high : bool) (signed1 : bool) (signed2 : bool) +(rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (high : bool) (signed1 : bool) (signed2 : bool) : M (Retired) := - (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let rs1_int : Z := - if sumbool_of_bool (signed1) then projT1 (sint rs1_val) + if sumbool_of_bool signed1 then projT1 (sint rs1_val) else projT1 (uint rs1_val) in let rs2_int : Z := - if sumbool_of_bool (signed2) then projT1 (sint rs2_val) + if sumbool_of_bool signed2 then projT1 (sint rs2_val) else projT1 (uint rs2_val) in let result_wide := to_bits (Z.mul 2 64) (Z.mul rs1_int rs2_int) in let result := - if sumbool_of_bool (high) then subrange_vec_dec result_wide (Z.sub (Z.mul 2 64) 1) 64 + if sumbool_of_bool high then subrange_vec_dec result_wide (Z.sub (Z.mul 2 64) 1) 64 else subrange_vec_dec result_wide (Z.sub 64 1) 0 in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd result) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_MRET '(tt : unit) -: M (Retired) := - +Definition execute_MRET '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => - (if ((eq_vec (privLevel_to_bits w__0) ((privLevel_to_bits Machine) : mword 2))) then + (if generic_neq w__0 Machine then (handle_illegal tt) : M (unit) + else if negb (ext_check_xret_priv Machine) then returnm (ext_fail_xret_priv tt) + else read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (exception_handler w__1 (CTL_MRET (tt)) w__2) >>= fun w__3 : mword 64 => + (exception_handler w__1 (CTL_MRET tt) w__2) >>= fun w__3 : mword 64 => (set_next_pc w__3) - : M (unit) - else (handle_illegal tt) : M (unit)) >> - returnm (RETIRE_FAIL - : Retired). + : M (unit)) >> + returnm RETIRE_FAIL. + +Definition execute_LOAD_FP (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (width : word_width) +: M (Retired) := + let offset : xlenbits := EXTS 64 imm in + (ext_data_get_addr rs1 offset (Read Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => + (match w__0 with + | Ext_DataAddr_Error e => + let '_ := (ext_handle_data_check_error e) : unit in + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL + else + (translateAddr vaddr (Read Data)) >>= fun w__1 : TR_Result (mword 64) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => + let '(aq, rl, res) := (false, false, false) in + (match (width, 64) with + | (BYTE, g__317) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (HALF, g__318) => (handle_illegal tt) >> returnm RETIRE_FAIL + | (WORD, g__319) => + (mem_read (Read Data) addr 4 aq rl res) >>= fun w__2 : MemoryOpResult (mword (8 * 4)) => + (process_fload32 rd vaddr w__2) + : M (Retired) + | (DOUBLE, l__8) => + (if sumbool_of_bool (Z.eqb l__8 64) then + (mem_read (Read Data) addr 8 aq rl res) >>= fun w__4 : MemoryOpResult (mword (8 * 8)) => + (process_fload64 rd vaddr w__4) + : M (Retired) + else + assert_exp' false "Pattern match failure at model/riscv_insts_fext.sail 331:10 - 338:11" >>= fun _ => + exit tt) + : M (Retired) + end) + : M (Retired) + end) + : M (Retired)) + : M (Retired) + end) + : M (Retired). Definition execute_LOADRES -(aq : bool) (rl : bool) (rs1 : mword 5) (width : word_width) (rd : mword 5) +(aq : bool) (rl : bool) (rs1 : mword 5) (width : word_width) (rd : mword 5) : M (Retired) := - (haveAtomics tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (ext_data_get_addr rs1 (zeros_implicit 64) Read width) >>= fun w__1 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__0 then + (ext_data_get_addr rs1 (zeros_implicit 64) (Read Data) width) >>= fun w__1 : Ext_DataAddr_Check unit => (match w__1 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (match width with - | BYTE => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | HALF => - (cast_unit_vec (access_vec_dec vaddr 0)) >>= fun w__2 : mword 1 => - returnm ((eq_vec w__2 (vec_of_bits [B0] : mword 1)) - : bool) - | WORD => - returnm ((eq_vec (subrange_vec_dec vaddr 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - : bool) - | DOUBLE => - returnm ((eq_vec (subrange_vec_dec vaddr 2 0) - (vec_of_bits [B0;B0;B0] : mword (2 - 0 + 1))) - : bool) - end) >>= fun aligned : bool => - (if sumbool_of_bool ((negb aligned)) then - (handle_mem_exception vaddr E_Load_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + let aligned : bool := + match width with + | BYTE => true + | HALF => eq_vec (subrange_vec_dec vaddr 0 0) ('b"0" : mword (0 - 0 + 1)) + | WORD => eq_vec (subrange_vec_dec vaddr 1 0) ('b"00" : mword (1 - 0 + 1)) + | DOUBLE => eq_vec (subrange_vec_dec vaddr 2 0) ('b"000" : mword (2 - 0 + 1)) + end in + (if sumbool_of_bool (negb aligned) then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Read) >>= fun w__3 : TR_Result (mword 64) ExceptionType => - (match w__3 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Read Data)) >>= fun w__2 : TR_Result (mword 64) ExceptionType => + (match w__2 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 64) with - | (WORD, g__215) => - (mem_read Read addr 4 aq rl true) >>= fun w__4 : MemoryOpResult (mword (8 * 4)) => - (process_loadres rd vaddr w__4 false) + | (WORD, g__311) => + (mem_read (Read Data) addr 4 aq rl true) >>= fun w__3 : MemoryOpResult (mword (8 * 4)) => + (process_loadres rd vaddr w__3 false) : M (Retired) | (DOUBLE, l__2) => - (if sumbool_of_bool ((Z.eqb l__2 64)) then - (mem_read Read addr 8 aq rl true) >>= fun w__6 : MemoryOpResult (mword (8 * 8)) => - (process_loadres rd vaddr w__6 false) + (if sumbool_of_bool (Z.eqb l__2 64) then + (mem_read (Read Data) addr 8 aq rl true) >>= fun w__5 : MemoryOpResult (mword (8 * 8)) => + (process_loadres rd vaddr w__5 false) : M (Retired) else (internal_error "LOADRES expected WORD or DOUBLE") : M (Retired)) : M (Retired) @@ -22524,47 +29233,44 @@ Definition execute_LOADRES : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). Definition execute_LOAD (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (is_unsigned : bool) (width : word_width) -(aq : bool) (rl : bool) +(aq : bool) (rl : bool) : M (Retired) := - let offset : xlenbits := EXTS 64 imm in - (ext_data_get_addr rs1 offset Read width) >>= fun w__0 : Ext_DataAddr_Check unit => + (ext_data_get_addr rs1 offset (Read Data) width) >>= fun w__0 : Ext_DataAddr_Check unit => (match w__0 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (check_misaligned vaddr width) >>= fun w__1 : bool => - (if sumbool_of_bool (w__1) then - (handle_mem_exception vaddr E_Load_Addr_Align) >> returnm (RETIRE_FAIL : Retired) + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (if check_misaligned vaddr width then + (handle_mem_exception vaddr (E_Load_Addr_Align tt)) >> returnm RETIRE_FAIL else - (translateAddr vaddr Read) >>= fun w__2 : TR_Result (mword 64) ExceptionType => - (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + (translateAddr vaddr (Read Data)) >>= fun w__1 : TR_Result (mword 64) ExceptionType => + (match w__1 with + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (paddr, _) => (match (width, 64) with - | (BYTE, g__207) => - (mem_read Read addr 1 aq rl false) >>= fun w__3 : MemoryOpResult (mword (8 * 1)) => - (process_load rd vaddr w__3 is_unsigned) + | (BYTE, g__303) => + (mem_read (Read Data) paddr 1 aq rl false) >>= fun w__2 : MemoryOpResult (mword (8 * 1)) => + (process_load rd vaddr w__2 is_unsigned) : M (Retired) - | (HALF, g__208) => - (mem_read Read addr 2 aq rl false) >>= fun w__5 : MemoryOpResult (mword (8 * 2)) => - (process_load rd vaddr w__5 is_unsigned) + | (HALF, g__304) => + (mem_read (Read Data) paddr 2 aq rl false) >>= fun w__4 : MemoryOpResult (mword (8 * 2)) => + (process_load rd vaddr w__4 is_unsigned) : M (Retired) - | (WORD, g__209) => - (mem_read Read addr 4 aq rl false) >>= fun w__7 : MemoryOpResult (mword (8 * 4)) => - (process_load rd vaddr w__7 is_unsigned) + | (WORD, g__305) => + (mem_read (Read Data) paddr 4 aq rl false) >>= fun w__6 : MemoryOpResult (mword (8 * 4)) => + (process_load rd vaddr w__6 is_unsigned) : M (Retired) | (DOUBLE, l__0) => - (if sumbool_of_bool ((Z.eqb l__0 64)) then - (mem_read Read addr 8 aq rl false) >>= fun w__9 : MemoryOpResult (mword (8 * 8)) => - (process_load rd vaddr w__9 is_unsigned) + (if sumbool_of_bool (Z.eqb l__0 64) then + (mem_read (Read Data) paddr 8 aq rl false) >>= fun w__8 : MemoryOpResult (mword (8 * 8)) => + (process_load rd vaddr w__8 is_unsigned) : M (Retired) else assert_exp' false "Pattern match failure at model/riscv_insts_base.sail 329:10 - 338:11" >>= fun _ => @@ -22578,10 +29284,8 @@ Definition execute_LOAD end) : M (Retired). -Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : iop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => +Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : iop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => let immext : xlenbits := EXTS 64 imm in let result : xlenbits := match op with @@ -22592,227 +29296,634 @@ Definition execute_ITYPE (imm : mword 12) (rs1 : mword 5) (rd : mword 5) (op : i | RISCV_ORI => or_vec rs1_val immext | RISCV_XORI => xor_vec rs1_val immext end in - (wX (projT1 (regidx_to_regno rd)) result) >> returnm (RETIRE_SUCCESS : Retired). + (wX_bits rd result) >> returnm RETIRE_SUCCESS. + +Definition execute_ILLEGAL (s : mword 32) : M (Retired) := + (handle_illegal tt) >> returnm RETIRE_FAIL. + +Definition execute_F_UN_TYPE_S (arg0 : mword 5) (arg1 : mword 5) (arg2 : f_un_op_S) : M (Retired) := + let merge_var := (arg0, arg1, arg2) in + (match merge_var with + | (rs1, rd, FCLASS_S) => + (rF_bits rs1) >>= fun w__0 : mword 64 => + let rs1_val_S := nan_unbox w__0 in + let rd_val_10b : bits 10 := + if f_is_neg_inf_S rs1_val_S then 'b"0000000001" : mword 10 + else if f_is_neg_norm_S rs1_val_S then 'b"0000000010" : mword 10 + else if f_is_neg_subnorm_S rs1_val_S then 'b"0000000100" : mword 10 + else if f_is_neg_zero_S rs1_val_S then 'b"0000001000" : mword 10 + else if f_is_pos_zero_S rs1_val_S then 'b"0000010000" : mword 10 + else if f_is_pos_subnorm_S rs1_val_S then 'b"0000100000" : mword 10 + else if f_is_pos_norm_S rs1_val_S then 'b"0001000000" : mword 10 + else if f_is_pos_inf_S rs1_val_S then 'b"0010000000" : mword 10 + else if f_is_SNaN_S rs1_val_S then 'b"0100000000" : mword 10 + else if f_is_QNaN_S rs1_val_S then 'b"1000000000" : mword 10 + else zeros_implicit 10 in + (wX_bits rd (EXTZ 64 rd_val_10b)) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_X_W) => + (rF_bits rs1) >>= fun w__1 : mword 64 => + let rs1_val_S := subrange_vec_dec w__1 31 0 in + let rd_val_X : xlenbits := EXTS 64 rs1_val_S in + (wX_bits rd rd_val_X) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_W_X) => + (rX_bits rs1) >>= fun rs1_val_X => + let rd_val_S := subrange_vec_dec rs1_val_X 31 0 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + end) + : M (Retired). -Definition execute_ILLEGAL (s : mword 32) +Definition execute_F_UN_TYPE_D (arg0 : mword 5) (arg1 : mword 5) (arg2 : f_un_op_D) : M (Retired) := + let merge_var := (arg0, arg1, arg2) in + (match merge_var with + | (rs1, rd, FCLASS_D) => + (rF_bits rs1) >>= fun rs1_val_D => + let rd_val_10b : bits 10 := + if f_is_neg_inf_D rs1_val_D then 'b"0000000001" : mword 10 + else if f_is_neg_norm_D rs1_val_D then 'b"0000000010" : mword 10 + else if f_is_neg_subnorm_D rs1_val_D then 'b"0000000100" : mword 10 + else if f_is_neg_zero_D rs1_val_D then 'b"0000001000" : mword 10 + else if f_is_pos_zero_D rs1_val_D then 'b"0000010000" : mword 10 + else if f_is_pos_subnorm_D rs1_val_D then 'b"0000100000" : mword 10 + else if f_is_pos_norm_D rs1_val_D then 'b"0001000000" : mword 10 + else if f_is_pos_inf_D rs1_val_D then 'b"0010000000" : mword 10 + else if f_is_SNaN_D rs1_val_D then 'b"0100000000" : mword 10 + else if f_is_QNaN_D rs1_val_D then 'b"1000000000" : mword 10 + else zeros_implicit 10 in + (wX_bits rd (EXTZ 64 rd_val_10b)) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_X_D) => + (rF_bits rs1) >>= fun rs1_val_D => + let rd_val_X := rs1_val_D in + (wX_bits rd rd_val_X) >> returnm RETIRE_SUCCESS + | (rs1, rd, FMV_D_X) => + (rX_bits rs1) >>= fun rs1_val_X => + let rd_val_D := rs1_val_X in + (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + end) + : M (Retired). + +Definition execute_F_UN_RM_TYPE_S +(arg0 : mword 5) (arg1 : rounding_mode) (arg2 : mword 5) (arg3 : f_un_rm_op_S) : M (Retired) := - - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired). + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs1, rm, rd, FSQRT_S) => + (rF_bits rs1) >>= fun w__0 : mword 64 => + let rs1_val_S := nan_unbox w__0 in + (select_instr_or_fcsr_rm rm) >>= fun w__1 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__1 in + (riscv_f32Sqrt rm_3b rs1_val_S) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_W_S) => + (rF_bits rs1) >>= fun w__2 : mword 64 => + let rs1_val_S := nan_unbox w__2 in + (select_instr_or_fcsr_rm rm) >>= fun w__3 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__3 in + (riscv_f32ToI32 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_W) => + (write_fflags fflags) >> (wX_bits rd (EXTS 64 rd_val_W)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_WU_S) => + (rF_bits rs1) >>= fun w__4 : mword 64 => + let rs1_val_S := nan_unbox w__4 in + (select_instr_or_fcsr_rm rm) >>= fun w__5 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__5 in + (riscv_f32ToUi32 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_WU) => + (write_fflags fflags) >> (wX_bits rd (EXTS 64 rd_val_WU)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_W) => + (rX_bits rs1) >>= fun w__6 : mword 64 => + let rs1_val_W := subrange_vec_dec w__6 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__7 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__7 in + (riscv_i32ToF32 rm_3b rs1_val_W) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_WU) => + (rX_bits rs1) >>= fun w__8 : mword 64 => + let rs1_val_WU := subrange_vec_dec w__8 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__9 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__9 in + (riscv_ui32ToF32 rm_3b rs1_val_WU) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_L_S) => + (rF_bits rs1) >>= fun w__10 : mword 64 => + let rs1_val_S := nan_unbox w__10 in + (select_instr_or_fcsr_rm rm) >>= fun w__11 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__11 in + (riscv_f32ToI64 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_L) => + (write_fflags fflags) >> (wX_bits rd rd_val_L) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_LU_S) => + (rF_bits rs1) >>= fun w__12 : mword 64 => + let rs1_val_S := nan_unbox w__12 in + (select_instr_or_fcsr_rm rm) >>= fun w__13 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__13 in + (riscv_f32ToUi64 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_LU) => + (write_fflags fflags) >> (wX_bits rd rd_val_LU) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_L) => + (rX_bits rs1) >>= fun rs1_val_L => + (select_instr_or_fcsr_rm rm) >>= fun w__14 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__14 in + (riscv_i64ToF32 rm_3b rs1_val_L) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_LU) => + (rX_bits rs1) >>= fun rs1_val_LU => + (select_instr_or_fcsr_rm rm) >>= fun w__15 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__15 in + (riscv_ui64ToF32 rm_3b rs1_val_LU) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + end) + : M (Retired). + +Definition execute_F_UN_RM_TYPE_D +(arg0 : mword 5) (arg1 : rounding_mode) (arg2 : mword 5) (arg3 : f_un_rm_op_D) +: M (Retired) := + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs1, rm, rd, FSQRT_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__0 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__0 in + (riscv_f64Sqrt rm_3b rs1_val_D) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_W_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__1 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__1 in + (riscv_f64ToI32 rm_3b rs1_val_D) >>= fun '(fflags, rd_val_W) => + (write_fflags fflags) >> (wX_bits rd (EXTS 64 rd_val_W)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_WU_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__2 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__2 in + (riscv_f64ToUi32 rm_3b rs1_val_D) >>= fun '(fflags, rd_val_WU) => + (write_fflags fflags) >> (wX_bits rd (EXTS 64 rd_val_WU)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_D_W) => + (rX_bits rs1) >>= fun w__3 : mword 64 => + let rs1_val_W := subrange_vec_dec w__3 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__4 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__4 in + (riscv_i32ToF64 rm_3b rs1_val_W) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_D_WU) => + (rX_bits rs1) >>= fun w__5 : mword 64 => + let rs1_val_WU := subrange_vec_dec w__5 31 0 in + (select_instr_or_fcsr_rm rm) >>= fun w__6 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__6 in + (riscv_ui32ToF64 rm_3b rs1_val_WU) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_S_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__7 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__7 in + (riscv_f64ToF32 rm_3b rs1_val_D) >>= fun '(fflags, rd_val_S) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_D_S) => + (rF_bits rs1) >>= fun w__8 : mword 64 => + let rs1_val_S := nan_unbox w__8 in + (select_instr_or_fcsr_rm rm) >>= fun w__9 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__9 in + (riscv_f32ToF64 rm_3b rs1_val_S) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_L_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__10 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__10 in + (riscv_f64ToI64 rm_3b rs1_val_D) >>= fun '(fflags, rd_val_L) => + (write_fflags fflags) >> (wX_bits rd rd_val_L) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_LU_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (select_instr_or_fcsr_rm rm) >>= fun w__11 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__11 in + (riscv_f64ToUi64 rm_3b rs1_val_D) >>= fun '(fflags, rd_val_LU) => + (write_fflags fflags) >> (wX_bits rd rd_val_LU) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_D_L) => + (rX_bits rs1) >>= fun rs1_val_L => + (select_instr_or_fcsr_rm rm) >>= fun w__12 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__12 in + (riscv_i64ToF64 rm_3b rs1_val_L) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs1, rm, rd, FCVT_D_LU) => + (rX_bits rs1) >>= fun rs1_val_LU => + (select_instr_or_fcsr_rm rm) >>= fun w__13 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__13 in + (riscv_ui64ToF64 rm_3b rs1_val_LU) >>= fun '(fflags, rd_val_D) => + (write_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + end) + : M (Retired). -Definition execute_FENCE_TSO (pred : mword 4) (succ : mword 4) +Definition execute_F_MADD_TYPE_S +(rs3 : mword 5) (rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) +(op : f_madd_op_S) : M (Retired) := - + (rF_bits rs1) >>= fun w__0 : mword 64 => + let rs1_val_32b := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 64 => + let rs2_val_32b := nan_unbox w__1 in + (rF_bits rs3) >>= fun w__2 : mword 64 => + let rs3_val_32b := nan_unbox w__2 in + (select_instr_or_fcsr_rm rm) >>= fun w__3 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__3 in + (match op with + | FMADD_S => + (riscv_f32MulAdd rm_3b rs1_val_32b rs2_val_32b rs3_val_32b) : M ((mword 5 * mword 32)) + | FMSUB_S => + (riscv_f32MulAdd rm_3b rs1_val_32b rs2_val_32b (negate_S rs3_val_32b)) + : M ((mword 5 * mword 32)) + | FNMSUB_S => + (riscv_f32MulAdd rm_3b (negate_S rs1_val_32b) rs2_val_32b rs3_val_32b) + : M ((mword 5 * mword 32)) + | FNMADD_S => + (riscv_f32MulAdd rm_3b (negate_S rs1_val_32b) rs2_val_32b (negate_S rs3_val_32b)) + : M ((mword 5 * mword 32)) + end) >>= fun '((fflags, rd_val_32b) + : (bits 5 * bits 32)) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_32b)) >> returnm RETIRE_SUCCESS. + +Definition execute_F_MADD_TYPE_D +(rs3 : mword 5) (rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) +(op : f_madd_op_D) +: M (Retired) := + (rF_bits rs1) >>= fun rs1_val_64b => + (rF_bits rs2) >>= fun rs2_val_64b => + (rF_bits rs3) >>= fun rs3_val_64b => + (select_instr_or_fcsr_rm rm) >>= fun w__0 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__0 in + (match op with + | FMADD_D => + (riscv_f64MulAdd rm_3b rs1_val_64b rs2_val_64b rs3_val_64b) : M ((mword 5 * mword 64)) + | FMSUB_D => + (riscv_f64MulAdd rm_3b rs1_val_64b rs2_val_64b (negate_D rs3_val_64b)) + : M ((mword 5 * mword 64)) + | FNMSUB_D => + (riscv_f64MulAdd rm_3b (negate_D rs1_val_64b) rs2_val_64b rs3_val_64b) + : M ((mword 5 * mword 64)) + | FNMADD_D => + (riscv_f64MulAdd rm_3b (negate_D rs1_val_64b) rs2_val_64b (negate_D rs3_val_64b)) + : M ((mword 5 * mword 64)) + end) >>= fun '((fflags, rd_val_64b) + : (bits 5 * bits 64)) => + (write_fflags fflags) >> (wF_bits rd rd_val_64b) >> returnm RETIRE_SUCCESS. + +Definition execute_F_BIN_TYPE_S +(arg0 : mword 5) (arg1 : mword 5) (arg2 : mword 5) (arg3 : f_bin_op_S) +: M (Retired) := + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs2, rs1, rd, FSGNJ_S) => + (rF_bits rs1) >>= fun w__0 : mword 64 => + let rs1_val_S := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 64 => + let rs2_val_S := nan_unbox w__1 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S s2 e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJN_S) => + (rF_bits rs1) >>= fun w__2 : mword 64 => + let rs1_val_S := nan_unbox w__2 in + (rF_bits rs2) >>= fun w__3 : mword 64 => + let rs2_val_S := nan_unbox w__3 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S (xor_vec ('b"1" : mword 1) s2) e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJX_S) => + (rF_bits rs1) >>= fun w__4 : mword 64 => + let rs1_val_S := nan_unbox w__4 in + (rF_bits rs2) >>= fun w__5 : mword 64 => + let rs2_val_S := nan_unbox w__5 in + let '(s1, e1, m1) := fsplit_S rs1_val_S in + let '(s2, e2, m2) := fsplit_S rs2_val_S in + let rd_val_S := fmake_S (xor_vec s1 s2) e1 m1 in + (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMIN_S) => + (rF_bits rs1) >>= fun w__6 : mword 64 => + let rs1_val_S := nan_unbox w__6 in + (rF_bits rs2) >>= fun w__7 : mword 64 => + let rs2_val_S := nan_unbox w__7 in + let is_quiet := true in + let '(rs1_lt_rs2, fflags) := fle_S rs1_val_S rs2_val_S is_quiet in + let rd_val_S := + if andb (f_is_NaN_S rs1_val_S) (f_is_NaN_S rs2_val_S) then canonical_NaN_S tt + else if f_is_NaN_S rs1_val_S then rs2_val_S + else if f_is_NaN_S rs2_val_S then rs1_val_S + else if andb (f_is_neg_zero_S rs1_val_S) (f_is_pos_zero_S rs2_val_S) then rs1_val_S + else if andb (f_is_neg_zero_S rs2_val_S) (f_is_pos_zero_S rs1_val_S) then rs2_val_S + else if sumbool_of_bool rs1_lt_rs2 then rs1_val_S + else rs2_val_S in + (accrue_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMAX_S) => + (rF_bits rs1) >>= fun w__8 : mword 64 => + let rs1_val_S := nan_unbox w__8 in + (rF_bits rs2) >>= fun w__9 : mword 64 => + let rs2_val_S := nan_unbox w__9 in + let is_quiet := true in + let '(rs2_lt_rs1, fflags) := fle_S rs2_val_S rs1_val_S is_quiet in + let rd_val_S := + if andb (f_is_NaN_S rs1_val_S) (f_is_NaN_S rs2_val_S) then canonical_NaN_S tt + else if f_is_NaN_S rs1_val_S then rs2_val_S + else if f_is_NaN_S rs2_val_S then rs1_val_S + else if andb (f_is_neg_zero_S rs1_val_S) (f_is_pos_zero_S rs2_val_S) then rs2_val_S + else if andb (f_is_neg_zero_S rs2_val_S) (f_is_pos_zero_S rs1_val_S) then rs1_val_S + else if sumbool_of_bool rs2_lt_rs1 then rs1_val_S + else rs2_val_S in + (accrue_fflags fflags) >> (wF_bits rd (nan_box rd_val_S)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FEQ_S) => + (rF_bits rs1) >>= fun w__10 : mword 64 => + let rs1_val_S := nan_unbox w__10 in + (rF_bits rs2) >>= fun w__11 : mword 64 => + let rs2_val_S := nan_unbox w__11 in + (riscv_f32Eq rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 64 rd_val)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLT_S) => + (rF_bits rs1) >>= fun w__12 : mword 64 => + let rs1_val_S := nan_unbox w__12 in + (rF_bits rs2) >>= fun w__13 : mword 64 => + let rs2_val_S := nan_unbox w__13 in + (riscv_f32Lt rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 64 rd_val)) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLE_S) => + (rF_bits rs1) >>= fun w__14 : mword 64 => + let rs1_val_S := nan_unbox w__14 in + (rF_bits rs2) >>= fun w__15 : mword 64 => + let rs2_val_S := nan_unbox w__15 in + (riscv_f32Le rs1_val_S rs2_val_S) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_WU)) => + (write_fflags fflags) >> (wX_bits rd (EXTZ 64 rd_val)) >> returnm RETIRE_SUCCESS + end) + : M (Retired). + +Definition execute_F_BIN_TYPE_D +(arg0 : mword 5) (arg1 : mword 5) (arg2 : mword 5) (arg3 : f_bin_op_D) +: M (Retired) := + let merge_var := (arg0, arg1, arg2, arg3) in + (match merge_var with + | (rs2, rs1, rd, FSGNJ_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + let '(s1, e1, m1) := fsplit_D rs1_val_D in + let '(s2, e2, m2) := fsplit_D rs2_val_D in + let rd_val_D := fmake_D s2 e1 m1 in + (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJN_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + let '(s1, e1, m1) := fsplit_D rs1_val_D in + let '(s2, e2, m2) := fsplit_D rs2_val_D in + let rd_val_D := fmake_D (xor_vec ('b"1" : mword 1) s2) e1 m1 in + (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FSGNJX_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + let '(s1, e1, m1) := fsplit_D rs1_val_D in + let '(s2, e2, m2) := fsplit_D rs2_val_D in + let rd_val_D := fmake_D (xor_vec s1 s2) e1 m1 in + (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMIN_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + let is_quiet := true in + let '(rs1_lt_rs2, fflags) := fle_D rs1_val_D rs2_val_D is_quiet in + let rd_val_D := + if andb (f_is_NaN_D rs1_val_D) (f_is_NaN_D rs2_val_D) then canonical_NaN_D tt + else if f_is_NaN_D rs1_val_D then rs2_val_D + else if f_is_NaN_D rs2_val_D then rs1_val_D + else if andb (f_is_neg_zero_D rs1_val_D) (f_is_pos_zero_D rs2_val_D) then rs1_val_D + else if andb (f_is_neg_zero_D rs2_val_D) (f_is_pos_zero_D rs1_val_D) then rs2_val_D + else if sumbool_of_bool rs1_lt_rs2 then rs1_val_D + else rs2_val_D in + (accrue_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FMAX_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + let is_quiet := true in + let '(rs2_lt_rs1, fflags) := fle_D rs2_val_D rs1_val_D is_quiet in + let rd_val_D := + if andb (f_is_NaN_D rs1_val_D) (f_is_NaN_D rs2_val_D) then canonical_NaN_D tt + else if f_is_NaN_D rs1_val_D then rs2_val_D + else if f_is_NaN_D rs2_val_D then rs1_val_D + else if andb (f_is_neg_zero_D rs1_val_D) (f_is_pos_zero_D rs2_val_D) then rs2_val_D + else if andb (f_is_neg_zero_D rs2_val_D) (f_is_pos_zero_D rs1_val_D) then rs1_val_D + else if sumbool_of_bool rs2_lt_rs1 then rs1_val_D + else rs2_val_D in + (accrue_fflags fflags) >> (wF_bits rd rd_val_D) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FEQ_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + (riscv_f64Eq rs1_val_D rs2_val_D) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_LU)) => + (write_fflags fflags) >> (wX_bits rd rd_val) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLT_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + (riscv_f64Lt rs1_val_D rs2_val_D) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_LU)) => + (write_fflags fflags) >> (wX_bits rd rd_val) >> returnm RETIRE_SUCCESS + | (rs2, rs1, rd, FLE_D) => + (rF_bits rs1) >>= fun rs1_val_D => + (rF_bits rs2) >>= fun rs2_val_D => + (riscv_f64Le rs1_val_D rs2_val_D) >>= fun '((fflags, rd_val) + : (bits_fflags * bits_LU)) => + (write_fflags fflags) >> (wX_bits rd rd_val) >> returnm RETIRE_SUCCESS + end) + : M (Retired). + +Definition execute_F_BIN_RM_TYPE_S +(rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) (op : f_bin_rm_op_S) +: M (Retired) := + (rF_bits rs1) >>= fun w__0 : mword 64 => + let rs1_val_32b := nan_unbox w__0 in + (rF_bits rs2) >>= fun w__1 : mword 64 => + let rs2_val_32b := nan_unbox w__1 in + (select_instr_or_fcsr_rm rm) >>= fun w__2 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__2 in + (match op with + | FADD_S => (riscv_f32Add rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FSUB_S => (riscv_f32Sub rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FMUL_S => (riscv_f32Mul rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + | FDIV_S => (riscv_f32Div rm_3b rs1_val_32b rs2_val_32b) : M ((mword 5 * mword 32)) + end) >>= fun '((fflags, rd_val_32b) + : (bits 5 * bits 32)) => + (write_fflags fflags) >> (wF_bits rd (nan_box rd_val_32b)) >> returnm RETIRE_SUCCESS. + +Definition execute_F_BIN_RM_TYPE_D +(rs2 : mword 5) (rs1 : mword 5) (rm : rounding_mode) (rd : mword 5) (op : f_bin_rm_op_D) +: M (Retired) := + (rF_bits rs1) >>= fun rs1_val_64b => + (rF_bits rs2) >>= fun rs2_val_64b => + (select_instr_or_fcsr_rm rm) >>= fun w__0 : rounding_mode => + let rm_3b := encdec_rounding_mode_forwards w__0 in + (match op with + | FADD_D => (riscv_f64Add rm_3b rs1_val_64b rs2_val_64b) : M ((mword 5 * mword 64)) + | FSUB_D => (riscv_f64Sub rm_3b rs1_val_64b rs2_val_64b) : M ((mword 5 * mword 64)) + | FMUL_D => (riscv_f64Mul rm_3b rs1_val_64b rs2_val_64b) : M ((mword 5 * mword 64)) + | FDIV_D => (riscv_f64Div rm_3b rs1_val_64b rs2_val_64b) : M ((mword 5 * mword 64)) + end) >>= fun '((fflags, rd_val_64b) + : (bits 5 * bits 64)) => + (write_fflags fflags) >> (wF_bits rd rd_val_64b) >> returnm RETIRE_SUCCESS. + +Definition execute_FENCE_TSO (pred : mword 4) (succ : mword 4) : M (Retired) := (match (pred, succ) with - | (v__794, v__795) => - (if ((andb (eq_vec (subrange_vec_dec v__794 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__795 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_tso (tt))) + | (v__1330, v__1331) => + (if andb (eq_vec (subrange_vec_dec v__1330 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1331 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_tso tt)) : M (unit) else - returnm ((if ((andb - (eq_vec (subrange_vec_dec v__794 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__795 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) then - tt - else - let '_ := (print_endline "FIXME: unsupported fence") : unit in - tt) - : unit)) + returnm (if andb (eq_vec (subrange_vec_dec v__1330 1 0) ('b"00" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1331 1 0) ('b"00" : mword (1 - 0 + 1))) then + tt + else + let '_ := (print_endline "FIXME: unsupported fence") : unit in + tt)) : M (unit) end) >> - returnm (RETIRE_SUCCESS - : Retired). + returnm RETIRE_SUCCESS. -Definition execute_FENCEI '(tt : unit) : Retired := RETIRE_SUCCESS. +Definition execute_FENCEI '(tt : unit) : Retired := RETIRE_SUCCESS. -Definition execute_FENCE (pred : mword 4) (succ : mword 4) -: M (Retired) := - +Definition execute_FENCE (pred : mword 4) (succ : mword 4) : M (Retired) := (match (pred, succ) with - | (v__754, v__755) => - (if ((andb (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_rw (tt))) + | (v__1290, v__1291) => + (if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_rw (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_r tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_rw (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"11" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_rw tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_rw_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_rw_r tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_r_w (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"01" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_r_w tt)) : M (unit) - else if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) - then - (barrier (Barrier_RISCV_w_r (tt))) + else if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"10" : mword (1 - 0 + 1))) then + (barrier (Barrier_RISCV_w_r tt)) : M (unit) else - returnm ((if ((andb - (eq_vec (subrange_vec_dec v__754 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__755 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) then - tt - else - let '_ := (print_endline "FIXME: unsupported fence") : unit in - tt) - : unit)) + returnm (if andb (eq_vec (subrange_vec_dec v__1290 1 0) ('b"00" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1291 1 0) ('b"00" : mword (1 - 0 + 1))) then + tt + else + let '_ := (print_endline "FIXME: unsupported fence") : unit in + tt)) : M (unit) end) >> - returnm (RETIRE_SUCCESS - : Retired). + returnm RETIRE_SUCCESS. -Definition execute_ECALL '(tt : unit) -: M (Retired) := - +Definition execute_ECALL '(tt : unit) : M (Retired) := read_reg cur_privilege_ref >>= fun w__0 : Privilege => let t : sync_exception := {| sync_exception_trap := (match w__0 with - | User => E_U_EnvCall - | Supervisor => E_S_EnvCall - | Machine => E_M_EnvCall + | User => E_U_EnvCall tt + | Supervisor => E_S_EnvCall tt + | Machine => E_M_EnvCall tt end); sync_exception_excinfo := (None : option xlenbits); sync_exception_ext := None |} in read_reg cur_privilege_ref >>= fun w__1 : Privilege => ((read_reg PC_ref) : M (mword 64)) >>= fun w__2 : mword 64 => - (exception_handler w__1 (CTL_TRAP (t)) w__2) >>= fun w__3 : mword 64 => - (set_next_pc w__3) >> returnm (RETIRE_FAIL : Retired). + (exception_handler w__1 (CTL_TRAP t) w__2) >>= fun w__3 : mword 64 => + (set_next_pc w__3) >> returnm RETIRE_FAIL. -Definition execute_EBREAK '(tt : unit) -: M (Retired) := - - ((read_reg PC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => - (handle_mem_exception w__0 E_Breakpoint) >> returnm (RETIRE_FAIL : Retired). +Definition execute_EBREAK '(tt : unit) : M (Retired) := + (handle_exception (E_Breakpoint tt)) >> returnm RETIRE_FAIL. -Definition execute_DIVW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_DIVW (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__1 : mword 64 => + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun w__1 : mword 64 => let rs1_val := subrange_vec_dec w__1 31 0 in - (rX (projT1 (regidx_to_regno rs2))) >>= fun w__2 : mword 64 => + (rX_bits rs2) >>= fun w__2 : mword 64 => let rs2_val := subrange_vec_dec w__2 31 0 in - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let q : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then (-1) else Z.quot rs1_int rs2_int in + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let q : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then (-1) else Z.quot rs1_int rs2_int in let q' : Z := - if sumbool_of_bool ((andb s (Z.gtb q (Z.sub (projT1 (pow2 31)) 1)))) then Z.sub 0 (pow 2 31) + if sumbool_of_bool (andb s (Z.gtb q (Z.sub (projT1 (pow2 31)) 1))) then Z.sub 0 (pow 2 31) else q in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 (to_bits 32 q'))) >> - returnm (RETIRE_SUCCESS - : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd (EXTS 64 (to_bits 32 q'))) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_DIV (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) -: M (Retired) := - +Definition execute_DIV (rs2 : mword 5) (rs1 : mword 5) (rd : mword 5) (s : bool) : M (Retired) := (haveMulDiv tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => - let rs1_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs1_val) - else projT1 (uint rs1_val) in - let rs2_int : Z := - if sumbool_of_bool (s) then projT1 (sint rs2_val) - else projT1 (uint rs2_val) in - let q : Z := if sumbool_of_bool ((Z.eqb rs2_int 0)) then (-1) else Z.quot rs1_int rs2_int in + (if sumbool_of_bool w__0 then + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => + let rs1_int : Z := if sumbool_of_bool s then projT1 (sint rs1_val) else projT1 (uint rs1_val) in + let rs2_int : Z := if sumbool_of_bool s then projT1 (sint rs2_val) else projT1 (uint rs2_val) in + let q : Z := if sumbool_of_bool (Z.eqb rs2_int 0) then (-1) else Z.quot rs1_int rs2_int in let q' : Z := - if sumbool_of_bool ((andb s (Z.gtb q xlen_max_signed))) then xlen_min_signed + if sumbool_of_bool (andb s (Z.gtb q xlen_max_signed)) then xlen_min_signed else q in - (wX (projT1 (regidx_to_regno rd)) (to_bits 64 q')) >> returnm (RETIRE_SUCCESS : Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + (wX_bits rd (to_bits 64 q')) >> returnm RETIRE_SUCCESS + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_C_NOP '(tt : unit) : Retired := RETIRE_SUCCESS. +Definition execute_C_NOP '(tt : unit) : Retired := RETIRE_SUCCESS. -Definition execute_C_ILLEGAL (s : mword 16) -: M (Retired) := - - (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired). +Definition execute_C_ILLEGAL (s : mword 16) : M (Retired) := + (handle_illegal tt) >> returnm RETIRE_FAIL. -Definition execute_CSR (csr : mword 12) (rs1 : mword 5) (rd : mword 5) (is_imm : bool) (op : csrop) +Definition execute_CSR (csr : mword 12) (rs1 : mword 5) (rd : mword 5) (is_imm : bool) (op : csrop) : M (Retired) := - - (if sumbool_of_bool (is_imm) then returnm ((EXTZ 64 rs1) : mword 64) - else (rX (projT1 (regidx_to_regno rs1))) : M (mword 64)) >>= fun rs1_val : xlenbits => + (if sumbool_of_bool is_imm then returnm (EXTZ 64 rs1) + else (rX_bits rs1) : M (mword 64)) >>= fun rs1_val : xlenbits => let isWrite : bool := match op with | CSRRW => true | _ => - if sumbool_of_bool (is_imm) then projT1 (neq_int (projT1 (uint rs1_val)) 0) + if sumbool_of_bool is_imm then projT1 (neq_int (projT1 (uint rs1_val)) 0) else projT1 (neq_int (projT1 (uint rs1)) 0) end in read_reg cur_privilege_ref >>= fun w__1 : Privilege => (check_CSR csr w__1 isWrite) >>= fun w__2 : bool => - (if sumbool_of_bool ((negb w__2)) then (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired) + (if sumbool_of_bool (negb w__2) then (handle_illegal tt) >> returnm RETIRE_FAIL else - (readCSR csr) >>= fun csr_val => - (if sumbool_of_bool (isWrite) then - let new_val : xlenbits := - match op with - | CSRRW => rs1_val - | CSRRS => or_vec csr_val rs1_val - | CSRRC => and_vec csr_val (not_vec rs1_val) - end in - (writeCSR csr new_val) - : M (unit) - else returnm (tt : unit)) >> - (wX (projT1 (regidx_to_regno rd)) csr_val) >> returnm (RETIRE_SUCCESS : Retired)) + read_reg cur_privilege_ref >>= fun w__3 : Privilege => + (if negb (ext_check_CSR csr w__3 isWrite) then + let '_ := (ext_check_CSR_fail tt) : unit in + returnm RETIRE_FAIL + else + (readCSR csr) >>= fun csr_val => + (if sumbool_of_bool isWrite then + let new_val : xlenbits := + match op with + | CSRRW => rs1_val + | CSRRS => or_vec csr_val rs1_val + | CSRRC => and_vec csr_val (not_vec rs1_val) + end in + (writeCSR csr new_val) + : M (unit) + else returnm tt) >> + (wX_bits rd csr_val) >> returnm RETIRE_SUCCESS) + : M (Retired)) : M (Retired). -Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : bop) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun rs1_val => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val => +Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : bop) : M (Retired) := + (rX_bits rs1) >>= fun rs1_val => + (rX_bits rs2) >>= fun rs2_val => let taken : bool := match op with | RISCV_BEQ => eq_vec rs1_val rs2_val @@ -22824,68 +29935,75 @@ Definition execute_BTYPE (imm : mword 13) (rs2 : mword 5) (rs1 : mword 5) (op : end in ((read_reg PC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => let t : xlenbits := add_vec w__0 (EXTS 64 imm) in - (if sumbool_of_bool (taken) then + (if sumbool_of_bool taken then (match (ext_control_check_pc t) with - | Ext_ControlAddr_Error (e) => + | Ext_ControlAddr_Error e => let '_ := (ext_handle_control_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_ControlAddr_OK (target) => + returnm RETIRE_FAIL + | Ext_ControlAddr_OK target => (and_boolM ((bit_to_bool (access_vec_dec target 1)) : M (bool)) ((haveRVC tt) >>= fun w__2 : bool => returnm ((negb w__2) : bool))) >>= fun w__3 : bool => - (if sumbool_of_bool (w__3) then - (handle_mem_exception target E_Fetch_Addr_Align) >> returnm (RETIRE_FAIL : Retired) - else (set_next_pc target) >> returnm (RETIRE_SUCCESS : Retired)) + (if sumbool_of_bool w__3 then + (handle_mem_exception target (E_Fetch_Addr_Align tt)) >> returnm RETIRE_FAIL + else (set_next_pc target) >> returnm RETIRE_SUCCESS) : M (Retired) end) : M (Retired) - else returnm (RETIRE_SUCCESS : Retired)) + else returnm RETIRE_SUCCESS) : M (Retired). Definition execute_AMO (op : amoop) (aq : bool) (rl : bool) (rs2 : mword 5) (rs1 : mword 5) (width : word_width) -(rd : mword 5) +(rd : mword 5) : M (Retired) := - (haveAtomics tt) >>= fun w__0 : bool => - (if sumbool_of_bool (w__0) then - (ext_data_get_addr rs1 (zeros_implicit 64) ReadWrite width) >>= fun w__1 : Ext_DataAddr_Check unit => + (if sumbool_of_bool w__0 then + (ext_data_get_addr rs1 (zeros_implicit 64) (ReadWrite Data) width) >>= fun w__1 : Ext_DataAddr_Check unit => (match w__1 with - | Ext_DataAddr_Error (e) => + | Ext_DataAddr_Error e => let '_ := (ext_handle_data_check_error e) : unit in - returnm (RETIRE_FAIL - : Retired) - | Ext_DataAddr_OK (vaddr) => - (translateAddr vaddr ReadWrite) >>= fun w__2 : TR_Result (mword 64) ExceptionType => + returnm RETIRE_FAIL + | Ext_DataAddr_OK vaddr => + (translateAddr vaddr (ReadWrite Data)) >>= fun w__2 : TR_Result (mword 64) ExceptionType => (match w__2 with - | TR_Failure (e) => (handle_mem_exception vaddr e) >> returnm (RETIRE_FAIL : Retired) - | TR_Address (addr) => + | TR_Failure (e, _) => (handle_mem_exception vaddr e) >> returnm RETIRE_FAIL + | TR_Address (addr, _) => (match (width, 64) with - | (WORD, g__220) => + | (WORD, g__316) => (mem_write_ea addr 4 (andb aq rl) rl true) : M (MemoryOpResult unit) | (DOUBLE, l__7) => - (if sumbool_of_bool ((Z.eqb l__7 64)) then + (if sumbool_of_bool (Z.eqb l__7 64) then (mem_write_ea addr 8 (andb aq rl) rl true) : M (MemoryOpResult unit) else (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult unit)) : M (MemoryOpResult unit) | _ => (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult unit) end) >>= fun eares : MemoryOpResult unit => - (rX (projT1 (regidx_to_regno rs2))) >>= fun rs2_val : xlenbits => + let is_unsigned : bool := + match op with | AMOMINU => true | AMOMAXU => true | _ => false end in + (match width with + | WORD => + (if sumbool_of_bool is_unsigned then + (rX_bits rs2) >>= fun w__8 : mword 64 => + returnm (EXTZ 64 (subrange_vec_dec w__8 31 0)) + else + (rX_bits rs2) >>= fun w__9 : mword 64 => + returnm (EXTS 64 (subrange_vec_dec w__9 31 0))) + : M (mword 64) + | DOUBLE => (rX_bits rs2) : M (mword 64) + | _ => (internal_error "AMO expected WORD or DOUBLE") : M (mword 64) + end) >>= fun rs2_val : xlenbits => (match eares with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (_) => + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue _ => (match (width, 64) with - | (WORD, g__219) => - (mem_read ReadWrite addr 4 aq (andb aq rl) true) >>= fun w__8 : MemoryOpResult (mword (8 * 4)) => - returnm ((extend_value false w__8) - : MemoryOpResult (mword 64)) + | (WORD, g__315) => + (mem_read (ReadWrite Data) addr 4 aq (andb aq rl) true) >>= fun w__13 : MemoryOpResult (mword (8 * 4)) => + returnm (extend_value is_unsigned w__13) | (DOUBLE, l__6) => - (if sumbool_of_bool ((Z.eqb l__6 64)) then - (mem_read ReadWrite addr 8 aq (andb aq rl) true) >>= fun w__9 : MemoryOpResult (mword (8 * 8)) => - returnm ((extend_value false w__9) - : MemoryOpResult (mword 64)) + (if sumbool_of_bool (Z.eqb l__6 64) then + (mem_read (ReadWrite Data) addr 8 aq (andb aq rl) true) >>= fun w__14 : MemoryOpResult (mword (8 * 8)) => + returnm (extend_value is_unsigned w__14) else (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult (mword 64))) @@ -22893,11 +30011,10 @@ Definition execute_AMO | _ => (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult (mword 64)) - end) >>= fun rval : MemoryOpResult xlenbits => - (match rval with - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) - | MemValue (loaded) => + end) >>= fun mval : MemoryOpResult xlenbits => + (match mval with + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL + | MemValue loaded => let result : xlenbits := match op with | AMOSWAP => rs2_val @@ -22906,25 +30023,34 @@ Definition execute_AMO | AMOAND => and_vec rs2_val loaded | AMOOR => or_vec rs2_val loaded | AMOMIN => - to_bits 64 (Z.min (projT1 (sint rs2_val)) (projT1 (sint loaded))) + to_bits 64 + (projT1 + (min_atom (projT1 (sint rs2_val)) (projT1 (sint loaded)))) | AMOMAX => - to_bits 64 (Z.max (projT1 (sint rs2_val)) (projT1 (sint loaded))) + to_bits 64 + (projT1 + (max_atom (projT1 (sint rs2_val)) (projT1 (sint loaded)))) | AMOMINU => to_bits 64 (projT1 - (min_nat (projT1 (uint rs2_val)) (projT1 (uint loaded)))) + (min_atom (projT1 (uint rs2_val)) (projT1 (uint loaded)))) | AMOMAXU => to_bits 64 (projT1 - (max_nat (projT1 (uint rs2_val)) (projT1 (uint loaded)))) + (max_atom (projT1 (uint rs2_val)) (projT1 (uint loaded)))) end in + (match width with + | WORD => returnm (EXTS 64 (subrange_vec_dec loaded 31 0)) + | DOUBLE => returnm loaded + | _ => (internal_error "AMO expected WORD or DOUBLE") : M (mword 64) + end) >>= fun rval : xlenbits => (match (width, 64) with - | (WORD, g__218) => + | (WORD, g__314) => (mem_write_value addr 4 (subrange_vec_dec result 31 0) (andb aq rl) rl true) : M (MemoryOpResult bool) | (DOUBLE, l__5) => - (if sumbool_of_bool ((Z.eqb l__5 64)) then + (if sumbool_of_bool (Z.eqb l__5 64) then (mem_write_value addr 8 result (andb aq rl) rl true) : M (MemoryOpResult bool) else @@ -22935,14 +30061,10 @@ Definition execute_AMO (internal_error "AMO expected WORD or DOUBLE") : M (MemoryOpResult bool) end) >>= fun wval : MemoryOpResult bool => (match wval with - | MemValue (true) => - (wX (projT1 (regidx_to_regno rd)) loaded) >> - returnm (RETIRE_SUCCESS - : Retired) - | MemValue (false) => + | MemValue true => (wX_bits rd rval) >> returnm RETIRE_SUCCESS + | MemValue false => (internal_error "AMO got false from mem_write_value") : M (Retired) - | MemException (e) => - (handle_mem_exception addr e) >> returnm (RETIRE_FAIL : Retired) + | MemException e => (handle_mem_exception addr e) >> returnm RETIRE_FAIL end) : M (Retired) end) @@ -22953,6752 +30075,12853 @@ Definition execute_AMO : M (Retired) end) : M (Retired) - else (handle_illegal tt) >> returnm (RETIRE_FAIL : Retired)) + else (handle_illegal tt) >> returnm RETIRE_FAIL) : M (Retired). -Definition execute_ADDIW (imm : mword 12) (rs1 : mword 5) (rd : mword 5) -: M (Retired) := - - (rX (projT1 (regidx_to_regno rs1))) >>= fun w__0 : mword 64 => +Definition execute_ADDIW (imm : mword 12) (rs1 : mword 5) (rd : mword 5) : M (Retired) := + (rX_bits rs1) >>= fun w__0 : mword 64 => let result : xlenbits := add_vec (EXTS 64 imm) w__0 in - (wX (projT1 (regidx_to_regno rd)) (EXTS 64 (subrange_vec_dec result 31 0))) >> - returnm (RETIRE_SUCCESS - : Retired). + (wX_bits rd (EXTS 64 (subrange_vec_dec result 31 0))) >> returnm RETIRE_SUCCESS. -Definition compressed_measure (instr : ast) -: Z := - +Definition compressed_measure (instr : ast) : Z := match instr with - | C_ADDI4SPN ((rdc, nzimm)) => 1 - | C_LW ((uimm, rsc, rdc)) => 1 - | C_LD ((uimm, rsc, rdc)) => 1 - | C_SW ((uimm, rsc1, rsc2)) => 1 - | C_SD ((uimm, rsc1, rsc2)) => 1 - | C_ADDI ((nzi, rsd)) => 1 - | C_JAL (imm) => 1 - | C_LI ((imm, rd)) => 1 - | C_ADDI16SP (imm) => 1 - | C_LUI ((imm, rd)) => 1 - | C_SRLI ((shamt, rsd)) => 1 - | C_SRAI ((shamt, rsd)) => 1 - | C_ANDI ((imm, rsd)) => 1 - | C_SUB ((rsd, rs2)) => 1 - | C_XOR ((rsd, rs2)) => 1 - | C_OR ((rsd, rs2)) => 1 - | C_AND ((rsd, rs2)) => 1 - | C_SUBW ((rsd, rs2)) => 1 - | C_ADDW ((rsd, rs2)) => 1 - | C_J (imm) => 1 - | C_BEQZ ((imm, rs)) => 1 - | C_BNEZ ((imm, rs)) => 1 - | C_SLLI ((shamt, rsd)) => 1 - | C_LWSP ((uimm, rd)) => 1 - | C_LDSP ((uimm, rd)) => 1 - | C_SWSP ((uimm, rs2)) => 1 - | C_SDSP ((uimm, rs2)) => 1 - | C_JR (rs1) => 1 - | C_JALR (rs1) => 1 - | C_MV ((rd, rs2)) => 1 - | C_EBREAK (tt') => 1 - | C_ADD ((rsd, rs2)) => 1 + | C_ADDI4SPN (rdc, nzimm) => 1 + | C_LW (uimm, rsc, rdc) => 1 + | C_LD (uimm, rsc, rdc) => 1 + | C_SW (uimm, rsc1, rsc2) => 1 + | C_SD (uimm, rsc1, rsc2) => 1 + | C_ADDI (nzi, rsd) => 1 + | C_JAL imm => 1 + | C_LI (imm, rd) => 1 + | C_ADDI16SP imm => 1 + | C_LUI (imm, rd) => 1 + | C_SRLI (shamt, rsd) => 1 + | C_SRAI (shamt, rsd) => 1 + | C_ANDI (imm, rsd) => 1 + | C_SUB (rsd, rs2) => 1 + | C_XOR (rsd, rs2) => 1 + | C_OR (rsd, rs2) => 1 + | C_AND (rsd, rs2) => 1 + | C_SUBW (rsd, rs2) => 1 + | C_ADDW (rsd, rs2) => 1 + | C_J imm => 1 + | C_BEQZ (imm, rs) => 1 + | C_BNEZ (imm, rs) => 1 + | C_SLLI (shamt, rsd) => 1 + | C_LWSP (uimm, rd) => 1 + | C_LDSP (uimm, rd) => 1 + | C_SWSP (uimm, rs2) => 1 + | C_SDSP (uimm, rs2) => 1 + | C_JR rs1 => 1 + | C_JALR rs1 => 1 + | C_MV (rd, rs2) => 1 + | C_EBREAK tt' => 1 + | C_ADD (rsd, rs2) => 1 | _ => 0 end. -Fixpoint _rec_execute (merge_var : ast) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M (Retired) := - +Fixpoint _rec_execute (merge_var : ast) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M (Retired). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => (match merge_var with - | C_ADDI4SPN ((rdc, nzimm)) => - let imm : bits 12 := - concat_vec (vec_of_bits [B0;B0] : mword 2) - (concat_vec nzimm (vec_of_bits [B0;B0] : mword 2)) in + | C_ADDI4SPN (rdc, nzimm) => + let imm : bits 12 := concat_vec ('b"00" : mword 2) (concat_vec nzimm ('b"00" : mword 2)) in let rd := creg2reg_idx rdc in - (_rec_execute (ITYPE ((imm, sp, rd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, sp, rd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LW ((uimm, rsc, rdc)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in + | C_LW (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in let rd := creg2reg_idx rdc in let rs := creg2reg_idx rsc in - (_rec_execute (LOAD ((imm, rs, rd, false, WORD, false, false))) (Z.sub _reclimit 1) + (_rec_execute (LOAD (imm, rs, rd, false, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LD ((uimm, rsc, rdc)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in + | C_LD (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in let rd := creg2reg_idx rdc in let rs := creg2reg_idx rsc in - (_rec_execute (LOAD ((imm, rs, rd, false, DOUBLE, false, false))) (Z.sub _reclimit 1) + (_rec_execute (LOAD (imm, rs, rd, false, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SW ((uimm, rsc1, rsc2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in + | C_SW (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in let rs1 := creg2reg_idx rsc1 in let rs2 := creg2reg_idx rsc2 in - (_rec_execute (STORE ((imm, rs2, rs1, WORD, false, false))) (Z.sub _reclimit 1) + (_rec_execute (STORE (imm, rs2, rs1, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SD ((uimm, rsc1, rsc2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in + | C_SD (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in let rs1 := creg2reg_idx rsc1 in let rs2 := creg2reg_idx rsc2 in - (_rec_execute (STORE ((imm, rs2, rs1, DOUBLE, false, false))) (Z.sub _reclimit 1) + (_rec_execute (STORE (imm, rs2, rs1, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDI ((nzi, rsd)) => + | C_ADDI (nzi, rsd) => let imm : bits 12 := EXTS 12 nzi in - (_rec_execute (ITYPE ((imm, rsd, rsd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, rsd, rsd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_JAL (imm) => - (_rec_execute (RISCV_JAL ((EXTS 21 (concat_vec imm (vec_of_bits [B0] : mword 1)), ra))) + | C_JAL imm => + (_rec_execute (RISCV_JAL (EXTS 21 (concat_vec imm ('b"0" : mword 1)), ra)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDIW ((imm, rsd)) => - (_rec_execute (ADDIW ((EXTS 12 imm, rsd, rsd))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_ADDIW (imm, rsd) => + (_rec_execute (ADDIW (EXTS 12 imm, rsd, rsd)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LI ((imm, rd)) => + | C_LI (imm, rd) => let imm : bits 12 := EXTS 12 imm in - (_rec_execute (ITYPE ((imm, zreg, rd, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (ITYPE (imm, zreg, rd, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDI16SP (imm) => - let imm : bits 12 := EXTS 12 (concat_vec imm (vec_of_bits [B0;B0;B0;B0] : mword 4)) in - (_rec_execute (ITYPE ((imm, sp, sp, RISCV_ADDI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_ADDI16SP imm => + let imm : bits 12 := EXTS 12 (concat_vec imm (Ox"0" : mword 4)) in + (_rec_execute (ITYPE (imm, sp, sp, RISCV_ADDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LUI ((imm, rd)) => + | C_LUI (imm, rd) => let res : bits 20 := EXTS 20 imm in - (_rec_execute (UTYPE ((res, rd, RISCV_LUI))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (UTYPE (res, rd, RISCV_LUI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SRLI ((shamt, rsd)) => + | C_SRLI (shamt, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SRLI))) (Z.sub _reclimit 1) + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SRLI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SRAI ((shamt, rsd)) => + | C_SRAI (shamt, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SRAI))) (Z.sub _reclimit 1) + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SRAI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ANDI ((imm, rsd)) => + | C_ANDI (imm, rsd) => let rsd := creg2reg_idx rsd in - (_rec_execute (ITYPE ((EXTS 12 imm, rsd, rsd, RISCV_ANDI))) (Z.sub _reclimit 1) + (_rec_execute (ITYPE (EXTS 12 imm, rsd, rsd, RISCV_ANDI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SUB ((rsd, rs2)) => + | C_SUB (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_SUB))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_SUB)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_XOR ((rsd, rs2)) => + | C_XOR (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_XOR))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_XOR)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_OR ((rsd, rs2)) => + | C_OR (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_OR))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_OR)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_AND ((rsd, rs2)) => + | C_AND (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_AND))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_AND)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SUBW ((rsd, rs2)) => + | C_SUBW (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPEW ((rs2, rsd, rsd, RISCV_SUBW))) (Z.sub _reclimit 1) - (_limit_reduces _acc)) + (_rec_execute (RTYPEW (rs2, rsd, rsd, RISCV_SUBW)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADDW ((rsd, rs2)) => + | C_ADDW (rsd, rs2) => let rsd := creg2reg_idx rsd in let rs2 := creg2reg_idx rs2 in - (_rec_execute (RTYPEW ((rs2, rsd, rsd, RISCV_ADDW))) (Z.sub _reclimit 1) - (_limit_reduces _acc)) + (_rec_execute (RTYPEW (rs2, rsd, rsd, RISCV_ADDW)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_J (imm) => - (_rec_execute (RISCV_JAL ((EXTS 21 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg))) + | C_J imm => + (_rec_execute (RISCV_JAL (EXTS 21 (concat_vec imm ('b"0" : mword 1)), zreg)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_BEQZ ((imm, rs)) => + | C_BEQZ (imm, rs) => (_rec_execute - (BTYPE - ((EXTS 13 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg, creg2reg_idx rs, RISCV_BEQ))) + (BTYPE (EXTS 13 (concat_vec imm ('b"0" : mword 1)), zreg, creg2reg_idx rs, RISCV_BEQ)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_BNEZ ((imm, rs)) => + | C_BNEZ (imm, rs) => (_rec_execute - (BTYPE - ((EXTS 13 (concat_vec imm (vec_of_bits [B0] : mword 1)), zreg, creg2reg_idx rs, RISCV_BNE))) + (BTYPE (EXTS 13 (concat_vec imm ('b"0" : mword 1)), zreg, creg2reg_idx rs, RISCV_BNE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SLLI ((shamt, rsd)) => - (_rec_execute (SHIFTIOP ((shamt, rsd, rsd, RISCV_SLLI))) (Z.sub _reclimit 1) + | C_SLLI (shamt, rsd) => + (_rec_execute (SHIFTIOP (shamt, rsd, rsd, RISCV_SLLI)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LWSP ((uimm, rd)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in - (_rec_execute (LOAD ((imm, sp, rd, false, WORD, false, false))) (Z.sub _reclimit 1) + | C_LWSP (uimm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (LOAD (imm, sp, rd, false, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_LDSP ((uimm, rd)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in - (_rec_execute (LOAD ((imm, sp, rd, false, DOUBLE, false, false))) (Z.sub _reclimit 1) + | C_LDSP (uimm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (LOAD (imm, sp, rd, false, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SWSP ((uimm, rs2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0] : mword 2)) in - (_rec_execute (STORE ((imm, rs2, sp, WORD, false, false))) (Z.sub _reclimit 1) + | C_SWSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (STORE (imm, rs2, sp, WORD, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_SDSP ((uimm, rs2)) => - let imm : bits 12 := EXTZ 12 (concat_vec uimm (vec_of_bits [B0;B0;B0] : mword 3)) in - (_rec_execute (STORE ((imm, rs2, sp, DOUBLE, false, false))) (Z.sub _reclimit 1) + | C_SDSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (STORE (imm, rs2, sp, DOUBLE, false, false)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_JR (rs1) => - (_rec_execute (RISCV_JALR ((EXTZ 12 (vec_of_bits [B0] : mword 1), rs1, zreg))) - (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_JR rs1 => + (_rec_execute (RISCV_JALR (EXTZ 12 ('b"0" : mword 1), rs1, zreg)) (Z.sub _reclimit 1) + (_limit_reduces _acc)) : M (Retired) - | C_JALR (rs1) => - (_rec_execute (RISCV_JALR ((EXTZ 12 (vec_of_bits [B0] : mword 1), rs1, ra))) - (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_JALR rs1 => + (_rec_execute (RISCV_JALR (EXTZ 12 ('b"0" : mword 1), rs1, ra)) (Z.sub _reclimit 1) + (_limit_reduces _acc)) + : M (Retired) + | C_MV (rd, rs2) => + (_rec_execute (RTYPE (rs2, zreg, rd, RISCV_ADD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_EBREAK tt => + (_rec_execute (EBREAK tt) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) + | C_ADD (rsd, rs2) => + (_rec_execute (RTYPE (rs2, rsd, rsd, RISCV_ADD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FLWSP (imm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec imm ('b"00" : mword 2)) in + (_rec_execute (LOAD_FP (imm, sp, rd, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FSWSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + (_rec_execute (STORE_FP (imm, rs2, sp, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_MV ((rd, rs2)) => - (_rec_execute (RTYPE ((rs2, zreg, rd, RISCV_ADD))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_FLW (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + let rd := creg2reg_idx rdc in + let rs := creg2reg_idx rsc in + (_rec_execute (LOAD_FP (imm, rs, rd, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FSW (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"00" : mword 2)) in + let rs1 := creg2reg_idx rsc1 in + let rs2 := creg2reg_idx rsc2 in + (_rec_execute (STORE_FP (imm, rs2, rs1, WORD)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FLDSP (uimm, rd) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (LOAD_FP (imm, sp, rd, DOUBLE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FSDSP (uimm, rs2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + (_rec_execute (STORE_FP (imm, rs2, sp, DOUBLE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) + : M (Retired) + | C_FLD (uimm, rsc, rdc) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + let rd := creg2reg_idx rdc in + let rs := creg2reg_idx rsc in + (_rec_execute (LOAD_FP (imm, rs, rd, DOUBLE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_EBREAK (tt) => - (_rec_execute (EBREAK (tt)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | C_ADD ((rsd, rs2)) => - (_rec_execute (RTYPE ((rs2, rsd, rsd, RISCV_ADD))) (Z.sub _reclimit 1) (_limit_reduces _acc)) + | C_FSD (uimm, rsc1, rsc2) => + let imm : bits 12 := EXTZ 12 (concat_vec uimm ('b"000" : mword 3)) in + let rs1 := creg2reg_idx rsc1 in + let rs2 := creg2reg_idx rsc2 in + (_rec_execute (STORE_FP (imm, rs2, rs1, DOUBLE)) (Z.sub _reclimit 1) (_limit_reduces _acc)) : M (Retired) - | UTYPE ((imm, rd, op)) => (execute_UTYPE imm rd op) : M (Retired) - | RISCV_JAL ((imm, rd)) => (execute_RISCV_JAL imm rd) : M (Retired) - | BTYPE ((imm, rs2, rs1, op)) => (execute_BTYPE imm rs2 rs1 op) : M (Retired) - | ITYPE ((imm, rs1, rd, op)) => (execute_ITYPE imm rs1 rd op) : M (Retired) - | SHIFTIOP ((shamt, rs1, rd, op)) => (execute_SHIFTIOP shamt rs1 rd op) : M (Retired) - | RTYPE ((rs2, rs1, rd, op)) => (execute_RTYPE rs2 rs1 rd op) : M (Retired) - | LOAD ((imm, rs1, rd, is_unsigned, width, aq, rl)) => + | UTYPE (imm, rd, op) => (execute_UTYPE imm rd op) : M (Retired) + | RISCV_JAL (imm, rd) => (execute_RISCV_JAL imm rd) : M (Retired) + | BTYPE (imm, rs2, rs1, op) => (execute_BTYPE imm rs2 rs1 op) : M (Retired) + | ITYPE (imm, rs1, rd, op) => (execute_ITYPE imm rs1 rd op) : M (Retired) + | SHIFTIOP (shamt, rs1, rd, op) => (execute_SHIFTIOP shamt rs1 rd op) : M (Retired) + | RTYPE (rs2, rs1, rd, op) => (execute_RTYPE rs2 rs1 rd op) : M (Retired) + | LOAD (imm, rs1, rd, is_unsigned, width, aq, rl) => (execute_LOAD imm rs1 rd is_unsigned width aq rl) : M (Retired) - | STORE ((imm, rs2, rs1, width, aq, rl)) => - (execute_STORE imm rs2 rs1 width aq rl) : M (Retired) - | ADDIW ((imm, rs1, rd)) => (execute_ADDIW imm rs1 rd) : M (Retired) - | SHIFTW ((shamt, rs1, rd, op)) => (execute_SHIFTW shamt rs1 rd op) : M (Retired) - | RTYPEW ((rs2, rs1, rd, op)) => (execute_RTYPEW rs2 rs1 rd op) : M (Retired) - | SHIFTIWOP ((shamt, rs1, rd, op)) => (execute_SHIFTIWOP shamt rs1 rd op) : M (Retired) - | FENCE ((pred, succ)) => (execute_FENCE pred succ) : M (Retired) - | FENCE_TSO ((pred, succ)) => (execute_FENCE_TSO pred succ) : M (Retired) - | FENCEI (arg0) => returnm ((execute_FENCEI arg0) : Retired) - | ECALL (arg0) => (execute_ECALL arg0) : M (Retired) - | MRET (arg0) => (execute_MRET arg0) : M (Retired) - | SRET (arg0) => (execute_SRET arg0) : M (Retired) - | EBREAK (arg0) => (execute_EBREAK arg0) : M (Retired) - | WFI (arg0) => (execute_WFI arg0) : M (Retired) - | SFENCE_VMA ((rs1, rs2)) => (execute_SFENCE_VMA rs1 rs2) : M (Retired) - | LOADRES ((aq, rl, rs1, width, rd)) => (execute_LOADRES aq rl rs1 width rd) : M (Retired) - | STORECON ((aq, rl, rs2, rs1, width, rd)) => + | STORE (imm, rs2, rs1, width, aq, rl) => (execute_STORE imm rs2 rs1 width aq rl) : M (Retired) + | ADDIW (imm, rs1, rd) => (execute_ADDIW imm rs1 rd) : M (Retired) + | SHIFTW (shamt, rs1, rd, op) => (execute_SHIFTW shamt rs1 rd op) : M (Retired) + | RTYPEW (rs2, rs1, rd, op) => (execute_RTYPEW rs2 rs1 rd op) : M (Retired) + | SHIFTIWOP (shamt, rs1, rd, op) => (execute_SHIFTIWOP shamt rs1 rd op) : M (Retired) + | FENCE (pred, succ) => (execute_FENCE pred succ) : M (Retired) + | FENCE_TSO (pred, succ) => (execute_FENCE_TSO pred succ) : M (Retired) + | FENCEI arg0 => returnm (execute_FENCEI arg0) + | ECALL arg0 => (execute_ECALL arg0) : M (Retired) + | MRET arg0 => (execute_MRET arg0) : M (Retired) + | SRET arg0 => (execute_SRET arg0) : M (Retired) + | EBREAK arg0 => (execute_EBREAK arg0) : M (Retired) + | WFI arg0 => (execute_WFI arg0) : M (Retired) + | SFENCE_VMA (rs1, rs2) => (execute_SFENCE_VMA rs1 rs2) : M (Retired) + | LOADRES (aq, rl, rs1, width, rd) => (execute_LOADRES aq rl rs1 width rd) : M (Retired) + | STORECON (aq, rl, rs2, rs1, width, rd) => (execute_STORECON aq rl rs2 rs1 width rd) : M (Retired) - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => + | AMO (op, aq, rl, rs2, rs1, width, rd) => (execute_AMO op aq rl rs2 rs1 width rd) : M (Retired) - | C_NOP (arg0) => returnm ((execute_C_NOP arg0) : Retired) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | C_NOP arg0 => returnm (execute_C_NOP arg0) + | MUL (rs2, rs1, rd, high, signed1, signed2) => (execute_MUL rs2 rs1 rd high signed1 signed2) : M (Retired) - | DIV ((rs2, rs1, rd, s)) => (execute_DIV rs2 rs1 rd s) : M (Retired) - | REM ((rs2, rs1, rd, s)) => (execute_REM rs2 rs1 rd s) : M (Retired) - | MULW ((rs2, rs1, rd)) => (execute_MULW rs2 rs1 rd) : M (Retired) - | DIVW ((rs2, rs1, rd, s)) => (execute_DIVW rs2 rs1 rd s) : M (Retired) - | REMW ((rs2, rs1, rd, s)) => (execute_REMW rs2 rs1 rd s) : M (Retired) - | CSR ((csr, rs1, rd, is_imm, op)) => (execute_CSR csr rs1 rd is_imm op) : M (Retired) - | URET (arg0) => (execute_URET arg0) : M (Retired) - | RISCV_JALR ((imm, rs1, rd)) => (execute_RISCV_JALR imm rs1 rd) : M (Retired) - | ILLEGAL (s) => (execute_ILLEGAL s) : M (Retired) - | C_ILLEGAL (s) => (execute_C_ILLEGAL s) : M (Retired) + | DIV (rs2, rs1, rd, s) => (execute_DIV rs2 rs1 rd s) : M (Retired) + | REM (rs2, rs1, rd, s) => (execute_REM rs2 rs1 rd s) : M (Retired) + | MULW (rs2, rs1, rd) => (execute_MULW rs2 rs1 rd) : M (Retired) + | DIVW (rs2, rs1, rd, s) => (execute_DIVW rs2 rs1 rd s) : M (Retired) + | REMW (rs2, rs1, rd, s) => (execute_REMW rs2 rs1 rd s) : M (Retired) + | CSR (csr, rs1, rd, is_imm, op) => (execute_CSR csr rs1 rd is_imm op) : M (Retired) + | URET arg0 => (execute_URET arg0) : M (Retired) + | LOAD_FP (imm, rs1, rd, width) => (execute_LOAD_FP imm rs1 rd width) : M (Retired) + | STORE_FP (imm, rs2, rs1, width) => (execute_STORE_FP imm rs2 rs1 width) : M (Retired) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => + (execute_F_MADD_TYPE_S rs3 rs2 rs1 rm rd op) : M (Retired) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => + (execute_F_BIN_RM_TYPE_S rs2 rs1 rm rd op) : M (Retired) + | F_UN_RM_TYPE_S (rs1, rm, rd, arg3) => (execute_F_UN_RM_TYPE_S rs1 rm rd arg3) : M (Retired) + | F_BIN_TYPE_S (rs2, rs1, rd, arg3) => (execute_F_BIN_TYPE_S rs2 rs1 rd arg3) : M (Retired) + | F_UN_TYPE_S (rs1, rd, arg2) => (execute_F_UN_TYPE_S rs1 rd arg2) : M (Retired) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, op) => + (execute_F_MADD_TYPE_D rs3 rs2 rs1 rm rd op) : M (Retired) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, op) => + (execute_F_BIN_RM_TYPE_D rs2 rs1 rm rd op) : M (Retired) + | F_UN_RM_TYPE_D (rs1, rm, rd, arg3) => (execute_F_UN_RM_TYPE_D rs1 rm rd arg3) : M (Retired) + | F_BIN_TYPE_D (rs2, rs1, rd, arg3) => (execute_F_BIN_TYPE_D rs2 rs1 rd arg3) : M (Retired) + | F_UN_TYPE_D (rs1, rd, arg2) => (execute_F_UN_TYPE_D rs1 rd arg2) : M (Retired) + | RISCV_JALR (imm, rs1, rd) => (execute_RISCV_JALR imm rs1 rd) : M (Retired) + | ILLEGAL s => (execute_ILLEGAL s) : M (Retired) + | C_ILLEGAL s => (execute_C_ILLEGAL s) : M (Retired) end) - : M (Retired). + : M (Retired) +). +Defined. -Definition execute (i : ast) -: M (Retired) := - - (_rec_execute i ((compressed_measure i) : Z) (Zwf_guarded _)) - : M (Retired). -Definition assembly_forwards (arg_ : ast) -: M (string) := - +Definition execute (i : ast) : M (Retired) := + (_rec_execute i ((compressed_measure i) : Z) (Zwf_guarded _)) : M (Retired). + +Definition assembly_forwards (arg_ : ast) : M (string) := (match arg_ with - | UTYPE ((imm, rd, op)) => + | UTYPE (imm, rd, op) => (reg_name_forwards rd) >>= fun w__0 : string => - returnm ((string_append (utype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__0 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | RISCV_JAL ((imm, rd)) => + returnm (string_append (utype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__0 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | RISCV_JAL (imm, rd) => (reg_name_forwards rd) >>= fun w__1 : string => - returnm ((string_append "jal" - (string_append (spc_forwards tt) - (string_append w__1 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | RISCV_JALR ((imm, rs1, rd)) => + returnm (string_append "jal" + (string_append (spc_forwards tt) + (string_append w__1 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | RISCV_JALR (imm, rs1, rd) => (reg_name_forwards rd) >>= fun w__2 : string => (reg_name_forwards rs1) >>= fun w__3 : string => - returnm ((string_append "jalr" - (string_append (spc_forwards tt) - (string_append w__2 - (string_append (sep_forwards tt) - (string_append w__3 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | BTYPE ((imm, rs2, rs1, op)) => + returnm (string_append "jalr" + (string_append (spc_forwards tt) + (string_append w__2 + (string_append (sep_forwards tt) + (string_append w__3 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | BTYPE (imm, rs2, rs1, op) => (reg_name_forwards rs1) >>= fun w__4 : string => (reg_name_forwards rs2) >>= fun w__5 : string => - returnm ((string_append (btype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__4 - (string_append (sep_forwards tt) - (string_append w__5 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | ITYPE ((imm, rs1, rd, op)) => + returnm (string_append (btype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__4 + (string_append (sep_forwards tt) + (string_append w__5 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | ITYPE (imm, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__6 : string => (reg_name_forwards rs1) >>= fun w__7 : string => - returnm ((string_append (itype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__6 - (string_append (sep_forwards tt) - (string_append w__7 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) - | SHIFTIOP ((shamt, rs1, rd, op)) => + returnm (string_append (itype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__6 + (string_append (sep_forwards tt) + (string_append w__7 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) + | SHIFTIOP (shamt, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__8 : string => (reg_name_forwards rs1) >>= fun w__9 : string => - returnm ((string_append (shiftiop_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__8 - (string_append (sep_forwards tt) - (string_append w__9 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) - | RTYPE ((rs2, rs1, rd, op)) => + returnm (string_append (shiftiop_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__8 + (string_append (sep_forwards tt) + (string_append w__9 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) + | RTYPE (rs2, rs1, rd, op) => (reg_name_forwards rd) >>= fun w__10 : string => (reg_name_forwards rs1) >>= fun w__11 : string => (reg_name_forwards rs2) >>= fun w__12 : string => - returnm ((string_append (rtype_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__10 - (string_append (sep_forwards tt) - (string_append w__11 - (string_append (sep_forwards tt) (string_append w__12 ""))))))) - : string) - | LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl)) => + returnm (string_append (rtype_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__10 + (string_append (sep_forwards tt) + (string_append w__11 + (string_append (sep_forwards tt) (string_append w__12 ""))))))) + | LOAD (imm, rs1, rd, is_unsigned, size, aq, rl) => (reg_name_forwards rd) >>= fun w__13 : string => (reg_name_forwards rs1) >>= fun w__14 : string => - returnm ((string_append "l" - (string_append (size_mnemonic_forwards size) - (string_append (maybe_u_forwards is_unsigned) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__13 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) - (string_append (opt_spc_forwards tt) - (string_append "(" - (string_append (opt_spc_forwards tt) - (string_append w__14 - (string_append (opt_spc_forwards tt) - (string_append ")" ""))))))))))))))) - : string) - | STORE ((imm, rs2, rs1, size, aq, rl)) => + returnm (string_append "l" + (string_append (size_mnemonic_forwards size) + (string_append (maybe_u_forwards is_unsigned) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__13 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__14 + (string_append (opt_spc_forwards tt) + (string_append ")" ""))))))))))))))) + | STORE (imm, rs2, rs1, size, aq, rl) => (reg_name_forwards rs2) >>= fun w__15 : string => (reg_name_forwards rs1) >>= fun w__16 : string => - returnm ((string_append "s" - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__15 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) - (string_append (opt_spc_forwards tt) - (string_append "(" - (string_append (opt_spc_forwards tt) - (string_append w__16 - (string_append (opt_spc_forwards tt) - (string_append ")" "")))))))))))))) - : string) - | ADDIW ((imm, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "s" + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__15 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__16 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))))) + | ADDIW (imm, rs1, rd) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__17 : string => (reg_name_forwards rs1) >>= fun w__18 : string => - returnm ((string_append "addiw" - (string_append (spc_forwards tt) - (string_append w__17 - (string_append (sep_forwards tt) - (string_append w__18 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))))) - : string) + returnm (string_append "addiw" + (string_append (spc_forwards tt) + (string_append w__17 + (string_append (sep_forwards tt) + (string_append w__18 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | SHIFTW ((shamt, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | SHIFTW (shamt, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__21 : string => (reg_name_forwards rs1) >>= fun w__22 : string => - returnm ((string_append (shiftw_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__21 - (string_append (sep_forwards tt) - (string_append w__22 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) + returnm (string_append (shiftw_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__21 + (string_append (sep_forwards tt) + (string_append w__22 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | RTYPEW ((rs2, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | RTYPEW (rs2, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__25 : string => (reg_name_forwards rs1) >>= fun w__26 : string => (reg_name_forwards rs2) >>= fun w__27 : string => - returnm ((string_append (rtypew_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__25 - (string_append (sep_forwards tt) - (string_append w__26 - (string_append (sep_forwards tt) (string_append w__27 ""))))))) - : string) + returnm (string_append (rtypew_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__25 + (string_append (sep_forwards tt) + (string_append w__26 + (string_append (sep_forwards tt) (string_append w__27 ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | SHIFTIWOP ((shamt, rs1, rd, op)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | SHIFTIWOP (shamt, rs1, rd, op) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__30 : string => (reg_name_forwards rs1) >>= fun w__31 : string => - returnm ((string_append (shiftiwop_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__30 - (string_append (sep_forwards tt) - (string_append w__31 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))))) - : string) + returnm (string_append (shiftiwop_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__30 + (string_append (sep_forwards tt) + (string_append w__31 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | FENCE ((pred, succ)) => + | FENCE (pred, succ) => (fence_bits_forwards pred) >>= fun w__34 : string => (fence_bits_forwards succ) >>= fun w__35 : string => - returnm ((string_append "fence" - (string_append (spc_forwards tt) - (string_append w__34 - (string_append (sep_forwards tt) (string_append w__35 ""))))) - : string) - | FENCE_TSO ((pred, succ)) => + returnm (string_append "fence" + (string_append (spc_forwards tt) + (string_append w__34 (string_append (sep_forwards tt) (string_append w__35 ""))))) + | FENCE_TSO (pred, succ) => (fence_bits_forwards pred) >>= fun w__36 : string => (fence_bits_forwards succ) >>= fun w__37 : string => - returnm ((string_append "fence.tso" - (string_append (spc_forwards tt) - (string_append w__36 - (string_append (sep_forwards tt) (string_append w__37 ""))))) - : string) - | FENCEI (tt) => returnm ("fence.i" : string) - | ECALL (tt) => returnm ("ecall" : string) - | MRET (tt) => returnm ("mret" : string) - | SRET (tt) => returnm ("sret" : string) - | EBREAK (tt) => returnm ("ebreak" : string) - | WFI (tt) => returnm ("wfi" : string) - | SFENCE_VMA ((rs1, rs2)) => + returnm (string_append "fence.tso" + (string_append (spc_forwards tt) + (string_append w__36 (string_append (sep_forwards tt) (string_append w__37 ""))))) + | FENCEI tt => returnm "fence.i" + | ECALL tt => returnm "ecall" + | MRET tt => returnm "mret" + | SRET tt => returnm "sret" + | EBREAK tt => returnm "ebreak" + | WFI tt => returnm "wfi" + | SFENCE_VMA (rs1, rs2) => (reg_name_forwards rs1) >>= fun w__38 : string => (reg_name_forwards rs2) >>= fun w__39 : string => - returnm ((string_append "sfence.vma" - (string_append (spc_forwards tt) - (string_append w__38 - (string_append (sep_forwards tt) (string_append w__39 ""))))) - : string) - | LOADRES ((aq, rl, rs1, size, rd)) => + returnm (string_append "sfence.vma" + (string_append (spc_forwards tt) + (string_append w__38 (string_append (sep_forwards tt) (string_append w__39 ""))))) + | LOADRES (aq, rl, rs1, size, rd) => (reg_name_forwards rd) >>= fun w__40 : string => (reg_name_forwards rs1) >>= fun w__41 : string => - returnm ((string_append "lr." - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__40 - (string_append (sep_forwards tt) (string_append w__41 "")))))))) - : string) - | STORECON ((aq, rl, rs2, rs1, size, rd)) => + returnm (string_append "lr." + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__40 + (string_append (sep_forwards tt) (string_append w__41 "")))))))) + | STORECON (aq, rl, rs2, rs1, size, rd) => (reg_name_forwards rd) >>= fun w__42 : string => (reg_name_forwards rs1) >>= fun w__43 : string => (reg_name_forwards rs2) >>= fun w__44 : string => - returnm ((string_append "sc." - (string_append (size_mnemonic_forwards size) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__42 - (string_append (sep_forwards tt) - (string_append w__43 - (string_append (sep_forwards tt) (string_append w__44 "")))))))))) - : string) - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => + returnm (string_append "sc." + (string_append (size_mnemonic_forwards size) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__42 + (string_append (sep_forwards tt) + (string_append w__43 + (string_append (sep_forwards tt) (string_append w__44 "")))))))))) + | AMO (op, aq, rl, rs2, rs1, width, rd) => (reg_name_forwards rd) >>= fun w__45 : string => - (reg_name_forwards rs1) >>= fun w__46 : string => - (reg_name_forwards rs2) >>= fun w__47 : string => - returnm ((string_append (amo_mnemonic_forwards op) - (string_append "." - (string_append (size_mnemonic_forwards width) - (string_append (maybe_aq_forwards aq) - (string_append (maybe_rl_forwards rl) - (string_append (spc_forwards tt) - (string_append w__45 - (string_append (sep_forwards tt) - (string_append w__46 - (string_append (sep_forwards tt) (string_append w__47 ""))))))))))) - : string) - | C_NOP (tt) => returnm ("c.nop" : string) - | C_ADDI4SPN ((rdc, nzimm)) => - (if ((neq_vec nzimm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then + (reg_name_forwards rs2) >>= fun w__46 : string => + (reg_name_forwards rs1) >>= fun w__47 : string => + returnm (string_append (amo_mnemonic_forwards op) + (string_append "." + (string_append (size_mnemonic_forwards width) + (string_append (maybe_aq_forwards aq) + (string_append (maybe_rl_forwards rl) + (string_append (spc_forwards tt) + (string_append w__45 + (string_append (sep_forwards tt) + (string_append w__46 + (string_append (sep_forwards tt) + (string_append "(" + (string_append w__47 (string_append ")" ""))))))))))))) + | C_NOP tt => returnm "c.nop" + | C_ADDI4SPN (rdc, nzimm) => + (if neq_vec nzimm (Ox"00" : mword 8) then (creg_name_forwards rdc) >>= fun w__48 : string => - returnm ((string_append "c.addi4spn" - (string_append (spc_forwards tt) - (string_append w__48 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (nzimm : mword 8) (vec_of_bits [B0;B0] : mword 2))) - ""))))) - : string) + returnm (string_append "c.addi4spn" + (string_append (spc_forwards tt) + (string_append w__48 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (nzimm : mword 8) ('b"00" : mword 2))) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LW ((uimm, rsc, rdc)) => + | C_LW (uimm, rsc, rdc) => (creg_name_forwards rdc) >>= fun w__51 : string => (creg_name_forwards rsc) >>= fun w__52 : string => - returnm ((string_append "c.lw" - (string_append (spc_forwards tt) - (string_append w__51 - (string_append (sep_forwards tt) - (string_append w__52 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0] : mword 2))) ""))))))) - : string) - | C_LD ((uimm, rsc, rdc)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "c.lw" + (string_append (spc_forwards tt) + (string_append w__51 + (string_append (sep_forwards tt) + (string_append w__52 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + | C_LD (uimm, rsc, rdc) => + (if sumbool_of_bool (Z.eqb 64 64) then (creg_name_forwards rdc) >>= fun w__53 : string => (creg_name_forwards rsc) >>= fun w__54 : string => - returnm ((string_append "c.ld" - (string_append (spc_forwards tt) - (string_append w__53 - (string_append (sep_forwards tt) - (string_append w__54 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0;B0] : mword 3))) ""))))))) - : string) + returnm (string_append "c.ld" + (string_append (spc_forwards tt) + (string_append w__53 + (string_append (sep_forwards tt) + (string_append w__54 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SW ((uimm, rsc1, rsc2)) => + | C_SW (uimm, rsc1, rsc2) => (creg_name_forwards rsc1) >>= fun w__57 : string => (creg_name_forwards rsc2) >>= fun w__58 : string => - returnm ((string_append "c.sw" - (string_append (spc_forwards tt) - (string_append w__57 - (string_append (sep_forwards tt) - (string_append w__58 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0] : mword 2))) ""))))))) - : string) - | C_SD ((uimm, rsc1, rsc2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "c.sw" + (string_append (spc_forwards tt) + (string_append w__57 + (string_append (sep_forwards tt) + (string_append w__58 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + | C_SD (uimm, rsc1, rsc2) => + (if sumbool_of_bool (Z.eqb 64 64) then (creg_name_forwards rsc1) >>= fun w__59 : string => (creg_name_forwards rsc2) >>= fun w__60 : string => - returnm ((string_append "c.sd" - (string_append (spc_forwards tt) - (string_append w__59 - (string_append (sep_forwards tt) - (string_append w__60 - (string_append (sep_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (uimm : mword 5) - (vec_of_bits [B0;B0;B0] : mword 3))) ""))))))) - : string) + returnm (string_append "c.sd" + (string_append (spc_forwards tt) + (string_append w__59 + (string_append (sep_forwards tt) + (string_append w__60 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDI ((nzi, rsd)) => - (if ((andb (neq_vec nzi (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then + | C_ADDI (nzi, rsd) => + (if andb (neq_vec nzi ('b"000000" : mword 6)) (neq_vec rsd zreg) then (reg_name_forwards rsd) >>= fun w__63 : string => - returnm ((string_append "c.addi" - (string_append (spc_forwards tt) - (string_append w__63 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits nzi) ""))))) - : string) + returnm (string_append "c.addi" + (string_append (spc_forwards tt) + (string_append w__63 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits nzi) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JAL (imm) => - (if sumbool_of_bool ((Z.eqb 64 32)) then - returnm ((string_append "c.jal" - (string_append (spc_forwards tt) - (string_append - (decimal_string_of_bits - (concat_vec (imm : mword 11) (vec_of_bits [B0] : mword 1))) ""))) - : string) + | C_JAL imm => + (if sumbool_of_bool (Z.eqb 64 32) then + returnm (string_append "c.jal" + (string_append (spc_forwards tt) + (string_append + (decimal_string_of_bits (concat_vec (imm : mword 11) ('b"0" : mword 1))) + ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDIW ((imm, rsd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | C_ADDIW (imm, rsd) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rsd) >>= fun w__68 : string => - returnm ((string_append "c.addiw" - (string_append (spc_forwards tt) - (string_append w__68 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.addiw" + (string_append (spc_forwards tt) + (string_append w__68 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LI ((imm, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then + | C_LI (imm, rd) => + (if neq_vec rd zreg then (reg_name_forwards rd) >>= fun w__71 : string => - returnm ((string_append "c.li" - (string_append (spc_forwards tt) - (string_append w__71 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.li" + (string_append (spc_forwards tt) + (string_append w__71 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDI16SP (imm) => - (if ((neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then - returnm ((string_append "c.addi16sp" - (string_append (spc_forwards tt) - (string_append (decimal_string_of_bits imm) ""))) - : string) + | C_ADDI16SP imm => + (if neq_vec imm ('b"000000" : mword 6) then + returnm (string_append "c.addi16sp" + (string_append (spc_forwards tt) + (string_append (decimal_string_of_bits imm) ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LUI ((imm, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) - : bool))) then + | C_LUI (imm, rd) => + (if andb (neq_vec rd zreg) (andb (neq_vec rd sp) (neq_vec imm ('b"000000" : mword 6))) then (reg_name_forwards rd) >>= fun w__76 : string => - returnm ((string_append "c.lui" - (string_append (spc_forwards tt) - (string_append w__76 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) + returnm (string_append "c.lui" + (string_append (spc_forwards tt) + (string_append w__76 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SRLI ((shamt, rsd)) => - (if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then + | C_SRLI (shamt, rsd) => + (if neq_vec shamt ('b"000000" : mword 6) then (creg_name_forwards rsd) >>= fun w__79 : string => - returnm ((string_append "c.srli" - (string_append (spc_forwards tt) - (string_append w__79 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.srli" + (string_append (spc_forwards tt) + (string_append w__79 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SRAI ((shamt, rsd)) => - (if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then + | C_SRAI (shamt, rsd) => + (if neq_vec shamt ('b"000000" : mword 6) then (creg_name_forwards rsd) >>= fun w__82 : string => - returnm ((string_append "c.srai" - (string_append (spc_forwards tt) - (string_append w__82 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.srai" + (string_append (spc_forwards tt) + (string_append w__82 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ANDI ((imm, rsd)) => + | C_ANDI (imm, rsd) => (creg_name_forwards rsd) >>= fun w__85 : string => - returnm ((string_append "c.andi" - (string_append (spc_forwards tt) - (string_append w__85 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_SUB ((rsd, rs2)) => + returnm (string_append "c.andi" + (string_append (spc_forwards tt) + (string_append w__85 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_SUB (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__86 : string => (creg_name_forwards rs2) >>= fun w__87 : string => - returnm ((string_append "c.sub" - (string_append (spc_forwards tt) - (string_append w__86 - (string_append (sep_forwards tt) (string_append w__87 ""))))) - : string) - | C_XOR ((rsd, rs2)) => + returnm (string_append "c.sub" + (string_append (spc_forwards tt) + (string_append w__86 (string_append (sep_forwards tt) (string_append w__87 ""))))) + | C_XOR (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__88 : string => (creg_name_forwards rs2) >>= fun w__89 : string => - returnm ((string_append "c.xor" - (string_append (spc_forwards tt) - (string_append w__88 - (string_append (sep_forwards tt) (string_append w__89 ""))))) - : string) - | C_OR ((rsd, rs2)) => + returnm (string_append "c.xor" + (string_append (spc_forwards tt) + (string_append w__88 (string_append (sep_forwards tt) (string_append w__89 ""))))) + | C_OR (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__90 : string => (creg_name_forwards rs2) >>= fun w__91 : string => - returnm ((string_append "c.or" - (string_append (spc_forwards tt) - (string_append w__90 - (string_append (sep_forwards tt) (string_append w__91 ""))))) - : string) - | C_AND ((rsd, rs2)) => + returnm (string_append "c.or" + (string_append (spc_forwards tt) + (string_append w__90 (string_append (sep_forwards tt) (string_append w__91 ""))))) + | C_AND (rsd, rs2) => (creg_name_forwards rsd) >>= fun w__92 : string => (creg_name_forwards rs2) >>= fun w__93 : string => - returnm ((string_append "c.and" - (string_append (spc_forwards tt) - (string_append w__92 - (string_append (sep_forwards tt) (string_append w__93 ""))))) - : string) - | C_SUBW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "c.and" + (string_append (spc_forwards tt) + (string_append w__92 (string_append (sep_forwards tt) (string_append w__93 ""))))) + | C_SUBW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then (creg_name_forwards rsd) >>= fun w__94 : string => (creg_name_forwards rs2) >>= fun w__95 : string => - returnm ((string_append "c.subw" - (string_append (spc_forwards tt) - (string_append w__94 - (string_append (sep_forwards tt) (string_append w__95 ""))))) - : string) + returnm (string_append "c.subw" + (string_append (spc_forwards tt) + (string_append w__94 + (string_append (sep_forwards tt) (string_append w__95 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_ADDW ((rsd, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | C_ADDW (rsd, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then (creg_name_forwards rsd) >>= fun w__98 : string => (creg_name_forwards rs2) >>= fun w__99 : string => - returnm ((string_append "c.addw" - (string_append (spc_forwards tt) - (string_append w__98 - (string_append (sep_forwards tt) (string_append w__99 ""))))) - : string) + returnm (string_append "c.addw" + (string_append (spc_forwards tt) + (string_append w__98 + (string_append (sep_forwards tt) (string_append w__99 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_J (imm) => - returnm ((string_append "c.j" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits imm) ""))) - : string) - | C_BEQZ ((imm, rs)) => + | C_J imm => + returnm (string_append "c.j" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits imm) ""))) + | C_BEQZ (imm, rs) => (creg_name_forwards rs) >>= fun w__102 : string => - returnm ((string_append "c.beqz" - (string_append (spc_forwards tt) - (string_append w__102 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_BNEZ ((imm, rs)) => + returnm (string_append "c.beqz" + (string_append (spc_forwards tt) + (string_append w__102 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_BNEZ (imm, rs) => (creg_name_forwards rs) >>= fun w__103 : string => - returnm ((string_append "c.bnez" - (string_append (spc_forwards tt) - (string_append w__103 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits imm) ""))))) - : string) - | C_SLLI ((shamt, rsd)) => - (if ((andb (neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then + returnm (string_append "c.bnez" + (string_append (spc_forwards tt) + (string_append w__103 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + | C_SLLI (shamt, rsd) => + (if andb (neq_vec shamt ('b"000000" : mword 6)) (neq_vec rsd zreg) then (reg_name_forwards rsd) >>= fun w__104 : string => - returnm ((string_append "c.slli" - (string_append (spc_forwards tt) - (string_append w__104 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits shamt) ""))))) - : string) + returnm (string_append "c.slli" + (string_append (spc_forwards tt) + (string_append w__104 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits shamt) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LWSP ((uimm, rd)) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then + | C_LWSP (uimm, rd) => + (if neq_vec rd zreg then (reg_name_forwards rd) >>= fun w__107 : string => - returnm ((string_append "c.lwsp" - (string_append (spc_forwards tt) - (string_append w__107 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.lwsp" + (string_append (spc_forwards tt) + (string_append w__107 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_LDSP ((uimm, rd)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) (Z.eqb 64 64))) then + | C_LDSP (uimm, rd) => + (if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 64 64)) then (reg_name_forwards rd) >>= fun w__110 : string => - returnm ((string_append "c.ldsp" - (string_append (spc_forwards tt) - (string_append w__110 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.ldsp" + (string_append (spc_forwards tt) + (string_append w__110 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_SWSP ((uimm, rd)) => + | C_SWSP (uimm, rd) => (reg_name_forwards rd) >>= fun w__113 : string => - returnm ((string_append "c.swsp" - (string_append (spc_forwards tt) - (string_append w__113 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) - | C_SDSP ((uimm, rs2)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "c.swsp" + (string_append (spc_forwards tt) + (string_append w__113 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + | C_SDSP (uimm, rs2) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rs2) >>= fun w__114 : string => - returnm ((string_append "c.sdsp" - (string_append (spc_forwards tt) - (string_append w__114 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits uimm) ""))))) - : string) + returnm (string_append "c.sdsp" + (string_append (spc_forwards tt) + (string_append w__114 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then + | C_JR rs1 => + (if neq_vec rs1 zreg then (reg_name_forwards rs1) >>= fun w__117 : string => - returnm ((string_append "c.jr" (string_append (spc_forwards tt) (string_append w__117 ""))) - : string) + returnm (string_append "c.jr" (string_append (spc_forwards tt) (string_append w__117 ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_JALR (rs1) => - (if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then + | C_JALR rs1 => + (if neq_vec rs1 zreg then (reg_name_forwards rs1) >>= fun w__120 : string => - returnm ((string_append "c.jalr" - (string_append (spc_forwards tt) (string_append w__120 ""))) - : string) + returnm (string_append "c.jalr" + (string_append (spc_forwards tt) (string_append w__120 ""))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_MV ((rd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then + | C_MV (rd, rs2) => + (if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then (reg_name_forwards rd) >>= fun w__123 : string => (reg_name_forwards rs2) >>= fun w__124 : string => - returnm ((string_append "c.mv" - (string_append (spc_forwards tt) - (string_append w__123 - (string_append (sep_forwards tt) (string_append w__124 ""))))) - : string) + returnm (string_append "c.mv" + (string_append (spc_forwards tt) + (string_append w__123 + (string_append (sep_forwards tt) (string_append w__124 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | C_EBREAK (tt) => returnm ("c.ebreak" : string) - | C_ADD ((rsd, rs2)) => - (if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then + | C_EBREAK tt => returnm "c.ebreak" + | C_ADD (rsd, rs2) => + (if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then (reg_name_forwards rsd) >>= fun w__127 : string => (reg_name_forwards rs2) >>= fun w__128 : string => - returnm ((string_append "c.add" - (string_append (spc_forwards tt) - (string_append w__127 - (string_append (sep_forwards tt) (string_append w__128 ""))))) - : string) + returnm (string_append "c.add" + (string_append (spc_forwards tt) + (string_append w__127 + (string_append (sep_forwards tt) (string_append w__128 ""))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => + | MUL (rs2, rs1, rd, high, signed1, signed2) => (mul_mnemonic_forwards (high, signed1, signed2)) >>= fun w__131 : string => (reg_name_forwards rd) >>= fun w__132 : string => (reg_name_forwards rs1) >>= fun w__133 : string => (reg_name_forwards rs2) >>= fun w__134 : string => - returnm ((string_append w__131 - (string_append (spc_forwards tt) - (string_append w__132 - (string_append (sep_forwards tt) - (string_append w__133 - (string_append (sep_forwards tt) (string_append w__134 ""))))))) - : string) - | DIV ((rs2, rs1, rd, s)) => + returnm (string_append w__131 + (string_append (spc_forwards tt) + (string_append w__132 + (string_append (sep_forwards tt) + (string_append w__133 + (string_append (sep_forwards tt) (string_append w__134 ""))))))) + | DIV (rs2, rs1, rd, s) => (reg_name_forwards rd) >>= fun w__135 : string => (reg_name_forwards rs1) >>= fun w__136 : string => (reg_name_forwards rs2) >>= fun w__137 : string => - returnm ((string_append "div" - (string_append (maybe_not_u_forwards s) - (string_append (spc_forwards tt) - (string_append w__135 - (string_append (sep_forwards tt) - (string_append w__136 - (string_append (sep_forwards tt) (string_append w__137 "")))))))) - : string) - | REM ((rs2, rs1, rd, s)) => + returnm (string_append "div" + (string_append (maybe_not_u_forwards s) + (string_append (spc_forwards tt) + (string_append w__135 + (string_append (sep_forwards tt) + (string_append w__136 + (string_append (sep_forwards tt) (string_append w__137 "")))))))) + | REM (rs2, rs1, rd, s) => (reg_name_forwards rd) >>= fun w__138 : string => (reg_name_forwards rs1) >>= fun w__139 : string => (reg_name_forwards rs2) >>= fun w__140 : string => - returnm ((string_append "rem" - (string_append (maybe_not_u_forwards s) - (string_append (spc_forwards tt) - (string_append w__138 - (string_append (sep_forwards tt) - (string_append w__139 - (string_append (sep_forwards tt) (string_append w__140 "")))))))) - : string) - | MULW ((rs2, rs1, rd)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + returnm (string_append "rem" + (string_append (maybe_not_u_forwards s) + (string_append (spc_forwards tt) + (string_append w__138 + (string_append (sep_forwards tt) + (string_append w__139 + (string_append (sep_forwards tt) (string_append w__140 "")))))))) + | MULW (rs2, rs1, rd) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__141 : string => (reg_name_forwards rs1) >>= fun w__142 : string => (reg_name_forwards rs2) >>= fun w__143 : string => - returnm ((string_append "mulw" - (string_append (spc_forwards tt) - (string_append w__141 - (string_append (sep_forwards tt) - (string_append w__142 - (string_append (sep_forwards tt) (string_append w__143 ""))))))) - : string) + returnm (string_append "mulw" + (string_append (spc_forwards tt) + (string_append w__141 + (string_append (sep_forwards tt) + (string_append w__142 + (string_append (sep_forwards tt) (string_append w__143 ""))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | DIVW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | DIVW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__146 : string => (reg_name_forwards rs1) >>= fun w__147 : string => (reg_name_forwards rs2) >>= fun w__148 : string => - returnm ((string_append "div" - (string_append (maybe_not_u_forwards s) - (string_append "w" - (string_append (spc_forwards tt) - (string_append w__146 - (string_append (sep_forwards tt) - (string_append w__147 - (string_append (sep_forwards tt) (string_append w__148 ""))))))))) - : string) + returnm (string_append "div" + (string_append (maybe_not_u_forwards s) + (string_append "w" + (string_append (spc_forwards tt) + (string_append w__146 + (string_append (sep_forwards tt) + (string_append w__147 + (string_append (sep_forwards tt) (string_append w__148 ""))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | REMW ((rs2, rs1, rd, s)) => - (if sumbool_of_bool ((Z.eqb 64 64)) then + | REMW (rs2, rs1, rd, s) => + (if sumbool_of_bool (Z.eqb 64 64) then (reg_name_forwards rd) >>= fun w__151 : string => (reg_name_forwards rs1) >>= fun w__152 : string => (reg_name_forwards rs2) >>= fun w__153 : string => - returnm ((string_append "rem" - (string_append (maybe_not_u_forwards s) - (string_append "w" - (string_append (spc_forwards tt) - (string_append w__151 - (string_append (sep_forwards tt) - (string_append w__152 - (string_append (sep_forwards tt) (string_append w__153 ""))))))))) - : string) + returnm (string_append "rem" + (string_append (maybe_not_u_forwards s) + (string_append "w" + (string_append (spc_forwards tt) + (string_append w__151 + (string_append (sep_forwards tt) + (string_append w__152 + (string_append (sep_forwards tt) (string_append w__153 ""))))))))) else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) : M (string) - | CSR ((csr, rs1, rd, true, op)) => + | CSR (csr, rs1, rd, true, op) => (reg_name_forwards rd) >>= fun w__156 : string => - (csr_name_map_forwards csr) >>= fun w__157 : string => - returnm ((string_append (csr_mnemonic_forwards op) - (string_append "i" - (string_append (spc_forwards tt) - (string_append w__156 - (string_append (sep_forwards tt) - (string_append (decimal_string_of_bits rs1) - (string_append (sep_forwards tt) (string_append w__157 "")))))))) - : string) - | CSR ((csr, rs1, rd, false, op)) => - (reg_name_forwards rd) >>= fun w__158 : string => - (reg_name_forwards rs1) >>= fun w__159 : string => - (csr_name_map_forwards csr) >>= fun w__160 : string => - returnm ((string_append (csr_mnemonic_forwards op) - (string_append (spc_forwards tt) - (string_append w__158 - (string_append (sep_forwards tt) - (string_append w__159 - (string_append (sep_forwards tt) (string_append w__160 ""))))))) - : string) - | URET (tt) => returnm ("uret" : string) - | ILLEGAL (s) => - returnm ((string_append "illegal" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) - : string) - | C_ILLEGAL (s) => - returnm ((string_append "c.illegal" - (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) - : string) + returnm (string_append (csr_mnemonic_forwards op) + (string_append "i" + (string_append (spc_forwards tt) + (string_append w__156 + (string_append (sep_forwards tt) + (string_append (csr_name_map_forwards csr) + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits rs1) "")))))))) + | CSR (csr, rs1, rd, false, op) => + (reg_name_forwards rd) >>= fun w__157 : string => + (reg_name_forwards rs1) >>= fun w__158 : string => + returnm (string_append (csr_mnemonic_forwards op) + (string_append (spc_forwards tt) + (string_append w__157 + (string_append (sep_forwards tt) + (string_append (csr_name_map_forwards csr) + (string_append (sep_forwards tt) (string_append w__158 ""))))))) + | URET tt => returnm "uret" + | LOAD_FP (imm, rs1, rd, width) => + (freg_name_forwards rd) >>= fun w__159 : string => + (reg_name_forwards rs1) >>= fun w__160 : string => + returnm (string_append "fl" + (string_append (size_mnemonic_forwards width) + (string_append (spc_forwards tt) + (string_append w__159 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__160 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))) + | STORE_FP (imm, rs2, rs1, width) => + (freg_name_forwards rs2) >>= fun w__161 : string => + (reg_name_forwards rs1) >>= fun w__162 : string => + returnm (string_append "fs" + (string_append (size_mnemonic_forwards width) + (string_append (spc_forwards tt) + (string_append w__161 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) + (string_append (opt_spc_forwards tt) + (string_append "(" + (string_append (opt_spc_forwards tt) + (string_append w__162 + (string_append (opt_spc_forwards tt) + (string_append ")" "")))))))))))) + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__163 : string => + (freg_name_forwards rs1) >>= fun w__164 : string => + (freg_name_forwards rs2) >>= fun w__165 : string => + (freg_name_forwards rs3) >>= fun w__166 : string => + returnm (string_append (f_madd_type_mnemonic_S_forwards op) + (string_append (spc_forwards tt) + (string_append w__163 + (string_append (sep_forwards tt) + (string_append w__164 + (string_append (sep_forwards tt) + (string_append w__165 + (string_append (sep_forwards tt) + (string_append w__166 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))))) + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__167 : string => + (freg_name_forwards rs1) >>= fun w__168 : string => + (freg_name_forwards rs2) >>= fun w__169 : string => + returnm (string_append (f_bin_rm_type_mnemonic_S_forwards op) + (string_append (spc_forwards tt) + (string_append w__167 + (string_append (sep_forwards tt) + (string_append w__168 + (string_append (sep_forwards tt) + (string_append w__169 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => + (freg_name_forwards rd) >>= fun w__170 : string => + (freg_name_forwards rs1) >>= fun w__171 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FSQRT_S) + (string_append (spc_forwards tt) + (string_append w__170 + (string_append (sep_forwards tt) + (string_append w__171 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => + (reg_name_forwards rd) >>= fun w__172 : string => + (freg_name_forwards rs1) >>= fun w__173 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_W_S) + (string_append (spc_forwards tt) + (string_append w__172 + (string_append (sep_forwards tt) + (string_append w__173 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => + (reg_name_forwards rd) >>= fun w__174 : string => + (freg_name_forwards rs1) >>= fun w__175 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_WU_S) + (string_append (spc_forwards tt) + (string_append w__174 + (string_append (sep_forwards tt) + (string_append w__175 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => + (freg_name_forwards rd) >>= fun w__176 : string => + (reg_name_forwards rs1) >>= fun w__177 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_W) + (string_append (spc_forwards tt) + (string_append w__176 + (string_append (sep_forwards tt) + (string_append w__177 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => + (freg_name_forwards rd) >>= fun w__178 : string => + (reg_name_forwards rs1) >>= fun w__179 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_WU) + (string_append (spc_forwards tt) + (string_append w__178 + (string_append (sep_forwards tt) + (string_append w__179 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => + (reg_name_forwards rd) >>= fun w__180 : string => + (freg_name_forwards rs1) >>= fun w__181 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_L_S) + (string_append (spc_forwards tt) + (string_append w__180 + (string_append (sep_forwards tt) + (string_append w__181 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => + (reg_name_forwards rd) >>= fun w__182 : string => + (freg_name_forwards rs1) >>= fun w__183 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_LU_S) + (string_append (spc_forwards tt) + (string_append w__182 + (string_append (sep_forwards tt) + (string_append w__183 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => + (freg_name_forwards rd) >>= fun w__184 : string => + (reg_name_forwards rs1) >>= fun w__185 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_L) + (string_append (spc_forwards tt) + (string_append w__184 + (string_append (sep_forwards tt) + (string_append w__185 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => + (freg_name_forwards rd) >>= fun w__186 : string => + (reg_name_forwards rs1) >>= fun w__187 : string => + returnm (string_append (f_un_rm_type_mnemonic_S_forwards FCVT_S_LU) + (string_append (spc_forwards tt) + (string_append w__186 + (string_append (sep_forwards tt) + (string_append w__187 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => + (freg_name_forwards rd) >>= fun w__188 : string => + (freg_name_forwards rs1) >>= fun w__189 : string => + (freg_name_forwards rs2) >>= fun w__190 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJ_S) + (string_append (spc_forwards tt) + (string_append w__188 + (string_append (sep_forwards tt) + (string_append w__189 + (string_append (sep_forwards tt) (string_append w__190 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => + (freg_name_forwards rd) >>= fun w__191 : string => + (freg_name_forwards rs1) >>= fun w__192 : string => + (freg_name_forwards rs2) >>= fun w__193 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJN_S) + (string_append (spc_forwards tt) + (string_append w__191 + (string_append (sep_forwards tt) + (string_append w__192 + (string_append (sep_forwards tt) (string_append w__193 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => + (freg_name_forwards rd) >>= fun w__194 : string => + (freg_name_forwards rs1) >>= fun w__195 : string => + (freg_name_forwards rs2) >>= fun w__196 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FSGNJX_S) + (string_append (spc_forwards tt) + (string_append w__194 + (string_append (sep_forwards tt) + (string_append w__195 + (string_append (sep_forwards tt) (string_append w__196 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => + (freg_name_forwards rd) >>= fun w__197 : string => + (freg_name_forwards rs1) >>= fun w__198 : string => + (freg_name_forwards rs2) >>= fun w__199 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FMIN_S) + (string_append (spc_forwards tt) + (string_append w__197 + (string_append (sep_forwards tt) + (string_append w__198 + (string_append (sep_forwards tt) (string_append w__199 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => + (freg_name_forwards rd) >>= fun w__200 : string => + (freg_name_forwards rs1) >>= fun w__201 : string => + (freg_name_forwards rs2) >>= fun w__202 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FMAX_S) + (string_append (spc_forwards tt) + (string_append w__200 + (string_append (sep_forwards tt) + (string_append w__201 + (string_append (sep_forwards tt) (string_append w__202 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => + (reg_name_forwards rd) >>= fun w__203 : string => + (freg_name_forwards rs1) >>= fun w__204 : string => + (freg_name_forwards rs2) >>= fun w__205 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FEQ_S) + (string_append (spc_forwards tt) + (string_append w__203 + (string_append (sep_forwards tt) + (string_append w__204 + (string_append (sep_forwards tt) (string_append w__205 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => + (reg_name_forwards rd) >>= fun w__206 : string => + (freg_name_forwards rs1) >>= fun w__207 : string => + (freg_name_forwards rs2) >>= fun w__208 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FLT_S) + (string_append (spc_forwards tt) + (string_append w__206 + (string_append (sep_forwards tt) + (string_append w__207 + (string_append (sep_forwards tt) (string_append w__208 ""))))))) + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => + (reg_name_forwards rd) >>= fun w__209 : string => + (freg_name_forwards rs1) >>= fun w__210 : string => + (freg_name_forwards rs2) >>= fun w__211 : string => + returnm (string_append (f_bin_type_mnemonic_S_forwards FLE_S) + (string_append (spc_forwards tt) + (string_append w__209 + (string_append (sep_forwards tt) + (string_append w__210 + (string_append (sep_forwards tt) (string_append w__211 ""))))))) + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => + (reg_name_forwards rd) >>= fun w__212 : string => + (freg_name_forwards rs1) >>= fun w__213 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FMV_X_W) + (string_append (spc_forwards tt) + (string_append w__212 + (string_append (sep_forwards tt) (string_append w__213 ""))))) + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => + (freg_name_forwards rd) >>= fun w__214 : string => + (reg_name_forwards rs1) >>= fun w__215 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FMV_W_X) + (string_append (spc_forwards tt) + (string_append w__214 + (string_append (sep_forwards tt) (string_append w__215 ""))))) + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => + (reg_name_forwards rd) >>= fun w__216 : string => + (freg_name_forwards rs1) >>= fun w__217 : string => + returnm (string_append (f_un_type_mnemonic_S_forwards FCLASS_S) + (string_append (spc_forwards tt) + (string_append w__216 + (string_append (sep_forwards tt) (string_append w__217 ""))))) + | C_FLWSP (imm, rd) => + (if sumbool_of_bool (Z.eqb 64 32) then + (reg_name_forwards rd) >>= fun w__218 : string => + returnm (string_append "c.flwsp" + (string_append (spc_forwards tt) + (string_append w__218 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits imm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSWSP (uimm, rd) => + (if sumbool_of_bool (Z.eqb 64 32) then + (reg_name_forwards rd) >>= fun w__221 : string => + returnm (string_append "c.fswsp" + (string_append (spc_forwards tt) + (string_append w__221 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FLW (uimm, rsc, rdc) => + (if sumbool_of_bool (Z.eqb 64 32) then + (creg_name_forwards rdc) >>= fun w__224 : string => + (creg_name_forwards rsc) >>= fun w__225 : string => + returnm (string_append "c.flw" + (string_append (spc_forwards tt) + (string_append w__224 + (string_append (sep_forwards tt) + (string_append w__225 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSW (uimm, rsc1, rsc2) => + (if sumbool_of_bool (Z.eqb 64 32) then + (creg_name_forwards rsc1) >>= fun w__228 : string => + (creg_name_forwards rsc2) >>= fun w__229 : string => + returnm (string_append "c.fsw" + (string_append (spc_forwards tt) + (string_append w__228 + (string_append (sep_forwards tt) + (string_append w__229 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"00" : mword 2))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__232 : string => + (freg_name_forwards rs1) >>= fun w__233 : string => + (freg_name_forwards rs2) >>= fun w__234 : string => + (freg_name_forwards rs3) >>= fun w__235 : string => + returnm (string_append (f_madd_type_mnemonic_D_forwards op) + (string_append (spc_forwards tt) + (string_append w__232 + (string_append (sep_forwards tt) + (string_append w__233 + (string_append (sep_forwards tt) + (string_append w__234 + (string_append (sep_forwards tt) + (string_append w__235 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))))) + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, op) => + (freg_name_forwards rd) >>= fun w__236 : string => + (freg_name_forwards rs1) >>= fun w__237 : string => + (freg_name_forwards rs2) >>= fun w__238 : string => + returnm (string_append (f_bin_rm_type_mnemonic_D_forwards op) + (string_append (spc_forwards tt) + (string_append w__236 + (string_append (sep_forwards tt) + (string_append w__237 + (string_append (sep_forwards tt) + (string_append w__238 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FSQRT_D) => + (freg_name_forwards rd) >>= fun w__239 : string => + (freg_name_forwards rs1) >>= fun w__240 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FSQRT_D) + (string_append (spc_forwards tt) + (string_append w__239 + (string_append (sep_forwards tt) + (string_append w__240 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_W_D) => + (reg_name_forwards rd) >>= fun w__241 : string => + (freg_name_forwards rs1) >>= fun w__242 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_W_D) + (string_append (spc_forwards tt) + (string_append w__241 + (string_append (sep_forwards tt) + (string_append w__242 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_WU_D) => + (reg_name_forwards rd) >>= fun w__243 : string => + (freg_name_forwards rs1) >>= fun w__244 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_WU_D) + (string_append (spc_forwards tt) + (string_append w__243 + (string_append (sep_forwards tt) + (string_append w__244 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_W) => + (freg_name_forwards rd) >>= fun w__245 : string => + (reg_name_forwards rs1) >>= fun w__246 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_D_W) + (string_append (spc_forwards tt) + (string_append w__245 + (string_append (sep_forwards tt) + (string_append w__246 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_WU) => + (freg_name_forwards rd) >>= fun w__247 : string => + (reg_name_forwards rs1) >>= fun w__248 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_D_WU) + (string_append (spc_forwards tt) + (string_append w__247 + (string_append (sep_forwards tt) + (string_append w__248 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_L_D) => + (reg_name_forwards rd) >>= fun w__249 : string => + (freg_name_forwards rs1) >>= fun w__250 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_L_D) + (string_append (spc_forwards tt) + (string_append w__249 + (string_append (sep_forwards tt) + (string_append w__250 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_LU_D) => + (reg_name_forwards rd) >>= fun w__251 : string => + (freg_name_forwards rs1) >>= fun w__252 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_LU_D) + (string_append (spc_forwards tt) + (string_append w__251 + (string_append (sep_forwards tt) + (string_append w__252 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_L) => + (freg_name_forwards rd) >>= fun w__253 : string => + (reg_name_forwards rs1) >>= fun w__254 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_D_L) + (string_append (spc_forwards tt) + (string_append w__253 + (string_append (sep_forwards tt) + (string_append w__254 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_LU) => + (freg_name_forwards rd) >>= fun w__255 : string => + (reg_name_forwards rs1) >>= fun w__256 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_D_LU) + (string_append (spc_forwards tt) + (string_append w__255 + (string_append (sep_forwards tt) + (string_append w__256 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_S_D) => + (freg_name_forwards rd) >>= fun w__257 : string => + (freg_name_forwards rs1) >>= fun w__258 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_S_D) + (string_append (spc_forwards tt) + (string_append w__257 + (string_append (sep_forwards tt) + (string_append w__258 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_S) => + (freg_name_forwards rd) >>= fun w__259 : string => + (freg_name_forwards rs1) >>= fun w__260 : string => + returnm (string_append (f_un_rm_type_mnemonic_D_forwards FCVT_D_S) + (string_append (spc_forwards tt) + (string_append w__259 + (string_append (sep_forwards tt) + (string_append w__260 + (string_append (sep_forwards tt) + (string_append (frm_mnemonic_forwards rm) ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJ_D) => + (freg_name_forwards rd) >>= fun w__261 : string => + (freg_name_forwards rs1) >>= fun w__262 : string => + (freg_name_forwards rs2) >>= fun w__263 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FSGNJ_D) + (string_append (spc_forwards tt) + (string_append w__261 + (string_append (sep_forwards tt) + (string_append w__262 + (string_append (sep_forwards tt) (string_append w__263 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJN_D) => + (freg_name_forwards rd) >>= fun w__264 : string => + (freg_name_forwards rs1) >>= fun w__265 : string => + (freg_name_forwards rs2) >>= fun w__266 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FSGNJN_D) + (string_append (spc_forwards tt) + (string_append w__264 + (string_append (sep_forwards tt) + (string_append w__265 + (string_append (sep_forwards tt) (string_append w__266 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJX_D) => + (freg_name_forwards rd) >>= fun w__267 : string => + (freg_name_forwards rs1) >>= fun w__268 : string => + (freg_name_forwards rs2) >>= fun w__269 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FSGNJX_D) + (string_append (spc_forwards tt) + (string_append w__267 + (string_append (sep_forwards tt) + (string_append w__268 + (string_append (sep_forwards tt) (string_append w__269 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FMIN_D) => + (freg_name_forwards rd) >>= fun w__270 : string => + (freg_name_forwards rs1) >>= fun w__271 : string => + (freg_name_forwards rs2) >>= fun w__272 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FMIN_D) + (string_append (spc_forwards tt) + (string_append w__270 + (string_append (sep_forwards tt) + (string_append w__271 + (string_append (sep_forwards tt) (string_append w__272 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FMAX_D) => + (freg_name_forwards rd) >>= fun w__273 : string => + (freg_name_forwards rs1) >>= fun w__274 : string => + (freg_name_forwards rs2) >>= fun w__275 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FMAX_D) + (string_append (spc_forwards tt) + (string_append w__273 + (string_append (sep_forwards tt) + (string_append w__274 + (string_append (sep_forwards tt) (string_append w__275 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FEQ_D) => + (reg_name_forwards rd) >>= fun w__276 : string => + (freg_name_forwards rs1) >>= fun w__277 : string => + (freg_name_forwards rs2) >>= fun w__278 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FEQ_D) + (string_append (spc_forwards tt) + (string_append w__276 + (string_append (sep_forwards tt) + (string_append w__277 + (string_append (sep_forwards tt) (string_append w__278 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FLT_D) => + (reg_name_forwards rd) >>= fun w__279 : string => + (freg_name_forwards rs1) >>= fun w__280 : string => + (freg_name_forwards rs2) >>= fun w__281 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FLT_D) + (string_append (spc_forwards tt) + (string_append w__279 + (string_append (sep_forwards tt) + (string_append w__280 + (string_append (sep_forwards tt) (string_append w__281 ""))))))) + | F_BIN_TYPE_D (rs2, rs1, rd, FLE_D) => + (reg_name_forwards rd) >>= fun w__282 : string => + (freg_name_forwards rs1) >>= fun w__283 : string => + (freg_name_forwards rs2) >>= fun w__284 : string => + returnm (string_append (f_bin_type_mnemonic_D_forwards FLE_D) + (string_append (spc_forwards tt) + (string_append w__282 + (string_append (sep_forwards tt) + (string_append w__283 + (string_append (sep_forwards tt) (string_append w__284 ""))))))) + | F_UN_TYPE_D (rs1, rd, FMV_X_D) => + (reg_name_forwards rd) >>= fun w__285 : string => + (freg_name_forwards rs1) >>= fun w__286 : string => + returnm (string_append (f_un_type_mnemonic_D_forwards FMV_X_D) + (string_append (spc_forwards tt) + (string_append w__285 + (string_append (sep_forwards tt) (string_append w__286 ""))))) + | F_UN_TYPE_D (rs1, rd, FMV_D_X) => + (freg_name_forwards rd) >>= fun w__287 : string => + (reg_name_forwards rs1) >>= fun w__288 : string => + returnm (string_append (f_un_type_mnemonic_D_forwards FMV_D_X) + (string_append (spc_forwards tt) + (string_append w__287 + (string_append (sep_forwards tt) (string_append w__288 ""))))) + | F_UN_TYPE_D (rs1, rd, FCLASS_D) => + (reg_name_forwards rd) >>= fun w__289 : string => + (freg_name_forwards rs1) >>= fun w__290 : string => + returnm (string_append (f_un_type_mnemonic_D_forwards FCLASS_D) + (string_append (spc_forwards tt) + (string_append w__289 + (string_append (sep_forwards tt) (string_append w__290 ""))))) + | C_FLDSP (uimm, rd) => + (if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then + (reg_name_forwards rd) >>= fun w__291 : string => + returnm (string_append "c.fldsp" + (string_append (spc_forwards tt) + (string_append w__291 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSDSP (uimm, rs2) => + (if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then + (reg_name_forwards rs2) >>= fun w__294 : string => + returnm (string_append "c.fsdsp" + (string_append (spc_forwards tt) + (string_append w__294 + (string_append (sep_forwards tt) + (string_append (decimal_string_of_bits uimm) ""))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FLD (uimm, rsc, rdc) => + (if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then + (creg_name_forwards rdc) >>= fun w__297 : string => + (creg_name_forwards rsc) >>= fun w__298 : string => + returnm (string_append "c.fld" + (string_append (spc_forwards tt) + (string_append w__297 + (string_append (sep_forwards tt) + (string_append w__298 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | C_FSD (uimm, rsc1, rsc2) => + (if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then + (creg_name_forwards rsc1) >>= fun w__301 : string => + (creg_name_forwards rsc2) >>= fun w__302 : string => + returnm (string_append "c.fsd" + (string_append (spc_forwards tt) + (string_append w__301 + (string_append (sep_forwards tt) + (string_append w__302 + (string_append (sep_forwards tt) + (string_append + (decimal_string_of_bits + (concat_vec (uimm : mword 5) ('b"000" : mword 3))) ""))))))) + else assert_exp' false "Pattern match failure at unknown location" >>= fun _ => exit tt) + : M (string) + | ILLEGAL s => + returnm (string_append "illegal" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) + | C_ILLEGAL s => + returnm (string_append "c.illegal" + (string_append (spc_forwards tt) (string_append (decimal_string_of_bits s) ""))) end) : M (string). -Definition _s1677_ (_s1678_ : string) -: M (option (mword 16)) := - - let _s1679_ := _s1678_ in - (if ((string_startswith _s1679_ "c.illegal")) then - (match (string_drop _s1679_ (projT1 (string_length "c.illegal"))) with - | _s1680_ => - (spc_matches_prefix _s1680_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1681_ _)) => - match (string_drop _s1680_ _s1681_) with - | _s1682_ => - match (hex_bits_16_matches_prefix _s1682_) with - | Some ((s, existT _ _s1683_ _)) => - let p0_ := string_drop _s1682_ _s1683_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 16)) +Definition _s3138_ (_s3139_ : string) : M (option (mword 16)) := + let _s3140_ := _s3139_ in + (if string_startswith _s3140_ "c.illegal" then + (match (string_drop _s3140_ (projT1 (string_length "c.illegal"))) with + | _s3141_ => + (spc_matches_prefix _s3141_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3142_ _) => + match (string_drop _s3141_ _s3142_) with + | _s3143_ => + match (hex_bits_16_matches_prefix _s3143_) with + | Some (s, existT _ _s3144_ _) => + let p0_ := string_drop _s3143_ _s3144_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 16)) - else returnm (None : option (mword 16))) + else returnm None) : M (option (mword 16)). -Definition _s1669_ (_s1670_ : string) -: M (option (mword 32)) := - - let _s1671_ := _s1670_ in - (if ((string_startswith _s1671_ "illegal")) then - (match (string_drop _s1671_ (projT1 (string_length "illegal"))) with - | _s1672_ => - (spc_matches_prefix _s1672_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1673_ _)) => - match (string_drop _s1672_ _s1673_) with - | _s1674_ => - match (hex_bits_32_matches_prefix _s1674_) with - | Some ((s, existT _ _s1675_ _)) => - let p0_ := string_drop _s1674_ _s1675_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 32)) +Definition _s3130_ (_s3131_ : string) : M (option (mword 32)) := + let _s3132_ := _s3131_ in + (if string_startswith _s3132_ "illegal" then + (match (string_drop _s3132_ (projT1 (string_length "illegal"))) with + | _s3133_ => + (spc_matches_prefix _s3133_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3134_ _) => + match (string_drop _s3133_ _s3134_) with + | _s3135_ => + match (hex_bits_32_matches_prefix _s3135_) with + | Some (s, existT _ _s3136_ _) => + let p0_ := string_drop _s3135_ _s3136_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 32)) - else returnm (None : option (mword 32))) + else returnm None) : M (option (mword 32)). -Definition _s1652_ (_s1653_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s1653_ with - | _s1654_ => - (csr_mnemonic_matches_prefix _s1654_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s3114_ (_s3115_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3116_ := _s3115_ in + (if string_startswith _s3116_ "c.fsd" then + (match (string_drop _s3116_ (projT1 (string_length "c.fsd"))) with + | _s3117_ => + (spc_matches_prefix _s3117_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3118_ _) => + (match (string_drop _s3117_ _s3118_) with + | _s3119_ => + (creg_name_matches_prefix _s3119_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s3120_ _) => + (match (string_drop _s3119_ _s3120_) with + | _s3121_ => + (sep_matches_prefix _s3121_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s3122_ _) => + (match (string_drop _s3121_ _s3122_) with + | _s3123_ => + (creg_name_matches_prefix _s3123_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s3124_ _) => + (match (string_drop _s3123_ _s3124_) with + | _s3125_ => + (sep_matches_prefix _s3125_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s3126_ _) => + match (string_drop _s3125_ _s3126_) with + | _s3127_ => + match (hex_bits_8_matches_prefix _s3127_) with + | Some (v__1338, existT _ _s3128_ _) => + if eq_vec (subrange_vec_dec v__1338 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1338 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1338 7 3 in + let p0_ := string_drop _s3127_ _s3128_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s3098_ (_s3099_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3100_ := _s3099_ in + (if string_startswith _s3100_ "c.fld" then + (match (string_drop _s3100_ (projT1 (string_length "c.fld"))) with + | _s3101_ => + (spc_matches_prefix _s3101_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3102_ _) => + (match (string_drop _s3101_ _s3102_) with + | _s3103_ => + (creg_name_matches_prefix _s3103_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s3104_ _) => + (match (string_drop _s3103_ _s3104_) with + | _s3105_ => + (sep_matches_prefix _s3105_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s3106_ _) => + (match (string_drop _s3105_ _s3106_) with + | _s3107_ => + (creg_name_matches_prefix _s3107_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s3108_ _) => + (match (string_drop _s3107_ _s3108_) with + | _s3109_ => + (sep_matches_prefix _s3109_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s3110_ _) => + match (string_drop _s3109_ _s3110_) with + | _s3111_ => + match (hex_bits_8_matches_prefix _s3111_) with + | Some (v__1340, existT _ _s3112_ _) => + if eq_vec (subrange_vec_dec v__1340 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1340 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1340 7 3 in + let p0_ := string_drop _s3111_ _s3112_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s3086_ (_s3087_ : string) : M (option ((mword 5 * mword 6))) := + let _s3088_ := _s3087_ in + (if string_startswith _s3088_ "c.fsdsp" then + (match (string_drop _s3088_ (projT1 (string_length "c.fsdsp"))) with + | _s3089_ => + (spc_matches_prefix _s3089_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3090_ _) => + (match (string_drop _s3089_ _s3090_) with + | _s3091_ => + (reg_name_matches_prefix _s3091_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rs2, existT _ _s3092_ _) => + (match (string_drop _s3091_ _s3092_) with + | _s3093_ => + (sep_matches_prefix _s3093_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s3094_ _) => + match (string_drop _s3093_ _s3094_) with + | _s3095_ => + match (hex_bits_6_matches_prefix _s3095_) with + | Some (uimm, existT _ _s3096_ _) => + let p0_ := string_drop _s3095_ _s3096_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s3074_ (_s3075_ : string) : M (option ((mword 5 * mword 6))) := + let _s3076_ := _s3075_ in + (if string_startswith _s3076_ "c.fldsp" then + (match (string_drop _s3076_ (projT1 (string_length "c.fldsp"))) with + | _s3077_ => + (spc_matches_prefix _s3077_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s3078_ _) => + (match (string_drop _s3077_ _s3078_) with + | _s3079_ => + (reg_name_matches_prefix _s3079_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s3080_ _) => + (match (string_drop _s3079_ _s3080_) with + | _s3081_ => + (sep_matches_prefix _s3081_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s3082_ _) => + match (string_drop _s3081_ _s3082_) with + | _s3083_ => + match (hex_bits_6_matches_prefix _s3083_) with + | Some (uimm, existT _ _s3084_ _) => + let p0_ := string_drop _s3083_ _s3084_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s3061_ (_s3062_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s3062_ with + | _s3063_ => + (f_un_type_mnemonic_D_matches_prefix _s3063_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_D, existT _ _s3064_ _) => + (match (string_drop _s3063_ _s3064_) with + | _s3065_ => + (spc_matches_prefix _s3065_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3066_ _) => + (match (string_drop _s3065_ _s3066_) with + | _s3067_ => + (reg_name_matches_prefix _s3067_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3068_ _) => + (match (string_drop _s3067_ _s3068_) with + | _s3069_ => + (sep_matches_prefix _s3069_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3070_ _) => + (match (string_drop _s3069_ _s3070_) with + | _s3071_ => + (freg_name_matches_prefix _s3071_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3072_ _) => + let p0_ := string_drop _s3071_ _s3072_ in + if generic_eq p0_ "" then + Some (FCLASS_D, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s3048_ (_s3049_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s3049_ with + | _s3050_ => + (f_un_type_mnemonic_D_matches_prefix _s3050_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1655_ _)) => - (match (string_drop _s1654_ _s1655_) with - | _s1656_ => - (spc_matches_prefix _s1656_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FMV_D_X, existT _ _s3051_ _) => + (match (string_drop _s3050_ _s3051_) with + | _s3052_ => + (spc_matches_prefix _s3052_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1657_ _)) => - (match (string_drop _s1656_ _s1657_) with - | _s1658_ => - (reg_name_matches_prefix _s1658_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3053_ _) => + (match (string_drop _s3052_ _s3053_) with + | _s3054_ => + (freg_name_matches_prefix _s3054_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1659_ _)) => - (match (string_drop _s1658_ _s1659_) with - | _s1660_ => - (sep_matches_prefix _s1660_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3055_ _) => + (match (string_drop _s3054_ _s3055_) with + | _s3056_ => + (sep_matches_prefix _s3056_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1661_ _)) => - (match (string_drop _s1660_ _s1661_) with - | _s1662_ => - (reg_name_matches_prefix _s1662_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3057_ _) => + (match (string_drop _s3056_ _s3057_) with + | _s3058_ => + (reg_name_matches_prefix _s3058_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3059_ _) => + let p0_ := string_drop _s3058_ _s3059_ in + if generic_eq p0_ "" then Some (FMV_D_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s3035_ (_s3036_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s3036_ with + | _s3037_ => + (f_un_type_mnemonic_D_matches_prefix _s3037_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_D, existT _ _s3038_ _) => + (match (string_drop _s3037_ _s3038_) with + | _s3039_ => + (spc_matches_prefix _s3039_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3040_ _) => + (match (string_drop _s3039_ _s3040_) with + | _s3041_ => + (reg_name_matches_prefix _s3041_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3042_ _) => + (match (string_drop _s3041_ _s3042_) with + | _s3043_ => + (sep_matches_prefix _s3043_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3044_ _) => + (match (string_drop _s3043_ _s3044_) with + | _s3045_ => + (freg_name_matches_prefix _s3045_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s3046_ _) => + let p0_ := string_drop _s3045_ _s3046_ in + if generic_eq p0_ "" then Some (FMV_X_D, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s3018_ (_s3019_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s3019_ with + | _s3020_ => + (f_bin_type_mnemonic_D_matches_prefix _s3020_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_D, existT _ _s3021_ _) => + (match (string_drop _s3020_ _s3021_) with + | _s3022_ => + (spc_matches_prefix _s3022_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3023_ _) => + (match (string_drop _s3022_ _s3023_) with + | _s3024_ => + (reg_name_matches_prefix _s3024_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3025_ _) => + (match (string_drop _s3024_ _s3025_) with + | _s3026_ => + (sep_matches_prefix _s3026_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3027_ _) => + (match (string_drop _s3026_ _s3027_) with + | _s3028_ => + (freg_name_matches_prefix _s3028_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1663_ _)) => - (match (string_drop _s1662_ _s1663_) with - | _s1664_ => - (sep_matches_prefix _s1664_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3029_ _) => + (match (string_drop _s3028_ _s3029_) with + | _s3030_ => + (sep_matches_prefix _s3030_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1665_ _)) => - (match (string_drop _s1664_ _s1665_) with - | _s1666_ => - (csr_name_map_matches_prefix _s1666_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3031_ _) => + (match (string_drop _s3030_ _s3031_) with + | _s3032_ => + (freg_name_matches_prefix _s3032_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s1667_ _)) => - let p0_ := - string_drop _s1666_ _s1667_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) + returnm (match w__6 with + | Some (rs2, existT _ _s3033_ _) => + let p0_ := + string_drop _s3032_ _s3033_ in + if generic_eq p0_ "" then + Some (FLE_D, rd, rs1, rs2) + else None + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s3001_ (_s3002_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s3002_ with + | _s3003_ => + (f_bin_type_mnemonic_D_matches_prefix _s3003_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_D, existT _ _s3004_ _) => + (match (string_drop _s3003_ _s3004_) with + | _s3005_ => + (spc_matches_prefix _s3005_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3006_ _) => + (match (string_drop _s3005_ _s3006_) with + | _s3007_ => + (reg_name_matches_prefix _s3007_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3008_ _) => + (match (string_drop _s3007_ _s3008_) with + | _s3009_ => + (sep_matches_prefix _s3009_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3010_ _) => + (match (string_drop _s3009_ _s3010_) with + | _s3011_ => + (freg_name_matches_prefix _s3011_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s3012_ _) => + (match (string_drop _s3011_ _s3012_) with + | _s3013_ => + (sep_matches_prefix _s3013_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s3014_ _) => + (match (string_drop _s3013_ _s3014_) with + | _s3015_ => + (freg_name_matches_prefix _s3015_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s3016_ _) => + let p0_ := + string_drop _s3015_ _s3016_ in + if generic_eq p0_ "" then + Some (FLT_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2984_ (_s2985_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2985_ with + | _s2986_ => + (f_bin_type_mnemonic_D_matches_prefix _s2986_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_D, existT _ _s2987_ _) => + (match (string_drop _s2986_ _s2987_) with + | _s2988_ => + (spc_matches_prefix _s2988_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2989_ _) => + (match (string_drop _s2988_ _s2989_) with + | _s2990_ => + (reg_name_matches_prefix _s2990_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2991_ _) => + (match (string_drop _s2990_ _s2991_) with + | _s2992_ => + (sep_matches_prefix _s2992_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2993_ _) => + (match (string_drop _s2992_ _s2993_) with + | _s2994_ => + (freg_name_matches_prefix _s2994_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2995_ _) => + (match (string_drop _s2994_ _s2995_) with + | _s2996_ => + (sep_matches_prefix _s2996_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2997_ _) => + (match (string_drop _s2996_ _s2997_) with + | _s2998_ => + (freg_name_matches_prefix _s2998_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2999_ _) => + let p0_ := + string_drop _s2998_ _s2999_ in + if generic_eq p0_ "" then + Some (FEQ_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2967_ (_s2968_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2968_ with + | _s2969_ => + (f_bin_type_mnemonic_D_matches_prefix _s2969_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_D, existT _ _s2970_ _) => + (match (string_drop _s2969_ _s2970_) with + | _s2971_ => + (spc_matches_prefix _s2971_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2972_ _) => + (match (string_drop _s2971_ _s2972_) with + | _s2973_ => + (freg_name_matches_prefix _s2973_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2974_ _) => + (match (string_drop _s2973_ _s2974_) with + | _s2975_ => + (sep_matches_prefix _s2975_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2976_ _) => + (match (string_drop _s2975_ _s2976_) with + | _s2977_ => + (freg_name_matches_prefix _s2977_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2978_ _) => + (match (string_drop _s2977_ _s2978_) with + | _s2979_ => + (sep_matches_prefix _s2979_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2980_ _) => + (match (string_drop _s2979_ _s2980_) with + | _s2981_ => + (freg_name_matches_prefix _s2981_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2982_ _) => + let p0_ := + string_drop _s2981_ _s2982_ in + if generic_eq p0_ "" then + Some (FMAX_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2950_ (_s2951_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2951_ with + | _s2952_ => + (f_bin_type_mnemonic_D_matches_prefix _s2952_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_D, existT _ _s2953_ _) => + (match (string_drop _s2952_ _s2953_) with + | _s2954_ => + (spc_matches_prefix _s2954_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2955_ _) => + (match (string_drop _s2954_ _s2955_) with + | _s2956_ => + (freg_name_matches_prefix _s2956_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2957_ _) => + (match (string_drop _s2956_ _s2957_) with + | _s2958_ => + (sep_matches_prefix _s2958_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2959_ _) => + (match (string_drop _s2958_ _s2959_) with + | _s2960_ => + (freg_name_matches_prefix _s2960_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2961_ _) => + (match (string_drop _s2960_ _s2961_) with + | _s2962_ => + (sep_matches_prefix _s2962_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2963_ _) => + (match (string_drop _s2962_ _s2963_) with + | _s2964_ => + (freg_name_matches_prefix _s2964_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2965_ _) => + let p0_ := + string_drop _s2964_ _s2965_ in + if generic_eq p0_ "" then + Some (FMIN_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2933_ (_s2934_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2934_ with + | _s2935_ => + (f_bin_type_mnemonic_D_matches_prefix _s2935_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_D, existT _ _s2936_ _) => + (match (string_drop _s2935_ _s2936_) with + | _s2937_ => + (spc_matches_prefix _s2937_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2938_ _) => + (match (string_drop _s2937_ _s2938_) with + | _s2939_ => + (freg_name_matches_prefix _s2939_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2940_ _) => + (match (string_drop _s2939_ _s2940_) with + | _s2941_ => + (sep_matches_prefix _s2941_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2942_ _) => + (match (string_drop _s2941_ _s2942_) with + | _s2943_ => + (freg_name_matches_prefix _s2943_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2944_ _) => + (match (string_drop _s2943_ _s2944_) with + | _s2945_ => + (sep_matches_prefix _s2945_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2946_ _) => + (match (string_drop _s2945_ _s2946_) with + | _s2947_ => + (freg_name_matches_prefix _s2947_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2948_ _) => + let p0_ := + string_drop _s2947_ _s2948_ in + if generic_eq p0_ "" then + Some (FSGNJX_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2916_ (_s2917_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2917_ with + | _s2918_ => + (f_bin_type_mnemonic_D_matches_prefix _s2918_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_D, existT _ _s2919_ _) => + (match (string_drop _s2918_ _s2919_) with + | _s2920_ => + (spc_matches_prefix _s2920_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2921_ _) => + (match (string_drop _s2920_ _s2921_) with + | _s2922_ => + (freg_name_matches_prefix _s2922_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2923_ _) => + (match (string_drop _s2922_ _s2923_) with + | _s2924_ => + (sep_matches_prefix _s2924_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2925_ _) => + (match (string_drop _s2924_ _s2925_) with + | _s2926_ => + (freg_name_matches_prefix _s2926_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2927_ _) => + (match (string_drop _s2926_ _s2927_) with + | _s2928_ => + (sep_matches_prefix _s2928_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2929_ _) => + (match (string_drop _s2928_ _s2929_) with + | _s2930_ => + (freg_name_matches_prefix _s2930_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2931_ _) => + let p0_ := + string_drop _s2930_ _s2931_ in + if generic_eq p0_ "" then + Some (FSGNJN_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2899_ (_s2900_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s2900_ with + | _s2901_ => + (f_bin_type_mnemonic_D_matches_prefix _s2901_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_D, existT _ _s2902_ _) => + (match (string_drop _s2901_ _s2902_) with + | _s2903_ => + (spc_matches_prefix _s2903_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2904_ _) => + (match (string_drop _s2903_ _s2904_) with + | _s2905_ => + (freg_name_matches_prefix _s2905_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2906_ _) => + (match (string_drop _s2905_ _s2906_) with + | _s2907_ => + (sep_matches_prefix _s2907_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2908_ _) => + (match (string_drop _s2907_ _s2908_) with + | _s2909_ => + (freg_name_matches_prefix _s2909_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2910_ _) => + (match (string_drop _s2909_ _s2910_) with + | _s2911_ => + (sep_matches_prefix _s2911_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2912_ _) => + (match (string_drop _s2911_ _s2912_) with + | _s2913_ => + (freg_name_matches_prefix _s2913_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2914_ _) => + let p0_ := + string_drop _s2913_ _s2914_ in + if generic_eq p0_ "" then + Some (FSGNJ_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s2882_ (_s2883_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2883_ with + | _s2884_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2884_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_S, existT _ _s2885_ _) => + (match (string_drop _s2884_ _s2885_) with + | _s2886_ => + (spc_matches_prefix _s2886_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2887_ _) => + (match (string_drop _s2886_ _s2887_) with + | _s2888_ => + (freg_name_matches_prefix _s2888_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2889_ _) => + (match (string_drop _s2888_ _s2889_) with + | _s2890_ => + (sep_matches_prefix _s2890_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2891_ _) => + (match (string_drop _s2890_ _s2891_) with + | _s2892_ => + (freg_name_matches_prefix _s2892_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2893_ _) => + (match (string_drop _s2892_ _s2893_) with + | _s2894_ => + (sep_matches_prefix _s2894_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2895_ _) => + (match (string_drop _s2894_ _s2895_) with + | _s2896_ => + (frm_mnemonic_matches_prefix _s2896_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2897_ _) => + let p0_ := + string_drop _s2896_ _s2897_ in + if generic_eq p0_ "" then + Some (FCVT_D_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2865_ (_s2866_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2866_ with + | _s2867_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2867_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_D, existT _ _s2868_ _) => + (match (string_drop _s2867_ _s2868_) with + | _s2869_ => + (spc_matches_prefix _s2869_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2870_ _) => + (match (string_drop _s2869_ _s2870_) with + | _s2871_ => + (freg_name_matches_prefix _s2871_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2872_ _) => + (match (string_drop _s2871_ _s2872_) with + | _s2873_ => + (sep_matches_prefix _s2873_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2874_ _) => + (match (string_drop _s2873_ _s2874_) with + | _s2875_ => + (freg_name_matches_prefix _s2875_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2876_ _) => + (match (string_drop _s2875_ _s2876_) with + | _s2877_ => + (sep_matches_prefix _s2877_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2878_ _) => + (match (string_drop _s2877_ _s2878_) with + | _s2879_ => + (frm_mnemonic_matches_prefix _s2879_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2880_ _) => + let p0_ := + string_drop _s2879_ _s2880_ in + if generic_eq p0_ "" then + Some (FCVT_S_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2848_ (_s2849_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2849_ with + | _s2850_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2850_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_LU, existT _ _s2851_ _) => + (match (string_drop _s2850_ _s2851_) with + | _s2852_ => + (spc_matches_prefix _s2852_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2853_ _) => + (match (string_drop _s2852_ _s2853_) with + | _s2854_ => + (freg_name_matches_prefix _s2854_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2855_ _) => + (match (string_drop _s2854_ _s2855_) with + | _s2856_ => + (sep_matches_prefix _s2856_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2857_ _) => + (match (string_drop _s2856_ _s2857_) with + | _s2858_ => + (reg_name_matches_prefix _s2858_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2859_ _) => + (match (string_drop _s2858_ _s2859_) with + | _s2860_ => + (sep_matches_prefix _s2860_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2861_ _) => + (match (string_drop _s2860_ _s2861_) with + | _s2862_ => + (frm_mnemonic_matches_prefix _s2862_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2863_ _) => + let p0_ := + string_drop _s2862_ _s2863_ in + if generic_eq p0_ "" then + Some (FCVT_D_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2831_ (_s2832_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2832_ with + | _s2833_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2833_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_L, existT _ _s2834_ _) => + (match (string_drop _s2833_ _s2834_) with + | _s2835_ => + (spc_matches_prefix _s2835_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2836_ _) => + (match (string_drop _s2835_ _s2836_) with + | _s2837_ => + (freg_name_matches_prefix _s2837_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2838_ _) => + (match (string_drop _s2837_ _s2838_) with + | _s2839_ => + (sep_matches_prefix _s2839_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2840_ _) => + (match (string_drop _s2839_ _s2840_) with + | _s2841_ => + (reg_name_matches_prefix _s2841_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2842_ _) => + (match (string_drop _s2841_ _s2842_) with + | _s2843_ => + (sep_matches_prefix _s2843_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2844_ _) => + (match (string_drop _s2843_ _s2844_) with + | _s2845_ => + (frm_mnemonic_matches_prefix _s2845_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2846_ _) => + let p0_ := + string_drop _s2845_ _s2846_ in + if generic_eq p0_ "" then + Some (FCVT_D_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2814_ (_s2815_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2815_ with + | _s2816_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2816_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_D, existT _ _s2817_ _) => + (match (string_drop _s2816_ _s2817_) with + | _s2818_ => + (spc_matches_prefix _s2818_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2819_ _) => + (match (string_drop _s2818_ _s2819_) with + | _s2820_ => + (reg_name_matches_prefix _s2820_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2821_ _) => + (match (string_drop _s2820_ _s2821_) with + | _s2822_ => + (sep_matches_prefix _s2822_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2823_ _) => + (match (string_drop _s2822_ _s2823_) with + | _s2824_ => + (freg_name_matches_prefix _s2824_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2825_ _) => + (match (string_drop _s2824_ _s2825_) with + | _s2826_ => + (sep_matches_prefix _s2826_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2827_ _) => + (match (string_drop _s2826_ _s2827_) with + | _s2828_ => + (frm_mnemonic_matches_prefix _s2828_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2829_ _) => + let p0_ := + string_drop _s2828_ _s2829_ in + if generic_eq p0_ "" then + Some (FCVT_LU_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2797_ (_s2798_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2798_ with + | _s2799_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2799_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_D, existT _ _s2800_ _) => + (match (string_drop _s2799_ _s2800_) with + | _s2801_ => + (spc_matches_prefix _s2801_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2802_ _) => + (match (string_drop _s2801_ _s2802_) with + | _s2803_ => + (reg_name_matches_prefix _s2803_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2804_ _) => + (match (string_drop _s2803_ _s2804_) with + | _s2805_ => + (sep_matches_prefix _s2805_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2806_ _) => + (match (string_drop _s2805_ _s2806_) with + | _s2807_ => + (freg_name_matches_prefix _s2807_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2808_ _) => + (match (string_drop _s2807_ _s2808_) with + | _s2809_ => + (sep_matches_prefix _s2809_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2810_ _) => + (match (string_drop _s2809_ _s2810_) with + | _s2811_ => + (frm_mnemonic_matches_prefix _s2811_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2812_ _) => + let p0_ := + string_drop _s2811_ _s2812_ in + if generic_eq p0_ "" then + Some (FCVT_L_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2780_ (_s2781_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2781_ with + | _s2782_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2782_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_WU, existT _ _s2783_ _) => + (match (string_drop _s2782_ _s2783_) with + | _s2784_ => + (spc_matches_prefix _s2784_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2785_ _) => + (match (string_drop _s2784_ _s2785_) with + | _s2786_ => + (freg_name_matches_prefix _s2786_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2787_ _) => + (match (string_drop _s2786_ _s2787_) with + | _s2788_ => + (sep_matches_prefix _s2788_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2789_ _) => + (match (string_drop _s2788_ _s2789_) with + | _s2790_ => + (reg_name_matches_prefix _s2790_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2791_ _) => + (match (string_drop _s2790_ _s2791_) with + | _s2792_ => + (sep_matches_prefix _s2792_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2793_ _) => + (match (string_drop _s2792_ _s2793_) with + | _s2794_ => + (frm_mnemonic_matches_prefix _s2794_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2795_ _) => + let p0_ := + string_drop _s2794_ _s2795_ in + if generic_eq p0_ "" then + Some (FCVT_D_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2763_ (_s2764_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2764_ with + | _s2765_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2765_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_W, existT _ _s2766_ _) => + (match (string_drop _s2765_ _s2766_) with + | _s2767_ => + (spc_matches_prefix _s2767_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2768_ _) => + (match (string_drop _s2767_ _s2768_) with + | _s2769_ => + (freg_name_matches_prefix _s2769_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2770_ _) => + (match (string_drop _s2769_ _s2770_) with + | _s2771_ => + (sep_matches_prefix _s2771_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2772_ _) => + (match (string_drop _s2771_ _s2772_) with + | _s2773_ => + (reg_name_matches_prefix _s2773_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2774_ _) => + (match (string_drop _s2773_ _s2774_) with + | _s2775_ => + (sep_matches_prefix _s2775_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2776_ _) => + (match (string_drop _s2775_ _s2776_) with + | _s2777_ => + (frm_mnemonic_matches_prefix _s2777_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2778_ _) => + let p0_ := + string_drop _s2777_ _s2778_ in + if generic_eq p0_ "" then + Some (FCVT_D_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2746_ (_s2747_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2747_ with + | _s2748_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2748_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_D, existT _ _s2749_ _) => + (match (string_drop _s2748_ _s2749_) with + | _s2750_ => + (spc_matches_prefix _s2750_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2751_ _) => + (match (string_drop _s2750_ _s2751_) with + | _s2752_ => + (reg_name_matches_prefix _s2752_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2753_ _) => + (match (string_drop _s2752_ _s2753_) with + | _s2754_ => + (sep_matches_prefix _s2754_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2755_ _) => + (match (string_drop _s2754_ _s2755_) with + | _s2756_ => + (freg_name_matches_prefix _s2756_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2757_ _) => + (match (string_drop _s2756_ _s2757_) with + | _s2758_ => + (sep_matches_prefix _s2758_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2759_ _) => + (match (string_drop _s2758_ _s2759_) with + | _s2760_ => + (frm_mnemonic_matches_prefix _s2760_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2761_ _) => + let p0_ := + string_drop _s2760_ _s2761_ in + if generic_eq p0_ "" then + Some (FCVT_WU_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2729_ (_s2730_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2730_ with + | _s2731_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2731_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_D, existT _ _s2732_ _) => + (match (string_drop _s2731_ _s2732_) with + | _s2733_ => + (spc_matches_prefix _s2733_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2734_ _) => + (match (string_drop _s2733_ _s2734_) with + | _s2735_ => + (reg_name_matches_prefix _s2735_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2736_ _) => + (match (string_drop _s2735_ _s2736_) with + | _s2737_ => + (sep_matches_prefix _s2737_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2738_ _) => + (match (string_drop _s2737_ _s2738_) with + | _s2739_ => + (freg_name_matches_prefix _s2739_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2740_ _) => + (match (string_drop _s2739_ _s2740_) with + | _s2741_ => + (sep_matches_prefix _s2741_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2742_ _) => + (match (string_drop _s2741_ _s2742_) with + | _s2743_ => + (frm_mnemonic_matches_prefix _s2743_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2744_ _) => + let p0_ := + string_drop _s2743_ _s2744_ in + if generic_eq p0_ "" then + Some (FCVT_W_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2712_ (_s2713_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s2713_ with + | _s2714_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s2714_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_D, existT _ _s2715_ _) => + (match (string_drop _s2714_ _s2715_) with + | _s2716_ => + (spc_matches_prefix _s2716_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2717_ _) => + (match (string_drop _s2716_ _s2717_) with + | _s2718_ => + (freg_name_matches_prefix _s2718_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2719_ _) => + (match (string_drop _s2718_ _s2719_) with + | _s2720_ => + (sep_matches_prefix _s2720_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2721_ _) => + (match (string_drop _s2720_ _s2721_) with + | _s2722_ => + (freg_name_matches_prefix _s2722_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2723_ _) => + (match (string_drop _s2722_ _s2723_) with + | _s2724_ => + (sep_matches_prefix _s2724_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2725_ _) => + (match (string_drop _s2724_ _s2725_) with + | _s2726_ => + (frm_mnemonic_matches_prefix _s2726_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2727_ _) => + let p0_ := + string_drop _s2726_ _s2727_ in + if generic_eq p0_ "" then + Some (FSQRT_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s2691_ (_s2692_ : string) +: M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2692_ with + | _s2693_ => + (f_bin_rm_type_mnemonic_D_matches_prefix _s2693_) >>= fun w__0 : option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2694_ _) => + (match (string_drop _s2693_ _s2694_) with + | _s2695_ => + (spc_matches_prefix _s2695_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2696_ _) => + (match (string_drop _s2695_ _s2696_) with + | _s2697_ => + (freg_name_matches_prefix _s2697_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2698_ _) => + (match (string_drop _s2697_ _s2698_) with + | _s2699_ => + (sep_matches_prefix _s2699_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2700_ _) => + (match (string_drop _s2699_ _s2700_) with + | _s2701_ => + (freg_name_matches_prefix _s2701_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2702_ _) => + (match (string_drop _s2701_ _s2702_) with + | _s2703_ => + (sep_matches_prefix _s2703_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2704_ _) => + (match (string_drop _s2703_ _s2704_) with + | _s2705_ => + (freg_name_matches_prefix _s2705_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2706_ _) => + (match (string_drop _s2705_ _s2706_) with + | _s2707_ => + (sep_matches_prefix _s2707_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2708_ _) => + (match (string_drop _s2707_ + _s2708_) with + | _s2709_ => + (frm_mnemonic_matches_prefix + _s2709_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s2710_ _) => + let p0_ := + string_drop + _s2709_ + _s2710_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s2666_ (_s2667_ : string) +: M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2667_ with + | _s2668_ => + (f_madd_type_mnemonic_D_matches_prefix _s2668_) >>= fun w__0 : option ((f_madd_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2669_ _) => + (match (string_drop _s2668_ _s2669_) with + | _s2670_ => + (spc_matches_prefix _s2670_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2671_ _) => + (match (string_drop _s2670_ _s2671_) with + | _s2672_ => + (freg_name_matches_prefix _s2672_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2673_ _) => + (match (string_drop _s2672_ _s2673_) with + | _s2674_ => + (sep_matches_prefix _s2674_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2675_ _) => + (match (string_drop _s2674_ _s2675_) with + | _s2676_ => + (freg_name_matches_prefix _s2676_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2677_ _) => + (match (string_drop _s2676_ _s2677_) with + | _s2678_ => + (sep_matches_prefix _s2678_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2679_ _) => + (match (string_drop _s2678_ _s2679_) with + | _s2680_ => + (freg_name_matches_prefix _s2680_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2681_ _) => + (match (string_drop _s2680_ _s2681_) with + | _s2682_ => + (sep_matches_prefix _s2682_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2683_ _) => + (match (string_drop _s2682_ + _s2683_) with + | _s2684_ => + (freg_name_matches_prefix + _s2684_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s2685_ _) => + (match (string_drop + _s2684_ _s2685_) with + | _s2686_ => + (sep_matches_prefix + _s2686_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s2687_ _) => + (match (string_drop + _s2686_ + _s2687_) with + | _s2688_ => + (frm_mnemonic_matches_prefix + _s2688_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s2689_ _) => + let p0_ := + string_drop + _s2688_ + _s2689_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s2650_ (_s2651_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2652_ := _s2651_ in + (if string_startswith _s2652_ "c.fsw" then + (match (string_drop _s2652_ (projT1 (string_length "c.fsw"))) with + | _s2653_ => + (spc_matches_prefix _s2653_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2654_ _) => + (match (string_drop _s2653_ _s2654_) with + | _s2655_ => + (creg_name_matches_prefix _s2655_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s2656_ _) => + (match (string_drop _s2655_ _s2656_) with + | _s2657_ => + (sep_matches_prefix _s2657_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s2658_ _) => + (match (string_drop _s2657_ _s2658_) with + | _s2659_ => + (creg_name_matches_prefix _s2659_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s2660_ _) => + (match (string_drop _s2659_ _s2660_) with + | _s2661_ => + (sep_matches_prefix _s2661_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s2662_ _) => + match (string_drop _s2661_ _s2662_) with + | _s2663_ => + match (hex_bits_7_matches_prefix _s2663_) with + | Some (v__1342, existT _ _s2664_ _) => + if eq_vec (subrange_vec_dec v__1342 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1342 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1342 6 2 in + let p0_ := string_drop _s2663_ _s2664_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s2634_ (_s2635_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s2636_ := _s2635_ in + (if string_startswith _s2636_ "c.flw" then + (match (string_drop _s2636_ (projT1 (string_length "c.flw"))) with + | _s2637_ => + (spc_matches_prefix _s2637_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2638_ _) => + (match (string_drop _s2637_ _s2638_) with + | _s2639_ => + (creg_name_matches_prefix _s2639_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s2640_ _) => + (match (string_drop _s2639_ _s2640_) with + | _s2641_ => + (sep_matches_prefix _s2641_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s2642_ _) => + (match (string_drop _s2641_ _s2642_) with + | _s2643_ => + (creg_name_matches_prefix _s2643_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s2644_ _) => + (match (string_drop _s2643_ _s2644_) with + | _s2645_ => + (sep_matches_prefix _s2645_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s2646_ _) => + match (string_drop _s2645_ _s2646_) with + | _s2647_ => + match (hex_bits_7_matches_prefix _s2647_) with + | Some (v__1344, existT _ _s2648_ _) => + if eq_vec (subrange_vec_dec v__1344 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1344 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1344 6 2 in + let p0_ := string_drop _s2647_ _s2648_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s2622_ (_s2623_ : string) : M (option ((mword 5 * mword 6))) := + let _s2624_ := _s2623_ in + (if string_startswith _s2624_ "c.fswsp" then + (match (string_drop _s2624_ (projT1 (string_length "c.fswsp"))) with + | _s2625_ => + (spc_matches_prefix _s2625_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2626_ _) => + (match (string_drop _s2625_ _s2626_) with + | _s2627_ => + (reg_name_matches_prefix _s2627_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s2628_ _) => + (match (string_drop _s2627_ _s2628_) with + | _s2629_ => + (sep_matches_prefix _s2629_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s2630_ _) => + match (string_drop _s2629_ _s2630_) with + | _s2631_ => + match (hex_bits_6_matches_prefix _s2631_) with + | Some (uimm, existT _ _s2632_ _) => + let p0_ := string_drop _s2631_ _s2632_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s2610_ (_s2611_ : string) : M (option ((mword 5 * mword 6))) := + let _s2612_ := _s2611_ in + (if string_startswith _s2612_ "c.flwsp" then + (match (string_drop _s2612_ (projT1 (string_length "c.flwsp"))) with + | _s2613_ => + (spc_matches_prefix _s2613_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s2614_ _) => + (match (string_drop _s2613_ _s2614_) with + | _s2615_ => + (reg_name_matches_prefix _s2615_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s2616_ _) => + (match (string_drop _s2615_ _s2616_) with + | _s2617_ => + (sep_matches_prefix _s2617_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s2618_ _) => + match (string_drop _s2617_ _s2618_) with + | _s2619_ => + match (hex_bits_6_matches_prefix _s2619_) with + | Some (imm, existT _ _s2620_ _) => + let p0_ := string_drop _s2619_ _s2620_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s2597_ (_s2598_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2598_ with + | _s2599_ => + (f_un_type_mnemonic_S_matches_prefix _s2599_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s2600_ _) => + (match (string_drop _s2599_ _s2600_) with + | _s2601_ => + (spc_matches_prefix _s2601_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2602_ _) => + (match (string_drop _s2601_ _s2602_) with + | _s2603_ => + (reg_name_matches_prefix _s2603_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2604_ _) => + (match (string_drop _s2603_ _s2604_) with + | _s2605_ => + (sep_matches_prefix _s2605_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2606_ _) => + (match (string_drop _s2605_ _s2606_) with + | _s2607_ => + (freg_name_matches_prefix _s2607_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2608_ _) => + let p0_ := string_drop _s2607_ _s2608_ in + if generic_eq p0_ "" then + Some (FCLASS_S, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2584_ (_s2585_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2585_ with + | _s2586_ => + (f_un_type_mnemonic_S_matches_prefix _s2586_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_W_X, existT _ _s2587_ _) => + (match (string_drop _s2586_ _s2587_) with + | _s2588_ => + (spc_matches_prefix _s2588_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2589_ _) => + (match (string_drop _s2588_ _s2589_) with + | _s2590_ => + (freg_name_matches_prefix _s2590_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2591_ _) => + (match (string_drop _s2590_ _s2591_) with + | _s2592_ => + (sep_matches_prefix _s2592_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2593_ _) => + (match (string_drop _s2592_ _s2593_) with + | _s2594_ => + (reg_name_matches_prefix _s2594_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2595_ _) => + let p0_ := string_drop _s2594_ _s2595_ in + if generic_eq p0_ "" then Some (FMV_W_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2571_ (_s2572_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s2572_ with + | _s2573_ => + (f_un_type_mnemonic_S_matches_prefix _s2573_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_W, existT _ _s2574_ _) => + (match (string_drop _s2573_ _s2574_) with + | _s2575_ => + (spc_matches_prefix _s2575_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2576_ _) => + (match (string_drop _s2575_ _s2576_) with + | _s2577_ => + (reg_name_matches_prefix _s2577_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2578_ _) => + (match (string_drop _s2577_ _s2578_) with + | _s2579_ => + (sep_matches_prefix _s2579_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2580_ _) => + (match (string_drop _s2579_ _s2580_) with + | _s2581_ => + (freg_name_matches_prefix _s2581_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s2582_ _) => + let p0_ := string_drop _s2581_ _s2582_ in + if generic_eq p0_ "" then Some (FMV_X_W, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s2554_ (_s2555_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2555_ with + | _s2556_ => + (f_bin_type_mnemonic_S_matches_prefix _s2556_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_S, existT _ _s2557_ _) => + (match (string_drop _s2556_ _s2557_) with + | _s2558_ => + (spc_matches_prefix _s2558_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2559_ _) => + (match (string_drop _s2558_ _s2559_) with + | _s2560_ => + (reg_name_matches_prefix _s2560_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2561_ _) => + (match (string_drop _s2560_ _s2561_) with + | _s2562_ => + (sep_matches_prefix _s2562_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2563_ _) => + (match (string_drop _s2562_ _s2563_) with + | _s2564_ => + (freg_name_matches_prefix _s2564_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2565_ _) => + (match (string_drop _s2564_ _s2565_) with + | _s2566_ => + (sep_matches_prefix _s2566_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2567_ _) => + (match (string_drop _s2566_ _s2567_) with + | _s2568_ => + (freg_name_matches_prefix _s2568_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2569_ _) => + let p0_ := + string_drop _s2568_ _s2569_ in + if generic_eq p0_ "" then + Some (FLE_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2537_ (_s2538_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2538_ with + | _s2539_ => + (f_bin_type_mnemonic_S_matches_prefix _s2539_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s2540_ _) => + (match (string_drop _s2539_ _s2540_) with + | _s2541_ => + (spc_matches_prefix _s2541_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2542_ _) => + (match (string_drop _s2541_ _s2542_) with + | _s2543_ => + (reg_name_matches_prefix _s2543_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2544_ _) => + (match (string_drop _s2543_ _s2544_) with + | _s2545_ => + (sep_matches_prefix _s2545_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2546_ _) => + (match (string_drop _s2545_ _s2546_) with + | _s2547_ => + (freg_name_matches_prefix _s2547_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2548_ _) => + (match (string_drop _s2547_ _s2548_) with + | _s2549_ => + (sep_matches_prefix _s2549_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2550_ _) => + (match (string_drop _s2549_ _s2550_) with + | _s2551_ => + (freg_name_matches_prefix _s2551_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2552_ _) => + let p0_ := + string_drop _s2551_ _s2552_ in + if generic_eq p0_ "" then + Some (FLT_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2520_ (_s2521_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2521_ with + | _s2522_ => + (f_bin_type_mnemonic_S_matches_prefix _s2522_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_S, existT _ _s2523_ _) => + (match (string_drop _s2522_ _s2523_) with + | _s2524_ => + (spc_matches_prefix _s2524_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2525_ _) => + (match (string_drop _s2524_ _s2525_) with + | _s2526_ => + (reg_name_matches_prefix _s2526_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2527_ _) => + (match (string_drop _s2526_ _s2527_) with + | _s2528_ => + (sep_matches_prefix _s2528_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2529_ _) => + (match (string_drop _s2528_ _s2529_) with + | _s2530_ => + (freg_name_matches_prefix _s2530_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2531_ _) => + (match (string_drop _s2530_ _s2531_) with + | _s2532_ => + (sep_matches_prefix _s2532_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2533_ _) => + (match (string_drop _s2532_ _s2533_) with + | _s2534_ => + (freg_name_matches_prefix _s2534_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2535_ _) => + let p0_ := + string_drop _s2534_ _s2535_ in + if generic_eq p0_ "" then + Some (FEQ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2503_ (_s2504_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2504_ with + | _s2505_ => + (f_bin_type_mnemonic_S_matches_prefix _s2505_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s2506_ _) => + (match (string_drop _s2505_ _s2506_) with + | _s2507_ => + (spc_matches_prefix _s2507_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2508_ _) => + (match (string_drop _s2507_ _s2508_) with + | _s2509_ => + (freg_name_matches_prefix _s2509_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2510_ _) => + (match (string_drop _s2509_ _s2510_) with + | _s2511_ => + (sep_matches_prefix _s2511_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2512_ _) => + (match (string_drop _s2511_ _s2512_) with + | _s2513_ => + (freg_name_matches_prefix _s2513_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2514_ _) => + (match (string_drop _s2513_ _s2514_) with + | _s2515_ => + (sep_matches_prefix _s2515_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2516_ _) => + (match (string_drop _s2515_ _s2516_) with + | _s2517_ => + (freg_name_matches_prefix _s2517_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2518_ _) => + let p0_ := + string_drop _s2517_ _s2518_ in + if generic_eq p0_ "" then + Some (FMAX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2486_ (_s2487_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2487_ with + | _s2488_ => + (f_bin_type_mnemonic_S_matches_prefix _s2488_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s2489_ _) => + (match (string_drop _s2488_ _s2489_) with + | _s2490_ => + (spc_matches_prefix _s2490_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2491_ _) => + (match (string_drop _s2490_ _s2491_) with + | _s2492_ => + (freg_name_matches_prefix _s2492_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2493_ _) => + (match (string_drop _s2492_ _s2493_) with + | _s2494_ => + (sep_matches_prefix _s2494_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2495_ _) => + (match (string_drop _s2494_ _s2495_) with + | _s2496_ => + (freg_name_matches_prefix _s2496_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2497_ _) => + (match (string_drop _s2496_ _s2497_) with + | _s2498_ => + (sep_matches_prefix _s2498_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2499_ _) => + (match (string_drop _s2498_ _s2499_) with + | _s2500_ => + (freg_name_matches_prefix _s2500_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2501_ _) => + let p0_ := + string_drop _s2500_ _s2501_ in + if generic_eq p0_ "" then + Some (FMIN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2469_ (_s2470_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2470_ with + | _s2471_ => + (f_bin_type_mnemonic_S_matches_prefix _s2471_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s2472_ _) => + (match (string_drop _s2471_ _s2472_) with + | _s2473_ => + (spc_matches_prefix _s2473_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2474_ _) => + (match (string_drop _s2473_ _s2474_) with + | _s2475_ => + (freg_name_matches_prefix _s2475_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2476_ _) => + (match (string_drop _s2475_ _s2476_) with + | _s2477_ => + (sep_matches_prefix _s2477_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2478_ _) => + (match (string_drop _s2477_ _s2478_) with + | _s2479_ => + (freg_name_matches_prefix _s2479_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2480_ _) => + (match (string_drop _s2479_ _s2480_) with + | _s2481_ => + (sep_matches_prefix _s2481_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2482_ _) => + (match (string_drop _s2481_ _s2482_) with + | _s2483_ => + (freg_name_matches_prefix _s2483_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2484_ _) => + let p0_ := + string_drop _s2483_ _s2484_ in + if generic_eq p0_ "" then + Some (FSGNJX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2452_ (_s2453_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2453_ with + | _s2454_ => + (f_bin_type_mnemonic_S_matches_prefix _s2454_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s2455_ _) => + (match (string_drop _s2454_ _s2455_) with + | _s2456_ => + (spc_matches_prefix _s2456_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2457_ _) => + (match (string_drop _s2456_ _s2457_) with + | _s2458_ => + (freg_name_matches_prefix _s2458_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2459_ _) => + (match (string_drop _s2458_ _s2459_) with + | _s2460_ => + (sep_matches_prefix _s2460_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2461_ _) => + (match (string_drop _s2460_ _s2461_) with + | _s2462_ => + (freg_name_matches_prefix _s2462_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2463_ _) => + (match (string_drop _s2462_ _s2463_) with + | _s2464_ => + (sep_matches_prefix _s2464_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2465_ _) => + (match (string_drop _s2464_ _s2465_) with + | _s2466_ => + (freg_name_matches_prefix _s2466_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2467_ _) => + let p0_ := + string_drop _s2466_ _s2467_ in + if generic_eq p0_ "" then + Some (FSGNJN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2435_ (_s2436_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s2436_ with + | _s2437_ => + (f_bin_type_mnemonic_S_matches_prefix _s2437_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_S, existT _ _s2438_ _) => + (match (string_drop _s2437_ _s2438_) with + | _s2439_ => + (spc_matches_prefix _s2439_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2440_ _) => + (match (string_drop _s2439_ _s2440_) with + | _s2441_ => + (freg_name_matches_prefix _s2441_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2442_ _) => + (match (string_drop _s2441_ _s2442_) with + | _s2443_ => + (sep_matches_prefix _s2443_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2444_ _) => + (match (string_drop _s2443_ _s2444_) with + | _s2445_ => + (freg_name_matches_prefix _s2445_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2446_ _) => + (match (string_drop _s2445_ _s2446_) with + | _s2447_ => + (sep_matches_prefix _s2447_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2448_ _) => + (match (string_drop _s2447_ _s2448_) with + | _s2449_ => + (freg_name_matches_prefix _s2449_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s2450_ _) => + let p0_ := + string_drop _s2449_ _s2450_ in + if generic_eq p0_ "" then + Some (FSGNJ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s2418_ (_s2419_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2419_ with + | _s2420_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2420_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s2421_ _) => + (match (string_drop _s2420_ _s2421_) with + | _s2422_ => + (spc_matches_prefix _s2422_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2423_ _) => + (match (string_drop _s2422_ _s2423_) with + | _s2424_ => + (freg_name_matches_prefix _s2424_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2425_ _) => + (match (string_drop _s2424_ _s2425_) with + | _s2426_ => + (sep_matches_prefix _s2426_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2427_ _) => + (match (string_drop _s2426_ _s2427_) with + | _s2428_ => + (reg_name_matches_prefix _s2428_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2429_ _) => + (match (string_drop _s2428_ _s2429_) with + | _s2430_ => + (sep_matches_prefix _s2430_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2431_ _) => + (match (string_drop _s2430_ _s2431_) with + | _s2432_ => + (frm_mnemonic_matches_prefix _s2432_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2433_ _) => + let p0_ := + string_drop _s2432_ _s2433_ in + if generic_eq p0_ "" then + Some (FCVT_S_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2401_ (_s2402_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2402_ with + | _s2403_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2403_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s2404_ _) => + (match (string_drop _s2403_ _s2404_) with + | _s2405_ => + (spc_matches_prefix _s2405_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2406_ _) => + (match (string_drop _s2405_ _s2406_) with + | _s2407_ => + (freg_name_matches_prefix _s2407_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2408_ _) => + (match (string_drop _s2407_ _s2408_) with + | _s2409_ => + (sep_matches_prefix _s2409_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2410_ _) => + (match (string_drop _s2409_ _s2410_) with + | _s2411_ => + (reg_name_matches_prefix _s2411_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2412_ _) => + (match (string_drop _s2411_ _s2412_) with + | _s2413_ => + (sep_matches_prefix _s2413_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2414_ _) => + (match (string_drop _s2413_ _s2414_) with + | _s2415_ => + (frm_mnemonic_matches_prefix _s2415_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2416_ _) => + let p0_ := + string_drop _s2415_ _s2416_ in + if generic_eq p0_ "" then + Some (FCVT_S_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2384_ (_s2385_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2385_ with + | _s2386_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2386_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s2387_ _) => + (match (string_drop _s2386_ _s2387_) with + | _s2388_ => + (spc_matches_prefix _s2388_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2389_ _) => + (match (string_drop _s2388_ _s2389_) with + | _s2390_ => + (reg_name_matches_prefix _s2390_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2391_ _) => + (match (string_drop _s2390_ _s2391_) with + | _s2392_ => + (sep_matches_prefix _s2392_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2393_ _) => + (match (string_drop _s2392_ _s2393_) with + | _s2394_ => + (freg_name_matches_prefix _s2394_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2395_ _) => + (match (string_drop _s2394_ _s2395_) with + | _s2396_ => + (sep_matches_prefix _s2396_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2397_ _) => + (match (string_drop _s2396_ _s2397_) with + | _s2398_ => + (frm_mnemonic_matches_prefix _s2398_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2399_ _) => + let p0_ := + string_drop _s2398_ _s2399_ in + if generic_eq p0_ "" then + Some (FCVT_LU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2367_ (_s2368_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2368_ with + | _s2369_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2369_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s2370_ _) => + (match (string_drop _s2369_ _s2370_) with + | _s2371_ => + (spc_matches_prefix _s2371_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2372_ _) => + (match (string_drop _s2371_ _s2372_) with + | _s2373_ => + (reg_name_matches_prefix _s2373_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2374_ _) => + (match (string_drop _s2373_ _s2374_) with + | _s2375_ => + (sep_matches_prefix _s2375_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2376_ _) => + (match (string_drop _s2375_ _s2376_) with + | _s2377_ => + (freg_name_matches_prefix _s2377_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2378_ _) => + (match (string_drop _s2377_ _s2378_) with + | _s2379_ => + (sep_matches_prefix _s2379_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2380_ _) => + (match (string_drop _s2379_ _s2380_) with + | _s2381_ => + (frm_mnemonic_matches_prefix _s2381_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2382_ _) => + let p0_ := + string_drop _s2381_ _s2382_ in + if generic_eq p0_ "" then + Some (FCVT_L_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2350_ (_s2351_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2351_ with + | _s2352_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2352_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_WU, existT _ _s2353_ _) => + (match (string_drop _s2352_ _s2353_) with + | _s2354_ => + (spc_matches_prefix _s2354_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2355_ _) => + (match (string_drop _s2354_ _s2355_) with + | _s2356_ => + (freg_name_matches_prefix _s2356_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2357_ _) => + (match (string_drop _s2356_ _s2357_) with + | _s2358_ => + (sep_matches_prefix _s2358_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2359_ _) => + (match (string_drop _s2358_ _s2359_) with + | _s2360_ => + (reg_name_matches_prefix _s2360_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2361_ _) => + (match (string_drop _s2360_ _s2361_) with + | _s2362_ => + (sep_matches_prefix _s2362_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2363_ _) => + (match (string_drop _s2362_ _s2363_) with + | _s2364_ => + (frm_mnemonic_matches_prefix _s2364_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2365_ _) => + let p0_ := + string_drop _s2364_ _s2365_ in + if generic_eq p0_ "" then + Some (FCVT_S_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2333_ (_s2334_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2334_ with + | _s2335_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2335_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s2336_ _) => + (match (string_drop _s2335_ _s2336_) with + | _s2337_ => + (spc_matches_prefix _s2337_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2338_ _) => + (match (string_drop _s2337_ _s2338_) with + | _s2339_ => + (freg_name_matches_prefix _s2339_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2340_ _) => + (match (string_drop _s2339_ _s2340_) with + | _s2341_ => + (sep_matches_prefix _s2341_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2342_ _) => + (match (string_drop _s2341_ _s2342_) with + | _s2343_ => + (reg_name_matches_prefix _s2343_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2344_ _) => + (match (string_drop _s2343_ _s2344_) with + | _s2345_ => + (sep_matches_prefix _s2345_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2346_ _) => + (match (string_drop _s2345_ _s2346_) with + | _s2347_ => + (frm_mnemonic_matches_prefix _s2347_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2348_ _) => + let p0_ := + string_drop _s2347_ _s2348_ in + if generic_eq p0_ "" then + Some (FCVT_S_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2316_ (_s2317_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2317_ with + | _s2318_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2318_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s2319_ _) => + (match (string_drop _s2318_ _s2319_) with + | _s2320_ => + (spc_matches_prefix _s2320_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2321_ _) => + (match (string_drop _s2320_ _s2321_) with + | _s2322_ => + (reg_name_matches_prefix _s2322_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2323_ _) => + (match (string_drop _s2322_ _s2323_) with + | _s2324_ => + (sep_matches_prefix _s2324_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2325_ _) => + (match (string_drop _s2324_ _s2325_) with + | _s2326_ => + (freg_name_matches_prefix _s2326_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2327_ _) => + (match (string_drop _s2326_ _s2327_) with + | _s2328_ => + (sep_matches_prefix _s2328_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2329_ _) => + (match (string_drop _s2328_ _s2329_) with + | _s2330_ => + (frm_mnemonic_matches_prefix _s2330_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2331_ _) => + let p0_ := + string_drop _s2330_ _s2331_ in + if generic_eq p0_ "" then + Some (FCVT_WU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2299_ (_s2300_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2300_ with + | _s2301_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2301_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s2302_ _) => + (match (string_drop _s2301_ _s2302_) with + | _s2303_ => + (spc_matches_prefix _s2303_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2304_ _) => + (match (string_drop _s2303_ _s2304_) with + | _s2305_ => + (reg_name_matches_prefix _s2305_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2306_ _) => + (match (string_drop _s2305_ _s2306_) with + | _s2307_ => + (sep_matches_prefix _s2307_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2308_ _) => + (match (string_drop _s2307_ _s2308_) with + | _s2309_ => + (freg_name_matches_prefix _s2309_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2310_ _) => + (match (string_drop _s2309_ _s2310_) with + | _s2311_ => + (sep_matches_prefix _s2311_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2312_ _) => + (match (string_drop _s2311_ _s2312_) with + | _s2313_ => + (frm_mnemonic_matches_prefix _s2313_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2314_ _) => + let p0_ := + string_drop _s2313_ _s2314_ in + if generic_eq p0_ "" then + Some (FCVT_W_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2282_ (_s2283_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s2283_ with + | _s2284_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s2284_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s2285_ _) => + (match (string_drop _s2284_ _s2285_) with + | _s2286_ => + (spc_matches_prefix _s2286_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2287_ _) => + (match (string_drop _s2286_ _s2287_) with + | _s2288_ => + (freg_name_matches_prefix _s2288_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2289_ _) => + (match (string_drop _s2288_ _s2289_) with + | _s2290_ => + (sep_matches_prefix _s2290_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2291_ _) => + (match (string_drop _s2290_ _s2291_) with + | _s2292_ => + (freg_name_matches_prefix _s2292_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2293_ _) => + (match (string_drop _s2292_ _s2293_) with + | _s2294_ => + (sep_matches_prefix _s2294_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2295_ _) => + (match (string_drop _s2294_ _s2295_) with + | _s2296_ => + (frm_mnemonic_matches_prefix _s2296_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s2297_ _) => + let p0_ := + string_drop _s2296_ _s2297_ in + if generic_eq p0_ "" then + Some (FSQRT_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s2261_ (_s2262_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2262_ with + | _s2263_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s2263_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2264_ _) => + (match (string_drop _s2263_ _s2264_) with + | _s2265_ => + (spc_matches_prefix _s2265_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2266_ _) => + (match (string_drop _s2265_ _s2266_) with + | _s2267_ => + (freg_name_matches_prefix _s2267_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2268_ _) => + (match (string_drop _s2267_ _s2268_) with + | _s2269_ => + (sep_matches_prefix _s2269_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2270_ _) => + (match (string_drop _s2269_ _s2270_) with + | _s2271_ => + (freg_name_matches_prefix _s2271_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2272_ _) => + (match (string_drop _s2271_ _s2272_) with + | _s2273_ => + (sep_matches_prefix _s2273_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2274_ _) => + (match (string_drop _s2273_ _s2274_) with + | _s2275_ => + (freg_name_matches_prefix _s2275_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2276_ _) => + (match (string_drop _s2275_ _s2276_) with + | _s2277_ => + (sep_matches_prefix _s2277_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2278_ _) => + (match (string_drop _s2277_ + _s2278_) with + | _s2279_ => + (frm_mnemonic_matches_prefix + _s2279_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s2280_ _) => + let p0_ := + string_drop + _s2279_ + _s2280_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))). -Definition _s1634_ (_s1635_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s1635_ with - | _s1636_ => - (csr_mnemonic_matches_prefix _s1636_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s2236_ (_s2237_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s2237_ with + | _s2238_ => + (f_madd_type_mnemonic_S_matches_prefix _s2238_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1637_ _)) => - let _s1638_ := string_drop _s1636_ _s1637_ in - (if ((string_startswith _s1638_ "i")) then - (match (string_drop _s1638_ (projT1 (string_length "i"))) with - | _s1639_ => - (spc_matches_prefix _s1639_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s2239_ _) => + (match (string_drop _s2238_ _s2239_) with + | _s2240_ => + (spc_matches_prefix _s2240_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2241_ _) => + (match (string_drop _s2240_ _s2241_) with + | _s2242_ => + (freg_name_matches_prefix _s2242_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2243_ _) => + (match (string_drop _s2242_ _s2243_) with + | _s2244_ => + (sep_matches_prefix _s2244_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2245_ _) => + (match (string_drop _s2244_ _s2245_) with + | _s2246_ => + (freg_name_matches_prefix _s2246_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s2247_ _) => + (match (string_drop _s2246_ _s2247_) with + | _s2248_ => + (sep_matches_prefix _s2248_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2249_ _) => + (match (string_drop _s2248_ _s2249_) with + | _s2250_ => + (freg_name_matches_prefix _s2250_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s2251_ _) => + (match (string_drop _s2250_ _s2251_) with + | _s2252_ => + (sep_matches_prefix _s2252_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s2253_ _) => + (match (string_drop _s2252_ + _s2253_) with + | _s2254_ => + (freg_name_matches_prefix + _s2254_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s2255_ _) => + (match (string_drop + _s2254_ _s2255_) with + | _s2256_ => + (sep_matches_prefix + _s2256_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s2257_ _) => + (match (string_drop + _s2256_ + _s2257_) with + | _s2258_ => + (frm_mnemonic_matches_prefix + _s2258_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s2259_ _) => + let p0_ := + string_drop + _s2258_ + _s2259_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s2212_ (_s2213_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s2214_ := _s2213_ in + (if string_startswith _s2214_ "fs" then + (match (string_drop _s2214_ (projT1 (string_length "fs"))) with + | _s2215_ => + (size_mnemonic_matches_prefix _s2215_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s2216_ _) => + (match (string_drop _s2215_ _s2216_) with + | _s2217_ => + (spc_matches_prefix _s2217_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1640_ _)) => - (match (string_drop _s1639_ _s1640_) with - | _s1641_ => - (reg_name_matches_prefix _s1641_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2218_ _) => + (match (string_drop _s2217_ _s2218_) with + | _s2219_ => + (freg_name_matches_prefix _s2219_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1642_ _)) => - (match (string_drop _s1641_ _s1642_) with - | _s1643_ => - (sep_matches_prefix _s1643_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s2220_ _) => + (match (string_drop _s2219_ _s2220_) with + | _s2221_ => + (sep_matches_prefix _s2221_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1644_ _)) => - (match (string_drop _s1643_ _s1644_) with - | _s1645_ => - (match (hex_bits_5_matches_prefix _s1645_) with - | Some ((rs1, existT _ _s1646_ _)) => - (match (string_drop _s1645_ _s1646_) with - | _s1647_ => - (sep_matches_prefix _s1647_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2222_ _) => + (match (string_drop _s2221_ _s2222_) with + | _s2223_ => + (match (hex_bits_12_matches_prefix _s2223_) with + | Some (imm, existT _ _s2224_ _) => + (match (string_drop _s2223_ _s2224_) with + | _s2225_ => + (opt_spc_matches_prefix _s2225_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1648_ _)) => - (match (string_drop _s1647_ _s1648_) with - | _s1649_ => - (csr_name_map_matches_prefix _s1649_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s1650_ _)) => - let p0_ := - string_drop _s1649_ _s1650_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + | Some (tt, existT _ _s2226_ _) => + let _s2227_ := string_drop _s2225_ _s2226_ in + (if string_startswith _s2227_ "(" then + (match (string_drop _s2227_ + (projT1 + (string_length "("))) with + | _s2228_ => + (opt_spc_matches_prefix _s2228_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2229_ _) => + (match (string_drop _s2228_ _s2229_) with + | _s2230_ => + (reg_name_matches_prefix + _s2230_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s2231_ _) => + (match (string_drop _s2230_ + _s2231_) with + | _s2232_ => + (opt_spc_matches_prefix + _s2232_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s2233_ _) => + let _s2234_ := + string_drop + _s2232_ + _s2233_ in + if string_startswith + _s2234_ + ")" + then + let p0_ := + string_drop + _s2234_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rs2, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s2188_ (_s2189_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s2190_ := _s2189_ in + (if string_startswith _s2190_ "fl" then + (match (string_drop _s2190_ (projT1 (string_length "fl"))) with + | _s2191_ => + (size_mnemonic_matches_prefix _s2191_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s2192_ _) => + (match (string_drop _s2191_ _s2192_) with + | _s2193_ => + (spc_matches_prefix _s2193_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2194_ _) => + (match (string_drop _s2193_ _s2194_) with + | _s2195_ => + (freg_name_matches_prefix _s2195_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2196_ _) => + (match (string_drop _s2195_ _s2196_) with + | _s2197_ => + (sep_matches_prefix _s2197_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2198_ _) => + (match (string_drop _s2197_ _s2198_) with + | _s2199_ => + (match (hex_bits_12_matches_prefix _s2199_) with + | Some (imm, existT _ _s2200_ _) => + (match (string_drop _s2199_ _s2200_) with + | _s2201_ => + (opt_spc_matches_prefix _s2201_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s2202_ _) => + let _s2203_ := string_drop _s2201_ _s2202_ in + (if string_startswith _s2203_ "(" then + (match (string_drop _s2203_ + (projT1 + (string_length "("))) with + | _s2204_ => + (opt_spc_matches_prefix _s2204_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2205_ _) => + (match (string_drop _s2204_ _s2205_) with + | _s2206_ => + (reg_name_matches_prefix + _s2206_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s2207_ _) => + (match (string_drop _s2206_ + _s2207_) with + | _s2208_ => + (opt_spc_matches_prefix + _s2208_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s2209_ _) => + let _s2210_ := + string_drop + _s2208_ + _s2209_ in + if string_startswith + _s2210_ + ")" + then + let p0_ := + string_drop + _s2210_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rd, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s2171_ (_s2172_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s2172_ with + | _s2173_ => + (csr_mnemonic_matches_prefix _s2173_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2174_ _) => + (match (string_drop _s2173_ _s2174_) with + | _s2175_ => + (spc_matches_prefix _s2175_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2176_ _) => + (match (string_drop _s2175_ _s2176_) with + | _s2177_ => + (reg_name_matches_prefix _s2177_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2178_ _) => + (match (string_drop _s2177_ _s2178_) with + | _s2179_ => + (sep_matches_prefix _s2179_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2180_ _) => + (match (string_drop _s2179_ _s2180_) with + | _s2181_ => + (csr_name_map_matches_prefix _s2181_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s2182_ _) => + (match (string_drop _s2181_ _s2182_) with + | _s2183_ => + (sep_matches_prefix _s2183_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s2184_ _) => + (match (string_drop _s2183_ _s2184_) with + | _s2185_ => + (reg_name_matches_prefix _s2185_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s2186_ _) => + let p0_ := + string_drop _s2185_ _s2186_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s2153_ (_s2154_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s2154_ with + | _s2155_ => + (csr_mnemonic_matches_prefix _s2155_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s2156_ _) => + let _s2157_ := string_drop _s2155_ _s2156_ in + (if string_startswith _s2157_ "i" then + (match (string_drop _s2157_ (projT1 (string_length "i"))) with + | _s2158_ => + (spc_matches_prefix _s2158_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s2159_ _) => + (match (string_drop _s2158_ _s2159_) with + | _s2160_ => + (reg_name_matches_prefix _s2160_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s2161_ _) => + (match (string_drop _s2160_ _s2161_) with + | _s2162_ => + (sep_matches_prefix _s2162_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s2163_ _) => + (match (string_drop _s2162_ _s2163_) with + | _s2164_ => + (csr_name_map_matches_prefix _s2164_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s2165_ _) => + (match (string_drop _s2164_ _s2165_) with + | _s2166_ => + (sep_matches_prefix _s2166_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s2167_ _) => + match (string_drop _s2166_ _s2167_) with + | _s2168_ => + match (hex_bits_5_matches_prefix + _s2168_) with + | Some (rs1, existT _ _s2169_ _) => + let p0_ := + string_drop _s2168_ _s2169_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s1615_ (_s1616_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1617_ := _s1616_ in - (if ((string_startswith _s1617_ "rem")) then - (match (string_drop _s1617_ (projT1 (string_length "rem"))) with - | _s1618_ => - (maybe_not_u_matches_prefix _s1618_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s2134_ (_s2135_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s2136_ := _s2135_ in + (if string_startswith _s2136_ "rem" then + (match (string_drop _s2136_ (projT1 (string_length "rem"))) with + | _s2137_ => + (maybe_not_u_matches_prefix _s2137_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1619_ _)) => - let _s1620_ := string_drop _s1618_ _s1619_ in - (if ((string_startswith _s1620_ "w")) then - (match (string_drop _s1620_ (projT1 (string_length "w"))) with - | _s1621_ => - (spc_matches_prefix _s1621_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s2138_ _) => + let _s2139_ := string_drop _s2137_ _s2138_ in + (if string_startswith _s2139_ "w" then + (match (string_drop _s2139_ (projT1 (string_length "w"))) with + | _s2140_ => + (spc_matches_prefix _s2140_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1622_ _)) => - (match (string_drop _s1621_ _s1622_) with - | _s1623_ => - (reg_name_matches_prefix _s1623_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2141_ _) => + (match (string_drop _s2140_ _s2141_) with + | _s2142_ => + (reg_name_matches_prefix _s2142_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1624_ _)) => - (match (string_drop _s1623_ _s1624_) with - | _s1625_ => - (sep_matches_prefix _s1625_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2143_ _) => + (match (string_drop _s2142_ _s2143_) with + | _s2144_ => + (sep_matches_prefix _s2144_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1626_ _)) => - (match (string_drop _s1625_ _s1626_) with - | _s1627_ => - (reg_name_matches_prefix _s1627_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2145_ _) => + (match (string_drop _s2144_ _s2145_) with + | _s2146_ => + (reg_name_matches_prefix _s2146_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1628_ _)) => - (match (string_drop _s1627_ _s1628_) with - | _s1629_ => - (sep_matches_prefix _s1629_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2147_ _) => + (match (string_drop _s2146_ _s2147_) with + | _s2148_ => + (sep_matches_prefix _s2148_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1630_ _)) => - (match (string_drop _s1629_ _s1630_) with - | _s1631_ => - (reg_name_matches_prefix _s1631_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2149_ _) => + (match (string_drop _s2148_ _s2149_) with + | _s2150_ => + (reg_name_matches_prefix _s2150_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1632_ _)) => - let p0_ := - string_drop _s1631_ - _s1632_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s2151_ _) => + let p0_ := + string_drop _s2150_ + _s2151_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1596_ (_s1597_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1598_ := _s1597_ in - (if ((string_startswith _s1598_ "div")) then - (match (string_drop _s1598_ (projT1 (string_length "div"))) with - | _s1599_ => - (maybe_not_u_matches_prefix _s1599_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s2115_ (_s2116_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s2117_ := _s2116_ in + (if string_startswith _s2117_ "div" then + (match (string_drop _s2117_ (projT1 (string_length "div"))) with + | _s2118_ => + (maybe_not_u_matches_prefix _s2118_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1600_ _)) => - let _s1601_ := string_drop _s1599_ _s1600_ in - (if ((string_startswith _s1601_ "w")) then - (match (string_drop _s1601_ (projT1 (string_length "w"))) with - | _s1602_ => - (spc_matches_prefix _s1602_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s2119_ _) => + let _s2120_ := string_drop _s2118_ _s2119_ in + (if string_startswith _s2120_ "w" then + (match (string_drop _s2120_ (projT1 (string_length "w"))) with + | _s2121_ => + (spc_matches_prefix _s2121_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1603_ _)) => - (match (string_drop _s1602_ _s1603_) with - | _s1604_ => - (reg_name_matches_prefix _s1604_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2122_ _) => + (match (string_drop _s2121_ _s2122_) with + | _s2123_ => + (reg_name_matches_prefix _s2123_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1605_ _)) => - (match (string_drop _s1604_ _s1605_) with - | _s1606_ => - (sep_matches_prefix _s1606_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2124_ _) => + (match (string_drop _s2123_ _s2124_) with + | _s2125_ => + (sep_matches_prefix _s2125_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1607_ _)) => - (match (string_drop _s1606_ _s1607_) with - | _s1608_ => - (reg_name_matches_prefix _s1608_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2126_ _) => + (match (string_drop _s2125_ _s2126_) with + | _s2127_ => + (reg_name_matches_prefix _s2127_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1609_ _)) => - (match (string_drop _s1608_ _s1609_) with - | _s1610_ => - (sep_matches_prefix _s1610_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2128_ _) => + (match (string_drop _s2127_ _s2128_) with + | _s2129_ => + (sep_matches_prefix _s2129_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1611_ _)) => - (match (string_drop _s1610_ _s1611_) with - | _s1612_ => - (reg_name_matches_prefix _s1612_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2130_ _) => + (match (string_drop _s2129_ _s2130_) with + | _s2131_ => + (reg_name_matches_prefix _s2131_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1613_ _)) => - let p0_ := - string_drop _s1612_ - _s1613_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s2132_ _) => + let p0_ := + string_drop _s2131_ + _s2132_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1580_ (_s1581_ : string) -: M (option ((mword 5 * mword 5 * mword 5))) := - - let _s1582_ := _s1581_ in - (if ((string_startswith _s1582_ "mulw")) then - (match (string_drop _s1582_ (projT1 (string_length "mulw"))) with - | _s1583_ => - (spc_matches_prefix _s1583_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2099_ (_s2100_ : string) : M (option ((mword 5 * mword 5 * mword 5))) := + let _s2101_ := _s2100_ in + (if string_startswith _s2101_ "mulw" then + (match (string_drop _s2101_ (projT1 (string_length "mulw"))) with + | _s2102_ => + (spc_matches_prefix _s2102_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1584_ _)) => - (match (string_drop _s1583_ _s1584_) with - | _s1585_ => - (reg_name_matches_prefix _s1585_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2103_ _) => + (match (string_drop _s2102_ _s2103_) with + | _s2104_ => + (reg_name_matches_prefix _s2104_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1586_ _)) => - (match (string_drop _s1585_ _s1586_) with - | _s1587_ => - (sep_matches_prefix _s1587_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2105_ _) => + (match (string_drop _s2104_ _s2105_) with + | _s2106_ => + (sep_matches_prefix _s2106_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1588_ _)) => - (match (string_drop _s1587_ _s1588_) with - | _s1589_ => - (reg_name_matches_prefix _s1589_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2107_ _) => + (match (string_drop _s2106_ _s2107_) with + | _s2108_ => + (reg_name_matches_prefix _s2108_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1590_ _)) => - (match (string_drop _s1589_ _s1590_) with - | _s1591_ => - (sep_matches_prefix _s1591_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2109_ _) => + (match (string_drop _s2108_ _s2109_) with + | _s2110_ => + (sep_matches_prefix _s2110_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1592_ _)) => - (match (string_drop _s1591_ _s1592_) with - | _s1593_ => - (reg_name_matches_prefix _s1593_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2111_ _) => + (match (string_drop _s2110_ _s2111_) with + | _s2112_ => + (reg_name_matches_prefix _s2112_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s1594_ _)) => - let p0_ := - string_drop _s1593_ _s1594_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (rs2, existT _ _s2113_ _) => + let p0_ := string_drop _s2112_ _s2113_ in + if generic_eq p0_ "" then + Some (rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5))). -Definition _s1562_ (_s1563_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1564_ := _s1563_ in - (if ((string_startswith _s1564_ "rem")) then - (match (string_drop _s1564_ (projT1 (string_length "rem"))) with - | _s1565_ => - (maybe_not_u_matches_prefix _s1565_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s2081_ (_s2082_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s2083_ := _s2082_ in + (if string_startswith _s2083_ "rem" then + (match (string_drop _s2083_ (projT1 (string_length "rem"))) with + | _s2084_ => + (maybe_not_u_matches_prefix _s2084_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1566_ _)) => - (match (string_drop _s1565_ _s1566_) with - | _s1567_ => - (spc_matches_prefix _s1567_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s2085_ _) => + (match (string_drop _s2084_ _s2085_) with + | _s2086_ => + (spc_matches_prefix _s2086_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1568_ _)) => - (match (string_drop _s1567_ _s1568_) with - | _s1569_ => - (reg_name_matches_prefix _s1569_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2087_ _) => + (match (string_drop _s2086_ _s2087_) with + | _s2088_ => + (reg_name_matches_prefix _s2088_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1570_ _)) => - (match (string_drop _s1569_ _s1570_) with - | _s1571_ => - (sep_matches_prefix _s1571_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2089_ _) => + (match (string_drop _s2088_ _s2089_) with + | _s2090_ => + (sep_matches_prefix _s2090_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1572_ _)) => - (match (string_drop _s1571_ _s1572_) with - | _s1573_ => - (reg_name_matches_prefix _s1573_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2091_ _) => + (match (string_drop _s2090_ _s2091_) with + | _s2092_ => + (reg_name_matches_prefix _s2092_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1574_ _)) => - (match (string_drop _s1573_ _s1574_) with - | _s1575_ => - (sep_matches_prefix _s1575_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2093_ _) => + (match (string_drop _s2092_ _s2093_) with + | _s2094_ => + (sep_matches_prefix _s2094_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1576_ _)) => - (match (string_drop _s1575_ _s1576_) with - | _s1577_ => - (reg_name_matches_prefix _s1577_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2095_ _) => + (match (string_drop _s2094_ _s2095_) with + | _s2096_ => + (reg_name_matches_prefix _s2096_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1578_ _)) => - let p0_ := - string_drop _s1577_ _s1578_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s2097_ _) => + let p0_ := + string_drop _s2096_ _s2097_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1544_ (_s1545_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s1546_ := _s1545_ in - (if ((string_startswith _s1546_ "div")) then - (match (string_drop _s1546_ (projT1 (string_length "div"))) with - | _s1547_ => - (maybe_not_u_matches_prefix _s1547_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s2063_ (_s2064_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s2065_ := _s2064_ in + (if string_startswith _s2065_ "div" then + (match (string_drop _s2065_ (projT1 (string_length "div"))) with + | _s2066_ => + (maybe_not_u_matches_prefix _s2066_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s1548_ _)) => - (match (string_drop _s1547_ _s1548_) with - | _s1549_ => - (spc_matches_prefix _s1549_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s2067_ _) => + (match (string_drop _s2066_ _s2067_) with + | _s2068_ => + (spc_matches_prefix _s2068_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1550_ _)) => - (match (string_drop _s1549_ _s1550_) with - | _s1551_ => - (reg_name_matches_prefix _s1551_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2069_ _) => + (match (string_drop _s2068_ _s2069_) with + | _s2070_ => + (reg_name_matches_prefix _s2070_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1552_ _)) => - (match (string_drop _s1551_ _s1552_) with - | _s1553_ => - (sep_matches_prefix _s1553_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2071_ _) => + (match (string_drop _s2070_ _s2071_) with + | _s2072_ => + (sep_matches_prefix _s2072_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1554_ _)) => - (match (string_drop _s1553_ _s1554_) with - | _s1555_ => - (reg_name_matches_prefix _s1555_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2073_ _) => + (match (string_drop _s2072_ _s2073_) with + | _s2074_ => + (reg_name_matches_prefix _s2074_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1556_ _)) => - (match (string_drop _s1555_ _s1556_) with - | _s1557_ => - (sep_matches_prefix _s1557_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2075_ _) => + (match (string_drop _s2074_ _s2075_) with + | _s2076_ => + (sep_matches_prefix _s2076_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1558_ _)) => - (match (string_drop _s1557_ _s1558_) with - | _s1559_ => - (reg_name_matches_prefix _s1559_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2077_ _) => + (match (string_drop _s2076_ _s2077_) with + | _s2078_ => + (reg_name_matches_prefix _s2078_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s1560_ _)) => - let p0_ := - string_drop _s1559_ _s1560_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s2079_ _) => + let p0_ := + string_drop _s2078_ _s2079_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s1527_ (_s1528_ : string) +Definition _s2046_ (_s2047_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1528_ with - | _s1529_ => - (mul_mnemonic_matches_prefix _s1529_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s2047_ with + | _s2048_ => + (mul_mnemonic_matches_prefix _s2048_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s1530_ _)) => - (match (string_drop _s1529_ _s1530_) with - | _s1531_ => - (spc_matches_prefix _s1531_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s2049_ _) => + (match (string_drop _s2048_ _s2049_) with + | _s2050_ => + (spc_matches_prefix _s2050_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1532_ _)) => - (match (string_drop _s1531_ _s1532_) with - | _s1533_ => - (reg_name_matches_prefix _s1533_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2051_ _) => + (match (string_drop _s2050_ _s2051_) with + | _s2052_ => + (reg_name_matches_prefix _s2052_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1534_ _)) => - (match (string_drop _s1533_ _s1534_) with - | _s1535_ => - (sep_matches_prefix _s1535_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2053_ _) => + (match (string_drop _s2052_ _s2053_) with + | _s2054_ => + (sep_matches_prefix _s2054_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1536_ _)) => - (match (string_drop _s1535_ _s1536_) with - | _s1537_ => - (reg_name_matches_prefix _s1537_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2055_ _) => + (match (string_drop _s2054_ _s2055_) with + | _s2056_ => + (reg_name_matches_prefix _s2056_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1538_ _)) => - (match (string_drop _s1537_ _s1538_) with - | _s1539_ => - (sep_matches_prefix _s1539_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s2057_ _) => + (match (string_drop _s2056_ _s2057_) with + | _s2058_ => + (sep_matches_prefix _s2058_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1540_ _)) => - (match (string_drop _s1539_ _s1540_) with - | _s1541_ => - (reg_name_matches_prefix _s1541_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2059_ _) => + (match (string_drop _s2058_ _s2059_) with + | _s2060_ => + (reg_name_matches_prefix _s2060_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1542_ _)) => - let p0_ := - string_drop _s1541_ _s1542_ in - if ((generic_eq p0_ "")) then - Some - ((high, signed1, signed2, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s2061_ _) => + let p0_ := + string_drop _s2060_ _s2061_ in + if generic_eq p0_ "" then + Some + (high, signed1, signed2, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1515_ (_s1516_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1517_ := _s1516_ in - (if ((string_startswith _s1517_ "c.add")) then - (match (string_drop _s1517_ (projT1 (string_length "c.add"))) with - | _s1518_ => - (spc_matches_prefix _s1518_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2034_ (_s2035_ : string) : M (option ((mword 5 * mword 5))) := + let _s2036_ := _s2035_ in + (if string_startswith _s2036_ "c.add" then + (match (string_drop _s2036_ (projT1 (string_length "c.add"))) with + | _s2037_ => + (spc_matches_prefix _s2037_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1519_ _)) => - (match (string_drop _s1518_ _s1519_) with - | _s1520_ => - (reg_name_matches_prefix _s1520_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2038_ _) => + (match (string_drop _s2037_ _s2038_) with + | _s2039_ => + (reg_name_matches_prefix _s2039_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1521_ _)) => - (match (string_drop _s1520_ _s1521_) with - | _s1522_ => - (sep_matches_prefix _s1522_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s2040_ _) => + (match (string_drop _s2039_ _s2040_) with + | _s2041_ => + (sep_matches_prefix _s2041_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1523_ _)) => - (match (string_drop _s1522_ _s1523_) with - | _s1524_ => - (reg_name_matches_prefix _s1524_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2042_ _) => + (match (string_drop _s2041_ _s2042_) with + | _s2043_ => + (reg_name_matches_prefix _s2043_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1525_ _)) => - let p0_ := string_drop _s1524_ _s1525_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s2044_ _) => + let p0_ := string_drop _s2043_ _s2044_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1503_ (_s1504_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1505_ := _s1504_ in - (if ((string_startswith _s1505_ "c.mv")) then - (match (string_drop _s1505_ (projT1 (string_length "c.mv"))) with - | _s1506_ => - (spc_matches_prefix _s1506_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2022_ (_s2023_ : string) : M (option ((mword 5 * mword 5))) := + let _s2024_ := _s2023_ in + (if string_startswith _s2024_ "c.mv" then + (match (string_drop _s2024_ (projT1 (string_length "c.mv"))) with + | _s2025_ => + (spc_matches_prefix _s2025_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1507_ _)) => - (match (string_drop _s1506_ _s1507_) with - | _s1508_ => - (reg_name_matches_prefix _s1508_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2026_ _) => + (match (string_drop _s2025_ _s2026_) with + | _s2027_ => + (reg_name_matches_prefix _s2027_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1509_ _)) => - (match (string_drop _s1508_ _s1509_) with - | _s1510_ => - (sep_matches_prefix _s1510_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s2028_ _) => + (match (string_drop _s2027_ _s2028_) with + | _s2029_ => + (sep_matches_prefix _s2029_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1511_ _)) => - (match (string_drop _s1510_ _s1511_) with - | _s1512_ => - (reg_name_matches_prefix _s1512_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2030_ _) => + (match (string_drop _s2029_ _s2030_) with + | _s2031_ => + (reg_name_matches_prefix _s2031_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1513_ _)) => - let p0_ := string_drop _s1512_ _s1513_ in - if ((generic_eq p0_ "")) then Some ((rd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s2032_ _) => + let p0_ := string_drop _s2031_ _s2032_ in + if generic_eq p0_ "" then Some (rd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1495_ (_s1496_ : string) -: M (option (mword 5)) := - - let _s1497_ := _s1496_ in - (if ((string_startswith _s1497_ "c.jalr")) then - (match (string_drop _s1497_ (projT1 (string_length "c.jalr"))) with - | _s1498_ => - (spc_matches_prefix _s1498_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2014_ (_s2015_ : string) : M (option (mword 5)) := + let _s2016_ := _s2015_ in + (if string_startswith _s2016_ "c.jalr" then + (match (string_drop _s2016_ (projT1 (string_length "c.jalr"))) with + | _s2017_ => + (spc_matches_prefix _s2017_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1499_ _)) => - (match (string_drop _s1498_ _s1499_) with - | _s1500_ => - (reg_name_matches_prefix _s1500_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2018_ _) => + (match (string_drop _s2017_ _s2018_) with + | _s2019_ => + (reg_name_matches_prefix _s2019_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s1501_ _)) => - let p0_ := string_drop _s1500_ _s1501_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s2020_ _) => + let p0_ := string_drop _s2019_ _s2020_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s1487_ (_s1488_ : string) -: M (option (mword 5)) := - - let _s1489_ := _s1488_ in - (if ((string_startswith _s1489_ "c.jr")) then - (match (string_drop _s1489_ (projT1 (string_length "c.jr"))) with - | _s1490_ => - (spc_matches_prefix _s1490_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s2006_ (_s2007_ : string) : M (option (mword 5)) := + let _s2008_ := _s2007_ in + (if string_startswith _s2008_ "c.jr" then + (match (string_drop _s2008_ (projT1 (string_length "c.jr"))) with + | _s2009_ => + (spc_matches_prefix _s2009_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1491_ _)) => - (match (string_drop _s1490_ _s1491_) with - | _s1492_ => - (reg_name_matches_prefix _s1492_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s2010_ _) => + (match (string_drop _s2009_ _s2010_) with + | _s2011_ => + (reg_name_matches_prefix _s2011_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s1493_ _)) => - let p0_ := string_drop _s1492_ _s1493_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s2012_ _) => + let p0_ := string_drop _s2011_ _s2012_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s1475_ (_s1476_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1477_ := _s1476_ in - (if ((string_startswith _s1477_ "c.sdsp")) then - (match (string_drop _s1477_ (projT1 (string_length "c.sdsp"))) with - | _s1478_ => - (spc_matches_prefix _s1478_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1994_ (_s1995_ : string) : M (option ((mword 5 * mword 6))) := + let _s1996_ := _s1995_ in + (if string_startswith _s1996_ "c.sdsp" then + (match (string_drop _s1996_ (projT1 (string_length "c.sdsp"))) with + | _s1997_ => + (spc_matches_prefix _s1997_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1479_ _)) => - (match (string_drop _s1478_ _s1479_) with - | _s1480_ => - (reg_name_matches_prefix _s1480_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1998_ _) => + (match (string_drop _s1997_ _s1998_) with + | _s1999_ => + (reg_name_matches_prefix _s1999_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s1481_ _)) => - (match (string_drop _s1480_ _s1481_) with - | _s1482_ => - (sep_matches_prefix _s1482_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s2000_ _) => + (match (string_drop _s1999_ _s2000_) with + | _s2001_ => + (sep_matches_prefix _s2001_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1483_ _)) => - match (string_drop _s1482_ _s1483_) with - | _s1484_ => - match (hex_bits_6_matches_prefix _s1484_) with - | Some ((uimm, existT _ _s1485_ _)) => - let p0_ := string_drop _s1484_ _s1485_ in - if ((generic_eq p0_ "")) then Some ((rs2, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s2002_ _) => + match (string_drop _s2001_ _s2002_) with + | _s2003_ => + match (hex_bits_6_matches_prefix _s2003_) with + | Some (uimm, existT _ _s2004_ _) => + let p0_ := string_drop _s2003_ _s2004_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1463_ (_s1464_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1465_ := _s1464_ in - (if ((string_startswith _s1465_ "c.swsp")) then - (match (string_drop _s1465_ (projT1 (string_length "c.swsp"))) with - | _s1466_ => - (spc_matches_prefix _s1466_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1982_ (_s1983_ : string) : M (option ((mword 5 * mword 6))) := + let _s1984_ := _s1983_ in + (if string_startswith _s1984_ "c.swsp" then + (match (string_drop _s1984_ (projT1 (string_length "c.swsp"))) with + | _s1985_ => + (spc_matches_prefix _s1985_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1467_ _)) => - (match (string_drop _s1466_ _s1467_) with - | _s1468_ => - (reg_name_matches_prefix _s1468_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1986_ _) => + (match (string_drop _s1985_ _s1986_) with + | _s1987_ => + (reg_name_matches_prefix _s1987_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1469_ _)) => - (match (string_drop _s1468_ _s1469_) with - | _s1470_ => - (sep_matches_prefix _s1470_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1988_ _) => + (match (string_drop _s1987_ _s1988_) with + | _s1989_ => + (sep_matches_prefix _s1989_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1471_ _)) => - match (string_drop _s1470_ _s1471_) with - | _s1472_ => - match (hex_bits_6_matches_prefix _s1472_) with - | Some ((uimm, existT _ _s1473_ _)) => - let p0_ := string_drop _s1472_ _s1473_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1990_ _) => + match (string_drop _s1989_ _s1990_) with + | _s1991_ => + match (hex_bits_6_matches_prefix _s1991_) with + | Some (uimm, existT _ _s1992_ _) => + let p0_ := string_drop _s1991_ _s1992_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1451_ (_s1452_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1453_ := _s1452_ in - (if ((string_startswith _s1453_ "c.ldsp")) then - (match (string_drop _s1453_ (projT1 (string_length "c.ldsp"))) with - | _s1454_ => - (spc_matches_prefix _s1454_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1970_ (_s1971_ : string) : M (option ((mword 5 * mword 6))) := + let _s1972_ := _s1971_ in + (if string_startswith _s1972_ "c.ldsp" then + (match (string_drop _s1972_ (projT1 (string_length "c.ldsp"))) with + | _s1973_ => + (spc_matches_prefix _s1973_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1455_ _)) => - (match (string_drop _s1454_ _s1455_) with - | _s1456_ => - (reg_name_matches_prefix _s1456_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1974_ _) => + (match (string_drop _s1973_ _s1974_) with + | _s1975_ => + (reg_name_matches_prefix _s1975_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1457_ _)) => - (match (string_drop _s1456_ _s1457_) with - | _s1458_ => - (sep_matches_prefix _s1458_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1976_ _) => + (match (string_drop _s1975_ _s1976_) with + | _s1977_ => + (sep_matches_prefix _s1977_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1459_ _)) => - match (string_drop _s1458_ _s1459_) with - | _s1460_ => - match (hex_bits_6_matches_prefix _s1460_) with - | Some ((uimm, existT _ _s1461_ _)) => - let p0_ := string_drop _s1460_ _s1461_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1978_ _) => + match (string_drop _s1977_ _s1978_) with + | _s1979_ => + match (hex_bits_6_matches_prefix _s1979_) with + | Some (uimm, existT _ _s1980_ _) => + let p0_ := string_drop _s1979_ _s1980_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1439_ (_s1440_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1441_ := _s1440_ in - (if ((string_startswith _s1441_ "c.lwsp")) then - (match (string_drop _s1441_ (projT1 (string_length "c.lwsp"))) with - | _s1442_ => - (spc_matches_prefix _s1442_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1958_ (_s1959_ : string) : M (option ((mword 5 * mword 6))) := + let _s1960_ := _s1959_ in + (if string_startswith _s1960_ "c.lwsp" then + (match (string_drop _s1960_ (projT1 (string_length "c.lwsp"))) with + | _s1961_ => + (spc_matches_prefix _s1961_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1443_ _)) => - (match (string_drop _s1442_ _s1443_) with - | _s1444_ => - (reg_name_matches_prefix _s1444_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1962_ _) => + (match (string_drop _s1961_ _s1962_) with + | _s1963_ => + (reg_name_matches_prefix _s1963_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1445_ _)) => - (match (string_drop _s1444_ _s1445_) with - | _s1446_ => - (sep_matches_prefix _s1446_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1964_ _) => + (match (string_drop _s1963_ _s1964_) with + | _s1965_ => + (sep_matches_prefix _s1965_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1447_ _)) => - match (string_drop _s1446_ _s1447_) with - | _s1448_ => - match (hex_bits_6_matches_prefix _s1448_) with - | Some ((uimm, existT _ _s1449_ _)) => - let p0_ := string_drop _s1448_ _s1449_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1966_ _) => + match (string_drop _s1965_ _s1966_) with + | _s1967_ => + match (hex_bits_6_matches_prefix _s1967_) with + | Some (uimm, existT _ _s1968_ _) => + let p0_ := string_drop _s1967_ _s1968_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1427_ (_s1428_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1429_ := _s1428_ in - (if ((string_startswith _s1429_ "c.slli")) then - (match (string_drop _s1429_ (projT1 (string_length "c.slli"))) with - | _s1430_ => - (spc_matches_prefix _s1430_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1946_ (_s1947_ : string) : M (option ((mword 5 * mword 6))) := + let _s1948_ := _s1947_ in + (if string_startswith _s1948_ "c.slli" then + (match (string_drop _s1948_ (projT1 (string_length "c.slli"))) with + | _s1949_ => + (spc_matches_prefix _s1949_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1431_ _)) => - (match (string_drop _s1430_ _s1431_) with - | _s1432_ => - (reg_name_matches_prefix _s1432_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1950_ _) => + (match (string_drop _s1949_ _s1950_) with + | _s1951_ => + (reg_name_matches_prefix _s1951_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1433_ _)) => - (match (string_drop _s1432_ _s1433_) with - | _s1434_ => - (sep_matches_prefix _s1434_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1952_ _) => + (match (string_drop _s1951_ _s1952_) with + | _s1953_ => + (sep_matches_prefix _s1953_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1435_ _)) => - match (string_drop _s1434_ _s1435_) with - | _s1436_ => - match (hex_bits_6_matches_prefix _s1436_) with - | Some ((shamt, existT _ _s1437_ _)) => - let p0_ := string_drop _s1436_ _s1437_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1954_ _) => + match (string_drop _s1953_ _s1954_) with + | _s1955_ => + match (hex_bits_6_matches_prefix _s1955_) with + | Some (shamt, existT _ _s1956_ _) => + let p0_ := string_drop _s1955_ _s1956_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1415_ (_s1416_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1417_ := _s1416_ in - (if ((string_startswith _s1417_ "c.bnez")) then - (match (string_drop _s1417_ (projT1 (string_length "c.bnez"))) with - | _s1418_ => - (spc_matches_prefix _s1418_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1934_ (_s1935_ : string) : M (option ((mword 3 * mword 8))) := + let _s1936_ := _s1935_ in + (if string_startswith _s1936_ "c.bnez" then + (match (string_drop _s1936_ (projT1 (string_length "c.bnez"))) with + | _s1937_ => + (spc_matches_prefix _s1937_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1419_ _)) => - (match (string_drop _s1418_ _s1419_) with - | _s1420_ => - (creg_name_matches_prefix _s1420_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1938_ _) => + (match (string_drop _s1937_ _s1938_) with + | _s1939_ => + (creg_name_matches_prefix _s1939_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s1421_ _)) => - (match (string_drop _s1420_ _s1421_) with - | _s1422_ => - (sep_matches_prefix _s1422_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s1940_ _) => + (match (string_drop _s1939_ _s1940_) with + | _s1941_ => + (sep_matches_prefix _s1941_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1423_ _)) => - match (string_drop _s1422_ _s1423_) with - | _s1424_ => - match (hex_bits_8_matches_prefix _s1424_) with - | Some ((imm, existT _ _s1425_ _)) => - let p0_ := string_drop _s1424_ _s1425_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1942_ _) => + match (string_drop _s1941_ _s1942_) with + | _s1943_ => + match (hex_bits_8_matches_prefix _s1943_) with + | Some (imm, existT _ _s1944_ _) => + let p0_ := string_drop _s1943_ _s1944_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1403_ (_s1404_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1405_ := _s1404_ in - (if ((string_startswith _s1405_ "c.beqz")) then - (match (string_drop _s1405_ (projT1 (string_length "c.beqz"))) with - | _s1406_ => - (spc_matches_prefix _s1406_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1922_ (_s1923_ : string) : M (option ((mword 3 * mword 8))) := + let _s1924_ := _s1923_ in + (if string_startswith _s1924_ "c.beqz" then + (match (string_drop _s1924_ (projT1 (string_length "c.beqz"))) with + | _s1925_ => + (spc_matches_prefix _s1925_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1407_ _)) => - (match (string_drop _s1406_ _s1407_) with - | _s1408_ => - (creg_name_matches_prefix _s1408_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1926_ _) => + (match (string_drop _s1925_ _s1926_) with + | _s1927_ => + (creg_name_matches_prefix _s1927_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s1409_ _)) => - (match (string_drop _s1408_ _s1409_) with - | _s1410_ => - (sep_matches_prefix _s1410_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s1928_ _) => + (match (string_drop _s1927_ _s1928_) with + | _s1929_ => + (sep_matches_prefix _s1929_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1411_ _)) => - match (string_drop _s1410_ _s1411_) with - | _s1412_ => - match (hex_bits_8_matches_prefix _s1412_) with - | Some ((imm, existT _ _s1413_ _)) => - let p0_ := string_drop _s1412_ _s1413_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1930_ _) => + match (string_drop _s1929_ _s1930_) with + | _s1931_ => + match (hex_bits_8_matches_prefix _s1931_) with + | Some (imm, existT _ _s1932_ _) => + let p0_ := string_drop _s1931_ _s1932_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1395_ (_s1396_ : string) -: M (option (mword 11)) := - - let _s1397_ := _s1396_ in - (if ((string_startswith _s1397_ "c.j")) then - (match (string_drop _s1397_ (projT1 (string_length "c.j"))) with - | _s1398_ => - (spc_matches_prefix _s1398_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1399_ _)) => - match (string_drop _s1398_ _s1399_) with - | _s1400_ => - match (hex_bits_11_matches_prefix _s1400_) with - | Some ((imm, existT _ _s1401_ _)) => - let p0_ := string_drop _s1400_ _s1401_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s1914_ (_s1915_ : string) : M (option (mword 11)) := + let _s1916_ := _s1915_ in + (if string_startswith _s1916_ "c.j" then + (match (string_drop _s1916_ (projT1 (string_length "c.j"))) with + | _s1917_ => + (spc_matches_prefix _s1917_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1918_ _) => + match (string_drop _s1917_ _s1918_) with + | _s1919_ => + match (hex_bits_11_matches_prefix _s1919_) with + | Some (imm, existT _ _s1920_ _) => + let p0_ := string_drop _s1919_ _s1920_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s1383_ (_s1384_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1385_ := _s1384_ in - (if ((string_startswith _s1385_ "c.addw")) then - (match (string_drop _s1385_ (projT1 (string_length "c.addw"))) with - | _s1386_ => - (spc_matches_prefix _s1386_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1902_ (_s1903_ : string) : M (option ((mword 3 * mword 3))) := + let _s1904_ := _s1903_ in + (if string_startswith _s1904_ "c.addw" then + (match (string_drop _s1904_ (projT1 (string_length "c.addw"))) with + | _s1905_ => + (spc_matches_prefix _s1905_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1387_ _)) => - (match (string_drop _s1386_ _s1387_) with - | _s1388_ => - (creg_name_matches_prefix _s1388_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1906_ _) => + (match (string_drop _s1905_ _s1906_) with + | _s1907_ => + (creg_name_matches_prefix _s1907_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1389_ _)) => - (match (string_drop _s1388_ _s1389_) with - | _s1390_ => - (sep_matches_prefix _s1390_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1908_ _) => + (match (string_drop _s1907_ _s1908_) with + | _s1909_ => + (sep_matches_prefix _s1909_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1391_ _)) => - (match (string_drop _s1390_ _s1391_) with - | _s1392_ => - (creg_name_matches_prefix _s1392_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1910_ _) => + (match (string_drop _s1909_ _s1910_) with + | _s1911_ => + (creg_name_matches_prefix _s1911_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1393_ _)) => - let p0_ := string_drop _s1392_ _s1393_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1912_ _) => + let p0_ := string_drop _s1911_ _s1912_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1371_ (_s1372_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1373_ := _s1372_ in - (if ((string_startswith _s1373_ "c.subw")) then - (match (string_drop _s1373_ (projT1 (string_length "c.subw"))) with - | _s1374_ => - (spc_matches_prefix _s1374_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1890_ (_s1891_ : string) : M (option ((mword 3 * mword 3))) := + let _s1892_ := _s1891_ in + (if string_startswith _s1892_ "c.subw" then + (match (string_drop _s1892_ (projT1 (string_length "c.subw"))) with + | _s1893_ => + (spc_matches_prefix _s1893_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1375_ _)) => - (match (string_drop _s1374_ _s1375_) with - | _s1376_ => - (creg_name_matches_prefix _s1376_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1894_ _) => + (match (string_drop _s1893_ _s1894_) with + | _s1895_ => + (creg_name_matches_prefix _s1895_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1377_ _)) => - (match (string_drop _s1376_ _s1377_) with - | _s1378_ => - (sep_matches_prefix _s1378_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1896_ _) => + (match (string_drop _s1895_ _s1896_) with + | _s1897_ => + (sep_matches_prefix _s1897_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1379_ _)) => - (match (string_drop _s1378_ _s1379_) with - | _s1380_ => - (creg_name_matches_prefix _s1380_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1898_ _) => + (match (string_drop _s1897_ _s1898_) with + | _s1899_ => + (creg_name_matches_prefix _s1899_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1381_ _)) => - let p0_ := string_drop _s1380_ _s1381_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1900_ _) => + let p0_ := string_drop _s1899_ _s1900_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1359_ (_s1360_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1361_ := _s1360_ in - (if ((string_startswith _s1361_ "c.and")) then - (match (string_drop _s1361_ (projT1 (string_length "c.and"))) with - | _s1362_ => - (spc_matches_prefix _s1362_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1878_ (_s1879_ : string) : M (option ((mword 3 * mword 3))) := + let _s1880_ := _s1879_ in + (if string_startswith _s1880_ "c.and" then + (match (string_drop _s1880_ (projT1 (string_length "c.and"))) with + | _s1881_ => + (spc_matches_prefix _s1881_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1363_ _)) => - (match (string_drop _s1362_ _s1363_) with - | _s1364_ => - (creg_name_matches_prefix _s1364_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1882_ _) => + (match (string_drop _s1881_ _s1882_) with + | _s1883_ => + (creg_name_matches_prefix _s1883_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1365_ _)) => - (match (string_drop _s1364_ _s1365_) with - | _s1366_ => - (sep_matches_prefix _s1366_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1884_ _) => + (match (string_drop _s1883_ _s1884_) with + | _s1885_ => + (sep_matches_prefix _s1885_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1367_ _)) => - (match (string_drop _s1366_ _s1367_) with - | _s1368_ => - (creg_name_matches_prefix _s1368_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1886_ _) => + (match (string_drop _s1885_ _s1886_) with + | _s1887_ => + (creg_name_matches_prefix _s1887_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1369_ _)) => - let p0_ := string_drop _s1368_ _s1369_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1888_ _) => + let p0_ := string_drop _s1887_ _s1888_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1347_ (_s1348_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1349_ := _s1348_ in - (if ((string_startswith _s1349_ "c.or")) then - (match (string_drop _s1349_ (projT1 (string_length "c.or"))) with - | _s1350_ => - (spc_matches_prefix _s1350_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1866_ (_s1867_ : string) : M (option ((mword 3 * mword 3))) := + let _s1868_ := _s1867_ in + (if string_startswith _s1868_ "c.or" then + (match (string_drop _s1868_ (projT1 (string_length "c.or"))) with + | _s1869_ => + (spc_matches_prefix _s1869_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1351_ _)) => - (match (string_drop _s1350_ _s1351_) with - | _s1352_ => - (creg_name_matches_prefix _s1352_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1870_ _) => + (match (string_drop _s1869_ _s1870_) with + | _s1871_ => + (creg_name_matches_prefix _s1871_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1353_ _)) => - (match (string_drop _s1352_ _s1353_) with - | _s1354_ => - (sep_matches_prefix _s1354_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1872_ _) => + (match (string_drop _s1871_ _s1872_) with + | _s1873_ => + (sep_matches_prefix _s1873_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1355_ _)) => - (match (string_drop _s1354_ _s1355_) with - | _s1356_ => - (creg_name_matches_prefix _s1356_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1874_ _) => + (match (string_drop _s1873_ _s1874_) with + | _s1875_ => + (creg_name_matches_prefix _s1875_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1357_ _)) => - let p0_ := string_drop _s1356_ _s1357_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1876_ _) => + let p0_ := string_drop _s1875_ _s1876_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1335_ (_s1336_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1337_ := _s1336_ in - (if ((string_startswith _s1337_ "c.xor")) then - (match (string_drop _s1337_ (projT1 (string_length "c.xor"))) with - | _s1338_ => - (spc_matches_prefix _s1338_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1854_ (_s1855_ : string) : M (option ((mword 3 * mword 3))) := + let _s1856_ := _s1855_ in + (if string_startswith _s1856_ "c.xor" then + (match (string_drop _s1856_ (projT1 (string_length "c.xor"))) with + | _s1857_ => + (spc_matches_prefix _s1857_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1339_ _)) => - (match (string_drop _s1338_ _s1339_) with - | _s1340_ => - (creg_name_matches_prefix _s1340_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1858_ _) => + (match (string_drop _s1857_ _s1858_) with + | _s1859_ => + (creg_name_matches_prefix _s1859_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1341_ _)) => - (match (string_drop _s1340_ _s1341_) with - | _s1342_ => - (sep_matches_prefix _s1342_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1860_ _) => + (match (string_drop _s1859_ _s1860_) with + | _s1861_ => + (sep_matches_prefix _s1861_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1343_ _)) => - (match (string_drop _s1342_ _s1343_) with - | _s1344_ => - (creg_name_matches_prefix _s1344_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1862_ _) => + (match (string_drop _s1861_ _s1862_) with + | _s1863_ => + (creg_name_matches_prefix _s1863_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1345_ _)) => - let p0_ := string_drop _s1344_ _s1345_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1864_ _) => + let p0_ := string_drop _s1863_ _s1864_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1323_ (_s1324_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s1325_ := _s1324_ in - (if ((string_startswith _s1325_ "c.sub")) then - (match (string_drop _s1325_ (projT1 (string_length "c.sub"))) with - | _s1326_ => - (spc_matches_prefix _s1326_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1842_ (_s1843_ : string) : M (option ((mword 3 * mword 3))) := + let _s1844_ := _s1843_ in + (if string_startswith _s1844_ "c.sub" then + (match (string_drop _s1844_ (projT1 (string_length "c.sub"))) with + | _s1845_ => + (spc_matches_prefix _s1845_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1327_ _)) => - (match (string_drop _s1326_ _s1327_) with - | _s1328_ => - (creg_name_matches_prefix _s1328_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1846_ _) => + (match (string_drop _s1845_ _s1846_) with + | _s1847_ => + (creg_name_matches_prefix _s1847_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1329_ _)) => - (match (string_drop _s1328_ _s1329_) with - | _s1330_ => - (sep_matches_prefix _s1330_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1848_ _) => + (match (string_drop _s1847_ _s1848_) with + | _s1849_ => + (sep_matches_prefix _s1849_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1331_ _)) => - (match (string_drop _s1330_ _s1331_) with - | _s1332_ => - (creg_name_matches_prefix _s1332_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1850_ _) => + (match (string_drop _s1849_ _s1850_) with + | _s1851_ => + (creg_name_matches_prefix _s1851_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1333_ _)) => - let p0_ := string_drop _s1332_ _s1333_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s1852_ _) => + let p0_ := string_drop _s1851_ _s1852_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s1311_ (_s1312_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1313_ := _s1312_ in - (if ((string_startswith _s1313_ "c.andi")) then - (match (string_drop _s1313_ (projT1 (string_length "c.andi"))) with - | _s1314_ => - (spc_matches_prefix _s1314_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1830_ (_s1831_ : string) : M (option ((mword 3 * mword 6))) := + let _s1832_ := _s1831_ in + (if string_startswith _s1832_ "c.andi" then + (match (string_drop _s1832_ (projT1 (string_length "c.andi"))) with + | _s1833_ => + (spc_matches_prefix _s1833_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1315_ _)) => - (match (string_drop _s1314_ _s1315_) with - | _s1316_ => - (creg_name_matches_prefix _s1316_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1834_ _) => + (match (string_drop _s1833_ _s1834_) with + | _s1835_ => + (creg_name_matches_prefix _s1835_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1317_ _)) => - (match (string_drop _s1316_ _s1317_) with - | _s1318_ => - (sep_matches_prefix _s1318_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1836_ _) => + (match (string_drop _s1835_ _s1836_) with + | _s1837_ => + (sep_matches_prefix _s1837_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1319_ _)) => - match (string_drop _s1318_ _s1319_) with - | _s1320_ => - match (hex_bits_6_matches_prefix _s1320_) with - | Some ((imm, existT _ _s1321_ _)) => - let p0_ := string_drop _s1320_ _s1321_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1838_ _) => + match (string_drop _s1837_ _s1838_) with + | _s1839_ => + match (hex_bits_6_matches_prefix _s1839_) with + | Some (imm, existT _ _s1840_ _) => + let p0_ := string_drop _s1839_ _s1840_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1299_ (_s1300_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1301_ := _s1300_ in - (if ((string_startswith _s1301_ "c.srai")) then - (match (string_drop _s1301_ (projT1 (string_length "c.srai"))) with - | _s1302_ => - (spc_matches_prefix _s1302_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1818_ (_s1819_ : string) : M (option ((mword 3 * mword 6))) := + let _s1820_ := _s1819_ in + (if string_startswith _s1820_ "c.srai" then + (match (string_drop _s1820_ (projT1 (string_length "c.srai"))) with + | _s1821_ => + (spc_matches_prefix _s1821_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1303_ _)) => - (match (string_drop _s1302_ _s1303_) with - | _s1304_ => - (creg_name_matches_prefix _s1304_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1822_ _) => + (match (string_drop _s1821_ _s1822_) with + | _s1823_ => + (creg_name_matches_prefix _s1823_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1305_ _)) => - (match (string_drop _s1304_ _s1305_) with - | _s1306_ => - (sep_matches_prefix _s1306_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1824_ _) => + (match (string_drop _s1823_ _s1824_) with + | _s1825_ => + (sep_matches_prefix _s1825_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1307_ _)) => - match (string_drop _s1306_ _s1307_) with - | _s1308_ => - match (hex_bits_6_matches_prefix _s1308_) with - | Some ((shamt, existT _ _s1309_ _)) => - let p0_ := string_drop _s1308_ _s1309_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1826_ _) => + match (string_drop _s1825_ _s1826_) with + | _s1827_ => + match (hex_bits_6_matches_prefix _s1827_) with + | Some (shamt, existT _ _s1828_ _) => + let p0_ := string_drop _s1827_ _s1828_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1287_ (_s1288_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s1289_ := _s1288_ in - (if ((string_startswith _s1289_ "c.srli")) then - (match (string_drop _s1289_ (projT1 (string_length "c.srli"))) with - | _s1290_ => - (spc_matches_prefix _s1290_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1806_ (_s1807_ : string) : M (option ((mword 3 * mword 6))) := + let _s1808_ := _s1807_ in + (if string_startswith _s1808_ "c.srli" then + (match (string_drop _s1808_ (projT1 (string_length "c.srli"))) with + | _s1809_ => + (spc_matches_prefix _s1809_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1291_ _)) => - (match (string_drop _s1290_ _s1291_) with - | _s1292_ => - (creg_name_matches_prefix _s1292_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1810_ _) => + (match (string_drop _s1809_ _s1810_) with + | _s1811_ => + (creg_name_matches_prefix _s1811_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1293_ _)) => - (match (string_drop _s1292_ _s1293_) with - | _s1294_ => - (sep_matches_prefix _s1294_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1812_ _) => + (match (string_drop _s1811_ _s1812_) with + | _s1813_ => + (sep_matches_prefix _s1813_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1295_ _)) => - match (string_drop _s1294_ _s1295_) with - | _s1296_ => - match (hex_bits_6_matches_prefix _s1296_) with - | Some ((shamt, existT _ _s1297_ _)) => - let p0_ := string_drop _s1296_ _s1297_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1814_ _) => + match (string_drop _s1813_ _s1814_) with + | _s1815_ => + match (hex_bits_6_matches_prefix _s1815_) with + | Some (shamt, existT _ _s1816_ _) => + let p0_ := string_drop _s1815_ _s1816_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s1275_ (_s1276_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1277_ := _s1276_ in - (if ((string_startswith _s1277_ "c.lui")) then - (match (string_drop _s1277_ (projT1 (string_length "c.lui"))) with - | _s1278_ => - (spc_matches_prefix _s1278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1794_ (_s1795_ : string) : M (option ((mword 5 * mword 6))) := + let _s1796_ := _s1795_ in + (if string_startswith _s1796_ "c.lui" then + (match (string_drop _s1796_ (projT1 (string_length "c.lui"))) with + | _s1797_ => + (spc_matches_prefix _s1797_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1279_ _)) => - (match (string_drop _s1278_ _s1279_) with - | _s1280_ => - (reg_name_matches_prefix _s1280_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1798_ _) => + (match (string_drop _s1797_ _s1798_) with + | _s1799_ => + (reg_name_matches_prefix _s1799_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1281_ _)) => - (match (string_drop _s1280_ _s1281_) with - | _s1282_ => - (sep_matches_prefix _s1282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1800_ _) => + (match (string_drop _s1799_ _s1800_) with + | _s1801_ => + (sep_matches_prefix _s1801_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1283_ _)) => - match (string_drop _s1282_ _s1283_) with - | _s1284_ => - match (hex_bits_6_matches_prefix _s1284_) with - | Some ((imm, existT _ _s1285_ _)) => - let p0_ := string_drop _s1284_ _s1285_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1802_ _) => + match (string_drop _s1801_ _s1802_) with + | _s1803_ => + match (hex_bits_6_matches_prefix _s1803_) with + | Some (imm, existT _ _s1804_ _) => + let p0_ := string_drop _s1803_ _s1804_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1267_ (_s1268_ : string) -: M (option (mword 6)) := - - let _s1269_ := _s1268_ in - (if ((string_startswith _s1269_ "c.addi16sp")) then - (match (string_drop _s1269_ (projT1 (string_length "c.addi16sp"))) with - | _s1270_ => - (spc_matches_prefix _s1270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1271_ _)) => - match (string_drop _s1270_ _s1271_) with - | _s1272_ => - match (hex_bits_6_matches_prefix _s1272_) with - | Some ((imm, existT _ _s1273_ _)) => - let p0_ := string_drop _s1272_ _s1273_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 6)) +Definition _s1786_ (_s1787_ : string) : M (option (mword 6)) := + let _s1788_ := _s1787_ in + (if string_startswith _s1788_ "c.addi16sp" then + (match (string_drop _s1788_ (projT1 (string_length "c.addi16sp"))) with + | _s1789_ => + (spc_matches_prefix _s1789_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1790_ _) => + match (string_drop _s1789_ _s1790_) with + | _s1791_ => + match (hex_bits_6_matches_prefix _s1791_) with + | Some (imm, existT _ _s1792_ _) => + let p0_ := string_drop _s1791_ _s1792_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 6)) - else returnm (None : option (mword 6))) + else returnm None) : M (option (mword 6)). -Definition _s1255_ (_s1256_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1257_ := _s1256_ in - (if ((string_startswith _s1257_ "c.li")) then - (match (string_drop _s1257_ (projT1 (string_length "c.li"))) with - | _s1258_ => - (spc_matches_prefix _s1258_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1774_ (_s1775_ : string) : M (option ((mword 5 * mword 6))) := + let _s1776_ := _s1775_ in + (if string_startswith _s1776_ "c.li" then + (match (string_drop _s1776_ (projT1 (string_length "c.li"))) with + | _s1777_ => + (spc_matches_prefix _s1777_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1259_ _)) => - (match (string_drop _s1258_ _s1259_) with - | _s1260_ => - (reg_name_matches_prefix _s1260_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1778_ _) => + (match (string_drop _s1777_ _s1778_) with + | _s1779_ => + (reg_name_matches_prefix _s1779_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1261_ _)) => - (match (string_drop _s1260_ _s1261_) with - | _s1262_ => - (sep_matches_prefix _s1262_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1780_ _) => + (match (string_drop _s1779_ _s1780_) with + | _s1781_ => + (sep_matches_prefix _s1781_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1263_ _)) => - match (string_drop _s1262_ _s1263_) with - | _s1264_ => - match (hex_bits_6_matches_prefix _s1264_) with - | Some ((imm, existT _ _s1265_ _)) => - let p0_ := string_drop _s1264_ _s1265_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1782_ _) => + match (string_drop _s1781_ _s1782_) with + | _s1783_ => + match (hex_bits_6_matches_prefix _s1783_) with + | Some (imm, existT _ _s1784_ _) => + let p0_ := string_drop _s1783_ _s1784_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1243_ (_s1244_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1245_ := _s1244_ in - (if ((string_startswith _s1245_ "c.addiw")) then - (match (string_drop _s1245_ (projT1 (string_length "c.addiw"))) with - | _s1246_ => - (spc_matches_prefix _s1246_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1762_ (_s1763_ : string) : M (option ((mword 5 * mword 6))) := + let _s1764_ := _s1763_ in + (if string_startswith _s1764_ "c.addiw" then + (match (string_drop _s1764_ (projT1 (string_length "c.addiw"))) with + | _s1765_ => + (spc_matches_prefix _s1765_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1247_ _)) => - (match (string_drop _s1246_ _s1247_) with - | _s1248_ => - (reg_name_matches_prefix _s1248_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1766_ _) => + (match (string_drop _s1765_ _s1766_) with + | _s1767_ => + (reg_name_matches_prefix _s1767_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1249_ _)) => - (match (string_drop _s1248_ _s1249_) with - | _s1250_ => - (sep_matches_prefix _s1250_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1768_ _) => + (match (string_drop _s1767_ _s1768_) with + | _s1769_ => + (sep_matches_prefix _s1769_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1251_ _)) => - match (string_drop _s1250_ _s1251_) with - | _s1252_ => - match (hex_bits_6_matches_prefix _s1252_) with - | Some ((imm, existT _ _s1253_ _)) => - let p0_ := string_drop _s1252_ _s1253_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1770_ _) => + match (string_drop _s1769_ _s1770_) with + | _s1771_ => + match (hex_bits_6_matches_prefix _s1771_) with + | Some (imm, existT _ _s1772_ _) => + let p0_ := string_drop _s1771_ _s1772_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1235_ (_s1236_ : string) -: M (option (mword 11)) := - - let _s1237_ := _s1236_ in - (if ((string_startswith _s1237_ "c.jal")) then - (match (string_drop _s1237_ (projT1 (string_length "c.jal"))) with - | _s1238_ => - (spc_matches_prefix _s1238_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s1239_ _)) => - match (string_drop _s1238_ _s1239_) with - | _s1240_ => - match (hex_bits_12_matches_prefix _s1240_) with - | Some ((v__802, existT _ _s1241_ _)) => - if ((eq_vec (subrange_vec_dec v__802 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__802 11 1 in - let imm : mword 11 := subrange_vec_dec v__802 11 1 in - let p0_ := string_drop _s1240_ _s1241_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s1754_ (_s1755_ : string) : M (option (mword 11)) := + let _s1756_ := _s1755_ in + (if string_startswith _s1756_ "c.jal" then + (match (string_drop _s1756_ (projT1 (string_length "c.jal"))) with + | _s1757_ => + (spc_matches_prefix _s1757_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s1758_ _) => + match (string_drop _s1757_ _s1758_) with + | _s1759_ => + match (hex_bits_12_matches_prefix _s1759_) with + | Some (v__1346, existT _ _s1760_ _) => + if eq_vec (subrange_vec_dec v__1346 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1346 11 1 in + let imm : mword 11 := subrange_vec_dec v__1346 11 1 in + let p0_ := string_drop _s1759_ _s1760_ in + if generic_eq p0_ "" then Some imm + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s1223_ (_s1224_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s1225_ := _s1224_ in - (if ((string_startswith _s1225_ "c.addi")) then - (match (string_drop _s1225_ (projT1 (string_length "c.addi"))) with - | _s1226_ => - (spc_matches_prefix _s1226_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1742_ (_s1743_ : string) : M (option ((mword 5 * mword 6))) := + let _s1744_ := _s1743_ in + (if string_startswith _s1744_ "c.addi" then + (match (string_drop _s1744_ (projT1 (string_length "c.addi"))) with + | _s1745_ => + (spc_matches_prefix _s1745_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1227_ _)) => - (match (string_drop _s1226_ _s1227_) with - | _s1228_ => - (reg_name_matches_prefix _s1228_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1746_ _) => + (match (string_drop _s1745_ _s1746_) with + | _s1747_ => + (reg_name_matches_prefix _s1747_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s1229_ _)) => - (match (string_drop _s1228_ _s1229_) with - | _s1230_ => - (sep_matches_prefix _s1230_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s1748_ _) => + (match (string_drop _s1747_ _s1748_) with + | _s1749_ => + (sep_matches_prefix _s1749_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1231_ _)) => - match (string_drop _s1230_ _s1231_) with - | _s1232_ => - match (hex_bits_6_matches_prefix _s1232_) with - | Some ((nzi, existT _ _s1233_ _)) => - let p0_ := string_drop _s1232_ _s1233_ in - if ((generic_eq p0_ "")) then Some ((rsd, nzi)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s1750_ _) => + match (string_drop _s1749_ _s1750_) with + | _s1751_ => + match (hex_bits_6_matches_prefix _s1751_) with + | Some (nzi, existT _ _s1752_ _) => + let p0_ := string_drop _s1751_ _s1752_ in + if generic_eq p0_ "" then Some (rsd, nzi) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s1207_ (_s1208_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1209_ := _s1208_ in - (if ((string_startswith _s1209_ "c.sd")) then - (match (string_drop _s1209_ (projT1 (string_length "c.sd"))) with - | _s1210_ => - (spc_matches_prefix _s1210_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1726_ (_s1727_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1728_ := _s1727_ in + (if string_startswith _s1728_ "c.sd" then + (match (string_drop _s1728_ (projT1 (string_length "c.sd"))) with + | _s1729_ => + (spc_matches_prefix _s1729_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1211_ _)) => - (match (string_drop _s1210_ _s1211_) with - | _s1212_ => - (creg_name_matches_prefix _s1212_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1730_ _) => + (match (string_drop _s1729_ _s1730_) with + | _s1731_ => + (creg_name_matches_prefix _s1731_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s1213_ _)) => - (match (string_drop _s1212_ _s1213_) with - | _s1214_ => - (sep_matches_prefix _s1214_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s1732_ _) => + (match (string_drop _s1731_ _s1732_) with + | _s1733_ => + (sep_matches_prefix _s1733_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1215_ _)) => - (match (string_drop _s1214_ _s1215_) with - | _s1216_ => - (creg_name_matches_prefix _s1216_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1734_ _) => + (match (string_drop _s1733_ _s1734_) with + | _s1735_ => + (creg_name_matches_prefix _s1735_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s1217_ _)) => - (match (string_drop _s1216_ _s1217_) with - | _s1218_ => - (sep_matches_prefix _s1218_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s1736_ _) => + (match (string_drop _s1735_ _s1736_) with + | _s1737_ => + (sep_matches_prefix _s1737_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1219_ _)) => - match (string_drop _s1218_ _s1219_) with - | _s1220_ => - match (hex_bits_8_matches_prefix _s1220_) with - | Some ((v__804, existT _ _s1221_ _)) => - if ((eq_vec - (subrange_vec_dec v__804 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__804 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__804 7 3 in - let p0_ := - string_drop _s1220_ _s1221_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1738_ _) => + match (string_drop _s1737_ _s1738_) with + | _s1739_ => + match (hex_bits_8_matches_prefix _s1739_) with + | Some (v__1348, existT _ _s1740_ _) => + if eq_vec (subrange_vec_dec v__1348 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1348 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1348 7 3 in + let p0_ := string_drop _s1739_ _s1740_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1191_ (_s1192_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1193_ := _s1192_ in - (if ((string_startswith _s1193_ "c.sw")) then - (match (string_drop _s1193_ (projT1 (string_length "c.sw"))) with - | _s1194_ => - (spc_matches_prefix _s1194_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1710_ (_s1711_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1712_ := _s1711_ in + (if string_startswith _s1712_ "c.sw" then + (match (string_drop _s1712_ (projT1 (string_length "c.sw"))) with + | _s1713_ => + (spc_matches_prefix _s1713_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1195_ _)) => - (match (string_drop _s1194_ _s1195_) with - | _s1196_ => - (creg_name_matches_prefix _s1196_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1714_ _) => + (match (string_drop _s1713_ _s1714_) with + | _s1715_ => + (creg_name_matches_prefix _s1715_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s1197_ _)) => - (match (string_drop _s1196_ _s1197_) with - | _s1198_ => - (sep_matches_prefix _s1198_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s1716_ _) => + (match (string_drop _s1715_ _s1716_) with + | _s1717_ => + (sep_matches_prefix _s1717_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1199_ _)) => - (match (string_drop _s1198_ _s1199_) with - | _s1200_ => - (creg_name_matches_prefix _s1200_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1718_ _) => + (match (string_drop _s1717_ _s1718_) with + | _s1719_ => + (creg_name_matches_prefix _s1719_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s1201_ _)) => - (match (string_drop _s1200_ _s1201_) with - | _s1202_ => - (sep_matches_prefix _s1202_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s1720_ _) => + (match (string_drop _s1719_ _s1720_) with + | _s1721_ => + (sep_matches_prefix _s1721_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1203_ _)) => - match (string_drop _s1202_ _s1203_) with - | _s1204_ => - match (hex_bits_7_matches_prefix _s1204_) with - | Some ((v__806, existT _ _s1205_ _)) => - if ((eq_vec - (subrange_vec_dec v__806 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__806 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__806 6 2 in - let p0_ := - string_drop _s1204_ _s1205_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1722_ _) => + match (string_drop _s1721_ _s1722_) with + | _s1723_ => + match (hex_bits_7_matches_prefix _s1723_) with + | Some (v__1350, existT _ _s1724_ _) => + if eq_vec (subrange_vec_dec v__1350 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1350 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1350 6 2 in + let p0_ := string_drop _s1723_ _s1724_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1175_ (_s1176_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1177_ := _s1176_ in - (if ((string_startswith _s1177_ "c.ld")) then - (match (string_drop _s1177_ (projT1 (string_length "c.ld"))) with - | _s1178_ => - (spc_matches_prefix _s1178_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1694_ (_s1695_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1696_ := _s1695_ in + (if string_startswith _s1696_ "c.ld" then + (match (string_drop _s1696_ (projT1 (string_length "c.ld"))) with + | _s1697_ => + (spc_matches_prefix _s1697_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1179_ _)) => - (match (string_drop _s1178_ _s1179_) with - | _s1180_ => - (creg_name_matches_prefix _s1180_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1698_ _) => + (match (string_drop _s1697_ _s1698_) with + | _s1699_ => + (creg_name_matches_prefix _s1699_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1181_ _)) => - (match (string_drop _s1180_ _s1181_) with - | _s1182_ => - (sep_matches_prefix _s1182_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1700_ _) => + (match (string_drop _s1699_ _s1700_) with + | _s1701_ => + (sep_matches_prefix _s1701_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1183_ _)) => - (match (string_drop _s1182_ _s1183_) with - | _s1184_ => - (creg_name_matches_prefix _s1184_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1702_ _) => + (match (string_drop _s1701_ _s1702_) with + | _s1703_ => + (creg_name_matches_prefix _s1703_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s1185_ _)) => - (match (string_drop _s1184_ _s1185_) with - | _s1186_ => - (sep_matches_prefix _s1186_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s1704_ _) => + (match (string_drop _s1703_ _s1704_) with + | _s1705_ => + (sep_matches_prefix _s1705_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1187_ _)) => - match (string_drop _s1186_ _s1187_) with - | _s1188_ => - match (hex_bits_8_matches_prefix _s1188_) with - | Some ((v__808, existT _ _s1189_ _)) => - if ((eq_vec - (subrange_vec_dec v__808 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__808 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__808 7 3 in - let p0_ := - string_drop _s1188_ _s1189_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1706_ _) => + match (string_drop _s1705_ _s1706_) with + | _s1707_ => + match (hex_bits_8_matches_prefix _s1707_) with + | Some (v__1352, existT _ _s1708_ _) => + if eq_vec (subrange_vec_dec v__1352 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1352 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1352 7 3 in + let p0_ := string_drop _s1707_ _s1708_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1159_ (_s1160_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s1161_ := _s1160_ in - (if ((string_startswith _s1161_ "c.lw")) then - (match (string_drop _s1161_ (projT1 (string_length "c.lw"))) with - | _s1162_ => - (spc_matches_prefix _s1162_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1678_ (_s1679_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s1680_ := _s1679_ in + (if string_startswith _s1680_ "c.lw" then + (match (string_drop _s1680_ (projT1 (string_length "c.lw"))) with + | _s1681_ => + (spc_matches_prefix _s1681_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1163_ _)) => - (match (string_drop _s1162_ _s1163_) with - | _s1164_ => - (creg_name_matches_prefix _s1164_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1682_ _) => + (match (string_drop _s1681_ _s1682_) with + | _s1683_ => + (creg_name_matches_prefix _s1683_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1165_ _)) => - (match (string_drop _s1164_ _s1165_) with - | _s1166_ => - (sep_matches_prefix _s1166_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1684_ _) => + (match (string_drop _s1683_ _s1684_) with + | _s1685_ => + (sep_matches_prefix _s1685_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1167_ _)) => - (match (string_drop _s1166_ _s1167_) with - | _s1168_ => - (creg_name_matches_prefix _s1168_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1686_ _) => + (match (string_drop _s1685_ _s1686_) with + | _s1687_ => + (creg_name_matches_prefix _s1687_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s1169_ _)) => - (match (string_drop _s1168_ _s1169_) with - | _s1170_ => - (sep_matches_prefix _s1170_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s1688_ _) => + (match (string_drop _s1687_ _s1688_) with + | _s1689_ => + (sep_matches_prefix _s1689_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1171_ _)) => - match (string_drop _s1170_ _s1171_) with - | _s1172_ => - match (hex_bits_7_matches_prefix _s1172_) with - | Some ((v__810, existT _ _s1173_ _)) => - if ((eq_vec - (subrange_vec_dec v__810 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__810 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__810 6 2 in - let p0_ := - string_drop _s1172_ _s1173_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s1690_ _) => + match (string_drop _s1689_ _s1690_) with + | _s1691_ => + match (hex_bits_7_matches_prefix _s1691_) with + | Some (v__1354, existT _ _s1692_ _) => + if eq_vec (subrange_vec_dec v__1354 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1354 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1354 6 2 in + let p0_ := string_drop _s1691_ _s1692_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s1147_ (_s1148_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s1149_ := _s1148_ in - (if ((string_startswith _s1149_ "c.addi4spn")) then - (match (string_drop _s1149_ (projT1 (string_length "c.addi4spn"))) with - | _s1150_ => - (spc_matches_prefix _s1150_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1666_ (_s1667_ : string) : M (option ((mword 3 * mword 8))) := + let _s1668_ := _s1667_ in + (if string_startswith _s1668_ "c.addi4spn" then + (match (string_drop _s1668_ (projT1 (string_length "c.addi4spn"))) with + | _s1669_ => + (spc_matches_prefix _s1669_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1151_ _)) => - (match (string_drop _s1150_ _s1151_) with - | _s1152_ => - (creg_name_matches_prefix _s1152_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1670_ _) => + (match (string_drop _s1669_ _s1670_) with + | _s1671_ => + (creg_name_matches_prefix _s1671_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s1153_ _)) => - (match (string_drop _s1152_ _s1153_) with - | _s1154_ => - (sep_matches_prefix _s1154_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s1672_ _) => + (match (string_drop _s1671_ _s1672_) with + | _s1673_ => + (sep_matches_prefix _s1673_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1155_ _)) => - match (string_drop _s1154_ _s1155_) with - | _s1156_ => - match (hex_bits_10_matches_prefix _s1156_) with - | Some ((v__812, existT _ _s1157_ _)) => - if ((eq_vec (subrange_vec_dec v__812 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__812 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__812 9 2 in - let p0_ := string_drop _s1156_ _s1157_ in - if ((generic_eq p0_ "")) then Some ((rdc, nzimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s1674_ _) => + match (string_drop _s1673_ _s1674_) with + | _s1675_ => + match (hex_bits_10_matches_prefix _s1675_) with + | Some (v__1356, existT _ _s1676_ _) => + if eq_vec (subrange_vec_dec v__1356 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1356 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1356 9 2 in + let p0_ := string_drop _s1675_ _s1676_ in + if generic_eq p0_ "" then Some (rdc, nzimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1123_ (_s1124_ : string) +Definition _s1640_ (_s1641_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1124_ with - | _s1125_ => - (amo_mnemonic_matches_prefix _s1125_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s1641_ with + | _s1642_ => + (amo_mnemonic_matches_prefix _s1642_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1126_ _)) => - let _s1127_ := string_drop _s1125_ _s1126_ in - (if ((string_startswith _s1127_ ".")) then - (match (string_drop _s1127_ (projT1 (string_length "."))) with - | _s1128_ => - (size_mnemonic_matches_prefix _s1128_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1643_ _) => + let _s1644_ := string_drop _s1642_ _s1643_ in + (if string_startswith _s1644_ "." then + (match (string_drop _s1644_ (projT1 (string_length "."))) with + | _s1645_ => + (size_mnemonic_matches_prefix _s1645_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s1129_ _)) => - (match (string_drop _s1128_ _s1129_) with - | _s1130_ => - (maybe_aq_matches_prefix _s1130_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s1646_ _) => + (match (string_drop _s1645_ _s1646_) with + | _s1647_ => + (maybe_aq_matches_prefix _s1647_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s1131_ _)) => - (match (string_drop _s1130_ _s1131_) with - | _s1132_ => - (maybe_rl_matches_prefix _s1132_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1648_ _) => + (match (string_drop _s1647_ _s1648_) with + | _s1649_ => + (maybe_rl_matches_prefix _s1649_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s1133_ _)) => - (match (string_drop _s1132_ _s1133_) with - | _s1134_ => - (spc_matches_prefix _s1134_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1650_ _) => + (match (string_drop _s1649_ _s1650_) with + | _s1651_ => + (spc_matches_prefix _s1651_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1135_ _)) => - (match (string_drop _s1134_ _s1135_) with - | _s1136_ => - (reg_name_matches_prefix _s1136_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1652_ _) => + (match (string_drop _s1651_ _s1652_) with + | _s1653_ => + (reg_name_matches_prefix _s1653_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s1137_ _)) => - (match (string_drop _s1136_ _s1137_) with - | _s1138_ => - (sep_matches_prefix _s1138_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1654_ _) => + (match (string_drop _s1653_ _s1654_) with + | _s1655_ => + (sep_matches_prefix _s1655_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1139_ _)) => - (match (string_drop _s1138_ _s1139_) with - | _s1140_ => - (reg_name_matches_prefix _s1140_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1656_ _) => + (match (string_drop _s1655_ _s1656_) with + | _s1657_ => + (reg_name_matches_prefix _s1657_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s1141_ _)) => - (match (string_drop _s1140_ - _s1141_) with - | _s1142_ => + | Some (rs2, existT _ _s1658_ _) => + (match (string_drop _s1657_ + _s1658_) with + | _s1659_ => (sep_matches_prefix - _s1142_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s1659_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s1143_ _)) => - (match (string_drop - _s1142_ - _s1143_) with - | _s1144_ => - (reg_name_matches_prefix - _s1144_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s1145_ _)) => - let p0_ := - string_drop - _s1144_ - _s1145_ in - if ((generic_eq - p0_ - "")) - then - Some - ((op, width, aq, rl, rd, rs1, rs2)) - else + (tt, existT _ _s1660_ _) => + let _s1661_ := + string_drop _s1659_ + _s1660_ in + (if string_startswith + _s1661_ "(" then + (match (string_drop + _s1661_ + (projT1 + (string_length + "("))) with + | _s1662_ => + (reg_name_matches_prefix + _s1662_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s1663_ _) => + let _s1664_ := + string_drop + _s1662_ + _s1663_ in + if string_startswith + _s1664_ + ")" + then + let p0_ := + string_drop + _s1664_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (op, width, aq, rl, rd, rs2, rs1) + else + None + else + None + | _ => None - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - end) + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1101_ (_s1102_ : string) +Definition _s1618_ (_s1619_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - let _s1103_ := _s1102_ in - (if ((string_startswith _s1103_ "sc.")) then - (match (string_drop _s1103_ (projT1 (string_length "sc."))) with - | _s1104_ => - (size_mnemonic_matches_prefix _s1104_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1620_ := _s1619_ in + (if string_startswith _s1620_ "sc." then + (match (string_drop _s1620_ (projT1 (string_length "sc."))) with + | _s1621_ => + (size_mnemonic_matches_prefix _s1621_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1105_ _)) => - (match (string_drop _s1104_ _s1105_) with - | _s1106_ => - (maybe_aq_matches_prefix _s1106_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1622_ _) => + (match (string_drop _s1621_ _s1622_) with + | _s1623_ => + (maybe_aq_matches_prefix _s1623_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1107_ _)) => - (match (string_drop _s1106_ _s1107_) with - | _s1108_ => - (maybe_rl_matches_prefix _s1108_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1624_ _) => + (match (string_drop _s1623_ _s1624_) with + | _s1625_ => + (maybe_rl_matches_prefix _s1625_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1109_ _)) => - (match (string_drop _s1108_ _s1109_) with - | _s1110_ => - (spc_matches_prefix _s1110_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1626_ _) => + (match (string_drop _s1625_ _s1626_) with + | _s1627_ => + (spc_matches_prefix _s1627_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1111_ _)) => - (match (string_drop _s1110_ _s1111_) with - | _s1112_ => - (reg_name_matches_prefix _s1112_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1628_ _) => + (match (string_drop _s1627_ _s1628_) with + | _s1629_ => + (reg_name_matches_prefix _s1629_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1113_ _)) => - (match (string_drop _s1112_ _s1113_) with - | _s1114_ => - (sep_matches_prefix _s1114_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1630_ _) => + (match (string_drop _s1629_ _s1630_) with + | _s1631_ => + (sep_matches_prefix _s1631_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1115_ _)) => - (match (string_drop _s1114_ _s1115_) with - | _s1116_ => - (reg_name_matches_prefix _s1116_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1632_ _) => + (match (string_drop _s1631_ _s1632_) with + | _s1633_ => + (reg_name_matches_prefix _s1633_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s1117_ _)) => - (match (string_drop _s1116_ _s1117_) with - | _s1118_ => - (sep_matches_prefix _s1118_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1634_ _) => + (match (string_drop _s1633_ _s1634_) with + | _s1635_ => + (sep_matches_prefix _s1635_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s1119_ _)) => - (match (string_drop _s1118_ - _s1119_) with - | _s1120_ => + | Some (tt, existT _ _s1636_ _) => + (match (string_drop _s1635_ + _s1636_) with + | _s1637_ => (reg_name_matches_prefix - _s1120_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1637_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s1121_ _)) => - let p0_ := - string_drop - _s1120_ - _s1121_ in - if ((generic_eq - p0_ "")) - then - Some - ((size, aq, rl, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__8 with + | Some + (rs2, existT _ _s1638_ _) => + let p0_ := + string_drop + _s1637_ + _s1638_ in + if generic_eq + p0_ "" + then + Some + (size, aq, rl, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1083_ (_s1084_ : string) -: M (option ((word_width * bool * bool * mword 5 * mword 5))) := - - let _s1085_ := _s1084_ in - (if ((string_startswith _s1085_ "lr.")) then - (match (string_drop _s1085_ (projT1 (string_length "lr."))) with - | _s1086_ => - (size_mnemonic_matches_prefix _s1086_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= +Definition _s1600_ (_s1601_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5))) := + let _s1602_ := _s1601_ in + (if string_startswith _s1602_ "lr." then + (match (string_drop _s1602_ (projT1 (string_length "lr."))) with + | _s1603_ => + (size_mnemonic_matches_prefix _s1603_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1087_ _)) => - (match (string_drop _s1086_ _s1087_) with - | _s1088_ => - (maybe_aq_matches_prefix _s1088_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1604_ _) => + (match (string_drop _s1603_ _s1604_) with + | _s1605_ => + (maybe_aq_matches_prefix _s1605_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1089_ _)) => - (match (string_drop _s1088_ _s1089_) with - | _s1090_ => - (maybe_rl_matches_prefix _s1090_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1606_ _) => + (match (string_drop _s1605_ _s1606_) with + | _s1607_ => + (maybe_rl_matches_prefix _s1607_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1091_ _)) => - (match (string_drop _s1090_ _s1091_) with - | _s1092_ => - (spc_matches_prefix _s1092_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1608_ _) => + (match (string_drop _s1607_ _s1608_) with + | _s1609_ => + (spc_matches_prefix _s1609_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1093_ _)) => - (match (string_drop _s1092_ _s1093_) with - | _s1094_ => - (reg_name_matches_prefix _s1094_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1610_ _) => + (match (string_drop _s1609_ _s1610_) with + | _s1611_ => + (reg_name_matches_prefix _s1611_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1095_ _)) => - (match (string_drop _s1094_ _s1095_) with - | _s1096_ => - (sep_matches_prefix _s1096_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1612_ _) => + (match (string_drop _s1611_ _s1612_) with + | _s1613_ => + (sep_matches_prefix _s1613_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1097_ _)) => - (match (string_drop _s1096_ _s1097_) with - | _s1098_ => - (reg_name_matches_prefix _s1098_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1614_ _) => + (match (string_drop _s1613_ _s1614_) with + | _s1615_ => + (reg_name_matches_prefix _s1615_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s1099_ _)) => - let p0_ := - string_drop _s1098_ _s1099_ in - if ((generic_eq p0_ "")) then - Some - ((size, aq, rl, rd, rs1)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs1, existT _ _s1616_ _) => + let p0_ := + string_drop _s1615_ _s1616_ in + if generic_eq p0_ "" then + Some (size, aq, rl, rd, rs1) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5))). -Definition _s1071_ (_s1072_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1073_ := _s1072_ in - (if ((string_startswith _s1073_ "sfence.vma")) then - (match (string_drop _s1073_ (projT1 (string_length "sfence.vma"))) with - | _s1074_ => - (spc_matches_prefix _s1074_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1588_ (_s1589_ : string) : M (option ((mword 5 * mword 5))) := + let _s1590_ := _s1589_ in + (if string_startswith _s1590_ "sfence.vma" then + (match (string_drop _s1590_ (projT1 (string_length "sfence.vma"))) with + | _s1591_ => + (spc_matches_prefix _s1591_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1075_ _)) => - (match (string_drop _s1074_ _s1075_) with - | _s1076_ => - (reg_name_matches_prefix _s1076_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1592_ _) => + (match (string_drop _s1591_ _s1592_) with + | _s1593_ => + (reg_name_matches_prefix _s1593_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s1077_ _)) => - (match (string_drop _s1076_ _s1077_) with - | _s1078_ => - (sep_matches_prefix _s1078_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1594_ _) => + (match (string_drop _s1593_ _s1594_) with + | _s1595_ => + (sep_matches_prefix _s1595_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1079_ _)) => - (match (string_drop _s1078_ _s1079_) with - | _s1080_ => - (reg_name_matches_prefix _s1080_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1596_ _) => + (match (string_drop _s1595_ _s1596_) with + | _s1597_ => + (reg_name_matches_prefix _s1597_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1081_ _)) => - let p0_ := string_drop _s1080_ _s1081_ in - if ((generic_eq p0_ "")) then Some ((rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s1598_ _) => + let p0_ := string_drop _s1597_ _s1598_ in + if generic_eq p0_ "" then Some (rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1059_ (_s1060_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1061_ := _s1060_ in - (if ((string_startswith _s1061_ "fence.tso")) then - (match (string_drop _s1061_ (projT1 (string_length "fence.tso"))) with - | _s1062_ => - (spc_matches_prefix _s1062_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1576_ (_s1577_ : string) : M (option ((mword 4 * mword 4))) := + let _s1578_ := _s1577_ in + (if string_startswith _s1578_ "fence.tso" then + (match (string_drop _s1578_ (projT1 (string_length "fence.tso"))) with + | _s1579_ => + (spc_matches_prefix _s1579_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1063_ _)) => - (match (string_drop _s1062_ _s1063_) with - | _s1064_ => - (fence_bits_matches_prefix _s1064_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1580_ _) => + (match (string_drop _s1579_ _s1580_) with + | _s1581_ => + (fence_bits_matches_prefix _s1581_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1065_ _)) => - (match (string_drop _s1064_ _s1065_) with - | _s1066_ => - (sep_matches_prefix _s1066_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s1582_ _) => + (match (string_drop _s1581_ _s1582_) with + | _s1583_ => + (sep_matches_prefix _s1583_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1067_ _)) => - (match (string_drop _s1066_ _s1067_) with - | _s1068_ => - (fence_bits_matches_prefix _s1068_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1584_ _) => + (match (string_drop _s1583_ _s1584_) with + | _s1585_ => + (fence_bits_matches_prefix _s1585_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1069_ _)) => - let p0_ := string_drop _s1068_ _s1069_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s1586_ _) => + let p0_ := string_drop _s1585_ _s1586_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1047_ (_s1048_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1049_ := _s1048_ in - (if ((string_startswith _s1049_ "fence")) then - (match (string_drop _s1049_ (projT1 (string_length "fence"))) with - | _s1050_ => - (spc_matches_prefix _s1050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1564_ (_s1565_ : string) : M (option ((mword 4 * mword 4))) := + let _s1566_ := _s1565_ in + (if string_startswith _s1566_ "fence" then + (match (string_drop _s1566_ (projT1 (string_length "fence"))) with + | _s1567_ => + (spc_matches_prefix _s1567_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1051_ _)) => - (match (string_drop _s1050_ _s1051_) with - | _s1052_ => - (fence_bits_matches_prefix _s1052_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1568_ _) => + (match (string_drop _s1567_ _s1568_) with + | _s1569_ => + (fence_bits_matches_prefix _s1569_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1053_ _)) => - (match (string_drop _s1052_ _s1053_) with - | _s1054_ => - (sep_matches_prefix _s1054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s1570_ _) => + (match (string_drop _s1569_ _s1570_) with + | _s1571_ => + (sep_matches_prefix _s1571_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1055_ _)) => - (match (string_drop _s1054_ _s1055_) with - | _s1056_ => - (fence_bits_matches_prefix _s1056_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1572_ _) => + (match (string_drop _s1571_ _s1572_) with + | _s1573_ => + (fence_bits_matches_prefix _s1573_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1057_ _)) => - let p0_ := string_drop _s1056_ _s1057_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s1574_ _) => + let p0_ := string_drop _s1573_ _s1574_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1030_ (_s1031_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5))) := - - (match _s1031_ with - | _s1032_ => - (shiftiwop_mnemonic_matches_prefix _s1032_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s1547_ (_s1548_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5))) := + (match _s1548_ with + | _s1549_ => + (shiftiwop_mnemonic_matches_prefix _s1549_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1033_ _)) => - (match (string_drop _s1032_ _s1033_) with - | _s1034_ => - (spc_matches_prefix _s1034_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1550_ _) => + (match (string_drop _s1549_ _s1550_) with + | _s1551_ => + (spc_matches_prefix _s1551_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1035_ _)) => - (match (string_drop _s1034_ _s1035_) with - | _s1036_ => - (reg_name_matches_prefix _s1036_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1552_ _) => + (match (string_drop _s1551_ _s1552_) with + | _s1553_ => + (reg_name_matches_prefix _s1553_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1037_ _)) => - (match (string_drop _s1036_ _s1037_) with - | _s1038_ => - (sep_matches_prefix _s1038_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1554_ _) => + (match (string_drop _s1553_ _s1554_) with + | _s1555_ => + (sep_matches_prefix _s1555_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1039_ _)) => - (match (string_drop _s1038_ _s1039_) with - | _s1040_ => - (reg_name_matches_prefix _s1040_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1556_ _) => + (match (string_drop _s1555_ _s1556_) with + | _s1557_ => + (reg_name_matches_prefix _s1557_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1041_ _)) => - (match (string_drop _s1040_ _s1041_) with - | _s1042_ => - (sep_matches_prefix _s1042_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1558_ _) => + (match (string_drop _s1557_ _s1558_) with + | _s1559_ => + (sep_matches_prefix _s1559_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1043_ _)) => - match (string_drop _s1042_ _s1043_) with - | _s1044_ => - match (hex_bits_5_matches_prefix - _s1044_) with - | Some ((shamt, existT _ _s1045_ _)) => - let p0_ := - string_drop _s1044_ _s1045_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s1560_ _) => + match (string_drop _s1559_ _s1560_) with + | _s1561_ => + match (hex_bits_5_matches_prefix + _s1561_) with + | Some (shamt, existT _ _s1562_ _) => + let p0_ := + string_drop _s1561_ _s1562_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))). -Definition _s1013_ (_s1014_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5))) := - - (match _s1014_ with - | _s1015_ => - (rtypew_mnemonic_matches_prefix _s1015_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s1530_ (_s1531_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5))) := + (match _s1531_ with + | _s1532_ => + (rtypew_mnemonic_matches_prefix _s1532_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1016_ _)) => - (match (string_drop _s1015_ _s1016_) with - | _s1017_ => - (spc_matches_prefix _s1017_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1533_ _) => + (match (string_drop _s1532_ _s1533_) with + | _s1534_ => + (spc_matches_prefix _s1534_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1018_ _)) => - (match (string_drop _s1017_ _s1018_) with - | _s1019_ => - (reg_name_matches_prefix _s1019_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1535_ _) => + (match (string_drop _s1534_ _s1535_) with + | _s1536_ => + (reg_name_matches_prefix _s1536_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1020_ _)) => - (match (string_drop _s1019_ _s1020_) with - | _s1021_ => - (sep_matches_prefix _s1021_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1537_ _) => + (match (string_drop _s1536_ _s1537_) with + | _s1538_ => + (sep_matches_prefix _s1538_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1022_ _)) => - (match (string_drop _s1021_ _s1022_) with - | _s1023_ => - (reg_name_matches_prefix _s1023_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1539_ _) => + (match (string_drop _s1538_ _s1539_) with + | _s1540_ => + (reg_name_matches_prefix _s1540_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1024_ _)) => - (match (string_drop _s1023_ _s1024_) with - | _s1025_ => - (sep_matches_prefix _s1025_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1541_ _) => + (match (string_drop _s1540_ _s1541_) with + | _s1542_ => + (sep_matches_prefix _s1542_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1026_ _)) => - (match (string_drop _s1025_ _s1026_) with - | _s1027_ => - (reg_name_matches_prefix _s1027_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1543_ _) => + (match (string_drop _s1542_ _s1543_) with + | _s1544_ => + (reg_name_matches_prefix _s1544_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1028_ _)) => - let p0_ := - string_drop _s1027_ _s1028_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1545_ _) => + let p0_ := + string_drop _s1544_ _s1545_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))). -Definition _s996_ (_s997_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5))) := - - (match _s997_ with - | _s998_ => - (shiftw_mnemonic_matches_prefix _s998_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s1513_ (_s1514_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5))) := + (match _s1514_ with + | _s1515_ => + (shiftw_mnemonic_matches_prefix _s1515_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s999_ _)) => - (match (string_drop _s998_ _s999_) with - | _s1000_ => - (spc_matches_prefix _s1000_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s1516_ _) => + (match (string_drop _s1515_ _s1516_) with + | _s1517_ => + (spc_matches_prefix _s1517_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1001_ _)) => - (match (string_drop _s1000_ _s1001_) with - | _s1002_ => - (reg_name_matches_prefix _s1002_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1518_ _) => + (match (string_drop _s1517_ _s1518_) with + | _s1519_ => + (reg_name_matches_prefix _s1519_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1003_ _)) => - (match (string_drop _s1002_ _s1003_) with - | _s1004_ => - (sep_matches_prefix _s1004_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1520_ _) => + (match (string_drop _s1519_ _s1520_) with + | _s1521_ => + (sep_matches_prefix _s1521_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1005_ _)) => - (match (string_drop _s1004_ _s1005_) with - | _s1006_ => - (reg_name_matches_prefix _s1006_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1522_ _) => + (match (string_drop _s1521_ _s1522_) with + | _s1523_ => + (reg_name_matches_prefix _s1523_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1007_ _)) => - (match (string_drop _s1006_ _s1007_) with - | _s1008_ => - (sep_matches_prefix _s1008_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1524_ _) => + (match (string_drop _s1523_ _s1524_) with + | _s1525_ => + (sep_matches_prefix _s1525_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1009_ _)) => - match (string_drop _s1008_ _s1009_) with - | _s1010_ => - match (hex_bits_5_matches_prefix - _s1010_) with - | Some ((shamt, existT _ _s1011_ _)) => - let p0_ := - string_drop _s1010_ _s1011_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s1526_ _) => + match (string_drop _s1525_ _s1526_) with + | _s1527_ => + match (hex_bits_5_matches_prefix + _s1527_) with + | Some (shamt, existT _ _s1528_ _) => + let p0_ := + string_drop _s1527_ _s1528_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))). -Definition _s980_ (_s981_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s982_ := _s981_ in - (if ((string_startswith _s982_ "addiw")) then - (match (string_drop _s982_ (projT1 (string_length "addiw"))) with - | _s983_ => - (spc_matches_prefix _s983_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1497_ (_s1498_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s1499_ := _s1498_ in + (if string_startswith _s1499_ "addiw" then + (match (string_drop _s1499_ (projT1 (string_length "addiw"))) with + | _s1500_ => + (spc_matches_prefix _s1500_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s984_ _)) => - (match (string_drop _s983_ _s984_) with - | _s985_ => - (reg_name_matches_prefix _s985_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1501_ _) => + (match (string_drop _s1500_ _s1501_) with + | _s1502_ => + (reg_name_matches_prefix _s1502_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s986_ _)) => - (match (string_drop _s985_ _s986_) with - | _s987_ => - (sep_matches_prefix _s987_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1503_ _) => + (match (string_drop _s1502_ _s1503_) with + | _s1504_ => + (sep_matches_prefix _s1504_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s988_ _)) => - (match (string_drop _s987_ _s988_) with - | _s989_ => - (reg_name_matches_prefix _s989_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1505_ _) => + (match (string_drop _s1504_ _s1505_) with + | _s1506_ => + (reg_name_matches_prefix _s1506_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s990_ _)) => - (match (string_drop _s989_ _s990_) with - | _s991_ => - (sep_matches_prefix _s991_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1507_ _) => + (match (string_drop _s1506_ _s1507_) with + | _s1508_ => + (sep_matches_prefix _s1508_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s992_ _)) => - match (string_drop _s991_ _s992_) with - | _s993_ => - match (hex_bits_12_matches_prefix _s993_) with - | Some ((imm, existT _ _s994_ _)) => - let p0_ := string_drop _s993_ _s994_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s1509_ _) => + match (string_drop _s1508_ _s1509_) with + | _s1510_ => + match (hex_bits_12_matches_prefix _s1510_) with + | Some (imm, existT _ _s1511_ _) => + let p0_ := string_drop _s1510_ _s1511_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s952_ (_s953_ : string) +Definition _s1469_ (_s1470_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s954_ := _s953_ in - (if ((string_startswith _s954_ "s")) then - (match (string_drop _s954_ (projT1 (string_length "s"))) with - | _s955_ => - (size_mnemonic_matches_prefix _s955_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1471_ := _s1470_ in + (if string_startswith _s1471_ "s" then + (match (string_drop _s1471_ (projT1 (string_length "s"))) with + | _s1472_ => + (size_mnemonic_matches_prefix _s1472_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s956_ _)) => - (match (string_drop _s955_ _s956_) with - | _s957_ => - (maybe_aq_matches_prefix _s957_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1473_ _) => + (match (string_drop _s1472_ _s1473_) with + | _s1474_ => + (maybe_aq_matches_prefix _s1474_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s958_ _)) => - (match (string_drop _s957_ _s958_) with - | _s959_ => - (maybe_rl_matches_prefix _s959_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1475_ _) => + (match (string_drop _s1474_ _s1475_) with + | _s1476_ => + (maybe_rl_matches_prefix _s1476_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s960_ _)) => - (match (string_drop _s959_ _s960_) with - | _s961_ => - (spc_matches_prefix _s961_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1477_ _) => + (match (string_drop _s1476_ _s1477_) with + | _s1478_ => + (spc_matches_prefix _s1478_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s962_ _)) => - (match (string_drop _s961_ _s962_) with - | _s963_ => - (reg_name_matches_prefix _s963_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1479_ _) => + (match (string_drop _s1478_ _s1479_) with + | _s1480_ => + (reg_name_matches_prefix _s1480_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s964_ _)) => - (match (string_drop _s963_ _s964_) with - | _s965_ => - (sep_matches_prefix _s965_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s1481_ _) => + (match (string_drop _s1480_ _s1481_) with + | _s1482_ => + (sep_matches_prefix _s1482_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s966_ _)) => - (match (string_drop _s965_ _s966_) with - | _s967_ => - (match (hex_bits_12_matches_prefix _s967_) with - | Some ((imm, existT _ _s968_ _)) => - (match (string_drop _s967_ _s968_) with - | _s969_ => - (opt_spc_matches_prefix _s969_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1483_ _) => + (match (string_drop _s1482_ _s1483_) with + | _s1484_ => + (match (hex_bits_12_matches_prefix _s1484_) with + | Some (imm, existT _ _s1485_ _) => + (match (string_drop _s1484_ _s1485_) with + | _s1486_ => + (opt_spc_matches_prefix _s1486_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s970_ _)) => - let _s971_ := - string_drop _s969_ _s970_ in - (if ((string_startswith _s971_ - "(")) then - (match (string_drop _s971_ + | Some (tt, existT _ _s1487_ _) => + let _s1488_ := + string_drop _s1486_ _s1487_ in + (if string_startswith _s1488_ + "(" then + (match (string_drop _s1488_ (projT1 (string_length "("))) with - | _s972_ => + | _s1489_ => (opt_spc_matches_prefix - _s972_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s1489_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s973_ _)) => + (tt, existT _ _s1490_ _) => (match (string_drop - _s972_ - _s973_) with - | _s974_ => + _s1489_ + _s1490_) with + | _s1491_ => (reg_name_matches_prefix - _s974_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1491_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s975_ _)) => + (rs1, existT _ _s1492_ _) => (match (string_drop - _s974_ - _s975_) with - | _s976_ => + _s1491_ + _s1492_) with + | _s1493_ => (opt_spc_matches_prefix - _s976_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s1493_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s977_ _)) => - let _s978_ := - string_drop - _s976_ - _s977_ in - if - ((string_startswith - _s978_ - ")")) - then - let p0_ := - string_drop - _s978_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, aq, rl, rs2, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__9 with + | Some + (tt, existT _ _s1494_ _) => + let _s1495_ := + string_drop + _s1493_ + _s1494_ in + if + string_startswith + _s1495_ + ")" + then + let p0_ := + string_drop + _s1495_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, aq, rl, rs2, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s922_ (_s923_ : string) +Definition _s1439_ (_s1440_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s924_ := _s923_ in - (if ((string_startswith _s924_ "l")) then - (match (string_drop _s924_ (projT1 (string_length "l"))) with - | _s925_ => - (size_mnemonic_matches_prefix _s925_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s1441_ := _s1440_ in + (if string_startswith _s1441_ "l" then + (match (string_drop _s1441_ (projT1 (string_length "l"))) with + | _s1442_ => + (size_mnemonic_matches_prefix _s1442_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s926_ _)) => - (match (string_drop _s925_ _s926_) with - | _s927_ => - (maybe_u_matches_prefix _s927_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s1443_ _) => + (match (string_drop _s1442_ _s1443_) with + | _s1444_ => + (maybe_u_matches_prefix _s1444_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s928_ _)) => - (match (string_drop _s927_ _s928_) with - | _s929_ => - (maybe_aq_matches_prefix _s929_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s1445_ _) => + (match (string_drop _s1444_ _s1445_) with + | _s1446_ => + (maybe_aq_matches_prefix _s1446_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s930_ _)) => - (match (string_drop _s929_ _s930_) with - | _s931_ => - (maybe_rl_matches_prefix _s931_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s1447_ _) => + (match (string_drop _s1446_ _s1447_) with + | _s1448_ => + (maybe_rl_matches_prefix _s1448_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s932_ _)) => - (match (string_drop _s931_ _s932_) with - | _s933_ => - (spc_matches_prefix _s933_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s1449_ _) => + (match (string_drop _s1448_ _s1449_) with + | _s1450_ => + (spc_matches_prefix _s1450_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s934_ _)) => - (match (string_drop _s933_ _s934_) with - | _s935_ => - (reg_name_matches_prefix _s935_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1451_ _) => + (match (string_drop _s1450_ _s1451_) with + | _s1452_ => + (reg_name_matches_prefix _s1452_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s936_ _)) => - (match (string_drop _s935_ _s936_) with - | _s937_ => - (sep_matches_prefix _s937_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1453_ _) => + (match (string_drop _s1452_ _s1453_) with + | _s1454_ => + (sep_matches_prefix _s1454_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s938_ _)) => - (match (string_drop _s937_ _s938_) with - | _s939_ => + | Some (tt, existT _ _s1455_ _) => + (match (string_drop _s1454_ _s1455_) with + | _s1456_ => (match (hex_bits_12_matches_prefix - _s939_) with - | Some ((imm, existT _ _s940_ _)) => - (match (string_drop _s939_ - _s940_) with - | _s941_ => + _s1456_) with + | Some (imm, existT _ _s1457_ _) => + (match (string_drop _s1456_ + _s1457_) with + | _s1458_ => (opt_spc_matches_prefix - _s941_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s1458_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s942_ _)) => - let _s943_ := - string_drop _s941_ - _s942_ in - (if ((string_startswith - _s943_ "(")) - then + (tt, existT _ _s1459_ _) => + let _s1460_ := + string_drop _s1458_ + _s1459_ in + (if string_startswith + _s1460_ "(" then (match (string_drop - _s943_ + _s1460_ (projT1 (string_length "("))) with - | _s944_ => + | _s1461_ => (opt_spc_matches_prefix - _s944_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s1461_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s945_ _)) => + (tt, existT _ _s1462_ _) => (match (string_drop - _s944_ - _s945_) with - | _s946_ => + _s1461_ + _s1462_) with + | _s1463_ => (reg_name_matches_prefix - _s946_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s1463_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s947_ _)) => + (rs1, existT _ _s1464_ _) => (match (string_drop - _s946_ - _s947_) with - | _s948_ => + _s1463_ + _s1464_) with + | _s1465_ => (opt_spc_matches_prefix - _s948_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s1465_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s949_ _)) => - let _s950_ := - string_drop - _s948_ - _s949_ in - if - ((string_startswith - _s950_ - ")")) - then - let p0_ := - string_drop - _s950_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__10 with + | Some + (tt, existT _ _s1466_ _) => + let _s1467_ := + string_drop + _s1465_ + _s1466_ in + if + string_startswith + _s1467_ + ")" + then + let p0_ := + string_drop + _s1467_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, is_unsigned, aq, rl, rd, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s905_ (_s906_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5))) := - - (match _s906_ with - | _s907_ => - (rtype_mnemonic_matches_prefix _s907_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s1422_ (_s1423_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5))) := + (match _s1423_ with + | _s1424_ => + (rtype_mnemonic_matches_prefix _s1424_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s908_ _)) => - (match (string_drop _s907_ _s908_) with - | _s909_ => - (spc_matches_prefix _s909_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1425_ _) => + (match (string_drop _s1424_ _s1425_) with + | _s1426_ => + (spc_matches_prefix _s1426_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s910_ _)) => - (match (string_drop _s909_ _s910_) with - | _s911_ => - (reg_name_matches_prefix _s911_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1427_ _) => + (match (string_drop _s1426_ _s1427_) with + | _s1428_ => + (reg_name_matches_prefix _s1428_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s912_ _)) => - (match (string_drop _s911_ _s912_) with - | _s913_ => - (sep_matches_prefix _s913_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1429_ _) => + (match (string_drop _s1428_ _s1429_) with + | _s1430_ => + (sep_matches_prefix _s1430_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s914_ _)) => - (match (string_drop _s913_ _s914_) with - | _s915_ => - (reg_name_matches_prefix _s915_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1431_ _) => + (match (string_drop _s1430_ _s1431_) with + | _s1432_ => + (reg_name_matches_prefix _s1432_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s916_ _)) => - (match (string_drop _s915_ _s916_) with - | _s917_ => - (sep_matches_prefix _s917_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1433_ _) => + (match (string_drop _s1432_ _s1433_) with + | _s1434_ => + (sep_matches_prefix _s1434_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s918_ _)) => - (match (string_drop _s917_ _s918_) with - | _s919_ => - (reg_name_matches_prefix _s919_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1435_ _) => + (match (string_drop _s1434_ _s1435_) with + | _s1436_ => + (reg_name_matches_prefix _s1436_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s920_ _)) => - let p0_ := - string_drop _s919_ _s920_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s1437_ _) => + let p0_ := + string_drop _s1436_ _s1437_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))). -Definition _s888_ (_s889_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6))) := - - (match _s889_ with - | _s890_ => - (shiftiop_mnemonic_matches_prefix _s890_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s1405_ (_s1406_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6))) := + (match _s1406_ with + | _s1407_ => + (shiftiop_mnemonic_matches_prefix _s1407_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s891_ _)) => - (match (string_drop _s890_ _s891_) with - | _s892_ => - (spc_matches_prefix _s892_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1408_ _) => + (match (string_drop _s1407_ _s1408_) with + | _s1409_ => + (spc_matches_prefix _s1409_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s893_ _)) => - (match (string_drop _s892_ _s893_) with - | _s894_ => - (reg_name_matches_prefix _s894_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1410_ _) => + (match (string_drop _s1409_ _s1410_) with + | _s1411_ => + (reg_name_matches_prefix _s1411_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s895_ _)) => - (match (string_drop _s894_ _s895_) with - | _s896_ => - (sep_matches_prefix _s896_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1412_ _) => + (match (string_drop _s1411_ _s1412_) with + | _s1413_ => + (sep_matches_prefix _s1413_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s897_ _)) => - (match (string_drop _s896_ _s897_) with - | _s898_ => - (reg_name_matches_prefix _s898_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1414_ _) => + (match (string_drop _s1413_ _s1414_) with + | _s1415_ => + (reg_name_matches_prefix _s1415_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s899_ _)) => - (match (string_drop _s898_ _s899_) with - | _s900_ => - (sep_matches_prefix _s900_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1416_ _) => + (match (string_drop _s1415_ _s1416_) with + | _s1417_ => + (sep_matches_prefix _s1417_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s901_ _)) => - match (string_drop _s900_ _s901_) with - | _s902_ => - match (hex_bits_6_matches_prefix - _s902_) with - | Some ((shamt, existT _ _s903_ _)) => - let p0_ := - string_drop _s902_ _s903_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6))) + returnm (match w__5 with + | Some (tt, existT _ _s1418_ _) => + match (string_drop _s1417_ _s1418_) with + | _s1419_ => + match (hex_bits_6_matches_prefix + _s1419_) with + | Some (shamt, existT _ _s1420_ _) => + let p0_ := + string_drop _s1419_ _s1420_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))). -Definition _s871_ (_s872_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12))) := - - (match _s872_ with - | _s873_ => - (itype_mnemonic_matches_prefix _s873_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s1388_ (_s1389_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12))) := + (match _s1389_ with + | _s1390_ => + (itype_mnemonic_matches_prefix _s1390_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s874_ _)) => - (match (string_drop _s873_ _s874_) with - | _s875_ => - (spc_matches_prefix _s875_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1391_ _) => + (match (string_drop _s1390_ _s1391_) with + | _s1392_ => + (spc_matches_prefix _s1392_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s876_ _)) => - (match (string_drop _s875_ _s876_) with - | _s877_ => - (reg_name_matches_prefix _s877_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1393_ _) => + (match (string_drop _s1392_ _s1393_) with + | _s1394_ => + (reg_name_matches_prefix _s1394_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s878_ _)) => - (match (string_drop _s877_ _s878_) with - | _s879_ => - (sep_matches_prefix _s879_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1395_ _) => + (match (string_drop _s1394_ _s1395_) with + | _s1396_ => + (sep_matches_prefix _s1396_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s880_ _)) => - (match (string_drop _s879_ _s880_) with - | _s881_ => - (reg_name_matches_prefix _s881_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1397_ _) => + (match (string_drop _s1396_ _s1397_) with + | _s1398_ => + (reg_name_matches_prefix _s1398_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s882_ _)) => - (match (string_drop _s881_ _s882_) with - | _s883_ => - (sep_matches_prefix _s883_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1399_ _) => + (match (string_drop _s1398_ _s1399_) with + | _s1400_ => + (sep_matches_prefix _s1400_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s884_ _)) => - match (string_drop _s883_ _s884_) with - | _s885_ => - match (hex_bits_12_matches_prefix - _s885_) with - | Some ((imm, existT _ _s886_ _)) => - let p0_ := - string_drop _s885_ _s886_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12))) + returnm (match w__5 with + | Some (tt, existT _ _s1401_ _) => + match (string_drop _s1400_ _s1401_) with + | _s1402_ => + match (hex_bits_12_matches_prefix + _s1402_) with + | Some (imm, existT _ _s1403_ _) => + let p0_ := + string_drop _s1402_ _s1403_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))). -Definition _s854_ (_s855_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13))) := - - (match _s855_ with - | _s856_ => - (btype_mnemonic_matches_prefix _s856_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s1371_ (_s1372_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13))) := + (match _s1372_ with + | _s1373_ => + (btype_mnemonic_matches_prefix _s1373_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s857_ _)) => - (match (string_drop _s856_ _s857_) with - | _s858_ => - (spc_matches_prefix _s858_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1374_ _) => + (match (string_drop _s1373_ _s1374_) with + | _s1375_ => + (spc_matches_prefix _s1375_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s859_ _)) => - (match (string_drop _s858_ _s859_) with - | _s860_ => - (reg_name_matches_prefix _s860_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1376_ _) => + (match (string_drop _s1375_ _s1376_) with + | _s1377_ => + (reg_name_matches_prefix _s1377_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s861_ _)) => - (match (string_drop _s860_ _s861_) with - | _s862_ => - (sep_matches_prefix _s862_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1378_ _) => + (match (string_drop _s1377_ _s1378_) with + | _s1379_ => + (sep_matches_prefix _s1379_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s863_ _)) => - (match (string_drop _s862_ _s863_) with - | _s864_ => - (reg_name_matches_prefix _s864_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1380_ _) => + (match (string_drop _s1379_ _s1380_) with + | _s1381_ => + (reg_name_matches_prefix _s1381_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s865_ _)) => - (match (string_drop _s864_ _s865_) with - | _s866_ => - (sep_matches_prefix _s866_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s1382_ _) => + (match (string_drop _s1381_ _s1382_) with + | _s1383_ => + (sep_matches_prefix _s1383_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s867_ _)) => - match (string_drop _s866_ _s867_) with - | _s868_ => - match (hex_bits_13_matches_prefix - _s868_) with - | Some ((imm, existT _ _s869_ _)) => - let p0_ := - string_drop _s868_ _s869_ in - if ((generic_eq p0_ "")) then - Some - ((op, rs1, rs2, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13))) + returnm (match w__5 with + | Some (tt, existT _ _s1384_ _) => + match (string_drop _s1383_ _s1384_) with + | _s1385_ => + match (hex_bits_13_matches_prefix + _s1385_) with + | Some (imm, existT _ _s1386_ _) => + let p0_ := + string_drop _s1385_ _s1386_ in + if generic_eq p0_ "" then + Some (op, rs1, rs2, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))). -Definition _s838_ (_s839_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s840_ := _s839_ in - (if ((string_startswith _s840_ "jalr")) then - (match (string_drop _s840_ (projT1 (string_length "jalr"))) with - | _s841_ => - (spc_matches_prefix _s841_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1355_ (_s1356_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s1357_ := _s1356_ in + (if string_startswith _s1357_ "jalr" then + (match (string_drop _s1357_ (projT1 (string_length "jalr"))) with + | _s1358_ => + (spc_matches_prefix _s1358_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s842_ _)) => - (match (string_drop _s841_ _s842_) with - | _s843_ => - (reg_name_matches_prefix _s843_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1359_ _) => + (match (string_drop _s1358_ _s1359_) with + | _s1360_ => + (reg_name_matches_prefix _s1360_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s844_ _)) => - (match (string_drop _s843_ _s844_) with - | _s845_ => - (sep_matches_prefix _s845_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1361_ _) => + (match (string_drop _s1360_ _s1361_) with + | _s1362_ => + (sep_matches_prefix _s1362_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s846_ _)) => - (match (string_drop _s845_ _s846_) with - | _s847_ => - (reg_name_matches_prefix _s847_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1363_ _) => + (match (string_drop _s1362_ _s1363_) with + | _s1364_ => + (reg_name_matches_prefix _s1364_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s848_ _)) => - (match (string_drop _s847_ _s848_) with - | _s849_ => - (sep_matches_prefix _s849_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s1365_ _) => + (match (string_drop _s1364_ _s1365_) with + | _s1366_ => + (sep_matches_prefix _s1366_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s850_ _)) => - match (string_drop _s849_ _s850_) with - | _s851_ => - match (hex_bits_12_matches_prefix _s851_) with - | Some ((imm, existT _ _s852_ _)) => - let p0_ := string_drop _s851_ _s852_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s1367_ _) => + match (string_drop _s1366_ _s1367_) with + | _s1368_ => + match (hex_bits_12_matches_prefix _s1368_) with + | Some (imm, existT _ _s1369_ _) => + let p0_ := string_drop _s1368_ _s1369_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s826_ (_s827_ : string) -: M (option ((mword 5 * mword 21))) := - - let _s828_ := _s827_ in - (if ((string_startswith _s828_ "jal")) then - (match (string_drop _s828_ (projT1 (string_length "jal"))) with - | _s829_ => - (spc_matches_prefix _s829_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s1343_ (_s1344_ : string) : M (option ((mword 5 * mword 21))) := + let _s1345_ := _s1344_ in + (if string_startswith _s1345_ "jal" then + (match (string_drop _s1345_ (projT1 (string_length "jal"))) with + | _s1346_ => + (spc_matches_prefix _s1346_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s830_ _)) => - (match (string_drop _s829_ _s830_) with - | _s831_ => - (reg_name_matches_prefix _s831_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1347_ _) => + (match (string_drop _s1346_ _s1347_) with + | _s1348_ => + (reg_name_matches_prefix _s1348_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s832_ _)) => - (match (string_drop _s831_ _s832_) with - | _s833_ => - (sep_matches_prefix _s833_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1349_ _) => + (match (string_drop _s1348_ _s1349_) with + | _s1350_ => + (sep_matches_prefix _s1350_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s834_ _)) => - match (string_drop _s833_ _s834_) with - | _s835_ => - match (hex_bits_21_matches_prefix _s835_) with - | Some ((imm, existT _ _s836_ _)) => - let p0_ := string_drop _s835_ _s836_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21))) + returnm (match w__2 with + | Some (tt, existT _ _s1351_ _) => + match (string_drop _s1350_ _s1351_) with + | _s1352_ => + match (hex_bits_21_matches_prefix _s1352_) with + | Some (imm, existT _ _s1353_ _) => + let p0_ := string_drop _s1352_ _s1353_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - else returnm (None : option ((mword 5 * mword 21)))) + else returnm None) : M (option ((mword 5 * mword 21))). -Definition _s813_ (_s814_ : string) -: M (option ((uop * mword 5 * mword 20))) := - - (match _s814_ with - | _s815_ => - (utype_mnemonic_matches_prefix _s815_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s1330_ (_s1331_ : string) : M (option ((uop * mword 5 * mword 20))) := + (match _s1331_ with + | _s1332_ => + (utype_mnemonic_matches_prefix _s1332_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s816_ _)) => - (match (string_drop _s815_ _s816_) with - | _s817_ => - (spc_matches_prefix _s817_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= 0)})) => + | Some (op, existT _ _s1333_ _) => + (match (string_drop _s1332_ _s1333_) with + | _s1334_ => + (spc_matches_prefix _s1334_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => (match w__1 with - | Some ((tt, existT _ _s818_ _)) => - (match (string_drop _s817_ _s818_) with - | _s819_ => - (reg_name_matches_prefix _s819_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s1335_ _) => + (match (string_drop _s1334_ _s1335_) with + | _s1336_ => + (reg_name_matches_prefix _s1336_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s820_ _)) => - (match (string_drop _s819_ _s820_) with - | _s821_ => - (sep_matches_prefix _s821_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s1337_ _) => + (match (string_drop _s1336_ _s1337_) with + | _s1338_ => + (sep_matches_prefix _s1338_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s822_ _)) => - match (string_drop _s821_ _s822_) with - | _s823_ => - match (hex_bits_20_matches_prefix _s823_) with - | Some ((imm, existT _ _s824_ _)) => - let p0_ := string_drop _s823_ _s824_ in - if ((generic_eq p0_ "")) then Some ((op, rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20))) + returnm (match w__3 with + | Some (tt, existT _ _s1339_ _) => + match (string_drop _s1338_ _s1339_) with + | _s1340_ => + match (hex_bits_20_matches_prefix _s1340_) with + | Some (imm, existT _ _s1341_ _) => + let p0_ := string_drop _s1340_ _s1341_ in + if generic_eq p0_ "" then Some (op, rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))). -Definition assembly_backwards (arg_ : string) -: M (ast) := - - let _s825_ := arg_ in - (_s813_ _s825_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => - (if ((match w__0 with | Some ((op, rd, imm)) => true | _ => false end)) then - (_s813_ _s825_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => +Definition assembly_backwards (arg_ : string) : M (ast) := + let _s1342_ := arg_ in + (_s1330_ _s1342_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => + (if match w__0 with | Some (op, rd, imm) => true | _ => false end then + (_s1330_ _s1342_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => (match w__1 with - | Some ((op, rd, imm)) => returnm ((UTYPE ((imm, rd, op))) : ast ) + | Some (op, rd, imm) => returnm (UTYPE (imm, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s826_ _s825_) >>= fun w__4 : option ((mword 5 * mword 21)) => - (if ((match w__4 with | Some ((rd, imm)) => true | _ => false end)) then - (_s826_ _s825_) >>= fun w__5 : option ((mword 5 * mword 21)) => + (_s1343_ _s1342_) >>= fun w__4 : option ((mword 5 * mword 21)) => + (if match w__4 with | Some (rd, imm) => true | _ => false end then + (_s1343_ _s1342_) >>= fun w__5 : option ((mword 5 * mword 21)) => (match w__5 with - | Some ((rd, imm)) => returnm ((RISCV_JAL ((imm, rd))) : ast ) + | Some (rd, imm) => returnm (RISCV_JAL (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s838_ _s825_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__8 with | Some ((rd, rs1, imm)) => true | _ => false end)) then - (_s838_ _s825_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => + (_s1355_ _s1342_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__8 with | Some (rd, rs1, imm) => true | _ => false end then + (_s1355_ _s1342_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => (match w__9 with - | Some ((rd, rs1, imm)) => returnm ((RISCV_JALR ((imm, rs1, rd))) : ast ) + | Some (rd, rs1, imm) => returnm (RISCV_JALR (imm, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s854_ _s825_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm)) => true | _ => false end)) then - (_s854_ _s825_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => + (_s1371_ _s1342_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => + (if match w__12 with | Some (op, rs1, rs2, imm) => true | _ => false end then + (_s1371_ _s1342_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => (match w__13 with - | Some ((op, rs1, rs2, imm)) => returnm ((BTYPE ((imm, rs2, rs1, op))) : ast ) + | Some (op, rs1, rs2, imm) => returnm (BTYPE (imm, rs2, rs1, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s871_ _s825_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm)) => true | _ => false end)) then - (_s871_ _s825_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => + (_s1388_ _s1342_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => + (if match w__16 with | Some (op, rd, rs1, imm) => true | _ => false end then + (_s1388_ _s1342_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => (match w__17 with - | Some ((op, rd, rs1, imm)) => returnm ((ITYPE ((imm, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, imm) => returnm (ITYPE (imm, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s888_ _s825_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt)) => true | _ => false end)) - then - (_s888_ _s825_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => + (_s1405_ _s1342_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => + (if match w__20 with | Some (op, rd, rs1, shamt) => true | _ => false end then + (_s1405_ _s1342_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => (match w__21 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTIOP ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => returnm (SHIFTIOP (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s905_ _s825_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2)) => true | _ => false end)) - then - (_s905_ _s825_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => + (_s1422_ _s1342_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => + (if match w__24 with | Some (op, rd, rs1, rs2) => true | _ => false end then + (_s1422_ _s1342_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => (match w__25 with - | Some ((op, rd, rs1, rs2)) => - returnm ((RTYPE ((rs2, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, rs2) => returnm (RTYPE (rs2, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s922_ _s825_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => true - | _ => false - end)) then - (_s922_ _s825_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s1439_ _s1342_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => true + | _ => false + end then + (_s1439_ _s1342_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => - returnm ((LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl))) : ast ) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => + returnm (LOAD (imm, rs1, rd, is_unsigned, size, aq, rl)) | _ => exit tt : M (ast) end) : M (ast) else - (_s952_ _s825_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1)) => true - | _ => false - end)) then - (_s952_ _s825_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s1469_ _s1342_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1) => true + | _ => false + end then + (_s1469_ _s1342_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1)) => - returnm ((STORE ((imm, rs2, rs1, size, aq, rl))) : ast ) + | Some (size, aq, rl, rs2, imm, rs1) => + returnm (STORE (imm, rs2, rs1, size, aq, rl)) | _ => exit tt : M (ast) end) : M (ast) else - (_s980_ _s825_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__36 with - | Some ((rd, rs1, imm)) => Z.eqb 64 64 - | _ => false - end)) then - (_s980_ _s825_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => + (_s1497_ _s1342_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__36 with + | Some (rd, rs1, imm) => Z.eqb 64 64 + | _ => false + end then + (_s1497_ _s1342_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => (match w__37 with - | Some ((rd, rs1, imm)) => - returnm ((ADDIW ((imm, rs1, rd))) : ast ) + | Some (rd, rs1, imm) => returnm (ADDIW (imm, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s996_ _s825_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 64 64 - | _ => false - end)) then - (_s996_ _s825_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => + (_s1513_ _s1342_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => + (if match w__40 with + | Some (op, rd, rs1, shamt) => Z.eqb 64 64 + | _ => false + end then + (_s1513_ _s1342_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => (match w__41 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTW ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => + returnm (SHIFTW (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1013_ _s825_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1013_ _s825_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (_s1530_ _s1342_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (if match w__44 with + | Some (op, rd, rs1, rs2) => Z.eqb 64 64 + | _ => false + end then + (_s1530_ _s1342_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => (match w__45 with - | Some ((op, rd, rs1, rs2)) => - returnm ((RTYPEW ((rs2, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, rs2) => + returnm (RTYPEW (rs2, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1030_ _s825_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1030_ _s825_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (_s1547_ _s1342_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (if match w__48 with + | Some (op, rd, rs1, shamt) => Z.eqb 64 64 + | _ => false + end then + (_s1547_ _s1342_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => (match w__49 with - | Some ((op, rd, rs1, shamt)) => - returnm ((SHIFTIWOP ((shamt, rs1, rd, op))) : ast ) + | Some (op, rd, rs1, shamt) => + returnm (SHIFTIWOP (shamt, rs1, rd, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1047_ _s825_) >>= fun w__52 : option ((mword 4 * mword 4)) => - (if ((match w__52 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1047_ _s825_) >>= fun w__53 : option ((mword 4 * mword 4)) => + (_s1564_ _s1342_) >>= fun w__52 : option ((mword 4 * mword 4)) => + (if match w__52 with + | Some (pred, succ) => true + | _ => false + end then + (_s1564_ _s1342_) >>= fun w__53 : option ((mword 4 * mword 4)) => (match w__53 with - | Some ((pred, succ)) => - returnm ((FENCE ((pred, succ))) : ast ) + | Some (pred, succ) => returnm (FENCE (pred, succ)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1059_ _s825_) >>= fun w__56 : option ((mword 4 * mword 4)) => - (if ((match w__56 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1059_ _s825_) >>= fun w__57 : option ((mword 4 * mword 4)) => + (_s1576_ _s1342_) >>= fun w__56 : option ((mword 4 * mword 4)) => + (if match w__56 with + | Some (pred, succ) => true + | _ => false + end then + (_s1576_ _s1342_) >>= fun w__57 : option ((mword 4 * mword 4)) => (match w__57 with - | Some ((pred, succ)) => - returnm ((FENCE_TSO ((pred, succ))) : ast ) + | Some (pred, succ) => + returnm (FENCE_TSO (pred, succ)) | _ => exit tt : M (ast) end) : M (ast) - else if ((generic_eq _s825_ "fence.i")) then - returnm ((FENCEI - (tt)) - : ast ) - else if ((generic_eq _s825_ "ecall")) then - returnm ((ECALL - (tt)) - : ast ) - else if ((generic_eq _s825_ "mret")) then - returnm ((MRET - (tt)) - : ast ) - else if ((generic_eq _s825_ "sret")) then - returnm ((SRET - (tt)) - : ast ) - else if ((generic_eq _s825_ "ebreak")) then - returnm ((EBREAK - (tt)) - : ast ) - else if ((generic_eq _s825_ "wfi")) then - returnm ((WFI - (tt)) - : ast ) + else if generic_eq _s1342_ "fence.i" then + returnm (FENCEI tt) + else if generic_eq _s1342_ "ecall" then + returnm (ECALL tt) + else if generic_eq _s1342_ "mret" then + returnm (MRET tt) + else if generic_eq _s1342_ "sret" then + returnm (SRET tt) + else if generic_eq _s1342_ "ebreak" then + returnm (EBREAK tt) + else if generic_eq _s1342_ "wfi" then returnm (WFI tt) else - (_s1071_ _s825_) >>= fun w__60 : option ((mword 5 * mword 5)) => - (if ((match w__60 with - | Some ((rs1, rs2)) => true - | _ => false - end)) then - (_s1071_ _s825_) >>= fun w__61 : option ((mword 5 * mword 5)) => + (_s1588_ _s1342_) >>= fun w__60 : option ((mword 5 * mword 5)) => + (if match w__60 with + | Some (rs1, rs2) => true + | _ => false + end then + (_s1588_ _s1342_) >>= fun w__61 : option ((mword 5 * mword 5)) => (match w__61 with - | Some ((rs1, rs2)) => - returnm ((SFENCE_VMA ((rs1, rs2))) : ast ) + | Some (rs1, rs2) => + returnm (SFENCE_VMA (rs1, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1083_ _s825_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => - (if ((match w__64 with - | Some ((size, aq, rl, rd, rs1)) => true - | _ => false - end)) then - (_s1083_ _s825_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (_s1600_ _s1342_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (if match w__64 with + | Some (size, aq, rl, rd, rs1) => true + | _ => false + end then + (_s1600_ _s1342_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => (match w__65 with - | Some ((size, aq, rl, rd, rs1)) => - returnm ((LOADRES - ((aq, rl, rs1, size, rd))) - : ast ) + | Some (size, aq, rl, rd, rs1) => + returnm (LOADRES (aq, rl, rs1, size, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1101_ _s825_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__68 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1101_ _s825_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1618_ _s1342_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__68 with + | Some (size, aq, rl, rd, rs1, rs2) => + true + | _ => false + end then + (_s1618_ _s1342_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__69 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - returnm ((STORECON - ((aq, rl, rs2, rs1, size, rd))) - : ast ) + | Some (size, aq, rl, rd, rs1, rs2) => + returnm (STORECON + (aq, rl, rs2, rs1, size, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1123_ _s825_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__72 with - | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1123_ _s825_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s1640_ _s1342_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__72 with + | Some + (op, width, aq, rl, rd, rs2, rs1) => + true + | _ => false + end then + (_s1640_ _s1342_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__73 with | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - returnm ((AMO - ((op, aq, rl, rs2, rs1, width, rd))) - : ast ) + (op, width, aq, rl, rd, rs2, rs1) => + returnm (AMO + (op, aq, rl, rs2, rs1, width, rd)) | _ => exit tt : M (ast) end) : M (ast) - else if ((generic_eq _s825_ "c.nop")) then - returnm ((C_NOP - (tt)) - : ast ) + else if generic_eq _s1342_ "c.nop" then + returnm (C_NOP tt) else - (_s1147_ _s825_) >>= fun w__76 : option ((mword 3 * mword 8)) => - (if ((match w__76 with - | Some ((rdc, nzimm)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s1147_ _s825_) >>= fun w__77 : option ((mword 3 * mword 8)) => + (_s1666_ _s1342_) >>= fun w__76 : option ((mword 3 * mword 8)) => + (if match w__76 with + | Some (rdc, nzimm) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s1666_ _s1342_) >>= fun w__77 : option ((mword 3 * mword 8)) => (match w__77 with - | Some ((rdc, nzimm)) => - returnm ((C_ADDI4SPN - ((rdc, nzimm))) - : ast ) + | Some (rdc, nzimm) => + returnm (C_ADDI4SPN (rdc, nzimm)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1159_ _s825_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__80 with - | Some ((rdc, rsc, uimm)) => - true - | _ => false - end)) then - (_s1159_ _s825_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => + (_s1678_ _s1342_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__80 with + | Some (rdc, rsc, uimm) => true + | _ => false + end then + (_s1678_ _s1342_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => (match w__81 with - | Some ((rdc, rsc, uimm)) => - returnm ((C_LW - ((uimm, rsc, rdc))) - : ast ) + | Some (rdc, rsc, uimm) => + returnm (C_LW (uimm, rsc, rdc)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1175_ _s825_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__84 with - | Some ((rdc, rsc, uimm)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s1175_ _s825_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => + (_s1694_ _s1342_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__84 with + | Some (rdc, rsc, uimm) => + Z.eqb 64 64 + | _ => false + end then + (_s1694_ _s1342_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => (match w__85 with - | Some ((rdc, rsc, uimm)) => - returnm ((C_LD - ((uimm, rsc, rdc))) - : ast ) + | Some (rdc, rsc, uimm) => + returnm (C_LD + (uimm, rsc, rdc)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1191_ _s825_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__88 with - | Some - ((rsc1, rsc2, uimm)) => - true - | _ => false - end)) then - (_s1191_ _s825_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => + (_s1710_ _s1342_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__88 with + | Some (rsc1, rsc2, uimm) => + true + | _ => false + end then + (_s1710_ _s1342_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => (match w__89 with - | Some ((rsc1, rsc2, uimm)) => - returnm ((C_SW - ((uimm, rsc1, rsc2))) - : ast ) + | Some (rsc1, rsc2, uimm) => + returnm (C_SW + (uimm, rsc1, rsc2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1207_ _s825_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__92 with - | Some - ((rsc1, rsc2, uimm)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s1207_ _s825_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => + (_s1726_ _s1342_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__92 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb 64 64 + | _ => false + end then + (_s1726_ _s1342_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => (match w__93 with | Some - ((rsc1, rsc2, uimm)) => - returnm ((C_SD - ((uimm, rsc1, rsc2))) - : ast ) + (rsc1, rsc2, uimm) => + returnm (C_SD + (uimm, rsc1, rsc2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1223_ _s825_) >>= fun w__96 : option ((mword 5 * mword 6)) => - (if ((match w__96 with - | Some ((rsd, nzi)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s1223_ _s825_) >>= fun w__97 : option ((mword 5 * mword 6)) => + (_s1742_ _s1342_) >>= fun w__96 : option ((mword 5 * mword 6)) => + (if match w__96 with + | Some (rsd, nzi) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s1742_ _s1342_) >>= fun w__97 : option ((mword 5 * mword 6)) => (match w__97 with - | Some ((rsd, nzi)) => - returnm ((C_ADDI - ((nzi, rsd))) - : ast ) + | Some (rsd, nzi) => + returnm (C_ADDI + (nzi, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1235_ _s825_) >>= fun w__100 : option (mword 11) => - (if ((match w__100 with - | Some (imm) => - Z.eqb 64 32 - | _ => false - end)) then - (_s1235_ _s825_) >>= fun w__101 : option (mword 11) => + (_s1754_ _s1342_) >>= fun w__100 : option (mword 11) => + (if match w__100 with + | Some imm => + Z.eqb 64 32 + | _ => false + end then + (_s1754_ _s1342_) >>= fun w__101 : option (mword 11) => (match w__101 with - | Some (imm) => - returnm ((C_JAL - (imm)) - : ast ) + | Some imm => + returnm (C_JAL + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1243_ _s825_) >>= fun w__104 : option ((mword 5 * mword 6)) => - (if ((match w__104 with - | Some - ((rsd, imm)) => - Z.eqb 64 - 64 - | _ => false - end)) then - (_s1243_ _s825_) >>= fun w__105 : option ((mword 5 * mword 6)) => + (_s1762_ _s1342_) >>= fun w__104 : option ((mword 5 * mword 6)) => + (if match w__104 with + | Some + (rsd, imm) => + Z.eqb 64 64 + | _ => false + end then + (_s1762_ _s1342_) >>= fun w__105 : option ((mword 5 * mword 6)) => (match w__105 with | Some - ((rsd, imm)) => - returnm ((C_ADDIW - ((imm, rsd))) - : ast ) + (rsd, imm) => + returnm (C_ADDIW + (imm, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1255_ _s825_) >>= fun w__108 : option ((mword 5 * mword 6)) => - (if ((match w__108 with - | Some - ((rd, imm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s1255_ - _s825_) >>= fun w__109 : option ((mword 5 * mword 6)) => + (_s1774_ _s1342_) >>= fun w__108 : option ((mword 5 * mword 6)) => + (if match w__108 with + | Some + (rd, imm) => + neq_vec + rd zreg + | _ => false + end then + (_s1774_ + _s1342_) >>= fun w__109 : option ((mword 5 * mword 6)) => (match w__109 with | Some - ((rd, imm)) => - returnm ((C_LI - ((imm, rd))) - : ast ) + (rd, imm) => + returnm (C_LI + (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1267_ - _s825_) >>= fun w__112 : option (mword 6) => - (if ((match w__112 with - | Some - (imm) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s1267_ - _s825_) >>= fun w__113 : option (mword 6) => + (_s1786_ + _s1342_) >>= fun w__112 : option (mword 6) => + (if match w__112 with + | Some + imm => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s1786_ + _s1342_) >>= fun w__113 : option (mword 6) => (match w__113 with | Some - (imm) => - returnm ((C_ADDI16SP - (imm)) - : ast ) + imm => + returnm (C_ADDI16SP + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1275_ - _s825_) >>= fun w__116 : option ((mword 5 * mword 6)) => - (if ((match w__116 with - | Some - ((rd, imm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s1794_ + _s1342_) >>= fun w__116 : option ((mword 5 * mword 6)) => + (if match w__116 with + | Some + (rd, imm) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s1275_ - _s825_) >>= fun w__117 : option ((mword 5 * mword 6)) => + (_s1794_ + _s1342_) >>= fun w__117 : option ((mword 5 * mword 6)) => (match w__117 with | Some - ((rd, imm)) => - returnm ((C_LUI - ((imm, rd))) - : ast ) + (rd, imm) => + returnm (C_LUI + (imm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1287_ - _s825_) >>= fun w__120 : option ((mword 3 * mword 6)) => - (if ((match w__120 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s1806_ + _s1342_) >>= fun w__120 : option ((mword 3 * mword 6)) => + (if match w__120 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s1287_ - _s825_) >>= fun w__121 : option ((mword 3 * mword 6)) => + (_s1806_ + _s1342_) >>= fun w__121 : option ((mword 3 * mword 6)) => (match w__121 with | Some - ((rsd, shamt)) => - returnm ((C_SRLI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SRLI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1299_ - _s825_) >>= fun w__124 : option ((mword 3 * mword 6)) => - (if ((match w__124 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s1818_ + _s1342_) >>= fun w__124 : option ((mword 3 * mword 6)) => + (if match w__124 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s1299_ - _s825_) >>= fun w__125 : option ((mword 3 * mword 6)) => + (_s1818_ + _s1342_) >>= fun w__125 : option ((mword 3 * mword 6)) => (match w__125 with | Some - ((rsd, shamt)) => - returnm ((C_SRAI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SRAI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1311_ - _s825_) >>= fun w__128 : option ((mword 3 * mword 6)) => + (_s1830_ + _s1342_) >>= fun w__128 : option ((mword 3 * mword 6)) => (if - ((match w__128 with - | Some - ((rsd, imm)) => - true - | _ => - false - end)) + match w__128 with + | Some + (rsd, imm) => + true + | _ => + false + end then - (_s1311_ - _s825_) >>= fun w__129 : option ((mword 3 * mword 6)) => + (_s1830_ + _s1342_) >>= fun w__129 : option ((mword 3 * mword 6)) => (match w__129 with | Some - ((rsd, imm)) => - returnm ((C_ANDI - ((imm, rsd))) - : ast ) + (rsd, imm) => + returnm (C_ANDI + (imm, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1323_ - _s825_) >>= fun w__132 : option ((mword 3 * mword 3)) => + (_s1842_ + _s1342_) >>= fun w__132 : option ((mword 3 * mword 3)) => (if - ((match w__132 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__132 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1323_ - _s825_) >>= fun w__133 : option ((mword 3 * mword 3)) => + (_s1842_ + _s1342_) >>= fun w__133 : option ((mword 3 * mword 3)) => (match w__133 with | Some - ((rsd, rs2)) => - returnm ((C_SUB - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_SUB + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1335_ - _s825_) >>= fun w__136 : option ((mword 3 * mword 3)) => + (_s1854_ + _s1342_) >>= fun w__136 : option ((mword 3 * mword 3)) => (if - ((match w__136 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__136 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1335_ - _s825_) >>= fun w__137 : option ((mword 3 * mword 3)) => + (_s1854_ + _s1342_) >>= fun w__137 : option ((mword 3 * mword 3)) => (match w__137 with | Some - ((rsd, rs2)) => - returnm ((C_XOR - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_XOR + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1347_ - _s825_) >>= fun w__140 : option ((mword 3 * mword 3)) => + (_s1866_ + _s1342_) >>= fun w__140 : option ((mword 3 * mword 3)) => (if - ((match w__140 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__140 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1347_ - _s825_) >>= fun w__141 : option ((mword 3 * mword 3)) => + (_s1866_ + _s1342_) >>= fun w__141 : option ((mword 3 * mword 3)) => (match w__141 with | Some - ((rsd, rs2)) => - returnm ((C_OR - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_OR + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1359_ - _s825_) >>= fun w__144 : option ((mword 3 * mword 3)) => + (_s1878_ + _s1342_) >>= fun w__144 : option ((mword 3 * mword 3)) => (if - ((match w__144 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__144 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s1359_ - _s825_) >>= fun w__145 : option ((mword 3 * mword 3)) => + (_s1878_ + _s1342_) >>= fun w__145 : option ((mword 3 * mword 3)) => (match w__145 with | Some - ((rsd, rs2)) => - returnm ((C_AND - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_AND + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1371_ - _s825_) >>= fun w__148 : option ((mword 3 * mword 3)) => + (_s1890_ + _s1342_) >>= fun w__148 : option ((mword 3 * mword 3)) => (if - ((match w__148 with - | Some - ((rsd, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__148 with + | Some + (rsd, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1371_ - _s825_) >>= fun w__149 : option ((mword 3 * mword 3)) => + (_s1890_ + _s1342_) >>= fun w__149 : option ((mword 3 * mword 3)) => (match w__149 with | Some - ((rsd, rs2)) => - returnm ((C_SUBW - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_SUBW + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1383_ - _s825_) >>= fun w__152 : option ((mword 3 * mword 3)) => + (_s1902_ + _s1342_) >>= fun w__152 : option ((mword 3 * mword 3)) => (if - ((match w__152 with - | Some - ((rsd, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__152 with + | Some + (rsd, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1383_ - _s825_) >>= fun w__153 : option ((mword 3 * mword 3)) => + (_s1902_ + _s1342_) >>= fun w__153 : option ((mword 3 * mword 3)) => (match w__153 with | Some - ((rsd, rs2)) => - returnm ((C_ADDW - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_ADDW + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1395_ - _s825_) >>= fun w__156 : option (mword 11) => + (_s1914_ + _s1342_) >>= fun w__156 : option (mword 11) => (if - ((match w__156 with - | Some - (imm) => - true - | _ => - false - end)) + match w__156 with + | Some + imm => + true + | _ => + false + end then - (_s1395_ - _s825_) >>= fun w__157 : option (mword 11) => + (_s1914_ + _s1342_) >>= fun w__157 : option (mword 11) => (match w__157 with | Some - (imm) => - returnm ((C_J - (imm)) - : ast ) + imm => + returnm (C_J + imm) | _ => exit tt : M (ast) end) : M (ast) else - (_s1403_ - _s825_) >>= fun w__160 : option ((mword 3 * mword 8)) => + (_s1922_ + _s1342_) >>= fun w__160 : option ((mword 3 * mword 8)) => (if - ((match w__160 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__160 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s1403_ - _s825_) >>= fun w__161 : option ((mword 3 * mword 8)) => + (_s1922_ + _s1342_) >>= fun w__161 : option ((mword 3 * mword 8)) => (match w__161 with | Some - ((rs, imm)) => - returnm ((C_BEQZ - ((imm, rs))) - : ast ) + (rs, imm) => + returnm (C_BEQZ + (imm, rs)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1415_ - _s825_) >>= fun w__164 : option ((mword 3 * mword 8)) => + (_s1934_ + _s1342_) >>= fun w__164 : option ((mword 3 * mword 8)) => (if - ((match w__164 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__164 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s1415_ - _s825_) >>= fun w__165 : option ((mword 3 * mword 8)) => + (_s1934_ + _s1342_) >>= fun w__165 : option ((mword 3 * mword 8)) => (match w__165 with | Some - ((rs, imm)) => - returnm ((C_BNEZ - ((imm, rs))) - : ast ) + (rs, imm) => + returnm (C_BNEZ + (imm, rs)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1427_ - _s825_) >>= fun w__168 : option ((mword 5 * mword 6)) => + (_s1946_ + _s1342_) >>= fun w__168 : option ((mword 5 * mword 6)) => (if - ((match w__168 with - | Some - ((rsd, shamt)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__168 with + | Some + (rsd, shamt) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s1427_ - _s825_) >>= fun w__169 : option ((mword 5 * mword 6)) => + (_s1946_ + _s1342_) >>= fun w__169 : option ((mword 5 * mword 6)) => (match w__169 with | Some - ((rsd, shamt)) => - returnm ((C_SLLI - ((shamt, rsd))) - : ast ) + (rsd, shamt) => + returnm (C_SLLI + (shamt, rsd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1439_ - _s825_) >>= fun w__172 : option ((mword 5 * mword 6)) => + (_s1958_ + _s1342_) >>= fun w__172 : option ((mword 5 * mword 6)) => (if - ((match w__172 with - | Some - ((rd, uimm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__172 with + | Some + (rd, uimm) => + neq_vec + rd + zreg + | _ => + false + end then - (_s1439_ - _s825_) >>= fun w__173 : option ((mword 5 * mword 6)) => + (_s1958_ + _s1342_) >>= fun w__173 : option ((mword 5 * mword 6)) => (match w__173 with | Some - ((rd, uimm)) => - returnm ((C_LWSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_LWSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1451_ - _s825_) >>= fun w__176 : option ((mword 5 * mword 6)) => + (_s1970_ + _s1342_) >>= fun w__176 : option ((mword 5 * mword 6)) => (if - ((match w__176 with - | Some - ((rd, uimm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 64 - 64) - | _ => - false - end)) + match w__176 with + | Some + (rd, uimm) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 64 + 64) + | _ => + false + end then - (_s1451_ - _s825_) >>= fun w__177 : option ((mword 5 * mword 6)) => + (_s1970_ + _s1342_) >>= fun w__177 : option ((mword 5 * mword 6)) => (match w__177 with | Some - ((rd, uimm)) => - returnm ((C_LDSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_LDSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1463_ - _s825_) >>= fun w__180 : option ((mword 5 * mword 6)) => + (_s1982_ + _s1342_) >>= fun w__180 : option ((mword 5 * mword 6)) => (if - ((match w__180 with - | Some - ((rd, uimm)) => - true - | _ => - false - end)) + match w__180 with + | Some + (rd, uimm) => + true + | _ => + false + end then - (_s1463_ - _s825_) >>= fun w__181 : option ((mword 5 * mword 6)) => + (_s1982_ + _s1342_) >>= fun w__181 : option ((mword 5 * mword 6)) => (match w__181 with | Some - ((rd, uimm)) => - returnm ((C_SWSP - ((uimm, rd))) - : ast ) + (rd, uimm) => + returnm (C_SWSP + (uimm, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1475_ - _s825_) >>= fun w__184 : option ((mword 5 * mword 6)) => + (_s1994_ + _s1342_) >>= fun w__184 : option ((mword 5 * mword 6)) => (if - ((match w__184 with - | Some - ((rs2, uimm)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__184 with + | Some + (rs2, uimm) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1475_ - _s825_) >>= fun w__185 : option ((mword 5 * mword 6)) => + (_s1994_ + _s1342_) >>= fun w__185 : option ((mword 5 * mword 6)) => (match w__185 with | Some - ((rs2, uimm)) => - returnm ((C_SDSP - ((uimm, rs2))) - : ast ) + (rs2, uimm) => + returnm (C_SDSP + (uimm, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1487_ - _s825_) >>= fun w__188 : option (mword 5) => + (_s2006_ + _s1342_) >>= fun w__188 : option (mword 5) => (if - ((match w__188 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__188 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s1487_ - _s825_) >>= fun w__189 : option (mword 5) => + (_s2006_ + _s1342_) >>= fun w__189 : option (mword 5) => (match w__189 with | Some - (rs1) => - returnm ((C_JR - (rs1)) - : ast ) + rs1 => + returnm (C_JR + rs1) | _ => exit tt : M (ast) end) : M (ast) else - (_s1495_ - _s825_) >>= fun w__192 : option (mword 5) => + (_s2014_ + _s1342_) >>= fun w__192 : option (mword 5) => (if - ((match w__192 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__192 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s1495_ - _s825_) >>= fun w__193 : option (mword 5) => + (_s2014_ + _s1342_) >>= fun w__193 : option (mword 5) => (match w__193 with | Some - (rs1) => - returnm ((C_JALR - (rs1)) - : ast ) + rs1 => + returnm (C_JALR + rs1) | _ => exit tt : M (ast) end) : M (ast) else - (_s1503_ - _s825_) >>= fun w__196 : option ((mword 5 * mword 5)) => + (_s2022_ + _s1342_) >>= fun w__196 : option ((mword 5 * mword 5)) => (if - ((match w__196 with - | Some - ((rd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__196 with + | Some + (rd, rs2) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s1503_ - _s825_) >>= fun w__197 : option ((mword 5 * mword 5)) => + (_s2022_ + _s1342_) >>= fun w__197 : option ((mword 5 * mword 5)) => (match w__197 with | Some - ((rd, rs2)) => - returnm ((C_MV - ((rd, rs2))) - : ast ) + (rd, rs2) => + returnm (C_MV + (rd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else if - ((generic_eq - _s825_ - "c.ebreak")) + generic_eq + _s1342_ + "c.ebreak" then - returnm ((C_EBREAK - (tt)) - : ast ) + returnm (C_EBREAK + tt) else - (_s1515_ - _s825_) >>= fun w__200 : option ((mword 5 * mword 5)) => + (_s2034_ + _s1342_) >>= fun w__200 : option ((mword 5 * mword 5)) => (if - ((match w__200 with - | Some - ((rsd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__200 with + | Some + (rsd, rs2) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s1515_ - _s825_) >>= fun w__201 : option ((mword 5 * mword 5)) => + (_s2034_ + _s1342_) >>= fun w__201 : option ((mword 5 * mword 5)) => (match w__201 with | Some - ((rsd, rs2)) => - returnm ((C_ADD - ((rsd, rs2))) - : ast ) + (rsd, rs2) => + returnm (C_ADD + (rsd, rs2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1527_ - _s825_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s2046_ + _s1342_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__204 with - | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__204 with + | Some + (high, signed1, signed2, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1527_ - _s825_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s2046_ + _s1342_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__205 with | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - returnm ((MUL - ((rs2, rs1, rd, high, signed1, signed2))) - : ast ) + (high, signed1, signed2, rd, rs1, rs2) => + returnm (MUL + (rs2, rs1, rd, high, signed1, signed2)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1544_ - _s825_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2063_ + _s1342_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__208 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__208 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1544_ - _s825_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2063_ + _s1342_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__209 with | Some - ((s, rd, rs1, rs2)) => - returnm ((DIV - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (DIV + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1562_ - _s825_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2081_ + _s1342_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__212 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__212 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s1562_ - _s825_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2081_ + _s1342_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__213 with | Some - ((s, rd, rs1, rs2)) => - returnm ((REM - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (REM + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1580_ - _s825_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => + (_s2099_ + _s1342_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => (if - ((match w__216 with - | Some - ((rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__216 with + | Some + (rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1580_ - _s825_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => + (_s2099_ + _s1342_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => (match w__217 with | Some - ((rd, rs1, rs2)) => - returnm ((MULW - ((rs2, rs1, rd))) - : ast ) + (rd, rs1, rs2) => + returnm (MULW + (rs2, rs1, rd)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1596_ - _s825_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2115_ + _s1342_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__220 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__220 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1596_ - _s825_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2115_ + _s1342_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__221 with | Some - ((s, rd, rs1, rs2)) => - returnm ((DIVW - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (DIVW + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1615_ - _s825_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2134_ + _s1342_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s1615_ - _s825_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s2134_ + _s1342_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__225 with | Some - ((s, rd, rs1, rs2)) => - returnm ((REMW - ((rs2, rs1, rd, s))) - : ast ) + (s, rd, rs1, rs2) => + returnm (REMW + (rs2, rs1, rd, s)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1634_ - _s825_) >>= fun w__228 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2153_ + _s1342_) >>= fun w__228 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__228 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__228 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s1634_ - _s825_) >>= fun w__229 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2153_ + _s1342_) >>= fun w__229 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__229 with | Some - ((op, rd, rs1, csr)) => - returnm ((CSR - ((csr, rs1, rd, true, op))) - : ast ) + (op, rd, csr, rs1) => + returnm (CSR + (csr, rs1, rd, true, op)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1652_ - _s825_) >>= fun w__232 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2171_ + _s1342_) >>= fun w__232 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__232 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__232 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s1652_ - _s825_) >>= fun w__233 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s2171_ + _s1342_) >>= fun w__233 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__233 with | Some - ((op, rd, rs1, csr)) => - returnm ((CSR - ((csr, rs1, rd, false, op))) - : ast ) + (op, rd, csr, rs1) => + returnm (CSR + (csr, rs1, rd, false, op)) | _ => exit tt : M (ast) end) : M (ast) else if - ((generic_eq - _s825_ - "uret")) + generic_eq + _s1342_ + "uret" then - returnm ((URET - (tt)) - : ast ) + returnm (URET + tt) else - (_s1669_ - _s825_) >>= fun w__236 : option (mword 32) => + (_s2188_ + _s1342_) >>= fun w__236 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__236 with - | Some - (s) => - true - | _ => - false - end)) + match w__236 with + | Some + (width, rd, imm, rs1) => + true + | _ => + false + end then - (_s1669_ - _s825_) >>= fun w__237 : option (mword 32) => + (_s2188_ + _s1342_) >>= fun w__237 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__237 with | Some - (s) => - returnm ((ILLEGAL - (s)) - : ast ) + (width, rd, imm, rs1) => + returnm (LOAD_FP + (imm, rs1, rd, width)) | _ => exit tt : M (ast) end) : M (ast) else - (_s1677_ - _s825_) >>= fun w__240 : option (mword 16) => + (_s2212_ + _s1342_) >>= fun w__240 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__240 with - | Some - (s) => - true - | _ => - false - end)) + match w__240 with + | Some + (width, rs2, imm, rs1) => + true + | _ => + false + end then - (_s1677_ - _s825_) >>= fun w__241 : option (mword 16) => + (_s2212_ + _s1342_) >>= fun w__241 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__241 with | Some - (s) => - returnm ((C_ILLEGAL - (s)) - : ast ) + (width, rs2, imm, rs1) => + returnm (STORE_FP + (imm, rs2, rs1, width)) | _ => exit tt : M (ast) end) : M (ast) else - assert_exp' false "Pattern match failure at unknown location" >>= fun _ => - exit tt) + (_s2236_ + _s1342_) >>= fun w__244 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__244 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s2236_ + _s1342_) >>= fun w__245 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__245 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2261_ + _s1342_) >>= fun w__248 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__248 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s2261_ + _s1342_) >>= fun w__249 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__249 with + | Some + (op, rd, rs1, rs2, rm) => + returnm (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2282_ + _s1342_) >>= fun w__252 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__252 with + | Some + (FSQRT_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2282_ + _s1342_) >>= fun w__253 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__253 with + | Some + (FSQRT_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2299_ + _s1342_) >>= fun w__256 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__256 with + | Some + (FCVT_W_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2299_ + _s1342_) >>= fun w__257 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__257 with + | Some + (FCVT_W_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2316_ + _s1342_) >>= fun w__260 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__260 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2316_ + _s1342_) >>= fun w__261 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__261 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2333_ + _s1342_) >>= fun w__264 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__264 with + | Some + (FCVT_S_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2333_ + _s1342_) >>= fun w__265 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__265 with + | Some + (FCVT_S_W, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2350_ + _s1342_) >>= fun w__268 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__268 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2350_ + _s1342_) >>= fun w__269 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__269 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2367_ + _s1342_) >>= fun w__272 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__272 with + | Some + (FCVT_L_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2367_ + _s1342_) >>= fun w__273 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__273 with + | Some + (FCVT_L_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2384_ + _s1342_) >>= fun w__276 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__276 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2384_ + _s1342_) >>= fun w__277 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__277 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2401_ + _s1342_) >>= fun w__280 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__280 with + | Some + (FCVT_S_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2401_ + _s1342_) >>= fun w__281 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__281 with + | Some + (FCVT_S_L, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2418_ + _s1342_) >>= fun w__284 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__284 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2418_ + _s1342_) >>= fun w__285 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__285 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2435_ + _s1342_) >>= fun w__288 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__288 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2435_ + _s1342_) >>= fun w__289 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__289 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2452_ + _s1342_) >>= fun w__292 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__292 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2452_ + _s1342_) >>= fun w__293 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__293 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2469_ + _s1342_) >>= fun w__296 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__296 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2469_ + _s1342_) >>= fun w__297 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__297 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2486_ + _s1342_) >>= fun w__300 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__300 with + | Some + (FMIN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2486_ + _s1342_) >>= fun w__301 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__301 with + | Some + (FMIN_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2503_ + _s1342_) >>= fun w__304 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__304 with + | Some + (FMAX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2503_ + _s1342_) >>= fun w__305 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__305 with + | Some + (FMAX_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2520_ + _s1342_) >>= fun w__308 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__308 with + | Some + (FEQ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2520_ + _s1342_) >>= fun w__309 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__309 with + | Some + (FEQ_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2537_ + _s1342_) >>= fun w__312 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__312 with + | Some + (FLT_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2537_ + _s1342_) >>= fun w__313 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__313 with + | Some + (FLT_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2554_ + _s1342_) >>= fun w__316 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__316 with + | Some + (FLE_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2554_ + _s1342_) >>= fun w__317 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__317 with + | Some + (FLE_S, rd, rs1, rs2) => + returnm (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2571_ + _s1342_) >>= fun w__320 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__320 with + | Some + (FMV_X_W, rd, rs1) => + true + | _ => + false + end + then + (_s2571_ + _s1342_) >>= fun w__321 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__321 with + | Some + (FMV_X_W, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FMV_X_W)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2584_ + _s1342_) >>= fun w__324 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__324 with + | Some + (FMV_W_X, rd, rs1) => + true + | _ => + false + end + then + (_s2584_ + _s1342_) >>= fun w__325 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__325 with + | Some + (FMV_W_X, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FMV_W_X)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2597_ + _s1342_) >>= fun w__328 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__328 with + | Some + (FCLASS_S, rd, rs1) => + true + | _ => + false + end + then + (_s2597_ + _s1342_) >>= fun w__329 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__329 with + | Some + (FCLASS_S, rd, rs1) => + returnm (F_UN_TYPE_S + (rs1, rd, FCLASS_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2610_ + _s1342_) >>= fun w__332 : option ((mword 5 * mword 6)) => + (if + match w__332 with + | Some + (rd, imm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s2610_ + _s1342_) >>= fun w__333 : option ((mword 5 * mword 6)) => + (match w__333 with + | Some + (rd, imm) => + returnm (C_FLWSP + (imm, rd)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2622_ + _s1342_) >>= fun w__336 : option ((mword 5 * mword 6)) => + (if + match w__336 with + | Some + (rd, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s2622_ + _s1342_) >>= fun w__337 : option ((mword 5 * mword 6)) => + (match w__337 with + | Some + (rd, uimm) => + returnm (C_FSWSP + (uimm, rd)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2634_ + _s1342_) >>= fun w__340 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__340 with + | Some + (rdc, rsc, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s2634_ + _s1342_) >>= fun w__341 : option ((mword 3 * mword 3 * mword 5)) => + (match w__341 with + | Some + (rdc, rsc, uimm) => + returnm (C_FLW + (uimm, rsc, rdc)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2650_ + _s1342_) >>= fun w__344 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__344 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s2650_ + _s1342_) >>= fun w__345 : option ((mword 3 * mword 3 * mword 5)) => + (match w__345 with + | Some + (rsc1, rsc2, uimm) => + returnm (C_FSW + (uimm, rsc1, rsc2)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2666_ + _s1342_) >>= fun w__348 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__348 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s2666_ + _s1342_) >>= fun w__349 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__349 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2691_ + _s1342_) >>= fun w__352 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__352 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s2691_ + _s1342_) >>= fun w__353 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__353 with + | Some + (op, rd, rs1, rs2, rm) => + returnm (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, op)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2712_ + _s1342_) >>= fun w__356 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__356 with + | Some + (FSQRT_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2712_ + _s1342_) >>= fun w__357 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__357 with + | Some + (FSQRT_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FSQRT_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2729_ + _s1342_) >>= fun w__360 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__360 with + | Some + (FCVT_W_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2729_ + _s1342_) >>= fun w__361 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__361 with + | Some + (FCVT_W_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_W_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2746_ + _s1342_) >>= fun w__364 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__364 with + | Some + (FCVT_WU_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2746_ + _s1342_) >>= fun w__365 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__365 with + | Some + (FCVT_WU_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_WU_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2763_ + _s1342_) >>= fun w__368 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__368 with + | Some + (FCVT_D_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2763_ + _s1342_) >>= fun w__369 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__369 with + | Some + (FCVT_D_W, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_W)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2780_ + _s1342_) >>= fun w__372 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__372 with + | Some + (FCVT_D_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2780_ + _s1342_) >>= fun w__373 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__373 with + | Some + (FCVT_D_WU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_WU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2797_ + _s1342_) >>= fun w__376 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__376 with + | Some + (FCVT_L_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2797_ + _s1342_) >>= fun w__377 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__377 with + | Some + (FCVT_L_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_L_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2814_ + _s1342_) >>= fun w__380 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__380 with + | Some + (FCVT_LU_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2814_ + _s1342_) >>= fun w__381 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__381 with + | Some + (FCVT_LU_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_LU_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2831_ + _s1342_) >>= fun w__384 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__384 with + | Some + (FCVT_D_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2831_ + _s1342_) >>= fun w__385 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__385 with + | Some + (FCVT_D_L, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_L)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2848_ + _s1342_) >>= fun w__388 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__388 with + | Some + (FCVT_D_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2848_ + _s1342_) >>= fun w__389 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__389 with + | Some + (FCVT_D_LU, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_LU)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2865_ + _s1342_) >>= fun w__392 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__392 with + | Some + (FCVT_S_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2865_ + _s1342_) >>= fun w__393 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__393 with + | Some + (FCVT_S_D, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_S_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2882_ + _s1342_) >>= fun w__396 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__396 with + | Some + (FCVT_D_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s2882_ + _s1342_) >>= fun w__397 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__397 with + | Some + (FCVT_D_S, rd, rs1, rm) => + returnm (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_S)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2899_ + _s1342_) >>= fun w__400 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__400 with + | Some + (FSGNJ_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2899_ + _s1342_) >>= fun w__401 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__401 with + | Some + (FSGNJ_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJ_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2916_ + _s1342_) >>= fun w__404 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__404 with + | Some + (FSGNJN_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2916_ + _s1342_) >>= fun w__405 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__405 with + | Some + (FSGNJN_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJN_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2933_ + _s1342_) >>= fun w__408 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__408 with + | Some + (FSGNJX_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2933_ + _s1342_) >>= fun w__409 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__409 with + | Some + (FSGNJX_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJX_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2950_ + _s1342_) >>= fun w__412 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__412 with + | Some + (FMIN_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2950_ + _s1342_) >>= fun w__413 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__413 with + | Some + (FMIN_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FMIN_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2967_ + _s1342_) >>= fun w__416 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__416 with + | Some + (FMAX_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2967_ + _s1342_) >>= fun w__417 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__417 with + | Some + (FMAX_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FMAX_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s2984_ + _s1342_) >>= fun w__420 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__420 with + | Some + (FEQ_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s2984_ + _s1342_) >>= fun w__421 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__421 with + | Some + (FEQ_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FEQ_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3001_ + _s1342_) >>= fun w__424 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__424 with + | Some + (FLT_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3001_ + _s1342_) >>= fun w__425 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__425 with + | Some + (FLT_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FLT_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3018_ + _s1342_) >>= fun w__428 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__428 with + | Some + (FLE_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s3018_ + _s1342_) >>= fun w__429 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__429 with + | Some + (FLE_D, rd, rs1, rs2) => + returnm (F_BIN_TYPE_D + (rs2, rs1, rd, FLE_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3035_ + _s1342_) >>= fun w__432 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__432 with + | Some + (FMV_X_D, rd, rs1) => + true + | _ => + false + end + then + (_s3035_ + _s1342_) >>= fun w__433 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__433 with + | Some + (FMV_X_D, rd, rs1) => + returnm (F_UN_TYPE_D + (rs1, rd, FMV_X_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3048_ + _s1342_) >>= fun w__436 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__436 with + | Some + (FMV_D_X, rd, rs1) => + true + | _ => + false + end + then + (_s3048_ + _s1342_) >>= fun w__437 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__437 with + | Some + (FMV_D_X, rd, rs1) => + returnm (F_UN_TYPE_D + (rs1, rd, FMV_D_X)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3061_ + _s1342_) >>= fun w__440 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__440 with + | Some + (FCLASS_D, rd, rs1) => + true + | _ => + false + end + then + (_s3061_ + _s1342_) >>= fun w__441 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__441 with + | Some + (FCLASS_D, rd, rs1) => + returnm (F_UN_TYPE_D + (rs1, rd, FCLASS_D)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3074_ + _s1342_) >>= fun w__444 : option ((mword 5 * mword 6)) => + (if + match w__444 with + | Some + (rd, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s3074_ + _s1342_) >>= fun w__445 : option ((mword 5 * mword 6)) => + (match w__445 with + | Some + (rd, uimm) => + returnm (C_FLDSP + (uimm, rd)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3086_ + _s1342_) >>= fun w__448 : option ((mword 5 * mword 6)) => + (if + match w__448 with + | Some + (rs2, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s3086_ + _s1342_) >>= fun w__449 : option ((mword 5 * mword 6)) => + (match w__449 with + | Some + (rs2, uimm) => + returnm (C_FSDSP + (uimm, rs2)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3098_ + _s1342_) >>= fun w__452 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__452 with + | Some + (rdc, rsc, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s3098_ + _s1342_) >>= fun w__453 : option ((mword 3 * mword 3 * mword 5)) => + (match w__453 with + | Some + (rdc, rsc, uimm) => + returnm (C_FLD + (uimm, rsc, rdc)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3114_ + _s1342_) >>= fun w__456 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__456 with + | Some + (rsc1, rsc2, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s3114_ + _s1342_) >>= fun w__457 : option ((mword 3 * mword 3 * mword 5)) => + (match w__457 with + | Some + (rsc1, rsc2, uimm) => + returnm (C_FSD + (uimm, rsc1, rsc2)) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3130_ + _s1342_) >>= fun w__460 : option (mword 32) => + (if + match w__460 with + | Some + s => + true + | _ => + false + end + then + (_s3130_ + _s1342_) >>= fun w__461 : option (mword 32) => + (match w__461 with + | Some + s => + returnm (ILLEGAL + s) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + (_s3138_ + _s1342_) >>= fun w__464 : option (mword 16) => + (if + match w__464 with + | Some + s => + true + | _ => + false + end + then + (_s3138_ + _s1342_) >>= fun w__465 : option (mword 16) => + (match w__465 with + | Some + s => + returnm (C_ILLEGAL + s) + | _ => + exit tt + : M (ast) + end) + : M (ast) + else + assert_exp' false "Pattern match failure at unknown location" >>= fun _ => + exit tt) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) + : M (ast)) : M (ast)) : M (ast)) : M (ast)) @@ -29761,6053 +42984,11357 @@ Definition assembly_backwards (arg_ : string) : M (ast)) : M (ast). -Definition assembly_forwards_matches (arg_ : ast) -: bool := - +Definition assembly_forwards_matches (arg_ : ast) : bool := match arg_ with - | UTYPE ((imm, rd, op)) => true - | RISCV_JAL ((imm, rd)) => true - | RISCV_JALR ((imm, rs1, rd)) => true - | BTYPE ((imm, rs2, rs1, op)) => true - | ITYPE ((imm, rs1, rd, op)) => true - | SHIFTIOP ((shamt, rs1, rd, op)) => true - | RTYPE ((rs2, rs1, rd, op)) => true - | LOAD ((imm, rs1, rd, is_unsigned, size, aq, rl)) => true - | STORE ((imm, rs2, rs1, size, aq, rl)) => true - | ADDIW ((imm, rs1, rd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTW ((shamt, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | RTYPEW ((rs2, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | SHIFTIWOP ((shamt, rs1, rd, op)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | FENCE ((pred, succ)) => true - | FENCE_TSO ((pred, succ)) => true - | FENCEI (tt) => true - | ECALL (tt) => true - | MRET (tt) => true - | SRET (tt) => true - | EBREAK (tt) => true - | WFI (tt) => true - | SFENCE_VMA ((rs1, rs2)) => true - | LOADRES ((aq, rl, rs1, size, rd)) => true - | STORECON ((aq, rl, rs2, rs1, size, rd)) => true - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => true - | C_NOP (tt) => true - | C_ADDI4SPN ((rdc, nzimm)) => - if ((neq_vec nzimm (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] : mword 8))) then true else false - | C_LW ((uimm, rsc, rdc)) => true - | C_LD ((uimm, rsc, rdc)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_SW ((uimm, rsc1, rsc2)) => true - | C_SD ((uimm, rsc1, rsc2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_ADDI ((nzi, rsd)) => - if ((andb (neq_vec nzi (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_JAL (imm) => if sumbool_of_bool ((Z.eqb 64 32)) then true else false - | C_ADDIW ((imm, rsd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_LI ((imm, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_ADDI16SP (imm) => - if ((neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_LUI ((imm, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) - (projT1 - (regidx_to_regno sp)))) - (neq_vec imm (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) - : bool))) then - true - else false - | C_SRLI ((shamt, rsd)) => - if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_SRAI ((shamt, rsd)) => - if ((neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6))) then true else false - | C_ANDI ((imm, rsd)) => true - | C_SUB ((rsd, rs2)) => true - | C_XOR ((rsd, rs2)) => true - | C_OR ((rsd, rs2)) => true - | C_AND ((rsd, rs2)) => true - | C_SUBW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_ADDW ((rsd, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_J (imm) => true - | C_BEQZ ((imm, rs)) => true - | C_BNEZ ((imm, rs)) => true - | C_SLLI ((shamt, rsd)) => - if ((andb (neq_vec shamt (vec_of_bits [B0;B0;B0;B0;B0;B0] : mword 6)) - ((projT1 - (neq_int (projT1 (regidx_to_regno rsd)) (projT1 (regidx_to_regno zreg)))) - : bool))) then - true - else false - | C_LWSP ((uimm, rd)) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_LDSP ((uimm, rd)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - (Z.eqb 64 64))) then - true - else false - | C_SWSP ((uimm, rd)) => true - | C_SDSP ((uimm, rs2)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | C_JR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_JALR (rs1) => - if sumbool_of_bool ((projT1 - (neq_int (projT1 (regidx_to_regno rs1)) (projT1 (regidx_to_regno zreg))))) - then - true - else false - | C_MV ((rd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rd)) (projT1 (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then + | UTYPE (imm, rd, op) => true + | RISCV_JAL (imm, rd) => true + | RISCV_JALR (imm, rs1, rd) => true + | BTYPE (imm, rs2, rs1, op) => true + | ITYPE (imm, rs1, rd, op) => true + | SHIFTIOP (shamt, rs1, rd, op) => true + | RTYPE (rs2, rs1, rd, op) => true + | LOAD (imm, rs1, rd, is_unsigned, size, aq, rl) => true + | STORE (imm, rs2, rs1, size, aq, rl) => true + | ADDIW (imm, rs1, rd) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | SHIFTW (shamt, rs1, rd, op) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | RTYPEW (rs2, rs1, rd, op) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | SHIFTIWOP (shamt, rs1, rd, op) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | FENCE (pred, succ) => true + | FENCE_TSO (pred, succ) => true + | FENCEI tt => true + | ECALL tt => true + | MRET tt => true + | SRET tt => true + | EBREAK tt => true + | WFI tt => true + | SFENCE_VMA (rs1, rs2) => true + | LOADRES (aq, rl, rs1, size, rd) => true + | STORECON (aq, rl, rs2, rs1, size, rd) => true + | AMO (op, aq, rl, rs2, rs1, width, rd) => true + | C_NOP tt => true + | C_ADDI4SPN (rdc, nzimm) => if neq_vec nzimm (Ox"00" : mword 8) then true else false + | C_LW (uimm, rsc, rdc) => true + | C_LD (uimm, rsc, rdc) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_SW (uimm, rsc1, rsc2) => true + | C_SD (uimm, rsc1, rsc2) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_ADDI (nzi, rsd) => + if andb (neq_vec nzi ('b"000000" : mword 6)) (neq_vec rsd zreg) then true else false + | C_JAL imm => if sumbool_of_bool (Z.eqb 64 32) then true else false + | C_ADDIW (imm, rsd) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_LI (imm, rd) => if neq_vec rd zreg then true else false + | C_ADDI16SP imm => if neq_vec imm ('b"000000" : mword 6) then true else false + | C_LUI (imm, rd) => + if andb (neq_vec rd zreg) (andb (neq_vec rd sp) (neq_vec imm ('b"000000" : mword 6))) then true else false - | C_EBREAK (tt) => true - | C_ADD ((rsd, rs2)) => - if sumbool_of_bool ((andb - (projT1 - (neq_int (projT1 (regidx_to_regno rsd)) - (projT1 - (regidx_to_regno zreg)))) - ((projT1 - (neq_int (projT1 (regidx_to_regno rs2)) - (projT1 - (regidx_to_regno zreg)))) - : bool))) then - true - else false - | MUL ((rs2, rs1, rd, high, signed1, signed2)) => true - | DIV ((rs2, rs1, rd, s)) => true - | REM ((rs2, rs1, rd, s)) => true - | MULW ((rs2, rs1, rd)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | DIVW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | REMW ((rs2, rs1, rd, s)) => if sumbool_of_bool ((Z.eqb 64 64)) then true else false - | CSR ((csr, rs1, rd, true, op)) => true - | CSR ((csr, rs1, rd, false, op)) => true - | URET (tt) => true - | ILLEGAL (s) => true - | C_ILLEGAL (s) => true + | C_SRLI (shamt, rsd) => if neq_vec shamt ('b"000000" : mword 6) then true else false + | C_SRAI (shamt, rsd) => if neq_vec shamt ('b"000000" : mword 6) then true else false + | C_ANDI (imm, rsd) => true + | C_SUB (rsd, rs2) => true + | C_XOR (rsd, rs2) => true + | C_OR (rsd, rs2) => true + | C_AND (rsd, rs2) => true + | C_SUBW (rsd, rs2) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_ADDW (rsd, rs2) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_J imm => true + | C_BEQZ (imm, rs) => true + | C_BNEZ (imm, rs) => true + | C_SLLI (shamt, rsd) => + if andb (neq_vec shamt ('b"000000" : mword 6)) (neq_vec rsd zreg) then true else false + | C_LWSP (uimm, rd) => if neq_vec rd zreg then true else false + | C_LDSP (uimm, rd) => + if sumbool_of_bool (andb (neq_vec rd zreg) (Z.eqb 64 64)) then true else false + | C_SWSP (uimm, rd) => true + | C_SDSP (uimm, rs2) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | C_JR rs1 => if neq_vec rs1 zreg then true else false + | C_JALR rs1 => if neq_vec rs1 zreg then true else false + | C_MV (rd, rs2) => if andb (neq_vec rd zreg) (neq_vec rs2 zreg) then true else false + | C_EBREAK tt => true + | C_ADD (rsd, rs2) => if andb (neq_vec rsd zreg) (neq_vec rs2 zreg) then true else false + | MUL (rs2, rs1, rd, high, signed1, signed2) => true + | DIV (rs2, rs1, rd, s) => true + | REM (rs2, rs1, rd, s) => true + | MULW (rs2, rs1, rd) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | DIVW (rs2, rs1, rd, s) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | REMW (rs2, rs1, rd, s) => if sumbool_of_bool (Z.eqb 64 64) then true else false + | CSR (csr, rs1, rd, true, op) => true + | CSR (csr, rs1, rd, false, op) => true + | URET tt => true + | LOAD_FP (imm, rs1, rd, width) => true + | STORE_FP (imm, rs2, rs1, width) => true + | F_MADD_TYPE_S (rs3, rs2, rs1, rm, rd, op) => true + | F_BIN_RM_TYPE_S (rs2, rs1, rm, rd, op) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FSQRT_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_W_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_WU_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_W) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_WU) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_L_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_LU_S) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_L) => true + | F_UN_RM_TYPE_S (rs1, rm, rd, FCVT_S_LU) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJ_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJN_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FSGNJX_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FMIN_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FMAX_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FEQ_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FLT_S) => true + | F_BIN_TYPE_S (rs2, rs1, rd, FLE_S) => true + | F_UN_TYPE_S (rs1, rd, FMV_X_W) => true + | F_UN_TYPE_S (rs1, rd, FMV_W_X) => true + | F_UN_TYPE_S (rs1, rd, FCLASS_S) => true + | C_FLWSP (imm, rd) => if sumbool_of_bool (Z.eqb 64 32) then true else false + | C_FSWSP (uimm, rd) => if sumbool_of_bool (Z.eqb 64 32) then true else false + | C_FLW (uimm, rsc, rdc) => if sumbool_of_bool (Z.eqb 64 32) then true else false + | C_FSW (uimm, rsc1, rsc2) => if sumbool_of_bool (Z.eqb 64 32) then true else false + | F_MADD_TYPE_D (rs3, rs2, rs1, rm, rd, op) => true + | F_BIN_RM_TYPE_D (rs2, rs1, rm, rd, op) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FSQRT_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_W_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_WU_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_W) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_WU) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_L_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_LU_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_L) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_LU) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_S_D) => true + | F_UN_RM_TYPE_D (rs1, rm, rd, FCVT_D_S) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJ_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJN_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FSGNJX_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FMIN_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FMAX_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FEQ_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FLT_D) => true + | F_BIN_TYPE_D (rs2, rs1, rd, FLE_D) => true + | F_UN_TYPE_D (rs1, rd, FMV_X_D) => true + | F_UN_TYPE_D (rs1, rd, FMV_D_X) => true + | F_UN_TYPE_D (rs1, rd, FCLASS_D) => true + | C_FLDSP (uimm, rd) => if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then true else false + | C_FSDSP (uimm, rs2) => + if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then true else false + | C_FLD (uimm, rsc, rdc) => + if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then true else false + | C_FSD (uimm, rsc1, rsc2) => + if sumbool_of_bool (orb (Z.eqb 64 32) (Z.eqb 64 64)) then true else false + | ILLEGAL s => true + | C_ILLEGAL s => true end. -Definition _s2549_ (_s2550_ : string) -: M (option (mword 16)) := - - let _s2551_ := _s2550_ in - (if ((string_startswith _s2551_ "c.illegal")) then - (match (string_drop _s2551_ (projT1 (string_length "c.illegal"))) with - | _s2552_ => - (spc_matches_prefix _s2552_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2553_ _)) => - match (string_drop _s2552_ _s2553_) with - | _s2554_ => - match (hex_bits_16_matches_prefix _s2554_) with - | Some ((s, existT _ _s2555_ _)) => - let p0_ := string_drop _s2554_ _s2555_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 16)) +Definition _s4954_ (_s4955_ : string) : M (option (mword 16)) := + let _s4956_ := _s4955_ in + (if string_startswith _s4956_ "c.illegal" then + (match (string_drop _s4956_ (projT1 (string_length "c.illegal"))) with + | _s4957_ => + (spc_matches_prefix _s4957_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s4958_ _) => + match (string_drop _s4957_ _s4958_) with + | _s4959_ => + match (hex_bits_16_matches_prefix _s4959_) with + | Some (s, existT _ _s4960_ _) => + let p0_ := string_drop _s4959_ _s4960_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 16)) - else returnm (None : option (mword 16))) + else returnm None) : M (option (mword 16)). -Definition _s2541_ (_s2542_ : string) -: M (option (mword 32)) := - - let _s2543_ := _s2542_ in - (if ((string_startswith _s2543_ "illegal")) then - (match (string_drop _s2543_ (projT1 (string_length "illegal"))) with - | _s2544_ => - (spc_matches_prefix _s2544_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2545_ _)) => - match (string_drop _s2544_ _s2545_) with - | _s2546_ => - match (hex_bits_32_matches_prefix _s2546_) with - | Some ((s, existT _ _s2547_ _)) => - let p0_ := string_drop _s2546_ _s2547_ in - if ((generic_eq p0_ "")) then Some (s) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 32)) +Definition _s4946_ (_s4947_ : string) : M (option (mword 32)) := + let _s4948_ := _s4947_ in + (if string_startswith _s4948_ "illegal" then + (match (string_drop _s4948_ (projT1 (string_length "illegal"))) with + | _s4949_ => + (spc_matches_prefix _s4949_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s4950_ _) => + match (string_drop _s4949_ _s4950_) with + | _s4951_ => + match (hex_bits_32_matches_prefix _s4951_) with + | Some (s, existT _ _s4952_ _) => + let p0_ := string_drop _s4951_ _s4952_ in + if generic_eq p0_ "" then Some s + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 32)) - else returnm (None : option (mword 32))) + else returnm None) : M (option (mword 32)). -Definition _s2524_ (_s2525_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s2525_ with - | _s2526_ => - (csr_mnemonic_matches_prefix _s2526_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s4930_ (_s4931_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s4932_ := _s4931_ in + (if string_startswith _s4932_ "c.fsd" then + (match (string_drop _s4932_ (projT1 (string_length "c.fsd"))) with + | _s4933_ => + (spc_matches_prefix _s4933_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4934_ _) => + (match (string_drop _s4933_ _s4934_) with + | _s4935_ => + (creg_name_matches_prefix _s4935_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s4936_ _) => + (match (string_drop _s4935_ _s4936_) with + | _s4937_ => + (sep_matches_prefix _s4937_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s4938_ _) => + (match (string_drop _s4937_ _s4938_) with + | _s4939_ => + (creg_name_matches_prefix _s4939_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s4940_ _) => + (match (string_drop _s4939_ _s4940_) with + | _s4941_ => + (sep_matches_prefix _s4941_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s4942_ _) => + match (string_drop _s4941_ _s4942_) with + | _s4943_ => + match (hex_bits_8_matches_prefix _s4943_) with + | Some (v__1358, existT _ _s4944_ _) => + if eq_vec (subrange_vec_dec v__1358 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1358 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1358 7 3 in + let p0_ := string_drop _s4943_ _s4944_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s4914_ (_s4915_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s4916_ := _s4915_ in + (if string_startswith _s4916_ "c.fld" then + (match (string_drop _s4916_ (projT1 (string_length "c.fld"))) with + | _s4917_ => + (spc_matches_prefix _s4917_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4918_ _) => + (match (string_drop _s4917_ _s4918_) with + | _s4919_ => + (creg_name_matches_prefix _s4919_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s4920_ _) => + (match (string_drop _s4919_ _s4920_) with + | _s4921_ => + (sep_matches_prefix _s4921_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s4922_ _) => + (match (string_drop _s4921_ _s4922_) with + | _s4923_ => + (creg_name_matches_prefix _s4923_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s4924_ _) => + (match (string_drop _s4923_ _s4924_) with + | _s4925_ => + (sep_matches_prefix _s4925_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s4926_ _) => + match (string_drop _s4925_ _s4926_) with + | _s4927_ => + match (hex_bits_8_matches_prefix _s4927_) with + | Some (v__1360, existT _ _s4928_ _) => + if eq_vec (subrange_vec_dec v__1360 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1360 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1360 7 3 in + let p0_ := string_drop _s4927_ _s4928_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s4902_ (_s4903_ : string) : M (option ((mword 5 * mword 6))) := + let _s4904_ := _s4903_ in + (if string_startswith _s4904_ "c.fsdsp" then + (match (string_drop _s4904_ (projT1 (string_length "c.fsdsp"))) with + | _s4905_ => + (spc_matches_prefix _s4905_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4906_ _) => + (match (string_drop _s4905_ _s4906_) with + | _s4907_ => + (reg_name_matches_prefix _s4907_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rs2, existT _ _s4908_ _) => + (match (string_drop _s4907_ _s4908_) with + | _s4909_ => + (sep_matches_prefix _s4909_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s4910_ _) => + match (string_drop _s4909_ _s4910_) with + | _s4911_ => + match (hex_bits_6_matches_prefix _s4911_) with + | Some (uimm, existT _ _s4912_ _) => + let p0_ := string_drop _s4911_ _s4912_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s4890_ (_s4891_ : string) : M (option ((mword 5 * mword 6))) := + let _s4892_ := _s4891_ in + (if string_startswith _s4892_ "c.fldsp" then + (match (string_drop _s4892_ (projT1 (string_length "c.fldsp"))) with + | _s4893_ => + (spc_matches_prefix _s4893_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4894_ _) => + (match (string_drop _s4893_ _s4894_) with + | _s4895_ => + (reg_name_matches_prefix _s4895_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s4896_ _) => + (match (string_drop _s4895_ _s4896_) with + | _s4897_ => + (sep_matches_prefix _s4897_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s4898_ _) => + match (string_drop _s4897_ _s4898_) with + | _s4899_ => + match (hex_bits_6_matches_prefix _s4899_) with + | Some (uimm, existT _ _s4900_ _) => + let p0_ := string_drop _s4899_ _s4900_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s4877_ (_s4878_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s4878_ with + | _s4879_ => + (f_un_type_mnemonic_D_matches_prefix _s4879_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2527_ _)) => - (match (string_drop _s2526_ _s2527_) with - | _s2528_ => - (spc_matches_prefix _s2528_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FCLASS_D, existT _ _s4880_ _) => + (match (string_drop _s4879_ _s4880_) with + | _s4881_ => + (spc_matches_prefix _s4881_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2529_ _)) => - (match (string_drop _s2528_ _s2529_) with - | _s2530_ => - (reg_name_matches_prefix _s2530_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4882_ _) => + (match (string_drop _s4881_ _s4882_) with + | _s4883_ => + (reg_name_matches_prefix _s4883_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2531_ _)) => - (match (string_drop _s2530_ _s2531_) with - | _s2532_ => - (sep_matches_prefix _s2532_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4884_ _) => + (match (string_drop _s4883_ _s4884_) with + | _s4885_ => + (sep_matches_prefix _s4885_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2533_ _)) => - (match (string_drop _s2532_ _s2533_) with - | _s2534_ => - (reg_name_matches_prefix _s2534_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4886_ _) => + (match (string_drop _s4885_ _s4886_) with + | _s4887_ => + (freg_name_matches_prefix _s4887_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4888_ _) => + let p0_ := string_drop _s4887_ _s4888_ in + if generic_eq p0_ "" then + Some (FCLASS_D, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s4864_ (_s4865_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s4865_ with + | _s4866_ => + (f_un_type_mnemonic_D_matches_prefix _s4866_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_D_X, existT _ _s4867_ _) => + (match (string_drop _s4866_ _s4867_) with + | _s4868_ => + (spc_matches_prefix _s4868_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4869_ _) => + (match (string_drop _s4868_ _s4869_) with + | _s4870_ => + (freg_name_matches_prefix _s4870_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4871_ _) => + (match (string_drop _s4870_ _s4871_) with + | _s4872_ => + (sep_matches_prefix _s4872_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4873_ _) => + (match (string_drop _s4872_ _s4873_) with + | _s4874_ => + (reg_name_matches_prefix _s4874_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4875_ _) => + let p0_ := string_drop _s4874_ _s4875_ in + if generic_eq p0_ "" then Some (FMV_D_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s4851_ (_s4852_ : string) : M (option ((f_un_op_D * mword 5 * mword 5))) := + (match _s4852_ with + | _s4853_ => + (f_un_type_mnemonic_D_matches_prefix _s4853_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_D, existT _ _s4854_ _) => + (match (string_drop _s4853_ _s4854_) with + | _s4855_ => + (spc_matches_prefix _s4855_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4856_ _) => + (match (string_drop _s4855_ _s4856_) with + | _s4857_ => + (reg_name_matches_prefix _s4857_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4858_ _) => + (match (string_drop _s4857_ _s4858_) with + | _s4859_ => + (sep_matches_prefix _s4859_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4860_ _) => + (match (string_drop _s4859_ _s4860_) with + | _s4861_ => + (freg_name_matches_prefix _s4861_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4862_ _) => + let p0_ := string_drop _s4861_ _s4862_ in + if generic_eq p0_ "" then Some (FMV_X_D, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5))). + +Definition _s4834_ (_s4835_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4835_ with + | _s4836_ => + (f_bin_type_mnemonic_D_matches_prefix _s4836_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_D, existT _ _s4837_ _) => + (match (string_drop _s4836_ _s4837_) with + | _s4838_ => + (spc_matches_prefix _s4838_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4839_ _) => + (match (string_drop _s4838_ _s4839_) with + | _s4840_ => + (reg_name_matches_prefix _s4840_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4841_ _) => + (match (string_drop _s4840_ _s4841_) with + | _s4842_ => + (sep_matches_prefix _s4842_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4843_ _) => + (match (string_drop _s4842_ _s4843_) with + | _s4844_ => + (freg_name_matches_prefix _s4844_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2535_ _)) => - (match (string_drop _s2534_ _s2535_) with - | _s2536_ => - (sep_matches_prefix _s2536_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4845_ _) => + (match (string_drop _s4844_ _s4845_) with + | _s4846_ => + (sep_matches_prefix _s4846_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2537_ _)) => - (match (string_drop _s2536_ _s2537_) with - | _s2538_ => - (csr_name_map_matches_prefix _s2538_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4847_ _) => + (match (string_drop _s4846_ _s4847_) with + | _s4848_ => + (freg_name_matches_prefix _s4848_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s2539_ _)) => - let p0_ := - string_drop _s2538_ _s2539_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) + returnm (match w__6 with + | Some (rs2, existT _ _s4849_ _) => + let p0_ := + string_drop _s4848_ _s4849_ in + if generic_eq p0_ "" then + Some (FLE_D, rd, rs1, rs2) + else None + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4817_ (_s4818_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4818_ with + | _s4819_ => + (f_bin_type_mnemonic_D_matches_prefix _s4819_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_D, existT _ _s4820_ _) => + (match (string_drop _s4819_ _s4820_) with + | _s4821_ => + (spc_matches_prefix _s4821_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4822_ _) => + (match (string_drop _s4821_ _s4822_) with + | _s4823_ => + (reg_name_matches_prefix _s4823_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4824_ _) => + (match (string_drop _s4823_ _s4824_) with + | _s4825_ => + (sep_matches_prefix _s4825_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4826_ _) => + (match (string_drop _s4825_ _s4826_) with + | _s4827_ => + (freg_name_matches_prefix _s4827_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4828_ _) => + (match (string_drop _s4827_ _s4828_) with + | _s4829_ => + (sep_matches_prefix _s4829_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4830_ _) => + (match (string_drop _s4829_ _s4830_) with + | _s4831_ => + (freg_name_matches_prefix _s4831_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4832_ _) => + let p0_ := + string_drop _s4831_ _s4832_ in + if generic_eq p0_ "" then + Some (FLT_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4800_ (_s4801_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4801_ with + | _s4802_ => + (f_bin_type_mnemonic_D_matches_prefix _s4802_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_D, existT _ _s4803_ _) => + (match (string_drop _s4802_ _s4803_) with + | _s4804_ => + (spc_matches_prefix _s4804_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4805_ _) => + (match (string_drop _s4804_ _s4805_) with + | _s4806_ => + (reg_name_matches_prefix _s4806_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4807_ _) => + (match (string_drop _s4806_ _s4807_) with + | _s4808_ => + (sep_matches_prefix _s4808_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4809_ _) => + (match (string_drop _s4808_ _s4809_) with + | _s4810_ => + (freg_name_matches_prefix _s4810_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4811_ _) => + (match (string_drop _s4810_ _s4811_) with + | _s4812_ => + (sep_matches_prefix _s4812_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4813_ _) => + (match (string_drop _s4812_ _s4813_) with + | _s4814_ => + (freg_name_matches_prefix _s4814_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4815_ _) => + let p0_ := + string_drop _s4814_ _s4815_ in + if generic_eq p0_ "" then + Some (FEQ_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4783_ (_s4784_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4784_ with + | _s4785_ => + (f_bin_type_mnemonic_D_matches_prefix _s4785_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_D, existT _ _s4786_ _) => + (match (string_drop _s4785_ _s4786_) with + | _s4787_ => + (spc_matches_prefix _s4787_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4788_ _) => + (match (string_drop _s4787_ _s4788_) with + | _s4789_ => + (freg_name_matches_prefix _s4789_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4790_ _) => + (match (string_drop _s4789_ _s4790_) with + | _s4791_ => + (sep_matches_prefix _s4791_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4792_ _) => + (match (string_drop _s4791_ _s4792_) with + | _s4793_ => + (freg_name_matches_prefix _s4793_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4794_ _) => + (match (string_drop _s4793_ _s4794_) with + | _s4795_ => + (sep_matches_prefix _s4795_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4796_ _) => + (match (string_drop _s4795_ _s4796_) with + | _s4797_ => + (freg_name_matches_prefix _s4797_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4798_ _) => + let p0_ := + string_drop _s4797_ _s4798_ in + if generic_eq p0_ "" then + Some (FMAX_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4766_ (_s4767_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4767_ with + | _s4768_ => + (f_bin_type_mnemonic_D_matches_prefix _s4768_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_D, existT _ _s4769_ _) => + (match (string_drop _s4768_ _s4769_) with + | _s4770_ => + (spc_matches_prefix _s4770_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4771_ _) => + (match (string_drop _s4770_ _s4771_) with + | _s4772_ => + (freg_name_matches_prefix _s4772_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4773_ _) => + (match (string_drop _s4772_ _s4773_) with + | _s4774_ => + (sep_matches_prefix _s4774_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4775_ _) => + (match (string_drop _s4774_ _s4775_) with + | _s4776_ => + (freg_name_matches_prefix _s4776_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4777_ _) => + (match (string_drop _s4776_ _s4777_) with + | _s4778_ => + (sep_matches_prefix _s4778_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4779_ _) => + (match (string_drop _s4778_ _s4779_) with + | _s4780_ => + (freg_name_matches_prefix _s4780_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4781_ _) => + let p0_ := + string_drop _s4780_ _s4781_ in + if generic_eq p0_ "" then + Some (FMIN_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4749_ (_s4750_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4750_ with + | _s4751_ => + (f_bin_type_mnemonic_D_matches_prefix _s4751_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_D, existT _ _s4752_ _) => + (match (string_drop _s4751_ _s4752_) with + | _s4753_ => + (spc_matches_prefix _s4753_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4754_ _) => + (match (string_drop _s4753_ _s4754_) with + | _s4755_ => + (freg_name_matches_prefix _s4755_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4756_ _) => + (match (string_drop _s4755_ _s4756_) with + | _s4757_ => + (sep_matches_prefix _s4757_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4758_ _) => + (match (string_drop _s4757_ _s4758_) with + | _s4759_ => + (freg_name_matches_prefix _s4759_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4760_ _) => + (match (string_drop _s4759_ _s4760_) with + | _s4761_ => + (sep_matches_prefix _s4761_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4762_ _) => + (match (string_drop _s4761_ _s4762_) with + | _s4763_ => + (freg_name_matches_prefix _s4763_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4764_ _) => + let p0_ := + string_drop _s4763_ _s4764_ in + if generic_eq p0_ "" then + Some (FSGNJX_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4732_ (_s4733_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4733_ with + | _s4734_ => + (f_bin_type_mnemonic_D_matches_prefix _s4734_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_D, existT _ _s4735_ _) => + (match (string_drop _s4734_ _s4735_) with + | _s4736_ => + (spc_matches_prefix _s4736_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4737_ _) => + (match (string_drop _s4736_ _s4737_) with + | _s4738_ => + (freg_name_matches_prefix _s4738_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4739_ _) => + (match (string_drop _s4738_ _s4739_) with + | _s4740_ => + (sep_matches_prefix _s4740_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4741_ _) => + (match (string_drop _s4740_ _s4741_) with + | _s4742_ => + (freg_name_matches_prefix _s4742_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4743_ _) => + (match (string_drop _s4742_ _s4743_) with + | _s4744_ => + (sep_matches_prefix _s4744_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4745_ _) => + (match (string_drop _s4744_ _s4745_) with + | _s4746_ => + (freg_name_matches_prefix _s4746_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4747_ _) => + let p0_ := + string_drop _s4746_ _s4747_ in + if generic_eq p0_ "" then + Some (FSGNJN_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4715_ (_s4716_ : string) : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) := + (match _s4716_ with + | _s4717_ => + (f_bin_type_mnemonic_D_matches_prefix _s4717_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_D, existT _ _s4718_ _) => + (match (string_drop _s4717_ _s4718_) with + | _s4719_ => + (spc_matches_prefix _s4719_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4720_ _) => + (match (string_drop _s4719_ _s4720_) with + | _s4721_ => + (freg_name_matches_prefix _s4721_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4722_ _) => + (match (string_drop _s4721_ _s4722_) with + | _s4723_ => + (sep_matches_prefix _s4723_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4724_ _) => + (match (string_drop _s4723_ _s4724_) with + | _s4725_ => + (freg_name_matches_prefix _s4725_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4726_ _) => + (match (string_drop _s4725_ _s4726_) with + | _s4727_ => + (sep_matches_prefix _s4727_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4728_ _) => + (match (string_drop _s4727_ _s4728_) with + | _s4729_ => + (freg_name_matches_prefix _s4729_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4730_ _) => + let p0_ := + string_drop _s4729_ _s4730_ in + if generic_eq p0_ "" then + Some (FSGNJ_D, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5))). + +Definition _s4698_ (_s4699_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4699_ with + | _s4700_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4700_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_S, existT _ _s4701_ _) => + (match (string_drop _s4700_ _s4701_) with + | _s4702_ => + (spc_matches_prefix _s4702_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4703_ _) => + (match (string_drop _s4702_ _s4703_) with + | _s4704_ => + (freg_name_matches_prefix _s4704_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4705_ _) => + (match (string_drop _s4704_ _s4705_) with + | _s4706_ => + (sep_matches_prefix _s4706_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4707_ _) => + (match (string_drop _s4706_ _s4707_) with + | _s4708_ => + (freg_name_matches_prefix _s4708_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4709_ _) => + (match (string_drop _s4708_ _s4709_) with + | _s4710_ => + (sep_matches_prefix _s4710_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4711_ _) => + (match (string_drop _s4710_ _s4711_) with + | _s4712_ => + (frm_mnemonic_matches_prefix _s4712_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4713_ _) => + let p0_ := + string_drop _s4712_ _s4713_ in + if generic_eq p0_ "" then + Some (FCVT_D_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4681_ (_s4682_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4682_ with + | _s4683_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4683_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_D, existT _ _s4684_ _) => + (match (string_drop _s4683_ _s4684_) with + | _s4685_ => + (spc_matches_prefix _s4685_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4686_ _) => + (match (string_drop _s4685_ _s4686_) with + | _s4687_ => + (freg_name_matches_prefix _s4687_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4688_ _) => + (match (string_drop _s4687_ _s4688_) with + | _s4689_ => + (sep_matches_prefix _s4689_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4690_ _) => + (match (string_drop _s4689_ _s4690_) with + | _s4691_ => + (freg_name_matches_prefix _s4691_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4692_ _) => + (match (string_drop _s4691_ _s4692_) with + | _s4693_ => + (sep_matches_prefix _s4693_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4694_ _) => + (match (string_drop _s4693_ _s4694_) with + | _s4695_ => + (frm_mnemonic_matches_prefix _s4695_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4696_ _) => + let p0_ := + string_drop _s4695_ _s4696_ in + if generic_eq p0_ "" then + Some (FCVT_S_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4664_ (_s4665_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4665_ with + | _s4666_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4666_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_LU, existT _ _s4667_ _) => + (match (string_drop _s4666_ _s4667_) with + | _s4668_ => + (spc_matches_prefix _s4668_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4669_ _) => + (match (string_drop _s4668_ _s4669_) with + | _s4670_ => + (freg_name_matches_prefix _s4670_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4671_ _) => + (match (string_drop _s4670_ _s4671_) with + | _s4672_ => + (sep_matches_prefix _s4672_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4673_ _) => + (match (string_drop _s4672_ _s4673_) with + | _s4674_ => + (reg_name_matches_prefix _s4674_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4675_ _) => + (match (string_drop _s4674_ _s4675_) with + | _s4676_ => + (sep_matches_prefix _s4676_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4677_ _) => + (match (string_drop _s4676_ _s4677_) with + | _s4678_ => + (frm_mnemonic_matches_prefix _s4678_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4679_ _) => + let p0_ := + string_drop _s4678_ _s4679_ in + if generic_eq p0_ "" then + Some (FCVT_D_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4647_ (_s4648_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4648_ with + | _s4649_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4649_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_L, existT _ _s4650_ _) => + (match (string_drop _s4649_ _s4650_) with + | _s4651_ => + (spc_matches_prefix _s4651_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4652_ _) => + (match (string_drop _s4651_ _s4652_) with + | _s4653_ => + (freg_name_matches_prefix _s4653_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4654_ _) => + (match (string_drop _s4653_ _s4654_) with + | _s4655_ => + (sep_matches_prefix _s4655_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4656_ _) => + (match (string_drop _s4655_ _s4656_) with + | _s4657_ => + (reg_name_matches_prefix _s4657_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4658_ _) => + (match (string_drop _s4657_ _s4658_) with + | _s4659_ => + (sep_matches_prefix _s4659_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4660_ _) => + (match (string_drop _s4659_ _s4660_) with + | _s4661_ => + (frm_mnemonic_matches_prefix _s4661_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4662_ _) => + let p0_ := + string_drop _s4661_ _s4662_ in + if generic_eq p0_ "" then + Some (FCVT_D_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4630_ (_s4631_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4631_ with + | _s4632_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4632_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_D, existT _ _s4633_ _) => + (match (string_drop _s4632_ _s4633_) with + | _s4634_ => + (spc_matches_prefix _s4634_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4635_ _) => + (match (string_drop _s4634_ _s4635_) with + | _s4636_ => + (reg_name_matches_prefix _s4636_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4637_ _) => + (match (string_drop _s4636_ _s4637_) with + | _s4638_ => + (sep_matches_prefix _s4638_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4639_ _) => + (match (string_drop _s4638_ _s4639_) with + | _s4640_ => + (freg_name_matches_prefix _s4640_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4641_ _) => + (match (string_drop _s4640_ _s4641_) with + | _s4642_ => + (sep_matches_prefix _s4642_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4643_ _) => + (match (string_drop _s4642_ _s4643_) with + | _s4644_ => + (frm_mnemonic_matches_prefix _s4644_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4645_ _) => + let p0_ := + string_drop _s4644_ _s4645_ in + if generic_eq p0_ "" then + Some (FCVT_LU_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4613_ (_s4614_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4614_ with + | _s4615_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4615_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_D, existT _ _s4616_ _) => + (match (string_drop _s4615_ _s4616_) with + | _s4617_ => + (spc_matches_prefix _s4617_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4618_ _) => + (match (string_drop _s4617_ _s4618_) with + | _s4619_ => + (reg_name_matches_prefix _s4619_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4620_ _) => + (match (string_drop _s4619_ _s4620_) with + | _s4621_ => + (sep_matches_prefix _s4621_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4622_ _) => + (match (string_drop _s4621_ _s4622_) with + | _s4623_ => + (freg_name_matches_prefix _s4623_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4624_ _) => + (match (string_drop _s4623_ _s4624_) with + | _s4625_ => + (sep_matches_prefix _s4625_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4626_ _) => + (match (string_drop _s4625_ _s4626_) with + | _s4627_ => + (frm_mnemonic_matches_prefix _s4627_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4628_ _) => + let p0_ := + string_drop _s4627_ _s4628_ in + if generic_eq p0_ "" then + Some (FCVT_L_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4596_ (_s4597_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4597_ with + | _s4598_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4598_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_WU, existT _ _s4599_ _) => + (match (string_drop _s4598_ _s4599_) with + | _s4600_ => + (spc_matches_prefix _s4600_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4601_ _) => + (match (string_drop _s4600_ _s4601_) with + | _s4602_ => + (freg_name_matches_prefix _s4602_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4603_ _) => + (match (string_drop _s4602_ _s4603_) with + | _s4604_ => + (sep_matches_prefix _s4604_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4605_ _) => + (match (string_drop _s4604_ _s4605_) with + | _s4606_ => + (reg_name_matches_prefix _s4606_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4607_ _) => + (match (string_drop _s4606_ _s4607_) with + | _s4608_ => + (sep_matches_prefix _s4608_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4609_ _) => + (match (string_drop _s4608_ _s4609_) with + | _s4610_ => + (frm_mnemonic_matches_prefix _s4610_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4611_ _) => + let p0_ := + string_drop _s4610_ _s4611_ in + if generic_eq p0_ "" then + Some (FCVT_D_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4579_ (_s4580_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4580_ with + | _s4581_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4581_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_W, existT _ _s4582_ _) => + (match (string_drop _s4581_ _s4582_) with + | _s4583_ => + (spc_matches_prefix _s4583_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4584_ _) => + (match (string_drop _s4583_ _s4584_) with + | _s4585_ => + (freg_name_matches_prefix _s4585_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4586_ _) => + (match (string_drop _s4585_ _s4586_) with + | _s4587_ => + (sep_matches_prefix _s4587_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4588_ _) => + (match (string_drop _s4587_ _s4588_) with + | _s4589_ => + (reg_name_matches_prefix _s4589_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4590_ _) => + (match (string_drop _s4589_ _s4590_) with + | _s4591_ => + (sep_matches_prefix _s4591_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4592_ _) => + (match (string_drop _s4591_ _s4592_) with + | _s4593_ => + (frm_mnemonic_matches_prefix _s4593_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4594_ _) => + let p0_ := + string_drop _s4593_ _s4594_ in + if generic_eq p0_ "" then + Some (FCVT_D_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4562_ (_s4563_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4563_ with + | _s4564_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4564_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_D, existT _ _s4565_ _) => + (match (string_drop _s4564_ _s4565_) with + | _s4566_ => + (spc_matches_prefix _s4566_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4567_ _) => + (match (string_drop _s4566_ _s4567_) with + | _s4568_ => + (reg_name_matches_prefix _s4568_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4569_ _) => + (match (string_drop _s4568_ _s4569_) with + | _s4570_ => + (sep_matches_prefix _s4570_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4571_ _) => + (match (string_drop _s4570_ _s4571_) with + | _s4572_ => + (freg_name_matches_prefix _s4572_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4573_ _) => + (match (string_drop _s4572_ _s4573_) with + | _s4574_ => + (sep_matches_prefix _s4574_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4575_ _) => + (match (string_drop _s4574_ _s4575_) with + | _s4576_ => + (frm_mnemonic_matches_prefix _s4576_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4577_ _) => + let p0_ := + string_drop _s4576_ _s4577_ in + if generic_eq p0_ "" then + Some (FCVT_WU_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4545_ (_s4546_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4546_ with + | _s4547_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4547_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_D, existT _ _s4548_ _) => + (match (string_drop _s4547_ _s4548_) with + | _s4549_ => + (spc_matches_prefix _s4549_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4550_ _) => + (match (string_drop _s4549_ _s4550_) with + | _s4551_ => + (reg_name_matches_prefix _s4551_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4552_ _) => + (match (string_drop _s4551_ _s4552_) with + | _s4553_ => + (sep_matches_prefix _s4553_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4554_ _) => + (match (string_drop _s4553_ _s4554_) with + | _s4555_ => + (freg_name_matches_prefix _s4555_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4556_ _) => + (match (string_drop _s4555_ _s4556_) with + | _s4557_ => + (sep_matches_prefix _s4557_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4558_ _) => + (match (string_drop _s4557_ _s4558_) with + | _s4559_ => + (frm_mnemonic_matches_prefix _s4559_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4560_ _) => + let p0_ := + string_drop _s4559_ _s4560_ in + if generic_eq p0_ "" then + Some (FCVT_W_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). + +Definition _s4528_ (_s4529_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) := + (match _s4529_ with + | _s4530_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s4530_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_D, existT _ _s4531_ _) => + (match (string_drop _s4530_ _s4531_) with + | _s4532_ => + (spc_matches_prefix _s4532_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4533_ _) => + (match (string_drop _s4532_ _s4533_) with + | _s4534_ => + (freg_name_matches_prefix _s4534_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4535_ _) => + (match (string_drop _s4534_ _s4535_) with + | _s4536_ => + (sep_matches_prefix _s4536_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4537_ _) => + (match (string_drop _s4536_ _s4537_) with + | _s4538_ => + (freg_name_matches_prefix _s4538_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4539_ _) => + (match (string_drop _s4538_ _s4539_) with + | _s4540_ => + (sep_matches_prefix _s4540_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4541_ _) => + (match (string_drop _s4540_ _s4541_) with + | _s4542_ => + (frm_mnemonic_matches_prefix _s4542_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4543_ _) => + let p0_ := + string_drop _s4542_ _s4543_ in + if generic_eq p0_ "" then + Some (FSQRT_D, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode))). -Definition _s2506_ (_s2507_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12))) := - - (match _s2507_ with - | _s2508_ => - (csr_mnemonic_matches_prefix _s2508_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s4507_ (_s4508_ : string) +: M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s4508_ with + | _s4509_ => + (f_bin_rm_type_mnemonic_D_matches_prefix _s4509_) >>= fun w__0 : option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2509_ _)) => - let _s2510_ := string_drop _s2508_ _s2509_ in - (if ((string_startswith _s2510_ "i")) then - (match (string_drop _s2510_ (projT1 (string_length "i"))) with - | _s2511_ => - (spc_matches_prefix _s2511_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4510_ _) => + (match (string_drop _s4509_ _s4510_) with + | _s4511_ => + (spc_matches_prefix _s4511_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4512_ _) => + (match (string_drop _s4511_ _s4512_) with + | _s4513_ => + (freg_name_matches_prefix _s4513_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4514_ _) => + (match (string_drop _s4513_ _s4514_) with + | _s4515_ => + (sep_matches_prefix _s4515_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4516_ _) => + (match (string_drop _s4515_ _s4516_) with + | _s4517_ => + (freg_name_matches_prefix _s4517_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4518_ _) => + (match (string_drop _s4517_ _s4518_) with + | _s4519_ => + (sep_matches_prefix _s4519_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4520_ _) => + (match (string_drop _s4519_ _s4520_) with + | _s4521_ => + (freg_name_matches_prefix _s4521_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4522_ _) => + (match (string_drop _s4521_ _s4522_) with + | _s4523_ => + (sep_matches_prefix _s4523_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4524_ _) => + (match (string_drop _s4523_ + _s4524_) with + | _s4525_ => + (frm_mnemonic_matches_prefix + _s4525_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s4526_ _) => + let p0_ := + string_drop + _s4525_ + _s4526_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s4482_ (_s4483_ : string) +: M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s4483_ with + | _s4484_ => + (f_madd_type_mnemonic_D_matches_prefix _s4484_) >>= fun w__0 : option ((f_madd_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4485_ _) => + (match (string_drop _s4484_ _s4485_) with + | _s4486_ => + (spc_matches_prefix _s4486_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4487_ _) => + (match (string_drop _s4486_ _s4487_) with + | _s4488_ => + (freg_name_matches_prefix _s4488_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4489_ _) => + (match (string_drop _s4488_ _s4489_) with + | _s4490_ => + (sep_matches_prefix _s4490_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4491_ _) => + (match (string_drop _s4490_ _s4491_) with + | _s4492_ => + (freg_name_matches_prefix _s4492_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4493_ _) => + (match (string_drop _s4492_ _s4493_) with + | _s4494_ => + (sep_matches_prefix _s4494_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4495_ _) => + (match (string_drop _s4494_ _s4495_) with + | _s4496_ => + (freg_name_matches_prefix _s4496_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4497_ _) => + (match (string_drop _s4496_ _s4497_) with + | _s4498_ => + (sep_matches_prefix _s4498_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4499_ _) => + (match (string_drop _s4498_ + _s4499_) with + | _s4500_ => + (freg_name_matches_prefix + _s4500_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s4501_ _) => + (match (string_drop + _s4500_ _s4501_) with + | _s4502_ => + (sep_matches_prefix + _s4502_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s4503_ _) => + (match (string_drop + _s4502_ + _s4503_) with + | _s4504_ => + (frm_mnemonic_matches_prefix + _s4504_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s4505_ _) => + let p0_ := + string_drop + _s4504_ + _s4505_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s4466_ (_s4467_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s4468_ := _s4467_ in + (if string_startswith _s4468_ "c.fsw" then + (match (string_drop _s4468_ (projT1 (string_length "c.fsw"))) with + | _s4469_ => + (spc_matches_prefix _s4469_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4470_ _) => + (match (string_drop _s4469_ _s4470_) with + | _s4471_ => + (creg_name_matches_prefix _s4471_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2512_ _)) => - (match (string_drop _s2511_ _s2512_) with - | _s2513_ => - (reg_name_matches_prefix _s2513_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s4472_ _) => + (match (string_drop _s4471_ _s4472_) with + | _s4473_ => + (sep_matches_prefix _s4473_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2514_ _)) => - (match (string_drop _s2513_ _s2514_) with - | _s2515_ => - (sep_matches_prefix _s2515_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4474_ _) => + (match (string_drop _s4473_ _s4474_) with + | _s4475_ => + (creg_name_matches_prefix _s4475_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2516_ _)) => - (match (string_drop _s2515_ _s2516_) with - | _s2517_ => - (match (hex_bits_5_matches_prefix _s2517_) with - | Some ((rs1, existT _ _s2518_ _)) => - (match (string_drop _s2517_ _s2518_) with - | _s2519_ => - (sep_matches_prefix _s2519_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s4476_ _) => + (match (string_drop _s4475_ _s4476_) with + | _s4477_ => + (sep_matches_prefix _s4477_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s4478_ _) => + match (string_drop _s4477_ _s4478_) with + | _s4479_ => + match (hex_bits_7_matches_prefix _s4479_) with + | Some (v__1362, existT _ _s4480_ _) => + if eq_vec (subrange_vec_dec v__1362 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1362 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1362 6 2 in + let p0_ := string_drop _s4479_ _s4480_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s4450_ (_s4451_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s4452_ := _s4451_ in + (if string_startswith _s4452_ "c.flw" then + (match (string_drop _s4452_ (projT1 (string_length "c.flw"))) with + | _s4453_ => + (spc_matches_prefix _s4453_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4454_ _) => + (match (string_drop _s4453_ _s4454_) with + | _s4455_ => + (creg_name_matches_prefix _s4455_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s4456_ _) => + (match (string_drop _s4455_ _s4456_) with + | _s4457_ => + (sep_matches_prefix _s4457_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s4458_ _) => + (match (string_drop _s4457_ _s4458_) with + | _s4459_ => + (creg_name_matches_prefix _s4459_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s4460_ _) => + (match (string_drop _s4459_ _s4460_) with + | _s4461_ => + (sep_matches_prefix _s4461_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s4462_ _) => + match (string_drop _s4461_ _s4462_) with + | _s4463_ => + match (hex_bits_7_matches_prefix _s4463_) with + | Some (v__1364, existT _ _s4464_ _) => + if eq_vec (subrange_vec_dec v__1364 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1364 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1364 6 2 in + let p0_ := string_drop _s4463_ _s4464_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5))) + end) + : M (option ((mword 3 * mword 3 * mword 5))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5))). + +Definition _s4438_ (_s4439_ : string) : M (option ((mword 5 * mword 6))) := + let _s4440_ := _s4439_ in + (if string_startswith _s4440_ "c.fswsp" then + (match (string_drop _s4440_ (projT1 (string_length "c.fswsp"))) with + | _s4441_ => + (spc_matches_prefix _s4441_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4442_ _) => + (match (string_drop _s4441_ _s4442_) with + | _s4443_ => + (reg_name_matches_prefix _s4443_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s4444_ _) => + (match (string_drop _s4443_ _s4444_) with + | _s4445_ => + (sep_matches_prefix _s4445_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s4446_ _) => + match (string_drop _s4445_ _s4446_) with + | _s4447_ => + match (hex_bits_6_matches_prefix _s4447_) with + | Some (uimm, existT _ _s4448_ _) => + let p0_ := string_drop _s4447_ _s4448_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s4426_ (_s4427_ : string) : M (option ((mword 5 * mword 6))) := + let _s4428_ := _s4427_ in + (if string_startswith _s4428_ "c.flwsp" then + (match (string_drop _s4428_ (projT1 (string_length "c.flwsp"))) with + | _s4429_ => + (spc_matches_prefix _s4429_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s4430_ _) => + (match (string_drop _s4429_ _s4430_) with + | _s4431_ => + (reg_name_matches_prefix _s4431_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s4432_ _) => + (match (string_drop _s4431_ _s4432_) with + | _s4433_ => + (sep_matches_prefix _s4433_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s4434_ _) => + match (string_drop _s4433_ _s4434_) with + | _s4435_ => + match (hex_bits_6_matches_prefix _s4435_) with + | Some (imm, existT _ _s4436_ _) => + let p0_ := string_drop _s4435_ _s4436_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6))) + end) + : M (option ((mword 5 * mword 6))) + else returnm None) + : M (option ((mword 5 * mword 6))). + +Definition _s4413_ (_s4414_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s4414_ with + | _s4415_ => + (f_un_type_mnemonic_S_matches_prefix _s4415_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s4416_ _) => + (match (string_drop _s4415_ _s4416_) with + | _s4417_ => + (spc_matches_prefix _s4417_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4418_ _) => + (match (string_drop _s4417_ _s4418_) with + | _s4419_ => + (reg_name_matches_prefix _s4419_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4420_ _) => + (match (string_drop _s4419_ _s4420_) with + | _s4421_ => + (sep_matches_prefix _s4421_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4422_ _) => + (match (string_drop _s4421_ _s4422_) with + | _s4423_ => + (freg_name_matches_prefix _s4423_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4424_ _) => + let p0_ := string_drop _s4423_ _s4424_ in + if generic_eq p0_ "" then + Some (FCLASS_S, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s4400_ (_s4401_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s4401_ with + | _s4402_ => + (f_un_type_mnemonic_S_matches_prefix _s4402_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_W_X, existT _ _s4403_ _) => + (match (string_drop _s4402_ _s4403_) with + | _s4404_ => + (spc_matches_prefix _s4404_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4405_ _) => + (match (string_drop _s4404_ _s4405_) with + | _s4406_ => + (freg_name_matches_prefix _s4406_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4407_ _) => + (match (string_drop _s4406_ _s4407_) with + | _s4408_ => + (sep_matches_prefix _s4408_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4409_ _) => + (match (string_drop _s4408_ _s4409_) with + | _s4410_ => + (reg_name_matches_prefix _s4410_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4411_ _) => + let p0_ := string_drop _s4410_ _s4411_ in + if generic_eq p0_ "" then Some (FMV_W_X, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s4387_ (_s4388_ : string) : M (option ((f_un_op_S * mword 5 * mword 5))) := + (match _s4388_ with + | _s4389_ => + (f_un_type_mnemonic_S_matches_prefix _s4389_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_W, existT _ _s4390_ _) => + (match (string_drop _s4389_ _s4390_) with + | _s4391_ => + (spc_matches_prefix _s4391_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4392_ _) => + (match (string_drop _s4391_ _s4392_) with + | _s4393_ => + (reg_name_matches_prefix _s4393_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4394_ _) => + (match (string_drop _s4393_ _s4394_) with + | _s4395_ => + (sep_matches_prefix _s4395_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4396_ _) => + (match (string_drop _s4395_ _s4396_) with + | _s4397_ => + (freg_name_matches_prefix _s4397_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s4398_ _) => + let p0_ := string_drop _s4397_ _s4398_ in + if generic_eq p0_ "" then Some (FMV_X_W, rd, rs1) + else None + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5))). + +Definition _s4370_ (_s4371_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4371_ with + | _s4372_ => + (f_bin_type_mnemonic_S_matches_prefix _s4372_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_S, existT _ _s4373_ _) => + (match (string_drop _s4372_ _s4373_) with + | _s4374_ => + (spc_matches_prefix _s4374_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4375_ _) => + (match (string_drop _s4374_ _s4375_) with + | _s4376_ => + (reg_name_matches_prefix _s4376_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4377_ _) => + (match (string_drop _s4376_ _s4377_) with + | _s4378_ => + (sep_matches_prefix _s4378_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4379_ _) => + (match (string_drop _s4378_ _s4379_) with + | _s4380_ => + (freg_name_matches_prefix _s4380_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4381_ _) => + (match (string_drop _s4380_ _s4381_) with + | _s4382_ => + (sep_matches_prefix _s4382_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4383_ _) => + (match (string_drop _s4382_ _s4383_) with + | _s4384_ => + (freg_name_matches_prefix _s4384_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4385_ _) => + let p0_ := + string_drop _s4384_ _s4385_ in + if generic_eq p0_ "" then + Some (FLE_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4353_ (_s4354_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4354_ with + | _s4355_ => + (f_bin_type_mnemonic_S_matches_prefix _s4355_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s4356_ _) => + (match (string_drop _s4355_ _s4356_) with + | _s4357_ => + (spc_matches_prefix _s4357_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4358_ _) => + (match (string_drop _s4357_ _s4358_) with + | _s4359_ => + (reg_name_matches_prefix _s4359_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4360_ _) => + (match (string_drop _s4359_ _s4360_) with + | _s4361_ => + (sep_matches_prefix _s4361_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4362_ _) => + (match (string_drop _s4361_ _s4362_) with + | _s4363_ => + (freg_name_matches_prefix _s4363_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4364_ _) => + (match (string_drop _s4363_ _s4364_) with + | _s4365_ => + (sep_matches_prefix _s4365_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4366_ _) => + (match (string_drop _s4365_ _s4366_) with + | _s4367_ => + (freg_name_matches_prefix _s4367_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4368_ _) => + let p0_ := + string_drop _s4367_ _s4368_ in + if generic_eq p0_ "" then + Some (FLT_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4336_ (_s4337_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4337_ with + | _s4338_ => + (f_bin_type_mnemonic_S_matches_prefix _s4338_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_S, existT _ _s4339_ _) => + (match (string_drop _s4338_ _s4339_) with + | _s4340_ => + (spc_matches_prefix _s4340_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4341_ _) => + (match (string_drop _s4340_ _s4341_) with + | _s4342_ => + (reg_name_matches_prefix _s4342_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4343_ _) => + (match (string_drop _s4342_ _s4343_) with + | _s4344_ => + (sep_matches_prefix _s4344_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4345_ _) => + (match (string_drop _s4344_ _s4345_) with + | _s4346_ => + (freg_name_matches_prefix _s4346_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4347_ _) => + (match (string_drop _s4346_ _s4347_) with + | _s4348_ => + (sep_matches_prefix _s4348_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4349_ _) => + (match (string_drop _s4348_ _s4349_) with + | _s4350_ => + (freg_name_matches_prefix _s4350_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4351_ _) => + let p0_ := + string_drop _s4350_ _s4351_ in + if generic_eq p0_ "" then + Some (FEQ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4319_ (_s4320_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4320_ with + | _s4321_ => + (f_bin_type_mnemonic_S_matches_prefix _s4321_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s4322_ _) => + (match (string_drop _s4321_ _s4322_) with + | _s4323_ => + (spc_matches_prefix _s4323_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4324_ _) => + (match (string_drop _s4323_ _s4324_) with + | _s4325_ => + (freg_name_matches_prefix _s4325_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4326_ _) => + (match (string_drop _s4325_ _s4326_) with + | _s4327_ => + (sep_matches_prefix _s4327_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4328_ _) => + (match (string_drop _s4327_ _s4328_) with + | _s4329_ => + (freg_name_matches_prefix _s4329_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4330_ _) => + (match (string_drop _s4329_ _s4330_) with + | _s4331_ => + (sep_matches_prefix _s4331_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4332_ _) => + (match (string_drop _s4331_ _s4332_) with + | _s4333_ => + (freg_name_matches_prefix _s4333_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4334_ _) => + let p0_ := + string_drop _s4333_ _s4334_ in + if generic_eq p0_ "" then + Some (FMAX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4302_ (_s4303_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4303_ with + | _s4304_ => + (f_bin_type_mnemonic_S_matches_prefix _s4304_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s4305_ _) => + (match (string_drop _s4304_ _s4305_) with + | _s4306_ => + (spc_matches_prefix _s4306_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4307_ _) => + (match (string_drop _s4306_ _s4307_) with + | _s4308_ => + (freg_name_matches_prefix _s4308_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4309_ _) => + (match (string_drop _s4308_ _s4309_) with + | _s4310_ => + (sep_matches_prefix _s4310_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4311_ _) => + (match (string_drop _s4310_ _s4311_) with + | _s4312_ => + (freg_name_matches_prefix _s4312_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4313_ _) => + (match (string_drop _s4312_ _s4313_) with + | _s4314_ => + (sep_matches_prefix _s4314_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4315_ _) => + (match (string_drop _s4314_ _s4315_) with + | _s4316_ => + (freg_name_matches_prefix _s4316_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4317_ _) => + let p0_ := + string_drop _s4316_ _s4317_ in + if generic_eq p0_ "" then + Some (FMIN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4285_ (_s4286_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4286_ with + | _s4287_ => + (f_bin_type_mnemonic_S_matches_prefix _s4287_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s4288_ _) => + (match (string_drop _s4287_ _s4288_) with + | _s4289_ => + (spc_matches_prefix _s4289_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4290_ _) => + (match (string_drop _s4289_ _s4290_) with + | _s4291_ => + (freg_name_matches_prefix _s4291_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4292_ _) => + (match (string_drop _s4291_ _s4292_) with + | _s4293_ => + (sep_matches_prefix _s4293_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4294_ _) => + (match (string_drop _s4293_ _s4294_) with + | _s4295_ => + (freg_name_matches_prefix _s4295_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4296_ _) => + (match (string_drop _s4295_ _s4296_) with + | _s4297_ => + (sep_matches_prefix _s4297_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4298_ _) => + (match (string_drop _s4297_ _s4298_) with + | _s4299_ => + (freg_name_matches_prefix _s4299_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4300_ _) => + let p0_ := + string_drop _s4299_ _s4300_ in + if generic_eq p0_ "" then + Some (FSGNJX_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4268_ (_s4269_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4269_ with + | _s4270_ => + (f_bin_type_mnemonic_S_matches_prefix _s4270_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s4271_ _) => + (match (string_drop _s4270_ _s4271_) with + | _s4272_ => + (spc_matches_prefix _s4272_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4273_ _) => + (match (string_drop _s4272_ _s4273_) with + | _s4274_ => + (freg_name_matches_prefix _s4274_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4275_ _) => + (match (string_drop _s4274_ _s4275_) with + | _s4276_ => + (sep_matches_prefix _s4276_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4277_ _) => + (match (string_drop _s4276_ _s4277_) with + | _s4278_ => + (freg_name_matches_prefix _s4278_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4279_ _) => + (match (string_drop _s4278_ _s4279_) with + | _s4280_ => + (sep_matches_prefix _s4280_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4281_ _) => + (match (string_drop _s4280_ _s4281_) with + | _s4282_ => + (freg_name_matches_prefix _s4282_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4283_ _) => + let p0_ := + string_drop _s4282_ _s4283_ in + if generic_eq p0_ "" then + Some (FSGNJN_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4251_ (_s4252_ : string) : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) := + (match _s4252_ with + | _s4253_ => + (f_bin_type_mnemonic_S_matches_prefix _s4253_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_S, existT _ _s4254_ _) => + (match (string_drop _s4253_ _s4254_) with + | _s4255_ => + (spc_matches_prefix _s4255_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4256_ _) => + (match (string_drop _s4255_ _s4256_) with + | _s4257_ => + (freg_name_matches_prefix _s4257_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4258_ _) => + (match (string_drop _s4257_ _s4258_) with + | _s4259_ => + (sep_matches_prefix _s4259_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4260_ _) => + (match (string_drop _s4259_ _s4260_) with + | _s4261_ => + (freg_name_matches_prefix _s4261_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4262_ _) => + (match (string_drop _s4261_ _s4262_) with + | _s4263_ => + (sep_matches_prefix _s4263_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4264_ _) => + (match (string_drop _s4263_ _s4264_) with + | _s4265_ => + (freg_name_matches_prefix _s4265_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s4266_ _) => + let p0_ := + string_drop _s4265_ _s4266_ in + if generic_eq p0_ "" then + Some (FSGNJ_S, rd, rs1, rs2) + else None + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5))). + +Definition _s4234_ (_s4235_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4235_ with + | _s4236_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4236_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s4237_ _) => + (match (string_drop _s4236_ _s4237_) with + | _s4238_ => + (spc_matches_prefix _s4238_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4239_ _) => + (match (string_drop _s4238_ _s4239_) with + | _s4240_ => + (freg_name_matches_prefix _s4240_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4241_ _) => + (match (string_drop _s4240_ _s4241_) with + | _s4242_ => + (sep_matches_prefix _s4242_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4243_ _) => + (match (string_drop _s4242_ _s4243_) with + | _s4244_ => + (reg_name_matches_prefix _s4244_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4245_ _) => + (match (string_drop _s4244_ _s4245_) with + | _s4246_ => + (sep_matches_prefix _s4246_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4247_ _) => + (match (string_drop _s4246_ _s4247_) with + | _s4248_ => + (frm_mnemonic_matches_prefix _s4248_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4249_ _) => + let p0_ := + string_drop _s4248_ _s4249_ in + if generic_eq p0_ "" then + Some (FCVT_S_LU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4217_ (_s4218_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4218_ with + | _s4219_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4219_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s4220_ _) => + (match (string_drop _s4219_ _s4220_) with + | _s4221_ => + (spc_matches_prefix _s4221_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4222_ _) => + (match (string_drop _s4221_ _s4222_) with + | _s4223_ => + (freg_name_matches_prefix _s4223_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4224_ _) => + (match (string_drop _s4223_ _s4224_) with + | _s4225_ => + (sep_matches_prefix _s4225_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4226_ _) => + (match (string_drop _s4225_ _s4226_) with + | _s4227_ => + (reg_name_matches_prefix _s4227_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4228_ _) => + (match (string_drop _s4227_ _s4228_) with + | _s4229_ => + (sep_matches_prefix _s4229_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4230_ _) => + (match (string_drop _s4229_ _s4230_) with + | _s4231_ => + (frm_mnemonic_matches_prefix _s4231_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4232_ _) => + let p0_ := + string_drop _s4231_ _s4232_ in + if generic_eq p0_ "" then + Some (FCVT_S_L, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4200_ (_s4201_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4201_ with + | _s4202_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4202_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s4203_ _) => + (match (string_drop _s4202_ _s4203_) with + | _s4204_ => + (spc_matches_prefix _s4204_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4205_ _) => + (match (string_drop _s4204_ _s4205_) with + | _s4206_ => + (reg_name_matches_prefix _s4206_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4207_ _) => + (match (string_drop _s4206_ _s4207_) with + | _s4208_ => + (sep_matches_prefix _s4208_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4209_ _) => + (match (string_drop _s4208_ _s4209_) with + | _s4210_ => + (freg_name_matches_prefix _s4210_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4211_ _) => + (match (string_drop _s4210_ _s4211_) with + | _s4212_ => + (sep_matches_prefix _s4212_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4213_ _) => + (match (string_drop _s4212_ _s4213_) with + | _s4214_ => + (frm_mnemonic_matches_prefix _s4214_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4215_ _) => + let p0_ := + string_drop _s4214_ _s4215_ in + if generic_eq p0_ "" then + Some (FCVT_LU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4183_ (_s4184_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4184_ with + | _s4185_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4185_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s4186_ _) => + (match (string_drop _s4185_ _s4186_) with + | _s4187_ => + (spc_matches_prefix _s4187_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4188_ _) => + (match (string_drop _s4187_ _s4188_) with + | _s4189_ => + (reg_name_matches_prefix _s4189_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4190_ _) => + (match (string_drop _s4189_ _s4190_) with + | _s4191_ => + (sep_matches_prefix _s4191_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4192_ _) => + (match (string_drop _s4191_ _s4192_) with + | _s4193_ => + (freg_name_matches_prefix _s4193_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4194_ _) => + (match (string_drop _s4193_ _s4194_) with + | _s4195_ => + (sep_matches_prefix _s4195_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4196_ _) => + (match (string_drop _s4195_ _s4196_) with + | _s4197_ => + (frm_mnemonic_matches_prefix _s4197_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4198_ _) => + let p0_ := + string_drop _s4197_ _s4198_ in + if generic_eq p0_ "" then + Some (FCVT_L_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4166_ (_s4167_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4167_ with + | _s4168_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4168_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_WU, existT _ _s4169_ _) => + (match (string_drop _s4168_ _s4169_) with + | _s4170_ => + (spc_matches_prefix _s4170_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4171_ _) => + (match (string_drop _s4170_ _s4171_) with + | _s4172_ => + (freg_name_matches_prefix _s4172_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4173_ _) => + (match (string_drop _s4172_ _s4173_) with + | _s4174_ => + (sep_matches_prefix _s4174_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4175_ _) => + (match (string_drop _s4174_ _s4175_) with + | _s4176_ => + (reg_name_matches_prefix _s4176_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4177_ _) => + (match (string_drop _s4176_ _s4177_) with + | _s4178_ => + (sep_matches_prefix _s4178_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4179_ _) => + (match (string_drop _s4178_ _s4179_) with + | _s4180_ => + (frm_mnemonic_matches_prefix _s4180_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4181_ _) => + let p0_ := + string_drop _s4180_ _s4181_ in + if generic_eq p0_ "" then + Some (FCVT_S_WU, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4149_ (_s4150_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4150_ with + | _s4151_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4151_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s4152_ _) => + (match (string_drop _s4151_ _s4152_) with + | _s4153_ => + (spc_matches_prefix _s4153_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4154_ _) => + (match (string_drop _s4153_ _s4154_) with + | _s4155_ => + (freg_name_matches_prefix _s4155_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4156_ _) => + (match (string_drop _s4155_ _s4156_) with + | _s4157_ => + (sep_matches_prefix _s4157_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4158_ _) => + (match (string_drop _s4157_ _s4158_) with + | _s4159_ => + (reg_name_matches_prefix _s4159_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4160_ _) => + (match (string_drop _s4159_ _s4160_) with + | _s4161_ => + (sep_matches_prefix _s4161_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4162_ _) => + (match (string_drop _s4161_ _s4162_) with + | _s4163_ => + (frm_mnemonic_matches_prefix _s4163_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4164_ _) => + let p0_ := + string_drop _s4163_ _s4164_ in + if generic_eq p0_ "" then + Some (FCVT_S_W, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4132_ (_s4133_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4133_ with + | _s4134_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4134_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s4135_ _) => + (match (string_drop _s4134_ _s4135_) with + | _s4136_ => + (spc_matches_prefix _s4136_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4137_ _) => + (match (string_drop _s4136_ _s4137_) with + | _s4138_ => + (reg_name_matches_prefix _s4138_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4139_ _) => + (match (string_drop _s4138_ _s4139_) with + | _s4140_ => + (sep_matches_prefix _s4140_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4141_ _) => + (match (string_drop _s4140_ _s4141_) with + | _s4142_ => + (freg_name_matches_prefix _s4142_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4143_ _) => + (match (string_drop _s4142_ _s4143_) with + | _s4144_ => + (sep_matches_prefix _s4144_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4145_ _) => + (match (string_drop _s4144_ _s4145_) with + | _s4146_ => + (frm_mnemonic_matches_prefix _s4146_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4147_ _) => + let p0_ := + string_drop _s4146_ _s4147_ in + if generic_eq p0_ "" then + Some (FCVT_WU_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4115_ (_s4116_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4116_ with + | _s4117_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4117_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s4118_ _) => + (match (string_drop _s4117_ _s4118_) with + | _s4119_ => + (spc_matches_prefix _s4119_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4120_ _) => + (match (string_drop _s4119_ _s4120_) with + | _s4121_ => + (reg_name_matches_prefix _s4121_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4122_ _) => + (match (string_drop _s4121_ _s4122_) with + | _s4123_ => + (sep_matches_prefix _s4123_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4124_ _) => + (match (string_drop _s4123_ _s4124_) with + | _s4125_ => + (freg_name_matches_prefix _s4125_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4126_ _) => + (match (string_drop _s4125_ _s4126_) with + | _s4127_ => + (sep_matches_prefix _s4127_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4128_ _) => + (match (string_drop _s4127_ _s4128_) with + | _s4129_ => + (frm_mnemonic_matches_prefix _s4129_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4130_ _) => + let p0_ := + string_drop _s4129_ _s4130_ in + if generic_eq p0_ "" then + Some (FCVT_W_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4098_ (_s4099_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) := + (match _s4099_ with + | _s4100_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s4100_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s4101_ _) => + (match (string_drop _s4100_ _s4101_) with + | _s4102_ => + (spc_matches_prefix _s4102_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4103_ _) => + (match (string_drop _s4102_ _s4103_) with + | _s4104_ => + (freg_name_matches_prefix _s4104_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4105_ _) => + (match (string_drop _s4104_ _s4105_) with + | _s4106_ => + (sep_matches_prefix _s4106_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4107_ _) => + (match (string_drop _s4106_ _s4107_) with + | _s4108_ => + (freg_name_matches_prefix _s4108_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4109_ _) => + (match (string_drop _s4108_ _s4109_) with + | _s4110_ => + (sep_matches_prefix _s4110_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4111_ _) => + (match (string_drop _s4110_ _s4111_) with + | _s4112_ => + (frm_mnemonic_matches_prefix _s4112_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s4113_ _) => + let p0_ := + string_drop _s4112_ _s4113_ in + if generic_eq p0_ "" then + Some (FSQRT_S, rd, rs1, rm) + else None + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode))). + +Definition _s4077_ (_s4078_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s4078_ with + | _s4079_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s4079_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4080_ _) => + (match (string_drop _s4079_ _s4080_) with + | _s4081_ => + (spc_matches_prefix _s4081_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4082_ _) => + (match (string_drop _s4081_ _s4082_) with + | _s4083_ => + (freg_name_matches_prefix _s4083_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4084_ _) => + (match (string_drop _s4083_ _s4084_) with + | _s4085_ => + (sep_matches_prefix _s4085_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4086_ _) => + (match (string_drop _s4085_ _s4086_) with + | _s4087_ => + (freg_name_matches_prefix _s4087_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4088_ _) => + (match (string_drop _s4087_ _s4088_) with + | _s4089_ => + (sep_matches_prefix _s4089_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4090_ _) => + (match (string_drop _s4089_ _s4090_) with + | _s4091_ => + (freg_name_matches_prefix _s4091_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4092_ _) => + (match (string_drop _s4091_ _s4092_) with + | _s4093_ => + (sep_matches_prefix _s4093_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4094_ _) => + (match (string_drop _s4093_ + _s4094_) with + | _s4095_ => + (frm_mnemonic_matches_prefix + _s4095_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s4096_ _) => + let p0_ := + string_drop + _s4095_ + _s4096_ in + if generic_eq p0_ + "" then + Some + (op, rd, rs1, rs2, rm) + else None + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s4052_ (_s4053_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) := + (match _s4053_ with + | _s4054_ => + (f_madd_type_mnemonic_S_matches_prefix _s4054_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s4055_ _) => + (match (string_drop _s4054_ _s4055_) with + | _s4056_ => + (spc_matches_prefix _s4056_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4057_ _) => + (match (string_drop _s4056_ _s4057_) with + | _s4058_ => + (freg_name_matches_prefix _s4058_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4059_ _) => + (match (string_drop _s4058_ _s4059_) with + | _s4060_ => + (sep_matches_prefix _s4060_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4061_ _) => + (match (string_drop _s4060_ _s4061_) with + | _s4062_ => + (freg_name_matches_prefix _s4062_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s4063_ _) => + (match (string_drop _s4062_ _s4063_) with + | _s4064_ => + (sep_matches_prefix _s4064_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4065_ _) => + (match (string_drop _s4064_ _s4065_) with + | _s4066_ => + (freg_name_matches_prefix _s4066_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s4067_ _) => + (match (string_drop _s4066_ _s4067_) with + | _s4068_ => + (sep_matches_prefix _s4068_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s4069_ _) => + (match (string_drop _s4068_ + _s4069_) with + | _s4070_ => + (freg_name_matches_prefix + _s4070_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s4071_ _) => + (match (string_drop + _s4070_ _s4071_) with + | _s4072_ => + (sep_matches_prefix + _s4072_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s4073_ _) => + (match (string_drop + _s4072_ + _s4073_) with + | _s4074_ => + (frm_mnemonic_matches_prefix + _s4074_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s4075_ _) => + let p0_ := + string_drop + _s4074_ + _s4075_ in + if + generic_eq + p0_ + "" + then + Some + (op, rd, rs1, rs2, rs3, rm) + else + None + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode))). + +Definition _s4028_ (_s4029_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s4030_ := _s4029_ in + (if string_startswith _s4030_ "fs" then + (match (string_drop _s4030_ (projT1 (string_length "fs"))) with + | _s4031_ => + (size_mnemonic_matches_prefix _s4031_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s4032_ _) => + (match (string_drop _s4031_ _s4032_) with + | _s4033_ => + (spc_matches_prefix _s4033_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4034_ _) => + (match (string_drop _s4033_ _s4034_) with + | _s4035_ => + (freg_name_matches_prefix _s4035_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rs2, existT _ _s4036_ _) => + (match (string_drop _s4035_ _s4036_) with + | _s4037_ => + (sep_matches_prefix _s4037_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4038_ _) => + (match (string_drop _s4037_ _s4038_) with + | _s4039_ => + (match (hex_bits_12_matches_prefix _s4039_) with + | Some (imm, existT _ _s4040_ _) => + (match (string_drop _s4039_ _s4040_) with + | _s4041_ => + (opt_spc_matches_prefix _s4041_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2520_ _)) => - (match (string_drop _s2519_ _s2520_) with - | _s2521_ => - (csr_name_map_matches_prefix _s2521_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s2522_ _)) => - let p0_ := - string_drop _s2521_ _s2522_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, csr)) - else None - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + | Some (tt, existT _ _s4042_ _) => + let _s4043_ := string_drop _s4041_ _s4042_ in + (if string_startswith _s4043_ "(" then + (match (string_drop _s4043_ + (projT1 + (string_length "("))) with + | _s4044_ => + (opt_spc_matches_prefix _s4044_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4045_ _) => + (match (string_drop _s4044_ _s4045_) with + | _s4046_ => + (reg_name_matches_prefix + _s4046_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s4047_ _) => + (match (string_drop _s4046_ + _s4047_) with + | _s4048_ => + (opt_spc_matches_prefix + _s4048_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s4049_ _) => + let _s4050_ := + string_drop + _s4048_ + _s4049_ in + if string_startswith + _s4050_ + ")" + then + let p0_ := + string_drop + _s4050_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rs2, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12))) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s4004_ (_s4005_ : string) : M (option ((word_width * mword 5 * mword 12 * mword 5))) := + let _s4006_ := _s4005_ in + (if string_startswith _s4006_ "fl" then + (match (string_drop _s4006_ (projT1 (string_length "fl"))) with + | _s4007_ => + (size_mnemonic_matches_prefix _s4007_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s4008_ _) => + (match (string_drop _s4007_ _s4008_) with + | _s4009_ => + (spc_matches_prefix _s4009_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s4010_ _) => + (match (string_drop _s4009_ _s4010_) with + | _s4011_ => + (freg_name_matches_prefix _s4011_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s4012_ _) => + (match (string_drop _s4011_ _s4012_) with + | _s4013_ => + (sep_matches_prefix _s4013_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s4014_ _) => + (match (string_drop _s4013_ _s4014_) with + | _s4015_ => + (match (hex_bits_12_matches_prefix _s4015_) with + | Some (imm, existT _ _s4016_ _) => + (match (string_drop _s4015_ _s4016_) with + | _s4017_ => + (opt_spc_matches_prefix _s4017_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s4018_ _) => + let _s4019_ := string_drop _s4017_ _s4018_ in + (if string_startswith _s4019_ "(" then + (match (string_drop _s4019_ + (projT1 + (string_length "("))) with + | _s4020_ => + (opt_spc_matches_prefix _s4020_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4021_ _) => + (match (string_drop _s4020_ _s4021_) with + | _s4022_ => + (reg_name_matches_prefix + _s4022_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s4023_ _) => + (match (string_drop _s4022_ + _s4023_) with + | _s4024_ => + (opt_spc_matches_prefix + _s4024_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s4025_ _) => + let _s4026_ := + string_drop + _s4024_ + _s4025_ in + if string_startswith + _s4026_ + ")" + then + let p0_ := + string_drop + _s4026_ + (projT1 + (string_length + ")")) in + if generic_eq + p0_ + "" + then + Some + (width, rd, imm, rs1) + else None + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5))). + +Definition _s3987_ (_s3988_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s3988_ with + | _s3989_ => + (csr_mnemonic_matches_prefix _s3989_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3990_ _) => + (match (string_drop _s3989_ _s3990_) with + | _s3991_ => + (spc_matches_prefix _s3991_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3992_ _) => + (match (string_drop _s3991_ _s3992_) with + | _s3993_ => + (reg_name_matches_prefix _s3993_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3994_ _) => + (match (string_drop _s3993_ _s3994_) with + | _s3995_ => + (sep_matches_prefix _s3995_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3996_ _) => + (match (string_drop _s3995_ _s3996_) with + | _s3997_ => + (csr_name_map_matches_prefix _s3997_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s3998_ _) => + (match (string_drop _s3997_ _s3998_) with + | _s3999_ => + (sep_matches_prefix _s3999_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s4000_ _) => + (match (string_drop _s3999_ _s4000_) with + | _s4001_ => + (reg_name_matches_prefix _s4001_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s4002_ _) => + let p0_ := + string_drop _s4001_ _s4002_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12))). - -Definition _s2487_ (_s2488_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2489_ := _s2488_ in - (if ((string_startswith _s2489_ "rem")) then - (match (string_drop _s2489_ (projT1 (string_length "rem"))) with - | _s2490_ => - (maybe_not_u_matches_prefix _s2490_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s3969_ (_s3970_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5))) := + (match _s3970_ with + | _s3971_ => + (csr_mnemonic_matches_prefix _s3971_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s3972_ _) => + let _s3973_ := string_drop _s3971_ _s3972_ in + (if string_startswith _s3973_ "i" then + (match (string_drop _s3973_ (projT1 (string_length "i"))) with + | _s3974_ => + (spc_matches_prefix _s3974_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s3975_ _) => + (match (string_drop _s3974_ _s3975_) with + | _s3976_ => + (reg_name_matches_prefix _s3976_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s3977_ _) => + (match (string_drop _s3976_ _s3977_) with + | _s3978_ => + (sep_matches_prefix _s3978_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s3979_ _) => + (match (string_drop _s3978_ _s3979_) with + | _s3980_ => + (csr_name_map_matches_prefix _s3980_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s3981_ _) => + (match (string_drop _s3980_ _s3981_) with + | _s3982_ => + (sep_matches_prefix _s3982_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s3983_ _) => + match (string_drop _s3982_ _s3983_) with + | _s3984_ => + match (hex_bits_5_matches_prefix + _s3984_) with + | Some (rs1, existT _ _s3985_ _) => + let p0_ := + string_drop _s3984_ _s3985_ in + if generic_eq p0_ "" then + Some (op, rd, csr, rs1) + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5))). + +Definition _s3950_ (_s3951_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3952_ := _s3951_ in + (if string_startswith _s3952_ "rem" then + (match (string_drop _s3952_ (projT1 (string_length "rem"))) with + | _s3953_ => + (maybe_not_u_matches_prefix _s3953_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2491_ _)) => - let _s2492_ := string_drop _s2490_ _s2491_ in - (if ((string_startswith _s2492_ "w")) then - (match (string_drop _s2492_ (projT1 (string_length "w"))) with - | _s2493_ => - (spc_matches_prefix _s2493_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3954_ _) => + let _s3955_ := string_drop _s3953_ _s3954_ in + (if string_startswith _s3955_ "w" then + (match (string_drop _s3955_ (projT1 (string_length "w"))) with + | _s3956_ => + (spc_matches_prefix _s3956_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2494_ _)) => - (match (string_drop _s2493_ _s2494_) with - | _s2495_ => - (reg_name_matches_prefix _s2495_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3957_ _) => + (match (string_drop _s3956_ _s3957_) with + | _s3958_ => + (reg_name_matches_prefix _s3958_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2496_ _)) => - (match (string_drop _s2495_ _s2496_) with - | _s2497_ => - (sep_matches_prefix _s2497_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3959_ _) => + (match (string_drop _s3958_ _s3959_) with + | _s3960_ => + (sep_matches_prefix _s3960_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2498_ _)) => - (match (string_drop _s2497_ _s2498_) with - | _s2499_ => - (reg_name_matches_prefix _s2499_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3961_ _) => + (match (string_drop _s3960_ _s3961_) with + | _s3962_ => + (reg_name_matches_prefix _s3962_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2500_ _)) => - (match (string_drop _s2499_ _s2500_) with - | _s2501_ => - (sep_matches_prefix _s2501_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3963_ _) => + (match (string_drop _s3962_ _s3963_) with + | _s3964_ => + (sep_matches_prefix _s3964_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2502_ _)) => - (match (string_drop _s2501_ _s2502_) with - | _s2503_ => - (reg_name_matches_prefix _s2503_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3965_ _) => + (match (string_drop _s3964_ _s3965_) with + | _s3966_ => + (reg_name_matches_prefix _s3966_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2504_ _)) => - let p0_ := - string_drop _s2503_ - _s2504_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s3967_ _) => + let p0_ := + string_drop _s3966_ + _s3967_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2468_ (_s2469_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2470_ := _s2469_ in - (if ((string_startswith _s2470_ "div")) then - (match (string_drop _s2470_ (projT1 (string_length "div"))) with - | _s2471_ => - (maybe_not_u_matches_prefix _s2471_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3931_ (_s3932_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3933_ := _s3932_ in + (if string_startswith _s3933_ "div" then + (match (string_drop _s3933_ (projT1 (string_length "div"))) with + | _s3934_ => + (maybe_not_u_matches_prefix _s3934_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2472_ _)) => - let _s2473_ := string_drop _s2471_ _s2472_ in - (if ((string_startswith _s2473_ "w")) then - (match (string_drop _s2473_ (projT1 (string_length "w"))) with - | _s2474_ => - (spc_matches_prefix _s2474_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3935_ _) => + let _s3936_ := string_drop _s3934_ _s3935_ in + (if string_startswith _s3936_ "w" then + (match (string_drop _s3936_ (projT1 (string_length "w"))) with + | _s3937_ => + (spc_matches_prefix _s3937_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2475_ _)) => - (match (string_drop _s2474_ _s2475_) with - | _s2476_ => - (reg_name_matches_prefix _s2476_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3938_ _) => + (match (string_drop _s3937_ _s3938_) with + | _s3939_ => + (reg_name_matches_prefix _s3939_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2477_ _)) => - (match (string_drop _s2476_ _s2477_) with - | _s2478_ => - (sep_matches_prefix _s2478_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3940_ _) => + (match (string_drop _s3939_ _s3940_) with + | _s3941_ => + (sep_matches_prefix _s3941_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2479_ _)) => - (match (string_drop _s2478_ _s2479_) with - | _s2480_ => - (reg_name_matches_prefix _s2480_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3942_ _) => + (match (string_drop _s3941_ _s3942_) with + | _s3943_ => + (reg_name_matches_prefix _s3943_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2481_ _)) => - (match (string_drop _s2480_ _s2481_) with - | _s2482_ => - (sep_matches_prefix _s2482_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3944_ _) => + (match (string_drop _s3943_ _s3944_) with + | _s3945_ => + (sep_matches_prefix _s3945_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2483_ _)) => - (match (string_drop _s2482_ _s2483_) with - | _s2484_ => - (reg_name_matches_prefix _s2484_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3946_ _) => + (match (string_drop _s3945_ _s3946_) with + | _s3947_ => + (reg_name_matches_prefix _s3947_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2485_ _)) => - let p0_ := - string_drop _s2484_ - _s2485_ in - if ((generic_eq p0_ "")) - then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some + (rs2, existT _ _s3948_ _) => + let p0_ := + string_drop _s3947_ + _s3948_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2452_ (_s2453_ : string) -: M (option ((mword 5 * mword 5 * mword 5))) := - - let _s2454_ := _s2453_ in - (if ((string_startswith _s2454_ "mulw")) then - (match (string_drop _s2454_ (projT1 (string_length "mulw"))) with - | _s2455_ => - (spc_matches_prefix _s2455_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3915_ (_s3916_ : string) : M (option ((mword 5 * mword 5 * mword 5))) := + let _s3917_ := _s3916_ in + (if string_startswith _s3917_ "mulw" then + (match (string_drop _s3917_ (projT1 (string_length "mulw"))) with + | _s3918_ => + (spc_matches_prefix _s3918_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2456_ _)) => - (match (string_drop _s2455_ _s2456_) with - | _s2457_ => - (reg_name_matches_prefix _s2457_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3919_ _) => + (match (string_drop _s3918_ _s3919_) with + | _s3920_ => + (reg_name_matches_prefix _s3920_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2458_ _)) => - (match (string_drop _s2457_ _s2458_) with - | _s2459_ => - (sep_matches_prefix _s2459_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3921_ _) => + (match (string_drop _s3920_ _s3921_) with + | _s3922_ => + (sep_matches_prefix _s3922_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2460_ _)) => - (match (string_drop _s2459_ _s2460_) with - | _s2461_ => - (reg_name_matches_prefix _s2461_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3923_ _) => + (match (string_drop _s3922_ _s3923_) with + | _s3924_ => + (reg_name_matches_prefix _s3924_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2462_ _)) => - (match (string_drop _s2461_ _s2462_) with - | _s2463_ => - (sep_matches_prefix _s2463_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3925_ _) => + (match (string_drop _s3924_ _s3925_) with + | _s3926_ => + (sep_matches_prefix _s3926_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2464_ _)) => - (match (string_drop _s2463_ _s2464_) with - | _s2465_ => - (reg_name_matches_prefix _s2465_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3927_ _) => + (match (string_drop _s3926_ _s3927_) with + | _s3928_ => + (reg_name_matches_prefix _s3928_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s2466_ _)) => - let p0_ := - string_drop _s2465_ _s2466_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (rs2, existT _ _s3929_ _) => + let p0_ := string_drop _s3928_ _s3929_ in + if generic_eq p0_ "" then + Some (rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5))). -Definition _s2434_ (_s2435_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2436_ := _s2435_ in - (if ((string_startswith _s2436_ "rem")) then - (match (string_drop _s2436_ (projT1 (string_length "rem"))) with - | _s2437_ => - (maybe_not_u_matches_prefix _s2437_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3897_ (_s3898_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3899_ := _s3898_ in + (if string_startswith _s3899_ "rem" then + (match (string_drop _s3899_ (projT1 (string_length "rem"))) with + | _s3900_ => + (maybe_not_u_matches_prefix _s3900_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2438_ _)) => - (match (string_drop _s2437_ _s2438_) with - | _s2439_ => - (spc_matches_prefix _s2439_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3901_ _) => + (match (string_drop _s3900_ _s3901_) with + | _s3902_ => + (spc_matches_prefix _s3902_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2440_ _)) => - (match (string_drop _s2439_ _s2440_) with - | _s2441_ => - (reg_name_matches_prefix _s2441_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3903_ _) => + (match (string_drop _s3902_ _s3903_) with + | _s3904_ => + (reg_name_matches_prefix _s3904_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2442_ _)) => - (match (string_drop _s2441_ _s2442_) with - | _s2443_ => - (sep_matches_prefix _s2443_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3905_ _) => + (match (string_drop _s3904_ _s3905_) with + | _s3906_ => + (sep_matches_prefix _s3906_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2444_ _)) => - (match (string_drop _s2443_ _s2444_) with - | _s2445_ => - (reg_name_matches_prefix _s2445_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3907_ _) => + (match (string_drop _s3906_ _s3907_) with + | _s3908_ => + (reg_name_matches_prefix _s3908_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2446_ _)) => - (match (string_drop _s2445_ _s2446_) with - | _s2447_ => - (sep_matches_prefix _s2447_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3909_ _) => + (match (string_drop _s3908_ _s3909_) with + | _s3910_ => + (sep_matches_prefix _s3910_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2448_ _)) => - (match (string_drop _s2447_ _s2448_) with - | _s2449_ => - (reg_name_matches_prefix _s2449_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3911_ _) => + (match (string_drop _s3910_ _s3911_) with + | _s3912_ => + (reg_name_matches_prefix _s3912_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2450_ _)) => - let p0_ := - string_drop _s2449_ _s2450_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3913_ _) => + let p0_ := + string_drop _s3912_ _s3913_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2416_ (_s2417_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5))) := - - let _s2418_ := _s2417_ in - (if ((string_startswith _s2418_ "div")) then - (match (string_drop _s2418_ (projT1 (string_length "div"))) with - | _s2419_ => - (maybe_not_u_matches_prefix _s2419_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s3879_ (_s3880_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5))) := + let _s3881_ := _s3880_ in + (if string_startswith _s3881_ "div" then + (match (string_drop _s3881_ (projT1 (string_length "div"))) with + | _s3882_ => + (maybe_not_u_matches_prefix _s3882_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s2420_ _)) => - (match (string_drop _s2419_ _s2420_) with - | _s2421_ => - (spc_matches_prefix _s2421_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s3883_ _) => + (match (string_drop _s3882_ _s3883_) with + | _s3884_ => + (spc_matches_prefix _s3884_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2422_ _)) => - (match (string_drop _s2421_ _s2422_) with - | _s2423_ => - (reg_name_matches_prefix _s2423_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3885_ _) => + (match (string_drop _s3884_ _s3885_) with + | _s3886_ => + (reg_name_matches_prefix _s3886_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2424_ _)) => - (match (string_drop _s2423_ _s2424_) with - | _s2425_ => - (sep_matches_prefix _s2425_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3887_ _) => + (match (string_drop _s3886_ _s3887_) with + | _s3888_ => + (sep_matches_prefix _s3888_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2426_ _)) => - (match (string_drop _s2425_ _s2426_) with - | _s2427_ => - (reg_name_matches_prefix _s2427_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3889_ _) => + (match (string_drop _s3888_ _s3889_) with + | _s3890_ => + (reg_name_matches_prefix _s3890_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2428_ _)) => - (match (string_drop _s2427_ _s2428_) with - | _s2429_ => - (sep_matches_prefix _s2429_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3891_ _) => + (match (string_drop _s3890_ _s3891_) with + | _s3892_ => + (sep_matches_prefix _s3892_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2430_ _)) => - (match (string_drop _s2429_ _s2430_) with - | _s2431_ => - (reg_name_matches_prefix _s2431_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3893_ _) => + (match (string_drop _s3892_ _s3893_) with + | _s3894_ => + (reg_name_matches_prefix _s3894_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s2432_ _)) => - let p0_ := - string_drop _s2431_ _s2432_ in - if ((generic_eq p0_ "")) then - Some - ((s, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3895_ _) => + let p0_ := + string_drop _s3894_ _s3895_ in + if generic_eq p0_ "" then + Some (s, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5))). -Definition _s2399_ (_s2400_ : string) +Definition _s3862_ (_s3863_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s2400_ with - | _s2401_ => - (mul_mnemonic_matches_prefix _s2401_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s3863_ with + | _s3864_ => + (mul_mnemonic_matches_prefix _s3864_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s2402_ _)) => - (match (string_drop _s2401_ _s2402_) with - | _s2403_ => - (spc_matches_prefix _s2403_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s3865_ _) => + (match (string_drop _s3864_ _s3865_) with + | _s3866_ => + (spc_matches_prefix _s3866_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2404_ _)) => - (match (string_drop _s2403_ _s2404_) with - | _s2405_ => - (reg_name_matches_prefix _s2405_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3867_ _) => + (match (string_drop _s3866_ _s3867_) with + | _s3868_ => + (reg_name_matches_prefix _s3868_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2406_ _)) => - (match (string_drop _s2405_ _s2406_) with - | _s2407_ => - (sep_matches_prefix _s2407_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3869_ _) => + (match (string_drop _s3868_ _s3869_) with + | _s3870_ => + (sep_matches_prefix _s3870_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2408_ _)) => - (match (string_drop _s2407_ _s2408_) with - | _s2409_ => - (reg_name_matches_prefix _s2409_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3871_ _) => + (match (string_drop _s3870_ _s3871_) with + | _s3872_ => + (reg_name_matches_prefix _s3872_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2410_ _)) => - (match (string_drop _s2409_ _s2410_) with - | _s2411_ => - (sep_matches_prefix _s2411_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3873_ _) => + (match (string_drop _s3872_ _s3873_) with + | _s3874_ => + (sep_matches_prefix _s3874_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2412_ _)) => - (match (string_drop _s2411_ _s2412_) with - | _s2413_ => - (reg_name_matches_prefix _s2413_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3875_ _) => + (match (string_drop _s3874_ _s3875_) with + | _s3876_ => + (reg_name_matches_prefix _s3876_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2414_ _)) => - let p0_ := - string_drop _s2413_ _s2414_ in - if ((generic_eq p0_ "")) then - Some - ((high, signed1, signed2, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3877_ _) => + let p0_ := + string_drop _s3876_ _s3877_ in + if generic_eq p0_ "" then + Some + (high, signed1, signed2, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s2387_ (_s2388_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s2389_ := _s2388_ in - (if ((string_startswith _s2389_ "c.add")) then - (match (string_drop _s2389_ (projT1 (string_length "c.add"))) with - | _s2390_ => - (spc_matches_prefix _s2390_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3850_ (_s3851_ : string) : M (option ((mword 5 * mword 5))) := + let _s3852_ := _s3851_ in + (if string_startswith _s3852_ "c.add" then + (match (string_drop _s3852_ (projT1 (string_length "c.add"))) with + | _s3853_ => + (spc_matches_prefix _s3853_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2391_ _)) => - (match (string_drop _s2390_ _s2391_) with - | _s2392_ => - (reg_name_matches_prefix _s2392_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3854_ _) => + (match (string_drop _s3853_ _s3854_) with + | _s3855_ => + (reg_name_matches_prefix _s3855_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2393_ _)) => - (match (string_drop _s2392_ _s2393_) with - | _s2394_ => - (sep_matches_prefix _s2394_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3856_ _) => + (match (string_drop _s3855_ _s3856_) with + | _s3857_ => + (sep_matches_prefix _s3857_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2395_ _)) => - (match (string_drop _s2394_ _s2395_) with - | _s2396_ => - (reg_name_matches_prefix _s2396_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3858_ _) => + (match (string_drop _s3857_ _s3858_) with + | _s3859_ => + (reg_name_matches_prefix _s3859_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2397_ _)) => - let p0_ := string_drop _s2396_ _s2397_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s3860_ _) => + let p0_ := string_drop _s3859_ _s3860_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s2375_ (_s2376_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s2377_ := _s2376_ in - (if ((string_startswith _s2377_ "c.mv")) then - (match (string_drop _s2377_ (projT1 (string_length "c.mv"))) with - | _s2378_ => - (spc_matches_prefix _s2378_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3838_ (_s3839_ : string) : M (option ((mword 5 * mword 5))) := + let _s3840_ := _s3839_ in + (if string_startswith _s3840_ "c.mv" then + (match (string_drop _s3840_ (projT1 (string_length "c.mv"))) with + | _s3841_ => + (spc_matches_prefix _s3841_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2379_ _)) => - (match (string_drop _s2378_ _s2379_) with - | _s2380_ => - (reg_name_matches_prefix _s2380_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3842_ _) => + (match (string_drop _s3841_ _s3842_) with + | _s3843_ => + (reg_name_matches_prefix _s3843_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2381_ _)) => - (match (string_drop _s2380_ _s2381_) with - | _s2382_ => - (sep_matches_prefix _s2382_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3844_ _) => + (match (string_drop _s3843_ _s3844_) with + | _s3845_ => + (sep_matches_prefix _s3845_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2383_ _)) => - (match (string_drop _s2382_ _s2383_) with - | _s2384_ => - (reg_name_matches_prefix _s2384_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3846_ _) => + (match (string_drop _s3845_ _s3846_) with + | _s3847_ => + (reg_name_matches_prefix _s3847_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2385_ _)) => - let p0_ := string_drop _s2384_ _s2385_ in - if ((generic_eq p0_ "")) then Some ((rd, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s3848_ _) => + let p0_ := string_drop _s3847_ _s3848_ in + if generic_eq p0_ "" then Some (rd, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s2367_ (_s2368_ : string) -: M (option (mword 5)) := - - let _s2369_ := _s2368_ in - (if ((string_startswith _s2369_ "c.jalr")) then - (match (string_drop _s2369_ (projT1 (string_length "c.jalr"))) with - | _s2370_ => - (spc_matches_prefix _s2370_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3830_ (_s3831_ : string) : M (option (mword 5)) := + let _s3832_ := _s3831_ in + (if string_startswith _s3832_ "c.jalr" then + (match (string_drop _s3832_ (projT1 (string_length "c.jalr"))) with + | _s3833_ => + (spc_matches_prefix _s3833_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2371_ _)) => - (match (string_drop _s2370_ _s2371_) with - | _s2372_ => - (reg_name_matches_prefix _s2372_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3834_ _) => + (match (string_drop _s3833_ _s3834_) with + | _s3835_ => + (reg_name_matches_prefix _s3835_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s2373_ _)) => - let p0_ := string_drop _s2372_ _s2373_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s3836_ _) => + let p0_ := string_drop _s3835_ _s3836_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s2359_ (_s2360_ : string) -: M (option (mword 5)) := - - let _s2361_ := _s2360_ in - (if ((string_startswith _s2361_ "c.jr")) then - (match (string_drop _s2361_ (projT1 (string_length "c.jr"))) with - | _s2362_ => - (spc_matches_prefix _s2362_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3822_ (_s3823_ : string) : M (option (mword 5)) := + let _s3824_ := _s3823_ in + (if string_startswith _s3824_ "c.jr" then + (match (string_drop _s3824_ (projT1 (string_length "c.jr"))) with + | _s3825_ => + (spc_matches_prefix _s3825_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2363_ _)) => - (match (string_drop _s2362_ _s2363_) with - | _s2364_ => - (reg_name_matches_prefix _s2364_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3826_ _) => + (match (string_drop _s3825_ _s3826_) with + | _s3827_ => + (reg_name_matches_prefix _s3827_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s2365_ _)) => - let p0_ := string_drop _s2364_ _s2365_ in - if ((generic_eq p0_ "")) then Some (rs1) - else None - | _ => None - end) - : option (mword 5)) + returnm (match w__1 with + | Some (rs1, existT _ _s3828_ _) => + let p0_ := string_drop _s3827_ _s3828_ in + if generic_eq p0_ "" then Some rs1 + else None + | _ => None + end) end) : M (option (mword 5)) - | _ => returnm (None : option (mword 5)) + | _ => returnm None end) : M (option (mword 5)) end) : M (option (mword 5)) - else returnm (None : option (mword 5))) + else returnm None) : M (option (mword 5)). -Definition _s2347_ (_s2348_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2349_ := _s2348_ in - (if ((string_startswith _s2349_ "c.sdsp")) then - (match (string_drop _s2349_ (projT1 (string_length "c.sdsp"))) with - | _s2350_ => - (spc_matches_prefix _s2350_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3810_ (_s3811_ : string) : M (option ((mword 5 * mword 6))) := + let _s3812_ := _s3811_ in + (if string_startswith _s3812_ "c.sdsp" then + (match (string_drop _s3812_ (projT1 (string_length "c.sdsp"))) with + | _s3813_ => + (spc_matches_prefix _s3813_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2351_ _)) => - (match (string_drop _s2350_ _s2351_) with - | _s2352_ => - (reg_name_matches_prefix _s2352_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3814_ _) => + (match (string_drop _s3813_ _s3814_) with + | _s3815_ => + (reg_name_matches_prefix _s3815_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s2353_ _)) => - (match (string_drop _s2352_ _s2353_) with - | _s2354_ => - (sep_matches_prefix _s2354_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3816_ _) => + (match (string_drop _s3815_ _s3816_) with + | _s3817_ => + (sep_matches_prefix _s3817_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2355_ _)) => - match (string_drop _s2354_ _s2355_) with - | _s2356_ => - match (hex_bits_6_matches_prefix _s2356_) with - | Some ((uimm, existT _ _s2357_ _)) => - let p0_ := string_drop _s2356_ _s2357_ in - if ((generic_eq p0_ "")) then Some ((rs2, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3818_ _) => + match (string_drop _s3817_ _s3818_) with + | _s3819_ => + match (hex_bits_6_matches_prefix _s3819_) with + | Some (uimm, existT _ _s3820_ _) => + let p0_ := string_drop _s3819_ _s3820_ in + if generic_eq p0_ "" then Some (rs2, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2335_ (_s2336_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2337_ := _s2336_ in - (if ((string_startswith _s2337_ "c.swsp")) then - (match (string_drop _s2337_ (projT1 (string_length "c.swsp"))) with - | _s2338_ => - (spc_matches_prefix _s2338_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3798_ (_s3799_ : string) : M (option ((mword 5 * mword 6))) := + let _s3800_ := _s3799_ in + (if string_startswith _s3800_ "c.swsp" then + (match (string_drop _s3800_ (projT1 (string_length "c.swsp"))) with + | _s3801_ => + (spc_matches_prefix _s3801_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2339_ _)) => - (match (string_drop _s2338_ _s2339_) with - | _s2340_ => - (reg_name_matches_prefix _s2340_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3802_ _) => + (match (string_drop _s3801_ _s3802_) with + | _s3803_ => + (reg_name_matches_prefix _s3803_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2341_ _)) => - (match (string_drop _s2340_ _s2341_) with - | _s2342_ => - (sep_matches_prefix _s2342_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3804_ _) => + (match (string_drop _s3803_ _s3804_) with + | _s3805_ => + (sep_matches_prefix _s3805_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2343_ _)) => - match (string_drop _s2342_ _s2343_) with - | _s2344_ => - match (hex_bits_6_matches_prefix _s2344_) with - | Some ((uimm, existT _ _s2345_ _)) => - let p0_ := string_drop _s2344_ _s2345_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3806_ _) => + match (string_drop _s3805_ _s3806_) with + | _s3807_ => + match (hex_bits_6_matches_prefix _s3807_) with + | Some (uimm, existT _ _s3808_ _) => + let p0_ := string_drop _s3807_ _s3808_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2323_ (_s2324_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2325_ := _s2324_ in - (if ((string_startswith _s2325_ "c.ldsp")) then - (match (string_drop _s2325_ (projT1 (string_length "c.ldsp"))) with - | _s2326_ => - (spc_matches_prefix _s2326_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3786_ (_s3787_ : string) : M (option ((mword 5 * mword 6))) := + let _s3788_ := _s3787_ in + (if string_startswith _s3788_ "c.ldsp" then + (match (string_drop _s3788_ (projT1 (string_length "c.ldsp"))) with + | _s3789_ => + (spc_matches_prefix _s3789_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2327_ _)) => - (match (string_drop _s2326_ _s2327_) with - | _s2328_ => - (reg_name_matches_prefix _s2328_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3790_ _) => + (match (string_drop _s3789_ _s3790_) with + | _s3791_ => + (reg_name_matches_prefix _s3791_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2329_ _)) => - (match (string_drop _s2328_ _s2329_) with - | _s2330_ => - (sep_matches_prefix _s2330_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3792_ _) => + (match (string_drop _s3791_ _s3792_) with + | _s3793_ => + (sep_matches_prefix _s3793_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2331_ _)) => - match (string_drop _s2330_ _s2331_) with - | _s2332_ => - match (hex_bits_6_matches_prefix _s2332_) with - | Some ((uimm, existT _ _s2333_ _)) => - let p0_ := string_drop _s2332_ _s2333_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3794_ _) => + match (string_drop _s3793_ _s3794_) with + | _s3795_ => + match (hex_bits_6_matches_prefix _s3795_) with + | Some (uimm, existT _ _s3796_ _) => + let p0_ := string_drop _s3795_ _s3796_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2311_ (_s2312_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2313_ := _s2312_ in - (if ((string_startswith _s2313_ "c.lwsp")) then - (match (string_drop _s2313_ (projT1 (string_length "c.lwsp"))) with - | _s2314_ => - (spc_matches_prefix _s2314_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3774_ (_s3775_ : string) : M (option ((mword 5 * mword 6))) := + let _s3776_ := _s3775_ in + (if string_startswith _s3776_ "c.lwsp" then + (match (string_drop _s3776_ (projT1 (string_length "c.lwsp"))) with + | _s3777_ => + (spc_matches_prefix _s3777_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2315_ _)) => - (match (string_drop _s2314_ _s2315_) with - | _s2316_ => - (reg_name_matches_prefix _s2316_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3778_ _) => + (match (string_drop _s3777_ _s3778_) with + | _s3779_ => + (reg_name_matches_prefix _s3779_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2317_ _)) => - (match (string_drop _s2316_ _s2317_) with - | _s2318_ => - (sep_matches_prefix _s2318_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3780_ _) => + (match (string_drop _s3779_ _s3780_) with + | _s3781_ => + (sep_matches_prefix _s3781_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2319_ _)) => - match (string_drop _s2318_ _s2319_) with - | _s2320_ => - match (hex_bits_6_matches_prefix _s2320_) with - | Some ((uimm, existT _ _s2321_ _)) => - let p0_ := string_drop _s2320_ _s2321_ in - if ((generic_eq p0_ "")) then Some ((rd, uimm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3782_ _) => + match (string_drop _s3781_ _s3782_) with + | _s3783_ => + match (hex_bits_6_matches_prefix _s3783_) with + | Some (uimm, existT _ _s3784_ _) => + let p0_ := string_drop _s3783_ _s3784_ in + if generic_eq p0_ "" then Some (rd, uimm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2299_ (_s2300_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2301_ := _s2300_ in - (if ((string_startswith _s2301_ "c.slli")) then - (match (string_drop _s2301_ (projT1 (string_length "c.slli"))) with - | _s2302_ => - (spc_matches_prefix _s2302_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3762_ (_s3763_ : string) : M (option ((mword 5 * mword 6))) := + let _s3764_ := _s3763_ in + (if string_startswith _s3764_ "c.slli" then + (match (string_drop _s3764_ (projT1 (string_length "c.slli"))) with + | _s3765_ => + (spc_matches_prefix _s3765_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2303_ _)) => - (match (string_drop _s2302_ _s2303_) with - | _s2304_ => - (reg_name_matches_prefix _s2304_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3766_ _) => + (match (string_drop _s3765_ _s3766_) with + | _s3767_ => + (reg_name_matches_prefix _s3767_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2305_ _)) => - (match (string_drop _s2304_ _s2305_) with - | _s2306_ => - (sep_matches_prefix _s2306_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3768_ _) => + (match (string_drop _s3767_ _s3768_) with + | _s3769_ => + (sep_matches_prefix _s3769_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2307_ _)) => - match (string_drop _s2306_ _s2307_) with - | _s2308_ => - match (hex_bits_6_matches_prefix _s2308_) with - | Some ((shamt, existT _ _s2309_ _)) => - let p0_ := string_drop _s2308_ _s2309_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3770_ _) => + match (string_drop _s3769_ _s3770_) with + | _s3771_ => + match (hex_bits_6_matches_prefix _s3771_) with + | Some (shamt, existT _ _s3772_ _) => + let p0_ := string_drop _s3771_ _s3772_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2287_ (_s2288_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2289_ := _s2288_ in - (if ((string_startswith _s2289_ "c.bnez")) then - (match (string_drop _s2289_ (projT1 (string_length "c.bnez"))) with - | _s2290_ => - (spc_matches_prefix _s2290_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3750_ (_s3751_ : string) : M (option ((mword 3 * mword 8))) := + let _s3752_ := _s3751_ in + (if string_startswith _s3752_ "c.bnez" then + (match (string_drop _s3752_ (projT1 (string_length "c.bnez"))) with + | _s3753_ => + (spc_matches_prefix _s3753_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2291_ _)) => - (match (string_drop _s2290_ _s2291_) with - | _s2292_ => - (creg_name_matches_prefix _s2292_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3754_ _) => + (match (string_drop _s3753_ _s3754_) with + | _s3755_ => + (creg_name_matches_prefix _s3755_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s2293_ _)) => - (match (string_drop _s2292_ _s2293_) with - | _s2294_ => - (sep_matches_prefix _s2294_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s3756_ _) => + (match (string_drop _s3755_ _s3756_) with + | _s3757_ => + (sep_matches_prefix _s3757_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2295_ _)) => - match (string_drop _s2294_ _s2295_) with - | _s2296_ => - match (hex_bits_8_matches_prefix _s2296_) with - | Some ((imm, existT _ _s2297_ _)) => - let p0_ := string_drop _s2296_ _s2297_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s3758_ _) => + match (string_drop _s3757_ _s3758_) with + | _s3759_ => + match (hex_bits_8_matches_prefix _s3759_) with + | Some (imm, existT _ _s3760_ _) => + let p0_ := string_drop _s3759_ _s3760_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s2275_ (_s2276_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2277_ := _s2276_ in - (if ((string_startswith _s2277_ "c.beqz")) then - (match (string_drop _s2277_ (projT1 (string_length "c.beqz"))) with - | _s2278_ => - (spc_matches_prefix _s2278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3738_ (_s3739_ : string) : M (option ((mword 3 * mword 8))) := + let _s3740_ := _s3739_ in + (if string_startswith _s3740_ "c.beqz" then + (match (string_drop _s3740_ (projT1 (string_length "c.beqz"))) with + | _s3741_ => + (spc_matches_prefix _s3741_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2279_ _)) => - (match (string_drop _s2278_ _s2279_) with - | _s2280_ => - (creg_name_matches_prefix _s2280_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3742_ _) => + (match (string_drop _s3741_ _s3742_) with + | _s3743_ => + (creg_name_matches_prefix _s3743_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s2281_ _)) => - (match (string_drop _s2280_ _s2281_) with - | _s2282_ => - (sep_matches_prefix _s2282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s3744_ _) => + (match (string_drop _s3743_ _s3744_) with + | _s3745_ => + (sep_matches_prefix _s3745_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2283_ _)) => - match (string_drop _s2282_ _s2283_) with - | _s2284_ => - match (hex_bits_8_matches_prefix _s2284_) with - | Some ((imm, existT _ _s2285_ _)) => - let p0_ := string_drop _s2284_ _s2285_ in - if ((generic_eq p0_ "")) then Some ((rs, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s3746_ _) => + match (string_drop _s3745_ _s3746_) with + | _s3747_ => + match (hex_bits_8_matches_prefix _s3747_) with + | Some (imm, existT _ _s3748_ _) => + let p0_ := string_drop _s3747_ _s3748_ in + if generic_eq p0_ "" then Some (rs, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s2267_ (_s2268_ : string) -: M (option (mword 11)) := - - let _s2269_ := _s2268_ in - (if ((string_startswith _s2269_ "c.j")) then - (match (string_drop _s2269_ (projT1 (string_length "c.j"))) with - | _s2270_ => - (spc_matches_prefix _s2270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2271_ _)) => - match (string_drop _s2270_ _s2271_) with - | _s2272_ => - match (hex_bits_11_matches_prefix _s2272_) with - | Some ((imm, existT _ _s2273_ _)) => - let p0_ := string_drop _s2272_ _s2273_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s3730_ (_s3731_ : string) : M (option (mword 11)) := + let _s3732_ := _s3731_ in + (if string_startswith _s3732_ "c.j" then + (match (string_drop _s3732_ (projT1 (string_length "c.j"))) with + | _s3733_ => + (spc_matches_prefix _s3733_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3734_ _) => + match (string_drop _s3733_ _s3734_) with + | _s3735_ => + match (hex_bits_11_matches_prefix _s3735_) with + | Some (imm, existT _ _s3736_ _) => + let p0_ := string_drop _s3735_ _s3736_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s2255_ (_s2256_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2257_ := _s2256_ in - (if ((string_startswith _s2257_ "c.addw")) then - (match (string_drop _s2257_ (projT1 (string_length "c.addw"))) with - | _s2258_ => - (spc_matches_prefix _s2258_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3718_ (_s3719_ : string) : M (option ((mword 3 * mword 3))) := + let _s3720_ := _s3719_ in + (if string_startswith _s3720_ "c.addw" then + (match (string_drop _s3720_ (projT1 (string_length "c.addw"))) with + | _s3721_ => + (spc_matches_prefix _s3721_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2259_ _)) => - (match (string_drop _s2258_ _s2259_) with - | _s2260_ => - (creg_name_matches_prefix _s2260_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3722_ _) => + (match (string_drop _s3721_ _s3722_) with + | _s3723_ => + (creg_name_matches_prefix _s3723_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2261_ _)) => - (match (string_drop _s2260_ _s2261_) with - | _s2262_ => - (sep_matches_prefix _s2262_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3724_ _) => + (match (string_drop _s3723_ _s3724_) with + | _s3725_ => + (sep_matches_prefix _s3725_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2263_ _)) => - (match (string_drop _s2262_ _s2263_) with - | _s2264_ => - (creg_name_matches_prefix _s2264_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3726_ _) => + (match (string_drop _s3725_ _s3726_) with + | _s3727_ => + (creg_name_matches_prefix _s3727_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2265_ _)) => - let p0_ := string_drop _s2264_ _s2265_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3728_ _) => + let p0_ := string_drop _s3727_ _s3728_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2243_ (_s2244_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2245_ := _s2244_ in - (if ((string_startswith _s2245_ "c.subw")) then - (match (string_drop _s2245_ (projT1 (string_length "c.subw"))) with - | _s2246_ => - (spc_matches_prefix _s2246_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3706_ (_s3707_ : string) : M (option ((mword 3 * mword 3))) := + let _s3708_ := _s3707_ in + (if string_startswith _s3708_ "c.subw" then + (match (string_drop _s3708_ (projT1 (string_length "c.subw"))) with + | _s3709_ => + (spc_matches_prefix _s3709_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2247_ _)) => - (match (string_drop _s2246_ _s2247_) with - | _s2248_ => - (creg_name_matches_prefix _s2248_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3710_ _) => + (match (string_drop _s3709_ _s3710_) with + | _s3711_ => + (creg_name_matches_prefix _s3711_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2249_ _)) => - (match (string_drop _s2248_ _s2249_) with - | _s2250_ => - (sep_matches_prefix _s2250_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3712_ _) => + (match (string_drop _s3711_ _s3712_) with + | _s3713_ => + (sep_matches_prefix _s3713_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2251_ _)) => - (match (string_drop _s2250_ _s2251_) with - | _s2252_ => - (creg_name_matches_prefix _s2252_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3714_ _) => + (match (string_drop _s3713_ _s3714_) with + | _s3715_ => + (creg_name_matches_prefix _s3715_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2253_ _)) => - let p0_ := string_drop _s2252_ _s2253_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3716_ _) => + let p0_ := string_drop _s3715_ _s3716_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2231_ (_s2232_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2233_ := _s2232_ in - (if ((string_startswith _s2233_ "c.and")) then - (match (string_drop _s2233_ (projT1 (string_length "c.and"))) with - | _s2234_ => - (spc_matches_prefix _s2234_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3694_ (_s3695_ : string) : M (option ((mword 3 * mword 3))) := + let _s3696_ := _s3695_ in + (if string_startswith _s3696_ "c.and" then + (match (string_drop _s3696_ (projT1 (string_length "c.and"))) with + | _s3697_ => + (spc_matches_prefix _s3697_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2235_ _)) => - (match (string_drop _s2234_ _s2235_) with - | _s2236_ => - (creg_name_matches_prefix _s2236_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3698_ _) => + (match (string_drop _s3697_ _s3698_) with + | _s3699_ => + (creg_name_matches_prefix _s3699_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2237_ _)) => - (match (string_drop _s2236_ _s2237_) with - | _s2238_ => - (sep_matches_prefix _s2238_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3700_ _) => + (match (string_drop _s3699_ _s3700_) with + | _s3701_ => + (sep_matches_prefix _s3701_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2239_ _)) => - (match (string_drop _s2238_ _s2239_) with - | _s2240_ => - (creg_name_matches_prefix _s2240_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3702_ _) => + (match (string_drop _s3701_ _s3702_) with + | _s3703_ => + (creg_name_matches_prefix _s3703_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2241_ _)) => - let p0_ := string_drop _s2240_ _s2241_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3704_ _) => + let p0_ := string_drop _s3703_ _s3704_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2219_ (_s2220_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2221_ := _s2220_ in - (if ((string_startswith _s2221_ "c.or")) then - (match (string_drop _s2221_ (projT1 (string_length "c.or"))) with - | _s2222_ => - (spc_matches_prefix _s2222_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3682_ (_s3683_ : string) : M (option ((mword 3 * mword 3))) := + let _s3684_ := _s3683_ in + (if string_startswith _s3684_ "c.or" then + (match (string_drop _s3684_ (projT1 (string_length "c.or"))) with + | _s3685_ => + (spc_matches_prefix _s3685_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2223_ _)) => - (match (string_drop _s2222_ _s2223_) with - | _s2224_ => - (creg_name_matches_prefix _s2224_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3686_ _) => + (match (string_drop _s3685_ _s3686_) with + | _s3687_ => + (creg_name_matches_prefix _s3687_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2225_ _)) => - (match (string_drop _s2224_ _s2225_) with - | _s2226_ => - (sep_matches_prefix _s2226_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3688_ _) => + (match (string_drop _s3687_ _s3688_) with + | _s3689_ => + (sep_matches_prefix _s3689_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2227_ _)) => - (match (string_drop _s2226_ _s2227_) with - | _s2228_ => - (creg_name_matches_prefix _s2228_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3690_ _) => + (match (string_drop _s3689_ _s3690_) with + | _s3691_ => + (creg_name_matches_prefix _s3691_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2229_ _)) => - let p0_ := string_drop _s2228_ _s2229_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3692_ _) => + let p0_ := string_drop _s3691_ _s3692_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2207_ (_s2208_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2209_ := _s2208_ in - (if ((string_startswith _s2209_ "c.xor")) then - (match (string_drop _s2209_ (projT1 (string_length "c.xor"))) with - | _s2210_ => - (spc_matches_prefix _s2210_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3670_ (_s3671_ : string) : M (option ((mword 3 * mword 3))) := + let _s3672_ := _s3671_ in + (if string_startswith _s3672_ "c.xor" then + (match (string_drop _s3672_ (projT1 (string_length "c.xor"))) with + | _s3673_ => + (spc_matches_prefix _s3673_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2211_ _)) => - (match (string_drop _s2210_ _s2211_) with - | _s2212_ => - (creg_name_matches_prefix _s2212_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3674_ _) => + (match (string_drop _s3673_ _s3674_) with + | _s3675_ => + (creg_name_matches_prefix _s3675_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2213_ _)) => - (match (string_drop _s2212_ _s2213_) with - | _s2214_ => - (sep_matches_prefix _s2214_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3676_ _) => + (match (string_drop _s3675_ _s3676_) with + | _s3677_ => + (sep_matches_prefix _s3677_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2215_ _)) => - (match (string_drop _s2214_ _s2215_) with - | _s2216_ => - (creg_name_matches_prefix _s2216_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3678_ _) => + (match (string_drop _s3677_ _s3678_) with + | _s3679_ => + (creg_name_matches_prefix _s3679_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2217_ _)) => - let p0_ := string_drop _s2216_ _s2217_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3680_ _) => + let p0_ := string_drop _s3679_ _s3680_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2195_ (_s2196_ : string) -: M (option ((mword 3 * mword 3))) := - - let _s2197_ := _s2196_ in - (if ((string_startswith _s2197_ "c.sub")) then - (match (string_drop _s2197_ (projT1 (string_length "c.sub"))) with - | _s2198_ => - (spc_matches_prefix _s2198_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3658_ (_s3659_ : string) : M (option ((mword 3 * mword 3))) := + let _s3660_ := _s3659_ in + (if string_startswith _s3660_ "c.sub" then + (match (string_drop _s3660_ (projT1 (string_length "c.sub"))) with + | _s3661_ => + (spc_matches_prefix _s3661_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2199_ _)) => - (match (string_drop _s2198_ _s2199_) with - | _s2200_ => - (creg_name_matches_prefix _s2200_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3662_ _) => + (match (string_drop _s3661_ _s3662_) with + | _s3663_ => + (creg_name_matches_prefix _s3663_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2201_ _)) => - (match (string_drop _s2200_ _s2201_) with - | _s2202_ => - (sep_matches_prefix _s2202_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3664_ _) => + (match (string_drop _s3663_ _s3664_) with + | _s3665_ => + (sep_matches_prefix _s3665_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2203_ _)) => - (match (string_drop _s2202_ _s2203_) with - | _s2204_ => - (creg_name_matches_prefix _s2204_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3666_ _) => + (match (string_drop _s3665_ _s3666_) with + | _s3667_ => + (creg_name_matches_prefix _s3667_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2205_ _)) => - let p0_ := string_drop _s2204_ _s2205_ in - if ((generic_eq p0_ "")) then Some ((rsd, rs2)) - else None - | _ => None - end) - : option ((mword 3 * mword 3))) + returnm (match w__3 with + | Some (rs2, existT _ _s3668_ _) => + let p0_ := string_drop _s3667_ _s3668_ in + if generic_eq p0_ "" then Some (rsd, rs2) + else None + | _ => None + end) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - | _ => returnm (None : option ((mword 3 * mword 3))) + | _ => returnm None end) : M (option ((mword 3 * mword 3))) end) : M (option ((mword 3 * mword 3))) - else returnm (None : option ((mword 3 * mword 3)))) + else returnm None) : M (option ((mword 3 * mword 3))). -Definition _s2183_ (_s2184_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2185_ := _s2184_ in - (if ((string_startswith _s2185_ "c.andi")) then - (match (string_drop _s2185_ (projT1 (string_length "c.andi"))) with - | _s2186_ => - (spc_matches_prefix _s2186_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3646_ (_s3647_ : string) : M (option ((mword 3 * mword 6))) := + let _s3648_ := _s3647_ in + (if string_startswith _s3648_ "c.andi" then + (match (string_drop _s3648_ (projT1 (string_length "c.andi"))) with + | _s3649_ => + (spc_matches_prefix _s3649_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2187_ _)) => - (match (string_drop _s2186_ _s2187_) with - | _s2188_ => - (creg_name_matches_prefix _s2188_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3650_ _) => + (match (string_drop _s3649_ _s3650_) with + | _s3651_ => + (creg_name_matches_prefix _s3651_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2189_ _)) => - (match (string_drop _s2188_ _s2189_) with - | _s2190_ => - (sep_matches_prefix _s2190_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3652_ _) => + (match (string_drop _s3651_ _s3652_) with + | _s3653_ => + (sep_matches_prefix _s3653_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2191_ _)) => - match (string_drop _s2190_ _s2191_) with - | _s2192_ => - match (hex_bits_6_matches_prefix _s2192_) with - | Some ((imm, existT _ _s2193_ _)) => - let p0_ := string_drop _s2192_ _s2193_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3654_ _) => + match (string_drop _s3653_ _s3654_) with + | _s3655_ => + match (hex_bits_6_matches_prefix _s3655_) with + | Some (imm, existT _ _s3656_ _) => + let p0_ := string_drop _s3655_ _s3656_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2171_ (_s2172_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2173_ := _s2172_ in - (if ((string_startswith _s2173_ "c.srai")) then - (match (string_drop _s2173_ (projT1 (string_length "c.srai"))) with - | _s2174_ => - (spc_matches_prefix _s2174_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3634_ (_s3635_ : string) : M (option ((mword 3 * mword 6))) := + let _s3636_ := _s3635_ in + (if string_startswith _s3636_ "c.srai" then + (match (string_drop _s3636_ (projT1 (string_length "c.srai"))) with + | _s3637_ => + (spc_matches_prefix _s3637_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2175_ _)) => - (match (string_drop _s2174_ _s2175_) with - | _s2176_ => - (creg_name_matches_prefix _s2176_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3638_ _) => + (match (string_drop _s3637_ _s3638_) with + | _s3639_ => + (creg_name_matches_prefix _s3639_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2177_ _)) => - (match (string_drop _s2176_ _s2177_) with - | _s2178_ => - (sep_matches_prefix _s2178_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3640_ _) => + (match (string_drop _s3639_ _s3640_) with + | _s3641_ => + (sep_matches_prefix _s3641_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2179_ _)) => - match (string_drop _s2178_ _s2179_) with - | _s2180_ => - match (hex_bits_6_matches_prefix _s2180_) with - | Some ((shamt, existT _ _s2181_ _)) => - let p0_ := string_drop _s2180_ _s2181_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3642_ _) => + match (string_drop _s3641_ _s3642_) with + | _s3643_ => + match (hex_bits_6_matches_prefix _s3643_) with + | Some (shamt, existT _ _s3644_ _) => + let p0_ := string_drop _s3643_ _s3644_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2159_ (_s2160_ : string) -: M (option ((mword 3 * mword 6))) := - - let _s2161_ := _s2160_ in - (if ((string_startswith _s2161_ "c.srli")) then - (match (string_drop _s2161_ (projT1 (string_length "c.srli"))) with - | _s2162_ => - (spc_matches_prefix _s2162_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3622_ (_s3623_ : string) : M (option ((mword 3 * mword 6))) := + let _s3624_ := _s3623_ in + (if string_startswith _s3624_ "c.srli" then + (match (string_drop _s3624_ (projT1 (string_length "c.srli"))) with + | _s3625_ => + (spc_matches_prefix _s3625_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2163_ _)) => - (match (string_drop _s2162_ _s2163_) with - | _s2164_ => - (creg_name_matches_prefix _s2164_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3626_ _) => + (match (string_drop _s3625_ _s3626_) with + | _s3627_ => + (creg_name_matches_prefix _s3627_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2165_ _)) => - (match (string_drop _s2164_ _s2165_) with - | _s2166_ => - (sep_matches_prefix _s2166_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3628_ _) => + (match (string_drop _s3627_ _s3628_) with + | _s3629_ => + (sep_matches_prefix _s3629_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2167_ _)) => - match (string_drop _s2166_ _s2167_) with - | _s2168_ => - match (hex_bits_6_matches_prefix _s2168_) with - | Some ((shamt, existT _ _s2169_ _)) => - let p0_ := string_drop _s2168_ _s2169_ in - if ((generic_eq p0_ "")) then Some ((rsd, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3630_ _) => + match (string_drop _s3629_ _s3630_) with + | _s3631_ => + match (hex_bits_6_matches_prefix _s3631_) with + | Some (shamt, existT _ _s3632_ _) => + let p0_ := string_drop _s3631_ _s3632_ in + if generic_eq p0_ "" then Some (rsd, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - | _ => returnm (None : option ((mword 3 * mword 6))) + | _ => returnm None end) : M (option ((mword 3 * mword 6))) end) : M (option ((mword 3 * mword 6))) - else returnm (None : option ((mword 3 * mword 6)))) + else returnm None) : M (option ((mword 3 * mword 6))). -Definition _s2147_ (_s2148_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2149_ := _s2148_ in - (if ((string_startswith _s2149_ "c.lui")) then - (match (string_drop _s2149_ (projT1 (string_length "c.lui"))) with - | _s2150_ => - (spc_matches_prefix _s2150_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3610_ (_s3611_ : string) : M (option ((mword 5 * mword 6))) := + let _s3612_ := _s3611_ in + (if string_startswith _s3612_ "c.lui" then + (match (string_drop _s3612_ (projT1 (string_length "c.lui"))) with + | _s3613_ => + (spc_matches_prefix _s3613_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2151_ _)) => - (match (string_drop _s2150_ _s2151_) with - | _s2152_ => - (reg_name_matches_prefix _s2152_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3614_ _) => + (match (string_drop _s3613_ _s3614_) with + | _s3615_ => + (reg_name_matches_prefix _s3615_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2153_ _)) => - (match (string_drop _s2152_ _s2153_) with - | _s2154_ => - (sep_matches_prefix _s2154_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3616_ _) => + (match (string_drop _s3615_ _s3616_) with + | _s3617_ => + (sep_matches_prefix _s3617_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2155_ _)) => - match (string_drop _s2154_ _s2155_) with - | _s2156_ => - match (hex_bits_6_matches_prefix _s2156_) with - | Some ((imm, existT _ _s2157_ _)) => - let p0_ := string_drop _s2156_ _s2157_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3618_ _) => + match (string_drop _s3617_ _s3618_) with + | _s3619_ => + match (hex_bits_6_matches_prefix _s3619_) with + | Some (imm, existT _ _s3620_ _) => + let p0_ := string_drop _s3619_ _s3620_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2139_ (_s2140_ : string) -: M (option (mword 6)) := - - let _s2141_ := _s2140_ in - (if ((string_startswith _s2141_ "c.addi16sp")) then - (match (string_drop _s2141_ (projT1 (string_length "c.addi16sp"))) with - | _s2142_ => - (spc_matches_prefix _s2142_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2143_ _)) => - match (string_drop _s2142_ _s2143_) with - | _s2144_ => - match (hex_bits_6_matches_prefix _s2144_) with - | Some ((imm, existT _ _s2145_ _)) => - let p0_ := string_drop _s2144_ _s2145_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - | _ => None - end - end - | _ => None - end) - : option (mword 6)) +Definition _s3602_ (_s3603_ : string) : M (option (mword 6)) := + let _s3604_ := _s3603_ in + (if string_startswith _s3604_ "c.addi16sp" then + (match (string_drop _s3604_ (projT1 (string_length "c.addi16sp"))) with + | _s3605_ => + (spc_matches_prefix _s3605_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3606_ _) => + match (string_drop _s3605_ _s3606_) with + | _s3607_ => + match (hex_bits_6_matches_prefix _s3607_) with + | Some (imm, existT _ _s3608_ _) => + let p0_ := string_drop _s3607_ _s3608_ in + if generic_eq p0_ "" then Some imm + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 6)) - else returnm (None : option (mword 6))) + else returnm None) : M (option (mword 6)). -Definition _s2127_ (_s2128_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2129_ := _s2128_ in - (if ((string_startswith _s2129_ "c.li")) then - (match (string_drop _s2129_ (projT1 (string_length "c.li"))) with - | _s2130_ => - (spc_matches_prefix _s2130_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3590_ (_s3591_ : string) : M (option ((mword 5 * mword 6))) := + let _s3592_ := _s3591_ in + (if string_startswith _s3592_ "c.li" then + (match (string_drop _s3592_ (projT1 (string_length "c.li"))) with + | _s3593_ => + (spc_matches_prefix _s3593_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2131_ _)) => - (match (string_drop _s2130_ _s2131_) with - | _s2132_ => - (reg_name_matches_prefix _s2132_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3594_ _) => + (match (string_drop _s3593_ _s3594_) with + | _s3595_ => + (reg_name_matches_prefix _s3595_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2133_ _)) => - (match (string_drop _s2132_ _s2133_) with - | _s2134_ => - (sep_matches_prefix _s2134_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3596_ _) => + (match (string_drop _s3595_ _s3596_) with + | _s3597_ => + (sep_matches_prefix _s3597_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2135_ _)) => - match (string_drop _s2134_ _s2135_) with - | _s2136_ => - match (hex_bits_6_matches_prefix _s2136_) with - | Some ((imm, existT _ _s2137_ _)) => - let p0_ := string_drop _s2136_ _s2137_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3598_ _) => + match (string_drop _s3597_ _s3598_) with + | _s3599_ => + match (hex_bits_6_matches_prefix _s3599_) with + | Some (imm, existT _ _s3600_ _) => + let p0_ := string_drop _s3599_ _s3600_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2115_ (_s2116_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2117_ := _s2116_ in - (if ((string_startswith _s2117_ "c.addiw")) then - (match (string_drop _s2117_ (projT1 (string_length "c.addiw"))) with - | _s2118_ => - (spc_matches_prefix _s2118_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3578_ (_s3579_ : string) : M (option ((mword 5 * mword 6))) := + let _s3580_ := _s3579_ in + (if string_startswith _s3580_ "c.addiw" then + (match (string_drop _s3580_ (projT1 (string_length "c.addiw"))) with + | _s3581_ => + (spc_matches_prefix _s3581_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2119_ _)) => - (match (string_drop _s2118_ _s2119_) with - | _s2120_ => - (reg_name_matches_prefix _s2120_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3582_ _) => + (match (string_drop _s3581_ _s3582_) with + | _s3583_ => + (reg_name_matches_prefix _s3583_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2121_ _)) => - (match (string_drop _s2120_ _s2121_) with - | _s2122_ => - (sep_matches_prefix _s2122_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3584_ _) => + (match (string_drop _s3583_ _s3584_) with + | _s3585_ => + (sep_matches_prefix _s3585_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2123_ _)) => - match (string_drop _s2122_ _s2123_) with - | _s2124_ => - match (hex_bits_6_matches_prefix _s2124_) with - | Some ((imm, existT _ _s2125_ _)) => - let p0_ := string_drop _s2124_ _s2125_ in - if ((generic_eq p0_ "")) then Some ((rsd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3586_ _) => + match (string_drop _s3585_ _s3586_) with + | _s3587_ => + match (hex_bits_6_matches_prefix _s3587_) with + | Some (imm, existT _ _s3588_ _) => + let p0_ := string_drop _s3587_ _s3588_ in + if generic_eq p0_ "" then Some (rsd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2107_ (_s2108_ : string) -: M (option (mword 11)) := - - let _s2109_ := _s2108_ in - (if ((string_startswith _s2109_ "c.jal")) then - (match (string_drop _s2109_ (projT1 (string_length "c.jal"))) with - | _s2110_ => - (spc_matches_prefix _s2110_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s2111_ _)) => - match (string_drop _s2110_ _s2111_) with - | _s2112_ => - match (hex_bits_12_matches_prefix _s2112_) with - | Some ((v__814, existT _ _s2113_ _)) => - if ((eq_vec (subrange_vec_dec v__814 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__814 11 1 in - let imm : mword 11 := subrange_vec_dec v__814 11 1 in - let p0_ := string_drop _s2112_ _s2113_ in - if ((generic_eq p0_ "")) then Some (imm) - else None - else None - | _ => None - end - end - | _ => None - end) - : option (mword 11)) +Definition _s3570_ (_s3571_ : string) : M (option (mword 11)) := + let _s3572_ := _s3571_ in + (if string_startswith _s3572_ "c.jal" then + (match (string_drop _s3572_ (projT1 (string_length "c.jal"))) with + | _s3573_ => + (spc_matches_prefix _s3573_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s3574_ _) => + match (string_drop _s3573_ _s3574_) with + | _s3575_ => + match (hex_bits_12_matches_prefix _s3575_) with + | Some (v__1366, existT _ _s3576_ _) => + if eq_vec (subrange_vec_dec v__1366 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1366 11 1 in + let imm : mword 11 := subrange_vec_dec v__1366 11 1 in + let p0_ := string_drop _s3575_ _s3576_ in + if generic_eq p0_ "" then Some imm + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option (mword 11)) - else returnm (None : option (mword 11))) + else returnm None) : M (option (mword 11)). -Definition _s2095_ (_s2096_ : string) -: M (option ((mword 5 * mword 6))) := - - let _s2097_ := _s2096_ in - (if ((string_startswith _s2097_ "c.addi")) then - (match (string_drop _s2097_ (projT1 (string_length "c.addi"))) with - | _s2098_ => - (spc_matches_prefix _s2098_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3558_ (_s3559_ : string) : M (option ((mword 5 * mword 6))) := + let _s3560_ := _s3559_ in + (if string_startswith _s3560_ "c.addi" then + (match (string_drop _s3560_ (projT1 (string_length "c.addi"))) with + | _s3561_ => + (spc_matches_prefix _s3561_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2099_ _)) => - (match (string_drop _s2098_ _s2099_) with - | _s2100_ => - (reg_name_matches_prefix _s2100_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3562_ _) => + (match (string_drop _s3561_ _s3562_) with + | _s3563_ => + (reg_name_matches_prefix _s3563_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s2101_ _)) => - (match (string_drop _s2100_ _s2101_) with - | _s2102_ => - (sep_matches_prefix _s2102_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s3564_ _) => + (match (string_drop _s3563_ _s3564_) with + | _s3565_ => + (sep_matches_prefix _s3565_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2103_ _)) => - match (string_drop _s2102_ _s2103_) with - | _s2104_ => - match (hex_bits_6_matches_prefix _s2104_) with - | Some ((nzi, existT _ _s2105_ _)) => - let p0_ := string_drop _s2104_ _s2105_ in - if ((generic_eq p0_ "")) then Some ((rsd, nzi)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6))) + returnm (match w__2 with + | Some (tt, existT _ _s3566_ _) => + match (string_drop _s3565_ _s3566_) with + | _s3567_ => + match (hex_bits_6_matches_prefix _s3567_) with + | Some (nzi, existT _ _s3568_ _) => + let p0_ := string_drop _s3567_ _s3568_ in + if generic_eq p0_ "" then Some (rsd, nzi) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - | _ => returnm (None : option ((mword 5 * mword 6))) + | _ => returnm None end) : M (option ((mword 5 * mword 6))) end) : M (option ((mword 5 * mword 6))) - else returnm (None : option ((mword 5 * mword 6)))) + else returnm None) : M (option ((mword 5 * mword 6))). -Definition _s2079_ (_s2080_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2081_ := _s2080_ in - (if ((string_startswith _s2081_ "c.sd")) then - (match (string_drop _s2081_ (projT1 (string_length "c.sd"))) with - | _s2082_ => - (spc_matches_prefix _s2082_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3542_ (_s3543_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3544_ := _s3543_ in + (if string_startswith _s3544_ "c.sd" then + (match (string_drop _s3544_ (projT1 (string_length "c.sd"))) with + | _s3545_ => + (spc_matches_prefix _s3545_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2083_ _)) => - (match (string_drop _s2082_ _s2083_) with - | _s2084_ => - (creg_name_matches_prefix _s2084_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3546_ _) => + (match (string_drop _s3545_ _s3546_) with + | _s3547_ => + (creg_name_matches_prefix _s3547_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2085_ _)) => - (match (string_drop _s2084_ _s2085_) with - | _s2086_ => - (sep_matches_prefix _s2086_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s3548_ _) => + (match (string_drop _s3547_ _s3548_) with + | _s3549_ => + (sep_matches_prefix _s3549_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2087_ _)) => - (match (string_drop _s2086_ _s2087_) with - | _s2088_ => - (creg_name_matches_prefix _s2088_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3550_ _) => + (match (string_drop _s3549_ _s3550_) with + | _s3551_ => + (creg_name_matches_prefix _s3551_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2089_ _)) => - (match (string_drop _s2088_ _s2089_) with - | _s2090_ => - (sep_matches_prefix _s2090_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s3552_ _) => + (match (string_drop _s3551_ _s3552_) with + | _s3553_ => + (sep_matches_prefix _s3553_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2091_ _)) => - match (string_drop _s2090_ _s2091_) with - | _s2092_ => - match (hex_bits_8_matches_prefix _s2092_) with - | Some ((v__816, existT _ _s2093_ _)) => - if ((eq_vec - (subrange_vec_dec v__816 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__816 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__816 7 3 in - let p0_ := - string_drop _s2092_ _s2093_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s3554_ _) => + match (string_drop _s3553_ _s3554_) with + | _s3555_ => + match (hex_bits_8_matches_prefix _s3555_) with + | Some (v__1368, existT _ _s3556_ _) => + if eq_vec (subrange_vec_dec v__1368 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1368 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1368 7 3 in + let p0_ := string_drop _s3555_ _s3556_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2063_ (_s2064_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2065_ := _s2064_ in - (if ((string_startswith _s2065_ "c.sw")) then - (match (string_drop _s2065_ (projT1 (string_length "c.sw"))) with - | _s2066_ => - (spc_matches_prefix _s2066_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3526_ (_s3527_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3528_ := _s3527_ in + (if string_startswith _s3528_ "c.sw" then + (match (string_drop _s3528_ (projT1 (string_length "c.sw"))) with + | _s3529_ => + (spc_matches_prefix _s3529_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2067_ _)) => - (match (string_drop _s2066_ _s2067_) with - | _s2068_ => - (creg_name_matches_prefix _s2068_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3530_ _) => + (match (string_drop _s3529_ _s3530_) with + | _s3531_ => + (creg_name_matches_prefix _s3531_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2069_ _)) => - (match (string_drop _s2068_ _s2069_) with - | _s2070_ => - (sep_matches_prefix _s2070_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s3532_ _) => + (match (string_drop _s3531_ _s3532_) with + | _s3533_ => + (sep_matches_prefix _s3533_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2071_ _)) => - (match (string_drop _s2070_ _s2071_) with - | _s2072_ => - (creg_name_matches_prefix _s2072_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3534_ _) => + (match (string_drop _s3533_ _s3534_) with + | _s3535_ => + (creg_name_matches_prefix _s3535_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2073_ _)) => - (match (string_drop _s2072_ _s2073_) with - | _s2074_ => - (sep_matches_prefix _s2074_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s3536_ _) => + (match (string_drop _s3535_ _s3536_) with + | _s3537_ => + (sep_matches_prefix _s3537_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2075_ _)) => - match (string_drop _s2074_ _s2075_) with - | _s2076_ => - match (hex_bits_7_matches_prefix _s2076_) with - | Some ((v__818, existT _ _s2077_ _)) => - if ((eq_vec - (subrange_vec_dec v__818 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__818 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__818 6 2 in - let p0_ := - string_drop _s2076_ _s2077_ in - if ((generic_eq p0_ "")) then - Some - ((rsc1, rsc2, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s3538_ _) => + match (string_drop _s3537_ _s3538_) with + | _s3539_ => + match (hex_bits_7_matches_prefix _s3539_) with + | Some (v__1370, existT _ _s3540_ _) => + if eq_vec (subrange_vec_dec v__1370 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1370 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1370 6 2 in + let p0_ := string_drop _s3539_ _s3540_ in + if generic_eq p0_ "" then + Some (rsc1, rsc2, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2047_ (_s2048_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2049_ := _s2048_ in - (if ((string_startswith _s2049_ "c.ld")) then - (match (string_drop _s2049_ (projT1 (string_length "c.ld"))) with - | _s2050_ => - (spc_matches_prefix _s2050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3510_ (_s3511_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3512_ := _s3511_ in + (if string_startswith _s3512_ "c.ld" then + (match (string_drop _s3512_ (projT1 (string_length "c.ld"))) with + | _s3513_ => + (spc_matches_prefix _s3513_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2051_ _)) => - (match (string_drop _s2050_ _s2051_) with - | _s2052_ => - (creg_name_matches_prefix _s2052_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3514_ _) => + (match (string_drop _s3513_ _s3514_) with + | _s3515_ => + (creg_name_matches_prefix _s3515_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2053_ _)) => - (match (string_drop _s2052_ _s2053_) with - | _s2054_ => - (sep_matches_prefix _s2054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s3516_ _) => + (match (string_drop _s3515_ _s3516_) with + | _s3517_ => + (sep_matches_prefix _s3517_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2055_ _)) => - (match (string_drop _s2054_ _s2055_) with - | _s2056_ => - (creg_name_matches_prefix _s2056_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3518_ _) => + (match (string_drop _s3517_ _s3518_) with + | _s3519_ => + (creg_name_matches_prefix _s3519_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2057_ _)) => - (match (string_drop _s2056_ _s2057_) with - | _s2058_ => - (sep_matches_prefix _s2058_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s3520_ _) => + (match (string_drop _s3519_ _s3520_) with + | _s3521_ => + (sep_matches_prefix _s3521_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2059_ _)) => - match (string_drop _s2058_ _s2059_) with - | _s2060_ => - match (hex_bits_8_matches_prefix _s2060_) with - | Some ((v__820, existT _ _s2061_ _)) => - if ((eq_vec - (subrange_vec_dec v__820 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__820 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__820 7 3 in - let p0_ := - string_drop _s2060_ _s2061_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s3522_ _) => + match (string_drop _s3521_ _s3522_) with + | _s3523_ => + match (hex_bits_8_matches_prefix _s3523_) with + | Some (v__1372, existT _ _s3524_ _) => + if eq_vec (subrange_vec_dec v__1372 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1372 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1372 7 3 in + let p0_ := string_drop _s3523_ _s3524_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2031_ (_s2032_ : string) -: M (option ((mword 3 * mword 3 * mword 5))) := - - let _s2033_ := _s2032_ in - (if ((string_startswith _s2033_ "c.lw")) then - (match (string_drop _s2033_ (projT1 (string_length "c.lw"))) with - | _s2034_ => - (spc_matches_prefix _s2034_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3494_ (_s3495_ : string) : M (option ((mword 3 * mword 3 * mword 5))) := + let _s3496_ := _s3495_ in + (if string_startswith _s3496_ "c.lw" then + (match (string_drop _s3496_ (projT1 (string_length "c.lw"))) with + | _s3497_ => + (spc_matches_prefix _s3497_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2035_ _)) => - (match (string_drop _s2034_ _s2035_) with - | _s2036_ => - (creg_name_matches_prefix _s2036_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3498_ _) => + (match (string_drop _s3497_ _s3498_) with + | _s3499_ => + (creg_name_matches_prefix _s3499_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2037_ _)) => - (match (string_drop _s2036_ _s2037_) with - | _s2038_ => - (sep_matches_prefix _s2038_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s3500_ _) => + (match (string_drop _s3499_ _s3500_) with + | _s3501_ => + (sep_matches_prefix _s3501_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2039_ _)) => - (match (string_drop _s2038_ _s2039_) with - | _s2040_ => - (creg_name_matches_prefix _s2040_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3502_ _) => + (match (string_drop _s3501_ _s3502_) with + | _s3503_ => + (creg_name_matches_prefix _s3503_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2041_ _)) => - (match (string_drop _s2040_ _s2041_) with - | _s2042_ => - (sep_matches_prefix _s2042_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s3504_ _) => + (match (string_drop _s3503_ _s3504_) with + | _s3505_ => + (sep_matches_prefix _s3505_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2043_ _)) => - match (string_drop _s2042_ _s2043_) with - | _s2044_ => - match (hex_bits_7_matches_prefix _s2044_) with - | Some ((v__822, existT _ _s2045_ _)) => - if ((eq_vec - (subrange_vec_dec v__822 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__822 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__822 6 2 in - let p0_ := - string_drop _s2044_ _s2045_ in - if ((generic_eq p0_ "")) then - Some - ((rdc, rsc, uimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5))) + returnm (match w__4 with + | Some (tt, existT _ _s3506_ _) => + match (string_drop _s3505_ _s3506_) with + | _s3507_ => + match (hex_bits_7_matches_prefix _s3507_) with + | Some (v__1374, existT _ _s3508_ _) => + if eq_vec (subrange_vec_dec v__1374 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1374 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1374 6 2 in + let p0_ := string_drop _s3507_ _s3508_ in + if generic_eq p0_ "" then + Some (rdc, rsc, uimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5))) end) : M (option ((mword 3 * mword 3 * mword 5))) - else returnm (None : option ((mword 3 * mword 3 * mword 5)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5))). -Definition _s2019_ (_s2020_ : string) -: M (option ((mword 3 * mword 8))) := - - let _s2021_ := _s2020_ in - (if ((string_startswith _s2021_ "c.addi4spn")) then - (match (string_drop _s2021_ (projT1 (string_length "c.addi4spn"))) with - | _s2022_ => - (spc_matches_prefix _s2022_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3482_ (_s3483_ : string) : M (option ((mword 3 * mword 8))) := + let _s3484_ := _s3483_ in + (if string_startswith _s3484_ "c.addi4spn" then + (match (string_drop _s3484_ (projT1 (string_length "c.addi4spn"))) with + | _s3485_ => + (spc_matches_prefix _s3485_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2023_ _)) => - (match (string_drop _s2022_ _s2023_) with - | _s2024_ => - (creg_name_matches_prefix _s2024_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3486_ _) => + (match (string_drop _s3485_ _s3486_) with + | _s3487_ => + (creg_name_matches_prefix _s3487_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2025_ _)) => - (match (string_drop _s2024_ _s2025_) with - | _s2026_ => - (sep_matches_prefix _s2026_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s3488_ _) => + (match (string_drop _s3487_ _s3488_) with + | _s3489_ => + (sep_matches_prefix _s3489_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2027_ _)) => - match (string_drop _s2026_ _s2027_) with - | _s2028_ => - match (hex_bits_10_matches_prefix _s2028_) with - | Some ((v__824, existT _ _s2029_ _)) => - if ((eq_vec (subrange_vec_dec v__824 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__824 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__824 9 2 in - let p0_ := string_drop _s2028_ _s2029_ in - if ((generic_eq p0_ "")) then Some ((rdc, nzimm)) - else None - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8))) + returnm (match w__2 with + | Some (tt, existT _ _s3490_ _) => + match (string_drop _s3489_ _s3490_) with + | _s3491_ => + match (hex_bits_10_matches_prefix _s3491_) with + | Some (v__1376, existT _ _s3492_ _) => + if eq_vec (subrange_vec_dec v__1376 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1376 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1376 9 2 in + let p0_ := string_drop _s3491_ _s3492_ in + if generic_eq p0_ "" then Some (rdc, nzimm) + else None + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - | _ => returnm (None : option ((mword 3 * mword 8))) + | _ => returnm None end) : M (option ((mword 3 * mword 8))) end) : M (option ((mword 3 * mword 8))) - else returnm (None : option ((mword 3 * mword 8)))) + else returnm None) : M (option ((mword 3 * mword 8))). -Definition _s1995_ (_s1996_ : string) +Definition _s3456_ (_s3457_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - (match _s1996_ with - | _s1997_ => - (amo_mnemonic_matches_prefix _s1997_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s3457_ with + | _s3458_ => + (amo_mnemonic_matches_prefix _s3458_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1998_ _)) => - let _s1999_ := string_drop _s1997_ _s1998_ in - (if ((string_startswith _s1999_ ".")) then - (match (string_drop _s1999_ (projT1 (string_length "."))) with - | _s2000_ => - (size_mnemonic_matches_prefix _s2000_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3459_ _) => + let _s3460_ := string_drop _s3458_ _s3459_ in + (if string_startswith _s3460_ "." then + (match (string_drop _s3460_ (projT1 (string_length "."))) with + | _s3461_ => + (size_mnemonic_matches_prefix _s3461_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s2001_ _)) => - (match (string_drop _s2000_ _s2001_) with - | _s2002_ => - (maybe_aq_matches_prefix _s2002_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s3462_ _) => + (match (string_drop _s3461_ _s3462_) with + | _s3463_ => + (maybe_aq_matches_prefix _s3463_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2003_ _)) => - (match (string_drop _s2002_ _s2003_) with - | _s2004_ => - (maybe_rl_matches_prefix _s2004_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s3464_ _) => + (match (string_drop _s3463_ _s3464_) with + | _s3465_ => + (maybe_rl_matches_prefix _s3465_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2005_ _)) => - (match (string_drop _s2004_ _s2005_) with - | _s2006_ => - (spc_matches_prefix _s2006_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s3466_ _) => + (match (string_drop _s3465_ _s3466_) with + | _s3467_ => + (spc_matches_prefix _s3467_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2007_ _)) => - (match (string_drop _s2006_ _s2007_) with - | _s2008_ => - (reg_name_matches_prefix _s2008_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3468_ _) => + (match (string_drop _s3467_ _s3468_) with + | _s3469_ => + (reg_name_matches_prefix _s3469_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2009_ _)) => - (match (string_drop _s2008_ _s2009_) with - | _s2010_ => - (sep_matches_prefix _s2010_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3470_ _) => + (match (string_drop _s3469_ _s3470_) with + | _s3471_ => + (sep_matches_prefix _s3471_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2011_ _)) => - (match (string_drop _s2010_ _s2011_) with - | _s2012_ => - (reg_name_matches_prefix _s2012_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3472_ _) => + (match (string_drop _s3471_ _s3472_) with + | _s3473_ => + (reg_name_matches_prefix _s3473_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s2013_ _)) => - (match (string_drop _s2012_ - _s2013_) with - | _s2014_ => + | Some (rs2, existT _ _s3474_ _) => + (match (string_drop _s3473_ + _s3474_) with + | _s3475_ => (sep_matches_prefix - _s2014_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s3475_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2015_ _)) => - (match (string_drop - _s2014_ - _s2015_) with - | _s2016_ => - (reg_name_matches_prefix - _s2016_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s2017_ _)) => - let p0_ := - string_drop - _s2016_ - _s2017_ in - if ((generic_eq - p0_ - "")) - then - Some - ((op, width, aq, rl, rd, rs1, rs2)) - else + (tt, existT _ _s3476_ _) => + let _s3477_ := + string_drop _s3475_ + _s3476_ in + (if string_startswith + _s3477_ "(" then + (match (string_drop + _s3477_ + (projT1 + (string_length + "("))) with + | _s3478_ => + (reg_name_matches_prefix + _s3478_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s3479_ _) => + let _s3480_ := + string_drop + _s3478_ + _s3479_ in + if string_startswith + _s3480_ + ")" + then + let p0_ := + string_drop + _s3480_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (op, width, aq, rl, rd, rs2, rs1) + else + None + else + None + | _ => None - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - end) + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1973_ (_s1974_ : string) +Definition _s3434_ (_s3435_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) := - - let _s1975_ := _s1974_ in - (if ((string_startswith _s1975_ "sc.")) then - (match (string_drop _s1975_ (projT1 (string_length "sc."))) with - | _s1976_ => - (size_mnemonic_matches_prefix _s1976_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s3436_ := _s3435_ in + (if string_startswith _s3436_ "sc." then + (match (string_drop _s3436_ (projT1 (string_length "sc."))) with + | _s3437_ => + (size_mnemonic_matches_prefix _s3437_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1977_ _)) => - (match (string_drop _s1976_ _s1977_) with - | _s1978_ => - (maybe_aq_matches_prefix _s1978_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s3438_ _) => + (match (string_drop _s3437_ _s3438_) with + | _s3439_ => + (maybe_aq_matches_prefix _s3439_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1979_ _)) => - (match (string_drop _s1978_ _s1979_) with - | _s1980_ => - (maybe_rl_matches_prefix _s1980_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s3440_ _) => + (match (string_drop _s3439_ _s3440_) with + | _s3441_ => + (maybe_rl_matches_prefix _s3441_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1981_ _)) => - (match (string_drop _s1980_ _s1981_) with - | _s1982_ => - (spc_matches_prefix _s1982_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s3442_ _) => + (match (string_drop _s3441_ _s3442_) with + | _s3443_ => + (spc_matches_prefix _s3443_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1983_ _)) => - (match (string_drop _s1982_ _s1983_) with - | _s1984_ => - (reg_name_matches_prefix _s1984_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3444_ _) => + (match (string_drop _s3443_ _s3444_) with + | _s3445_ => + (reg_name_matches_prefix _s3445_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1985_ _)) => - (match (string_drop _s1984_ _s1985_) with - | _s1986_ => - (sep_matches_prefix _s1986_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3446_ _) => + (match (string_drop _s3445_ _s3446_) with + | _s3447_ => + (sep_matches_prefix _s3447_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1987_ _)) => - (match (string_drop _s1986_ _s1987_) with - | _s1988_ => - (reg_name_matches_prefix _s1988_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3448_ _) => + (match (string_drop _s3447_ _s3448_) with + | _s3449_ => + (reg_name_matches_prefix _s3449_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s1989_ _)) => - (match (string_drop _s1988_ _s1989_) with - | _s1990_ => - (sep_matches_prefix _s1990_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3450_ _) => + (match (string_drop _s3449_ _s3450_) with + | _s3451_ => + (sep_matches_prefix _s3451_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s1991_ _)) => - (match (string_drop _s1990_ - _s1991_) with - | _s1992_ => + | Some (tt, existT _ _s3452_ _) => + (match (string_drop _s3451_ + _s3452_) with + | _s3453_ => (reg_name_matches_prefix - _s1992_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s3453_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s1993_ _)) => - let p0_ := - string_drop - _s1992_ - _s1993_ in - if ((generic_eq - p0_ "")) - then - Some - ((size, aq, rl, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + returnm (match w__8 with + | Some + (rs2, existT _ _s3454_ _) => + let p0_ := + string_drop + _s3453_ + _s3454_ in + if generic_eq + p0_ "" + then + Some + (size, aq, rl, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5))). -Definition _s1955_ (_s1956_ : string) -: M (option ((word_width * bool * bool * mword 5 * mword 5))) := - - let _s1957_ := _s1956_ in - (if ((string_startswith _s1957_ "lr.")) then - (match (string_drop _s1957_ (projT1 (string_length "lr."))) with - | _s1958_ => - (size_mnemonic_matches_prefix _s1958_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= +Definition _s3416_ (_s3417_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5))) := + let _s3418_ := _s3417_ in + (if string_startswith _s3418_ "lr." then + (match (string_drop _s3418_ (projT1 (string_length "lr."))) with + | _s3419_ => + (size_mnemonic_matches_prefix _s3419_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1959_ _)) => - (match (string_drop _s1958_ _s1959_) with - | _s1960_ => - (maybe_aq_matches_prefix _s1960_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s3420_ _) => + (match (string_drop _s3419_ _s3420_) with + | _s3421_ => + (maybe_aq_matches_prefix _s3421_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1961_ _)) => - (match (string_drop _s1960_ _s1961_) with - | _s1962_ => - (maybe_rl_matches_prefix _s1962_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s3422_ _) => + (match (string_drop _s3421_ _s3422_) with + | _s3423_ => + (maybe_rl_matches_prefix _s3423_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1963_ _)) => - (match (string_drop _s1962_ _s1963_) with - | _s1964_ => - (spc_matches_prefix _s1964_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s3424_ _) => + (match (string_drop _s3423_ _s3424_) with + | _s3425_ => + (spc_matches_prefix _s3425_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1965_ _)) => - (match (string_drop _s1964_ _s1965_) with - | _s1966_ => - (reg_name_matches_prefix _s1966_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3426_ _) => + (match (string_drop _s3425_ _s3426_) with + | _s3427_ => + (reg_name_matches_prefix _s3427_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s1967_ _)) => - (match (string_drop _s1966_ _s1967_) with - | _s1968_ => - (sep_matches_prefix _s1968_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3428_ _) => + (match (string_drop _s3427_ _s3428_) with + | _s3429_ => + (sep_matches_prefix _s3429_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1969_ _)) => - (match (string_drop _s1968_ _s1969_) with - | _s1970_ => - (reg_name_matches_prefix _s1970_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3430_ _) => + (match (string_drop _s3429_ _s3430_) with + | _s3431_ => + (reg_name_matches_prefix _s3431_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s1971_ _)) => - let p0_ := - string_drop _s1970_ _s1971_ in - if ((generic_eq p0_ "")) then - Some - ((size, aq, rl, rd, rs1)) - else None - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs1, existT _ _s3432_ _) => + let p0_ := + string_drop _s3431_ _s3432_ in + if generic_eq p0_ "" then + Some (size, aq, rl, rd, rs1) + else None + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5))). -Definition _s1943_ (_s1944_ : string) -: M (option ((mword 5 * mword 5))) := - - let _s1945_ := _s1944_ in - (if ((string_startswith _s1945_ "sfence.vma")) then - (match (string_drop _s1945_ (projT1 (string_length "sfence.vma"))) with - | _s1946_ => - (spc_matches_prefix _s1946_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3404_ (_s3405_ : string) : M (option ((mword 5 * mword 5))) := + let _s3406_ := _s3405_ in + (if string_startswith _s3406_ "sfence.vma" then + (match (string_drop _s3406_ (projT1 (string_length "sfence.vma"))) with + | _s3407_ => + (spc_matches_prefix _s3407_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1947_ _)) => - (match (string_drop _s1946_ _s1947_) with - | _s1948_ => - (reg_name_matches_prefix _s1948_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3408_ _) => + (match (string_drop _s3407_ _s3408_) with + | _s3409_ => + (reg_name_matches_prefix _s3409_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s1949_ _)) => - (match (string_drop _s1948_ _s1949_) with - | _s1950_ => - (sep_matches_prefix _s1950_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3410_ _) => + (match (string_drop _s3409_ _s3410_) with + | _s3411_ => + (sep_matches_prefix _s3411_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1951_ _)) => - (match (string_drop _s1950_ _s1951_) with - | _s1952_ => - (reg_name_matches_prefix _s1952_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3412_ _) => + (match (string_drop _s3411_ _s3412_) with + | _s3413_ => + (reg_name_matches_prefix _s3413_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s1953_ _)) => - let p0_ := string_drop _s1952_ _s1953_ in - if ((generic_eq p0_ "")) then Some ((rs1, rs2)) - else None - | _ => None - end) - : option ((mword 5 * mword 5))) + returnm (match w__3 with + | Some (rs2, existT _ _s3414_ _) => + let p0_ := string_drop _s3413_ _s3414_ in + if generic_eq p0_ "" then Some (rs1, rs2) + else None + | _ => None + end) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - | _ => returnm (None : option ((mword 5 * mword 5))) + | _ => returnm None end) : M (option ((mword 5 * mword 5))) end) : M (option ((mword 5 * mword 5))) - else returnm (None : option ((mword 5 * mword 5)))) + else returnm None) : M (option ((mword 5 * mword 5))). -Definition _s1931_ (_s1932_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1933_ := _s1932_ in - (if ((string_startswith _s1933_ "fence.tso")) then - (match (string_drop _s1933_ (projT1 (string_length "fence.tso"))) with - | _s1934_ => - (spc_matches_prefix _s1934_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3392_ (_s3393_ : string) : M (option ((mword 4 * mword 4))) := + let _s3394_ := _s3393_ in + (if string_startswith _s3394_ "fence.tso" then + (match (string_drop _s3394_ (projT1 (string_length "fence.tso"))) with + | _s3395_ => + (spc_matches_prefix _s3395_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1935_ _)) => - (match (string_drop _s1934_ _s1935_) with - | _s1936_ => - (fence_bits_matches_prefix _s1936_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3396_ _) => + (match (string_drop _s3395_ _s3396_) with + | _s3397_ => + (fence_bits_matches_prefix _s3397_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1937_ _)) => - (match (string_drop _s1936_ _s1937_) with - | _s1938_ => - (sep_matches_prefix _s1938_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s3398_ _) => + (match (string_drop _s3397_ _s3398_) with + | _s3399_ => + (sep_matches_prefix _s3399_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1939_ _)) => - (match (string_drop _s1938_ _s1939_) with - | _s1940_ => - (fence_bits_matches_prefix _s1940_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3400_ _) => + (match (string_drop _s3399_ _s3400_) with + | _s3401_ => + (fence_bits_matches_prefix _s3401_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1941_ _)) => - let p0_ := string_drop _s1940_ _s1941_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s3402_ _) => + let p0_ := string_drop _s3401_ _s3402_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1919_ (_s1920_ : string) -: M (option ((mword 4 * mword 4))) := - - let _s1921_ := _s1920_ in - (if ((string_startswith _s1921_ "fence")) then - (match (string_drop _s1921_ (projT1 (string_length "fence"))) with - | _s1922_ => - (spc_matches_prefix _s1922_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3380_ (_s3381_ : string) : M (option ((mword 4 * mword 4))) := + let _s3382_ := _s3381_ in + (if string_startswith _s3382_ "fence" then + (match (string_drop _s3382_ (projT1 (string_length "fence"))) with + | _s3383_ => + (spc_matches_prefix _s3383_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1923_ _)) => - (match (string_drop _s1922_ _s1923_) with - | _s1924_ => - (fence_bits_matches_prefix _s1924_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3384_ _) => + (match (string_drop _s3383_ _s3384_) with + | _s3385_ => + (fence_bits_matches_prefix _s3385_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s1925_ _)) => - (match (string_drop _s1924_ _s1925_) with - | _s1926_ => - (sep_matches_prefix _s1926_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s3386_ _) => + (match (string_drop _s3385_ _s3386_) with + | _s3387_ => + (sep_matches_prefix _s3387_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1927_ _)) => - (match (string_drop _s1926_ _s1927_) with - | _s1928_ => - (fence_bits_matches_prefix _s1928_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3388_ _) => + (match (string_drop _s3387_ _s3388_) with + | _s3389_ => + (fence_bits_matches_prefix _s3389_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s1929_ _)) => - let p0_ := string_drop _s1928_ _s1929_ in - if ((generic_eq p0_ "")) then Some ((pred, succ)) - else None - | _ => None - end) - : option ((mword 4 * mword 4))) + returnm (match w__3 with + | Some (succ, existT _ _s3390_ _) => + let p0_ := string_drop _s3389_ _s3390_ in + if generic_eq p0_ "" then Some (pred, succ) + else None + | _ => None + end) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - | _ => returnm (None : option ((mword 4 * mword 4))) + | _ => returnm None end) : M (option ((mword 4 * mword 4))) end) : M (option ((mword 4 * mword 4))) - else returnm (None : option ((mword 4 * mword 4)))) + else returnm None) : M (option ((mword 4 * mword 4))). -Definition _s1902_ (_s1903_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5))) := - - (match _s1903_ with - | _s1904_ => - (shiftiwop_mnemonic_matches_prefix _s1904_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s3363_ (_s3364_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5))) := + (match _s3364_ with + | _s3365_ => + (shiftiwop_mnemonic_matches_prefix _s3365_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1905_ _)) => - (match (string_drop _s1904_ _s1905_) with - | _s1906_ => - (spc_matches_prefix _s1906_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3366_ _) => + (match (string_drop _s3365_ _s3366_) with + | _s3367_ => + (spc_matches_prefix _s3367_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1907_ _)) => - (match (string_drop _s1906_ _s1907_) with - | _s1908_ => - (reg_name_matches_prefix _s1908_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3368_ _) => + (match (string_drop _s3367_ _s3368_) with + | _s3369_ => + (reg_name_matches_prefix _s3369_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1909_ _)) => - (match (string_drop _s1908_ _s1909_) with - | _s1910_ => - (sep_matches_prefix _s1910_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3370_ _) => + (match (string_drop _s3369_ _s3370_) with + | _s3371_ => + (sep_matches_prefix _s3371_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1911_ _)) => - (match (string_drop _s1910_ _s1911_) with - | _s1912_ => - (reg_name_matches_prefix _s1912_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3372_ _) => + (match (string_drop _s3371_ _s3372_) with + | _s3373_ => + (reg_name_matches_prefix _s3373_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1913_ _)) => - (match (string_drop _s1912_ _s1913_) with - | _s1914_ => - (sep_matches_prefix _s1914_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3374_ _) => + (match (string_drop _s3373_ _s3374_) with + | _s3375_ => + (sep_matches_prefix _s3375_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1915_ _)) => - match (string_drop _s1914_ _s1915_) with - | _s1916_ => - match (hex_bits_5_matches_prefix - _s1916_) with - | Some ((shamt, existT _ _s1917_ _)) => - let p0_ := - string_drop _s1916_ _s1917_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s3376_ _) => + match (string_drop _s3375_ _s3376_) with + | _s3377_ => + match (hex_bits_5_matches_prefix + _s3377_) with + | Some (shamt, existT _ _s3378_ _) => + let p0_ := + string_drop _s3377_ _s3378_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5))). -Definition _s1885_ (_s1886_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5))) := - - (match _s1886_ with - | _s1887_ => - (rtypew_mnemonic_matches_prefix _s1887_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s3346_ (_s3347_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5))) := + (match _s3347_ with + | _s3348_ => + (rtypew_mnemonic_matches_prefix _s3348_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1888_ _)) => - (match (string_drop _s1887_ _s1888_) with - | _s1889_ => - (spc_matches_prefix _s1889_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3349_ _) => + (match (string_drop _s3348_ _s3349_) with + | _s3350_ => + (spc_matches_prefix _s3350_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1890_ _)) => - (match (string_drop _s1889_ _s1890_) with - | _s1891_ => - (reg_name_matches_prefix _s1891_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3351_ _) => + (match (string_drop _s3350_ _s3351_) with + | _s3352_ => + (reg_name_matches_prefix _s3352_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1892_ _)) => - (match (string_drop _s1891_ _s1892_) with - | _s1893_ => - (sep_matches_prefix _s1893_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3353_ _) => + (match (string_drop _s3352_ _s3353_) with + | _s3354_ => + (sep_matches_prefix _s3354_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1894_ _)) => - (match (string_drop _s1893_ _s1894_) with - | _s1895_ => - (reg_name_matches_prefix _s1895_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3355_ _) => + (match (string_drop _s3354_ _s3355_) with + | _s3356_ => + (reg_name_matches_prefix _s3356_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1896_ _)) => - (match (string_drop _s1895_ _s1896_) with - | _s1897_ => - (sep_matches_prefix _s1897_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3357_ _) => + (match (string_drop _s3356_ _s3357_) with + | _s3358_ => + (sep_matches_prefix _s3358_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1898_ _)) => - (match (string_drop _s1897_ _s1898_) with - | _s1899_ => - (reg_name_matches_prefix _s1899_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3359_ _) => + (match (string_drop _s3358_ _s3359_) with + | _s3360_ => + (reg_name_matches_prefix _s3360_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1900_ _)) => - let p0_ := - string_drop _s1899_ _s1900_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3361_ _) => + let p0_ := + string_drop _s3360_ _s3361_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5))). -Definition _s1868_ (_s1869_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5))) := - - (match _s1869_ with - | _s1870_ => - (shiftw_mnemonic_matches_prefix _s1870_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s3329_ (_s3330_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5))) := + (match _s3330_ with + | _s3331_ => + (shiftw_mnemonic_matches_prefix _s3331_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1871_ _)) => - (match (string_drop _s1870_ _s1871_) with - | _s1872_ => - (spc_matches_prefix _s1872_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3332_ _) => + (match (string_drop _s3331_ _s3332_) with + | _s3333_ => + (spc_matches_prefix _s3333_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1873_ _)) => - (match (string_drop _s1872_ _s1873_) with - | _s1874_ => - (reg_name_matches_prefix _s1874_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3334_ _) => + (match (string_drop _s3333_ _s3334_) with + | _s3335_ => + (reg_name_matches_prefix _s3335_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1875_ _)) => - (match (string_drop _s1874_ _s1875_) with - | _s1876_ => - (sep_matches_prefix _s1876_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3336_ _) => + (match (string_drop _s3335_ _s3336_) with + | _s3337_ => + (sep_matches_prefix _s3337_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1877_ _)) => - (match (string_drop _s1876_ _s1877_) with - | _s1878_ => - (reg_name_matches_prefix _s1878_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3338_ _) => + (match (string_drop _s3337_ _s3338_) with + | _s3339_ => + (reg_name_matches_prefix _s3339_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1879_ _)) => - (match (string_drop _s1878_ _s1879_) with - | _s1880_ => - (sep_matches_prefix _s1880_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3340_ _) => + (match (string_drop _s3339_ _s3340_) with + | _s3341_ => + (sep_matches_prefix _s3341_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1881_ _)) => - match (string_drop _s1880_ _s1881_) with - | _s1882_ => - match (hex_bits_5_matches_prefix - _s1882_) with - | Some ((shamt, existT _ _s1883_ _)) => - let p0_ := - string_drop _s1882_ _s1883_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5))) + returnm (match w__5 with + | Some (tt, existT _ _s3342_ _) => + match (string_drop _s3341_ _s3342_) with + | _s3343_ => + match (hex_bits_5_matches_prefix + _s3343_) with + | Some (shamt, existT _ _s3344_ _) => + let p0_ := + string_drop _s3343_ _s3344_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5))) end) : M (option ((sop * mword 5 * mword 5 * mword 5))). -Definition _s1852_ (_s1853_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s1854_ := _s1853_ in - (if ((string_startswith _s1854_ "addiw")) then - (match (string_drop _s1854_ (projT1 (string_length "addiw"))) with - | _s1855_ => - (spc_matches_prefix _s1855_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3313_ (_s3314_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s3315_ := _s3314_ in + (if string_startswith _s3315_ "addiw" then + (match (string_drop _s3315_ (projT1 (string_length "addiw"))) with + | _s3316_ => + (spc_matches_prefix _s3316_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1856_ _)) => - (match (string_drop _s1855_ _s1856_) with - | _s1857_ => - (reg_name_matches_prefix _s1857_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3317_ _) => + (match (string_drop _s3316_ _s3317_) with + | _s3318_ => + (reg_name_matches_prefix _s3318_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1858_ _)) => - (match (string_drop _s1857_ _s1858_) with - | _s1859_ => - (sep_matches_prefix _s1859_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3319_ _) => + (match (string_drop _s3318_ _s3319_) with + | _s3320_ => + (sep_matches_prefix _s3320_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1860_ _)) => - (match (string_drop _s1859_ _s1860_) with - | _s1861_ => - (reg_name_matches_prefix _s1861_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3321_ _) => + (match (string_drop _s3320_ _s3321_) with + | _s3322_ => + (reg_name_matches_prefix _s3322_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1862_ _)) => - (match (string_drop _s1861_ _s1862_) with - | _s1863_ => - (sep_matches_prefix _s1863_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3323_ _) => + (match (string_drop _s3322_ _s3323_) with + | _s3324_ => + (sep_matches_prefix _s3324_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1864_ _)) => - match (string_drop _s1863_ _s1864_) with - | _s1865_ => - match (hex_bits_12_matches_prefix _s1865_) with - | Some ((imm, existT _ _s1866_ _)) => - let p0_ := string_drop _s1865_ _s1866_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s3325_ _) => + match (string_drop _s3324_ _s3325_) with + | _s3326_ => + match (hex_bits_12_matches_prefix _s3326_) with + | Some (imm, existT _ _s3327_ _) => + let p0_ := string_drop _s3326_ _s3327_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s1824_ (_s1825_ : string) +Definition _s3285_ (_s3286_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s1826_ := _s1825_ in - (if ((string_startswith _s1826_ "s")) then - (match (string_drop _s1826_ (projT1 (string_length "s"))) with - | _s1827_ => - (size_mnemonic_matches_prefix _s1827_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s3287_ := _s3286_ in + (if string_startswith _s3287_ "s" then + (match (string_drop _s3287_ (projT1 (string_length "s"))) with + | _s3288_ => + (size_mnemonic_matches_prefix _s3288_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1828_ _)) => - (match (string_drop _s1827_ _s1828_) with - | _s1829_ => - (maybe_aq_matches_prefix _s1829_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s3289_ _) => + (match (string_drop _s3288_ _s3289_) with + | _s3290_ => + (maybe_aq_matches_prefix _s3290_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s1830_ _)) => - (match (string_drop _s1829_ _s1830_) with - | _s1831_ => - (maybe_rl_matches_prefix _s1831_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s3291_ _) => + (match (string_drop _s3290_ _s3291_) with + | _s3292_ => + (maybe_rl_matches_prefix _s3292_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s1832_ _)) => - (match (string_drop _s1831_ _s1832_) with - | _s1833_ => - (spc_matches_prefix _s1833_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s3293_ _) => + (match (string_drop _s3292_ _s3293_) with + | _s3294_ => + (spc_matches_prefix _s3294_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1834_ _)) => - (match (string_drop _s1833_ _s1834_) with - | _s1835_ => - (reg_name_matches_prefix _s1835_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3295_ _) => + (match (string_drop _s3294_ _s3295_) with + | _s3296_ => + (reg_name_matches_prefix _s3296_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s1836_ _)) => - (match (string_drop _s1835_ _s1836_) with - | _s1837_ => - (sep_matches_prefix _s1837_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3297_ _) => + (match (string_drop _s3296_ _s3297_) with + | _s3298_ => + (sep_matches_prefix _s3298_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1838_ _)) => - (match (string_drop _s1837_ _s1838_) with - | _s1839_ => - (match (hex_bits_12_matches_prefix _s1839_) with - | Some ((imm, existT _ _s1840_ _)) => - (match (string_drop _s1839_ _s1840_) with - | _s1841_ => - (opt_spc_matches_prefix _s1841_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3299_ _) => + (match (string_drop _s3298_ _s3299_) with + | _s3300_ => + (match (hex_bits_12_matches_prefix _s3300_) with + | Some (imm, existT _ _s3301_ _) => + (match (string_drop _s3300_ _s3301_) with + | _s3302_ => + (opt_spc_matches_prefix _s3302_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1842_ _)) => - let _s1843_ := - string_drop _s1841_ _s1842_ in - (if ((string_startswith - _s1843_ "(")) then - (match (string_drop _s1843_ + | Some (tt, existT _ _s3303_ _) => + let _s3304_ := + string_drop _s3302_ _s3303_ in + (if string_startswith _s3304_ + "(" then + (match (string_drop _s3304_ (projT1 (string_length "("))) with - | _s1844_ => + | _s3305_ => (opt_spc_matches_prefix - _s1844_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s3305_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s1845_ _)) => + (tt, existT _ _s3306_ _) => (match (string_drop - _s1844_ - _s1845_) with - | _s1846_ => + _s3305_ + _s3306_) with + | _s3307_ => (reg_name_matches_prefix - _s1846_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s3307_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s1847_ _)) => + (rs1, existT _ _s3308_ _) => (match (string_drop - _s1846_ - _s1847_) with - | _s1848_ => + _s3307_ + _s3308_) with + | _s3309_ => (opt_spc_matches_prefix - _s1848_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s3309_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s1849_ _)) => - let _s1850_ := - string_drop - _s1848_ - _s1849_ in - if - ((string_startswith - _s1850_ - ")")) - then - let p0_ := - string_drop - _s1850_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, aq, rl, rs2, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__9 with + | Some + (tt, existT _ _s3310_ _) => + let _s3311_ := + string_drop + _s3309_ + _s3310_ in + if + string_startswith + _s3311_ + ")" + then + let p0_ := + string_drop + _s3311_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, aq, rl, rs2, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s1794_ (_s1795_ : string) +Definition _s3255_ (_s3256_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) := - - let _s1796_ := _s1795_ in - (if ((string_startswith _s1796_ "l")) then - (match (string_drop _s1796_ (projT1 (string_length "l"))) with - | _s1797_ => - (size_mnemonic_matches_prefix _s1797_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s3257_ := _s3256_ in + (if string_startswith _s3257_ "l" then + (match (string_drop _s3257_ (projT1 (string_length "l"))) with + | _s3258_ => + (size_mnemonic_matches_prefix _s3258_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s1798_ _)) => - (match (string_drop _s1797_ _s1798_) with - | _s1799_ => - (maybe_u_matches_prefix _s1799_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s3259_ _) => + (match (string_drop _s3258_ _s3259_) with + | _s3260_ => + (maybe_u_matches_prefix _s3260_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s1800_ _)) => - (match (string_drop _s1799_ _s1800_) with - | _s1801_ => - (maybe_aq_matches_prefix _s1801_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s3261_ _) => + (match (string_drop _s3260_ _s3261_) with + | _s3262_ => + (maybe_aq_matches_prefix _s3262_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s1802_ _)) => - (match (string_drop _s1801_ _s1802_) with - | _s1803_ => - (maybe_rl_matches_prefix _s1803_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s3263_ _) => + (match (string_drop _s3262_ _s3263_) with + | _s3264_ => + (maybe_rl_matches_prefix _s3264_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s1804_ _)) => - (match (string_drop _s1803_ _s1804_) with - | _s1805_ => - (spc_matches_prefix _s1805_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s3265_ _) => + (match (string_drop _s3264_ _s3265_) with + | _s3266_ => + (spc_matches_prefix _s3266_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s1806_ _)) => - (match (string_drop _s1805_ _s1806_) with - | _s1807_ => - (reg_name_matches_prefix _s1807_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3267_ _) => + (match (string_drop _s3266_ _s3267_) with + | _s3268_ => + (reg_name_matches_prefix _s3268_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s1808_ _)) => - (match (string_drop _s1807_ _s1808_) with - | _s1809_ => - (sep_matches_prefix _s1809_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3269_ _) => + (match (string_drop _s3268_ _s3269_) with + | _s3270_ => + (sep_matches_prefix _s3270_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s1810_ _)) => - (match (string_drop _s1809_ _s1810_) with - | _s1811_ => + | Some (tt, existT _ _s3271_ _) => + (match (string_drop _s3270_ _s3271_) with + | _s3272_ => (match (hex_bits_12_matches_prefix - _s1811_) with - | Some - ((imm, existT _ _s1812_ _)) => - (match (string_drop _s1811_ - _s1812_) with - | _s1813_ => + _s3272_) with + | Some (imm, existT _ _s3273_ _) => + (match (string_drop _s3272_ + _s3273_) with + | _s3274_ => (opt_spc_matches_prefix - _s1813_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s3274_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s1814_ _)) => - let _s1815_ := - string_drop _s1813_ - _s1814_ in - (if ((string_startswith - _s1815_ "(")) - then + (tt, existT _ _s3275_ _) => + let _s3276_ := + string_drop _s3274_ + _s3275_ in + (if string_startswith + _s3276_ "(" then (match (string_drop - _s1815_ + _s3276_ (projT1 (string_length "("))) with - | _s1816_ => + | _s3277_ => (opt_spc_matches_prefix - _s1816_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s3277_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s1817_ _)) => + (tt, existT _ _s3278_ _) => (match (string_drop - _s1816_ - _s1817_) with - | _s1818_ => + _s3277_ + _s3278_) with + | _s3279_ => (reg_name_matches_prefix - _s1818_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s3279_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s1819_ _)) => + (rs1, existT _ _s3280_ _) => (match (string_drop - _s1818_ - _s1819_) with - | _s1820_ => + _s3279_ + _s3280_) with + | _s3281_ => (opt_spc_matches_prefix - _s1820_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s3281_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s1821_ _)) => - let _s1822_ := - string_drop - _s1820_ - _s1821_ in - if - ((string_startswith - _s1822_ - ")")) - then - let p0_ := - string_drop - _s1822_ - (projT1 - (string_length - ")")) in - if - ((generic_eq - p0_ - "")) - then - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1)) - else - None - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm (match w__10 with + | Some + (tt, existT _ _s3282_ _) => + let _s3283_ := + string_drop + _s3281_ + _s3282_ in + if + string_startswith + _s3283_ + ")" + then + let p0_ := + string_drop + _s3283_ + (projT1 + (string_length + ")")) in + if + generic_eq + p0_ + "" + then + Some + (size, is_unsigned, aq, rl, rd, imm, rs1) + else + None + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))) - else returnm (None : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5))). -Definition _s1777_ (_s1778_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5))) := - - (match _s1778_ with - | _s1779_ => - (rtype_mnemonic_matches_prefix _s1779_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s3238_ (_s3239_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5))) := + (match _s3239_ with + | _s3240_ => + (rtype_mnemonic_matches_prefix _s3240_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1780_ _)) => - (match (string_drop _s1779_ _s1780_) with - | _s1781_ => - (spc_matches_prefix _s1781_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3241_ _) => + (match (string_drop _s3240_ _s3241_) with + | _s3242_ => + (spc_matches_prefix _s3242_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1782_ _)) => - (match (string_drop _s1781_ _s1782_) with - | _s1783_ => - (reg_name_matches_prefix _s1783_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3243_ _) => + (match (string_drop _s3242_ _s3243_) with + | _s3244_ => + (reg_name_matches_prefix _s3244_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1784_ _)) => - (match (string_drop _s1783_ _s1784_) with - | _s1785_ => - (sep_matches_prefix _s1785_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3245_ _) => + (match (string_drop _s3244_ _s3245_) with + | _s3246_ => + (sep_matches_prefix _s3246_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1786_ _)) => - (match (string_drop _s1785_ _s1786_) with - | _s1787_ => - (reg_name_matches_prefix _s1787_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3247_ _) => + (match (string_drop _s3246_ _s3247_) with + | _s3248_ => + (reg_name_matches_prefix _s3248_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1788_ _)) => - (match (string_drop _s1787_ _s1788_) with - | _s1789_ => - (sep_matches_prefix _s1789_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3249_ _) => + (match (string_drop _s3248_ _s3249_) with + | _s3250_ => + (sep_matches_prefix _s3250_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s1790_ _)) => - (match (string_drop _s1789_ _s1790_) with - | _s1791_ => - (reg_name_matches_prefix _s1791_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3251_ _) => + (match (string_drop _s3250_ _s3251_) with + | _s3252_ => + (reg_name_matches_prefix _s3252_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s1792_ _)) => - let p0_ := - string_drop _s1791_ _s1792_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, rs2)) - else None - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5))) + returnm (match w__6 with + | Some (rs2, existT _ _s3253_ _) => + let p0_ := + string_drop _s3252_ _s3253_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, rs2) + else None + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5))) end) : M (option ((rop * mword 5 * mword 5 * mword 5))). -Definition _s1760_ (_s1761_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6))) := - - (match _s1761_ with - | _s1762_ => - (shiftiop_mnemonic_matches_prefix _s1762_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s3221_ (_s3222_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6))) := + (match _s3222_ with + | _s3223_ => + (shiftiop_mnemonic_matches_prefix _s3223_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1763_ _)) => - (match (string_drop _s1762_ _s1763_) with - | _s1764_ => - (spc_matches_prefix _s1764_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3224_ _) => + (match (string_drop _s3223_ _s3224_) with + | _s3225_ => + (spc_matches_prefix _s3225_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1765_ _)) => - (match (string_drop _s1764_ _s1765_) with - | _s1766_ => - (reg_name_matches_prefix _s1766_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3226_ _) => + (match (string_drop _s3225_ _s3226_) with + | _s3227_ => + (reg_name_matches_prefix _s3227_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1767_ _)) => - (match (string_drop _s1766_ _s1767_) with - | _s1768_ => - (sep_matches_prefix _s1768_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3228_ _) => + (match (string_drop _s3227_ _s3228_) with + | _s3229_ => + (sep_matches_prefix _s3229_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1769_ _)) => - (match (string_drop _s1768_ _s1769_) with - | _s1770_ => - (reg_name_matches_prefix _s1770_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3230_ _) => + (match (string_drop _s3229_ _s3230_) with + | _s3231_ => + (reg_name_matches_prefix _s3231_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1771_ _)) => - (match (string_drop _s1770_ _s1771_) with - | _s1772_ => - (sep_matches_prefix _s1772_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3232_ _) => + (match (string_drop _s3231_ _s3232_) with + | _s3233_ => + (sep_matches_prefix _s3233_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1773_ _)) => - match (string_drop _s1772_ _s1773_) with - | _s1774_ => - match (hex_bits_6_matches_prefix - _s1774_) with - | Some ((shamt, existT _ _s1775_ _)) => - let p0_ := - string_drop _s1774_ _s1775_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, shamt)) - else None - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6))) + returnm (match w__5 with + | Some (tt, existT _ _s3234_ _) => + match (string_drop _s3233_ _s3234_) with + | _s3235_ => + match (hex_bits_6_matches_prefix + _s3235_) with + | Some (shamt, existT _ _s3236_ _) => + let p0_ := + string_drop _s3235_ _s3236_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, shamt) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6))) end) : M (option ((sop * mword 5 * mword 5 * mword 6))). -Definition _s1743_ (_s1744_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12))) := - - (match _s1744_ with - | _s1745_ => - (itype_mnemonic_matches_prefix _s1745_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s3204_ (_s3205_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12))) := + (match _s3205_ with + | _s3206_ => + (itype_mnemonic_matches_prefix _s3206_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1746_ _)) => - (match (string_drop _s1745_ _s1746_) with - | _s1747_ => - (spc_matches_prefix _s1747_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3207_ _) => + (match (string_drop _s3206_ _s3207_) with + | _s3208_ => + (spc_matches_prefix _s3208_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1748_ _)) => - (match (string_drop _s1747_ _s1748_) with - | _s1749_ => - (reg_name_matches_prefix _s1749_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3209_ _) => + (match (string_drop _s3208_ _s3209_) with + | _s3210_ => + (reg_name_matches_prefix _s3210_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1750_ _)) => - (match (string_drop _s1749_ _s1750_) with - | _s1751_ => - (sep_matches_prefix _s1751_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3211_ _) => + (match (string_drop _s3210_ _s3211_) with + | _s3212_ => + (sep_matches_prefix _s3212_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1752_ _)) => - (match (string_drop _s1751_ _s1752_) with - | _s1753_ => - (reg_name_matches_prefix _s1753_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3213_ _) => + (match (string_drop _s3212_ _s3213_) with + | _s3214_ => + (reg_name_matches_prefix _s3214_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s1754_ _)) => - (match (string_drop _s1753_ _s1754_) with - | _s1755_ => - (sep_matches_prefix _s1755_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3215_ _) => + (match (string_drop _s3214_ _s3215_) with + | _s3216_ => + (sep_matches_prefix _s3216_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1756_ _)) => - match (string_drop _s1755_ _s1756_) with - | _s1757_ => - match (hex_bits_12_matches_prefix - _s1757_) with - | Some ((imm, existT _ _s1758_ _)) => - let p0_ := - string_drop _s1757_ _s1758_ in - if ((generic_eq p0_ "")) then - Some - ((op, rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12))) + returnm (match w__5 with + | Some (tt, existT _ _s3217_ _) => + match (string_drop _s3216_ _s3217_) with + | _s3218_ => + match (hex_bits_12_matches_prefix + _s3218_) with + | Some (imm, existT _ _s3219_ _) => + let p0_ := + string_drop _s3218_ _s3219_ in + if generic_eq p0_ "" then + Some (op, rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12))) end) : M (option ((iop * mword 5 * mword 5 * mword 12))). -Definition _s1726_ (_s1727_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13))) := - - (match _s1727_ with - | _s1728_ => - (btype_mnemonic_matches_prefix _s1728_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s3187_ (_s3188_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13))) := + (match _s3188_ with + | _s3189_ => + (btype_mnemonic_matches_prefix _s3189_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1729_ _)) => - (match (string_drop _s1728_ _s1729_) with - | _s1730_ => - (spc_matches_prefix _s1730_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3190_ _) => + (match (string_drop _s3189_ _s3190_) with + | _s3191_ => + (spc_matches_prefix _s3191_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1731_ _)) => - (match (string_drop _s1730_ _s1731_) with - | _s1732_ => - (reg_name_matches_prefix _s1732_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3192_ _) => + (match (string_drop _s3191_ _s3192_) with + | _s3193_ => + (reg_name_matches_prefix _s3193_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s1733_ _)) => - (match (string_drop _s1732_ _s1733_) with - | _s1734_ => - (sep_matches_prefix _s1734_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3194_ _) => + (match (string_drop _s3193_ _s3194_) with + | _s3195_ => + (sep_matches_prefix _s3195_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s1735_ _)) => - (match (string_drop _s1734_ _s1735_) with - | _s1736_ => - (reg_name_matches_prefix _s1736_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3196_ _) => + (match (string_drop _s3195_ _s3196_) with + | _s3197_ => + (reg_name_matches_prefix _s3197_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s1737_ _)) => - (match (string_drop _s1736_ _s1737_) with - | _s1738_ => - (sep_matches_prefix _s1738_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s3198_ _) => + (match (string_drop _s3197_ _s3198_) with + | _s3199_ => + (sep_matches_prefix _s3199_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s1739_ _)) => - match (string_drop _s1738_ _s1739_) with - | _s1740_ => - match (hex_bits_13_matches_prefix - _s1740_) with - | Some ((imm, existT _ _s1741_ _)) => - let p0_ := - string_drop _s1740_ _s1741_ in - if ((generic_eq p0_ "")) then - Some - ((op, rs1, rs2, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13))) + returnm (match w__5 with + | Some (tt, existT _ _s3200_ _) => + match (string_drop _s3199_ _s3200_) with + | _s3201_ => + match (hex_bits_13_matches_prefix + _s3201_) with + | Some (imm, existT _ _s3202_ _) => + let p0_ := + string_drop _s3201_ _s3202_ in + if generic_eq p0_ "" then + Some (op, rs1, rs2, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13))) end) : M (option ((bop * mword 5 * mword 5 * mword 13))). -Definition _s1710_ (_s1711_ : string) -: M (option ((mword 5 * mword 5 * mword 12))) := - - let _s1712_ := _s1711_ in - (if ((string_startswith _s1712_ "jalr")) then - (match (string_drop _s1712_ (projT1 (string_length "jalr"))) with - | _s1713_ => - (spc_matches_prefix _s1713_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3171_ (_s3172_ : string) : M (option ((mword 5 * mword 5 * mword 12))) := + let _s3173_ := _s3172_ in + (if string_startswith _s3173_ "jalr" then + (match (string_drop _s3173_ (projT1 (string_length "jalr"))) with + | _s3174_ => + (spc_matches_prefix _s3174_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1714_ _)) => - (match (string_drop _s1713_ _s1714_) with - | _s1715_ => - (reg_name_matches_prefix _s1715_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3175_ _) => + (match (string_drop _s3174_ _s3175_) with + | _s3176_ => + (reg_name_matches_prefix _s3176_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1716_ _)) => - (match (string_drop _s1715_ _s1716_) with - | _s1717_ => - (sep_matches_prefix _s1717_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3177_ _) => + (match (string_drop _s3176_ _s3177_) with + | _s3178_ => + (sep_matches_prefix _s3178_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s1718_ _)) => - (match (string_drop _s1717_ _s1718_) with - | _s1719_ => - (reg_name_matches_prefix _s1719_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3179_ _) => + (match (string_drop _s3178_ _s3179_) with + | _s3180_ => + (reg_name_matches_prefix _s3180_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s1720_ _)) => - (match (string_drop _s1719_ _s1720_) with - | _s1721_ => - (sep_matches_prefix _s1721_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s3181_ _) => + (match (string_drop _s3180_ _s3181_) with + | _s3182_ => + (sep_matches_prefix _s3182_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s1722_ _)) => - match (string_drop _s1721_ _s1722_) with - | _s1723_ => - match (hex_bits_12_matches_prefix _s1723_) with - | Some ((imm, existT _ _s1724_ _)) => - let p0_ := string_drop _s1723_ _s1724_ in - if ((generic_eq p0_ "")) then - Some - ((rd, rs1, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12))) + returnm (match w__4 with + | Some (tt, existT _ _s3183_ _) => + match (string_drop _s3182_ _s3183_) with + | _s3184_ => + match (hex_bits_12_matches_prefix _s3184_) with + | Some (imm, existT _ _s3185_ _) => + let p0_ := string_drop _s3184_ _s3185_ in + if generic_eq p0_ "" then + Some (rd, rs1, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12))) end) : M (option ((mword 5 * mword 5 * mword 12))) - else returnm (None : option ((mword 5 * mword 5 * mword 12)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12))). -Definition _s1698_ (_s1699_ : string) -: M (option ((mword 5 * mword 21))) := - - let _s1700_ := _s1699_ in - (if ((string_startswith _s1700_ "jal")) then - (match (string_drop _s1700_ (projT1 (string_length "jal"))) with - | _s1701_ => - (spc_matches_prefix _s1701_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s3159_ (_s3160_ : string) : M (option ((mword 5 * mword 21))) := + let _s3161_ := _s3160_ in + (if string_startswith _s3161_ "jal" then + (match (string_drop _s3161_ (projT1 (string_length "jal"))) with + | _s3162_ => + (spc_matches_prefix _s3162_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s1702_ _)) => - (match (string_drop _s1701_ _s1702_) with - | _s1703_ => - (reg_name_matches_prefix _s1703_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3163_ _) => + (match (string_drop _s3162_ _s3163_) with + | _s3164_ => + (reg_name_matches_prefix _s3164_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s1704_ _)) => - (match (string_drop _s1703_ _s1704_) with - | _s1705_ => - (sep_matches_prefix _s1705_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3165_ _) => + (match (string_drop _s3164_ _s3165_) with + | _s3166_ => + (sep_matches_prefix _s3166_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s1706_ _)) => - match (string_drop _s1705_ _s1706_) with - | _s1707_ => - match (hex_bits_21_matches_prefix _s1707_) with - | Some ((imm, existT _ _s1708_ _)) => - let p0_ := string_drop _s1707_ _s1708_ in - if ((generic_eq p0_ "")) then Some ((rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21))) + returnm (match w__2 with + | Some (tt, existT _ _s3167_ _) => + match (string_drop _s3166_ _s3167_) with + | _s3168_ => + match (hex_bits_21_matches_prefix _s3168_) with + | Some (imm, existT _ _s3169_ _) => + let p0_ := string_drop _s3168_ _s3169_ in + if generic_eq p0_ "" then Some (rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - | _ => returnm (None : option ((mword 5 * mword 21))) + | _ => returnm None end) : M (option ((mword 5 * mword 21))) end) : M (option ((mword 5 * mword 21))) - else returnm (None : option ((mword 5 * mword 21)))) + else returnm None) : M (option ((mword 5 * mword 21))). -Definition _s1685_ (_s1686_ : string) -: M (option ((uop * mword 5 * mword 20))) := - - (match _s1686_ with - | _s1687_ => - (utype_mnemonic_matches_prefix _s1687_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s3146_ (_s3147_ : string) : M (option ((uop * mword 5 * mword 20))) := + (match _s3147_ with + | _s3148_ => + (utype_mnemonic_matches_prefix _s3148_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s1688_ _)) => - (match (string_drop _s1687_ _s1688_) with - | _s1689_ => - (spc_matches_prefix _s1689_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s3149_ _) => + (match (string_drop _s3148_ _s3149_) with + | _s3150_ => + (spc_matches_prefix _s3150_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s1690_ _)) => - (match (string_drop _s1689_ _s1690_) with - | _s1691_ => - (reg_name_matches_prefix _s1691_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s3151_ _) => + (match (string_drop _s3150_ _s3151_) with + | _s3152_ => + (reg_name_matches_prefix _s3152_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s1692_ _)) => - (match (string_drop _s1691_ _s1692_) with - | _s1693_ => - (sep_matches_prefix _s1693_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s3153_ _) => + (match (string_drop _s3152_ _s3153_) with + | _s3154_ => + (sep_matches_prefix _s3154_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s1694_ _)) => - match (string_drop _s1693_ _s1694_) with - | _s1695_ => - match (hex_bits_20_matches_prefix _s1695_) with - | Some ((imm, existT _ _s1696_ _)) => - let p0_ := string_drop _s1695_ _s1696_ in - if ((generic_eq p0_ "")) then Some ((op, rd, imm)) - else None - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20))) + returnm (match w__3 with + | Some (tt, existT _ _s3155_ _) => + match (string_drop _s3154_ _s3155_) with + | _s3156_ => + match (hex_bits_20_matches_prefix _s3156_) with + | Some (imm, existT _ _s3157_ _) => + let p0_ := string_drop _s3156_ _s3157_ in + if generic_eq p0_ "" then Some (op, rd, imm) + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))) - | _ => returnm (None : option ((uop * mword 5 * mword 20))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20))) end) : M (option ((uop * mword 5 * mword 20))). -Definition assembly_backwards_matches (arg_ : string) -: M (bool) := - - let _s1697_ := arg_ in - (_s1685_ _s1697_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => - (if ((match w__0 with | Some ((op, rd, imm)) => true | _ => false end)) then - (_s1685_ _s1697_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => - (match w__1 with - | Some ((op, rd, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) +Definition assembly_backwards_matches (arg_ : string) : M (bool) := + let _s3158_ := arg_ in + (_s3146_ _s3158_) >>= fun w__0 : option ((uop * mword 5 * mword 20)) => + (if match w__0 with | Some (op, rd, imm) => true | _ => false end then + (_s3146_ _s3158_) >>= fun w__1 : option ((uop * mword 5 * mword 20)) => + (match w__1 with | Some (op, rd, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1698_ _s1697_) >>= fun w__4 : option ((mword 5 * mword 21)) => - (if ((match w__4 with | Some ((rd, imm)) => true | _ => false end)) then - (_s1698_ _s1697_) >>= fun w__5 : option ((mword 5 * mword 21)) => - (match w__5 with - | Some ((rd, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (_s3159_ _s3158_) >>= fun w__4 : option ((mword 5 * mword 21)) => + (if match w__4 with | Some (rd, imm) => true | _ => false end then + (_s3159_ _s3158_) >>= fun w__5 : option ((mword 5 * mword 21)) => + (match w__5 with | Some (rd, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1710_ _s1697_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__8 with | Some ((rd, rs1, imm)) => true | _ => false end)) then - (_s1710_ _s1697_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => - (match w__9 with - | Some ((rd, rs1, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | _ => exit tt : M (bool) - end) + (_s3171_ _s3158_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__8 with | Some (rd, rs1, imm) => true | _ => false end then + (_s3171_ _s3158_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12)) => + (match w__9 with | Some (rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1726_ _s1697_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm)) => true | _ => false end)) then - (_s1726_ _s1697_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => + (_s3187_ _s3158_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13)) => + (if match w__12 with | Some (op, rs1, rs2, imm) => true | _ => false end then + (_s3187_ _s3158_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13)) => (match w__13 with - | Some ((op, rs1, rs2, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rs1, rs2, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1743_ _s1697_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm)) => true | _ => false end)) then - (_s1743_ _s1697_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => + (_s3204_ _s3158_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12)) => + (if match w__16 with | Some (op, rd, rs1, imm) => true | _ => false end then + (_s3204_ _s3158_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12)) => (match w__17 with - | Some ((op, rd, rs1, imm)) => - returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1760_ _s1697_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt)) => true | _ => false end)) - then - (_s1760_ _s1697_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => + (_s3221_ _s3158_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6)) => + (if match w__20 with | Some (op, rd, rs1, shamt) => true | _ => false end then + (_s3221_ _s3158_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6)) => (match w__21 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1777_ _s1697_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2)) => true | _ => false end)) - then - (_s1777_ _s1697_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => + (_s3238_ _s3158_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5)) => + (if match w__24 with | Some (op, rd, rs1, rs2) => true | _ => false end then + (_s3238_ _s3158_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5)) => (match w__25 with - | Some ((op, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1794_ _s1697_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => true - | _ => false - end)) then - (_s1794_ _s1697_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s3255_ _s3158_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => true + | _ => false + end then + (_s3255_ _s3158_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1824_ _s1697_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1)) => true - | _ => false - end)) then - (_s1824_ _s1697_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (_s3285_ _s3158_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1) => true + | _ => false + end then + (_s3285_ _s3158_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, aq, rl, rs2, imm, rs1) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1852_ _s1697_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => - (if ((match w__36 with - | Some ((rd, rs1, imm)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1852_ _s1697_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => + (_s3313_ _s3158_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12)) => + (if match w__36 with + | Some (rd, rs1, imm) => Z.eqb 64 64 + | _ => false + end then + (_s3313_ _s3158_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12)) => (match w__37 with - | Some ((rd, rs1, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (rd, rs1, imm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1868_ _s1697_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1868_ _s1697_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => + (_s3329_ _s3158_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5)) => + (if match w__40 with + | Some (op, rd, rs1, shamt) => Z.eqb 64 64 + | _ => false + end then + (_s3329_ _s3158_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5)) => (match w__41 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1885_ _s1697_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1885_ _s1697_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (_s3346_ _s3158_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5)) => + (if match w__44 with + | Some (op, rd, rs1, rs2) => Z.eqb 64 64 + | _ => false + end then + (_s3346_ _s3158_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5)) => (match w__45 with - | Some ((op, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1902_ _s1697_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt)) => Z.eqb 64 64 - | _ => false - end)) then - (_s1902_ _s1697_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (_s3363_ _s3158_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5)) => + (if match w__48 with + | Some (op, rd, rs1, shamt) => Z.eqb 64 64 + | _ => false + end then + (_s3363_ _s3158_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5)) => (match w__49 with - | Some ((op, rd, rs1, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (op, rd, rs1, shamt) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1919_ _s1697_) >>= fun w__52 : option ((mword 4 * mword 4)) => - (if ((match w__52 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1919_ _s1697_) >>= fun w__53 : option ((mword 4 * mword 4)) => + (_s3380_ _s3158_) >>= fun w__52 : option ((mword 4 * mword 4)) => + (if match w__52 with + | Some (pred, succ) => true + | _ => false + end then + (_s3380_ _s3158_) >>= fun w__53 : option ((mword 4 * mword 4)) => (match w__53 with - | Some ((pred, succ)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (pred, succ) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1931_ _s1697_) >>= fun w__56 : option ((mword 4 * mword 4)) => - (if ((match w__56 with - | Some ((pred, succ)) => true - | _ => false - end)) then - (_s1931_ _s1697_) >>= fun w__57 : option ((mword 4 * mword 4)) => + (_s3392_ _s3158_) >>= fun w__56 : option ((mword 4 * mword 4)) => + (if match w__56 with + | Some (pred, succ) => true + | _ => false + end then + (_s3392_ _s3158_) >>= fun w__57 : option ((mword 4 * mword 4)) => (match w__57 with - | Some ((pred, succ)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (pred, succ) => returnm true | _ => exit tt : M (bool) end) : M (bool) - else if ((generic_eq _s1697_ "fence.i")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "ecall")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "mret")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "sret")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "ebreak")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) - else if ((generic_eq _s1697_ "wfi")) then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + else if generic_eq _s3158_ "fence.i" then returnm true + else if generic_eq _s3158_ "ecall" then returnm true + else if generic_eq _s3158_ "mret" then returnm true + else if generic_eq _s3158_ "sret" then returnm true + else if generic_eq _s3158_ "ebreak" then returnm true + else if generic_eq _s3158_ "wfi" then returnm true else - (_s1943_ _s1697_) >>= fun w__60 : option ((mword 5 * mword 5)) => - (if ((match w__60 with - | Some ((rs1, rs2)) => true - | _ => false - end)) then - (_s1943_ _s1697_) >>= fun w__61 : option ((mword 5 * mword 5)) => + (_s3404_ _s3158_) >>= fun w__60 : option ((mword 5 * mword 5)) => + (if match w__60 with + | Some (rs1, rs2) => true + | _ => false + end then + (_s3404_ _s3158_) >>= fun w__61 : option ((mword 5 * mword 5)) => (match w__61 with - | Some ((rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (rs1, rs2) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1955_ _s1697_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => - (if ((match w__64 with - | Some ((size, aq, rl, rd, rs1)) => true - | _ => false - end)) then - (_s1955_ _s1697_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (_s3416_ _s3158_) >>= fun w__64 : option ((word_width * bool * bool * mword 5 * mword 5)) => + (if match w__64 with + | Some (size, aq, rl, rd, rs1) => true + | _ => false + end then + (_s3416_ _s3158_) >>= fun w__65 : option ((word_width * bool * bool * mword 5 * mword 5)) => (match w__65 with - | Some ((size, aq, rl, rd, rs1)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = true)})) + | Some (size, aq, rl, rd, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1973_ _s1697_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__68 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1973_ _s1697_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (match w__69 with - | Some ((size, aq, rl, rd, rs1, rs2)) => - returnm (projT1 - (build_ex + (_s3434_ _s3158_) >>= fun w__68 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__68 with + | Some (size, aq, rl, rd, rs1, rs2) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s3434_ _s3158_) >>= fun w__69 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (match w__69 with + | Some (size, aq, rl, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s1995_ _s1697_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (if ((match w__72 with - | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - true - | _ => false - end)) then - (_s1995_ _s1697_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => - (match w__73 with + (_s3456_ _s3158_) >>= fun w__72 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (if match w__72 with | Some - ((op, width, aq, rl, rd, rs1, rs2)) => - returnm (projT1 - (build_ex + (op, width, aq, rl, rd, rs2, rs1) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s3456_ _s3158_) >>= fun w__73 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5)) => + (match w__73 with + | Some + (op, width, aq, rl, rd, rs2, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) - else if ((generic_eq _s1697_ "c.nop")) - then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + else if generic_eq _s3158_ "c.nop" then + returnm true else - (_s2019_ _s1697_) >>= fun w__76 : option ((mword 3 * mword 8)) => - (if ((match w__76 with - | Some ((rdc, nzimm)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s2019_ _s1697_) >>= fun w__77 : option ((mword 3 * mword 8)) => + (_s3482_ _s3158_) >>= fun w__76 : option ((mword 3 * mword 8)) => + (if match w__76 with + | Some (rdc, nzimm) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s3482_ _s3158_) >>= fun w__77 : option ((mword 3 * mword 8)) => (match w__77 with - | Some ((rdc, nzimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, nzimm) => returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2031_ _s1697_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__80 with - | Some ((rdc, rsc, uimm)) => - true - | _ => false - end)) then - (_s2031_ _s1697_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => + (_s3494_ _s3158_) >>= fun w__80 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__80 with + | Some (rdc, rsc, uimm) => true + | _ => false + end then + (_s3494_ _s3158_) >>= fun w__81 : option ((mword 3 * mword 3 * mword 5)) => (match w__81 with - | Some ((rdc, rsc, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, rsc, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2047_ _s1697_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__84 with - | Some ((rdc, rsc, uimm)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s2047_ _s1697_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => + (_s3510_ _s3158_) >>= fun w__84 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__84 with + | Some (rdc, rsc, uimm) => + Z.eqb 64 64 + | _ => false + end then + (_s3510_ _s3158_) >>= fun w__85 : option ((mword 3 * mword 3 * mword 5)) => (match w__85 with - | Some ((rdc, rsc, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rdc, rsc, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2063_ _s1697_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__88 with - | Some - ((rsc1, rsc2, uimm)) => - true - | _ => false - end)) then - (_s2063_ _s1697_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => - (match w__89 with - | Some ((rsc1, rsc2, uimm)) => - returnm (projT1 - (build_ex + (_s3526_ _s3158_) >>= fun w__88 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__88 with + | Some (rsc1, rsc2, uimm) => true - : {_bool : bool & ArithFact (_bool = - true)})) + | _ => false + end then + (_s3526_ _s3158_) >>= fun w__89 : option ((mword 3 * mword 3 * mword 5)) => + (match w__89 with + | Some (rsc1, rsc2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2079_ _s1697_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => - (if ((match w__92 with - | Some - ((rsc1, rsc2, uimm)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s2079_ _s1697_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => + (_s3542_ _s3158_) >>= fun w__92 : option ((mword 3 * mword 3 * mword 5)) => + (if match w__92 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb 64 64 + | _ => false + end then + (_s3542_ _s3158_) >>= fun w__93 : option ((mword 3 * mword 3 * mword 5)) => (match w__93 with | Some - ((rsc1, rsc2, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsc1, rsc2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2095_ _s1697_) >>= fun w__96 : option ((mword 5 * mword 6)) => - (if ((match w__96 with - | Some ((rsd, nzi)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s2095_ _s1697_) >>= fun w__97 : option ((mword 5 * mword 6)) => + (_s3558_ _s3158_) >>= fun w__96 : option ((mword 5 * mword 6)) => + (if match w__96 with + | Some (rsd, nzi) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s3558_ _s3158_) >>= fun w__97 : option ((mword 5 * mword 6)) => (match w__97 with - | Some ((rsd, nzi)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some (rsd, nzi) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2107_ _s1697_) >>= fun w__100 : option (mword 11) => - (if ((match w__100 with - | Some (imm) => - Z.eqb 64 32 - | _ => false - end)) then - (_s2107_ _s1697_) >>= fun w__101 : option (mword 11) => + (_s3570_ _s3158_) >>= fun w__100 : option (mword 11) => + (if match w__100 with + | Some imm => + Z.eqb 64 32 + | _ => false + end then + (_s3570_ _s3158_) >>= fun w__101 : option (mword 11) => (match w__101 with - | Some (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + | Some imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2115_ _s1697_) >>= fun w__104 : option ((mword 5 * mword 6)) => - (if ((match w__104 with - | Some - ((rsd, imm)) => - Z.eqb 64 - 64 - | _ => false - end)) then - (_s2115_ _s1697_) >>= fun w__105 : option ((mword 5 * mword 6)) => + (_s3578_ _s3158_) >>= fun w__104 : option ((mword 5 * mword 6)) => + (if match w__104 with + | Some + (rsd, imm) => + Z.eqb 64 64 + | _ => false + end then + (_s3578_ _s3158_) >>= fun w__105 : option ((mword 5 * mword 6)) => (match w__105 with | Some - ((rsd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2127_ _s1697_) >>= fun w__108 : option ((mword 5 * mword 6)) => - (if ((match w__108 with - | Some - ((rd, imm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s2127_ - _s1697_) >>= fun w__109 : option ((mword 5 * mword 6)) => + (_s3590_ _s3158_) >>= fun w__108 : option ((mword 5 * mword 6)) => + (if match w__108 with + | Some + (rd, imm) => + neq_vec + rd zreg + | _ => false + end then + (_s3590_ + _s3158_) >>= fun w__109 : option ((mword 5 * mword 6)) => (match w__109 with | Some - ((rd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2139_ - _s1697_) >>= fun w__112 : option (mword 6) => - (if ((match w__112 with - | Some - (imm) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s2139_ - _s1697_) >>= fun w__113 : option (mword 6) => + (_s3602_ + _s3158_) >>= fun w__112 : option (mword 6) => + (if match w__112 with + | Some + imm => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s3602_ + _s3158_) >>= fun w__113 : option (mword 6) => (match w__113 with | Some - (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2147_ - _s1697_) >>= fun w__116 : option ((mword 5 * mword 6)) => - (if ((match w__116 with - | Some - ((rd, imm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s3610_ + _s3158_) >>= fun w__116 : option ((mword 5 * mword 6)) => + (if match w__116 with + | Some + (rd, imm) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s2147_ - _s1697_) >>= fun w__117 : option ((mword 5 * mword 6)) => + (_s3610_ + _s3158_) >>= fun w__117 : option ((mword 5 * mword 6)) => (match w__117 with | Some - ((rd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2159_ - _s1697_) >>= fun w__120 : option ((mword 3 * mword 6)) => - (if ((match w__120 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s3622_ + _s3158_) >>= fun w__120 : option ((mword 3 * mword 6)) => + (if match w__120 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s2159_ - _s1697_) >>= fun w__121 : option ((mword 3 * mword 6)) => + (_s3622_ + _s3158_) >>= fun w__121 : option ((mword 3 * mword 6)) => (match w__121 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2171_ - _s1697_) >>= fun w__124 : option ((mword 3 * mword 6)) => - (if ((match w__124 with - | Some - ((rsd, shamt)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s3634_ + _s3158_) >>= fun w__124 : option ((mword 3 * mword 6)) => + (if match w__124 with + | Some + (rsd, shamt) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s2171_ - _s1697_) >>= fun w__125 : option ((mword 3 * mword 6)) => + (_s3634_ + _s3158_) >>= fun w__125 : option ((mword 3 * mword 6)) => (match w__125 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2183_ - _s1697_) >>= fun w__128 : option ((mword 3 * mword 6)) => + (_s3646_ + _s3158_) >>= fun w__128 : option ((mword 3 * mword 6)) => (if - ((match w__128 with - | Some - ((rsd, imm)) => - true - | _ => - false - end)) + match w__128 with + | Some + (rsd, imm) => + true + | _ => + false + end then - (_s2183_ - _s1697_) >>= fun w__129 : option ((mword 3 * mword 6)) => + (_s3646_ + _s3158_) >>= fun w__129 : option ((mword 3 * mword 6)) => (match w__129 with | Some - ((rsd, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2195_ - _s1697_) >>= fun w__132 : option ((mword 3 * mword 3)) => + (_s3658_ + _s3158_) >>= fun w__132 : option ((mword 3 * mword 3)) => (if - ((match w__132 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__132 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2195_ - _s1697_) >>= fun w__133 : option ((mword 3 * mword 3)) => + (_s3658_ + _s3158_) >>= fun w__133 : option ((mword 3 * mword 3)) => (match w__133 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2207_ - _s1697_) >>= fun w__136 : option ((mword 3 * mword 3)) => + (_s3670_ + _s3158_) >>= fun w__136 : option ((mword 3 * mword 3)) => (if - ((match w__136 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__136 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2207_ - _s1697_) >>= fun w__137 : option ((mword 3 * mword 3)) => + (_s3670_ + _s3158_) >>= fun w__137 : option ((mword 3 * mword 3)) => (match w__137 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2219_ - _s1697_) >>= fun w__140 : option ((mword 3 * mword 3)) => + (_s3682_ + _s3158_) >>= fun w__140 : option ((mword 3 * mword 3)) => (if - ((match w__140 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__140 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2219_ - _s1697_) >>= fun w__141 : option ((mword 3 * mword 3)) => + (_s3682_ + _s3158_) >>= fun w__141 : option ((mword 3 * mword 3)) => (match w__141 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2231_ - _s1697_) >>= fun w__144 : option ((mword 3 * mword 3)) => + (_s3694_ + _s3158_) >>= fun w__144 : option ((mword 3 * mword 3)) => (if - ((match w__144 with - | Some - ((rsd, rs2)) => - true - | _ => - false - end)) + match w__144 with + | Some + (rsd, rs2) => + true + | _ => + false + end then - (_s2231_ - _s1697_) >>= fun w__145 : option ((mword 3 * mword 3)) => + (_s3694_ + _s3158_) >>= fun w__145 : option ((mword 3 * mword 3)) => (match w__145 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2243_ - _s1697_) >>= fun w__148 : option ((mword 3 * mword 3)) => + (_s3706_ + _s3158_) >>= fun w__148 : option ((mword 3 * mword 3)) => (if - ((match w__148 with - | Some - ((rsd, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__148 with + | Some + (rsd, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2243_ - _s1697_) >>= fun w__149 : option ((mword 3 * mword 3)) => + (_s3706_ + _s3158_) >>= fun w__149 : option ((mword 3 * mword 3)) => (match w__149 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2255_ - _s1697_) >>= fun w__152 : option ((mword 3 * mword 3)) => + (_s3718_ + _s3158_) >>= fun w__152 : option ((mword 3 * mword 3)) => (if - ((match w__152 with - | Some - ((rsd, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__152 with + | Some + (rsd, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2255_ - _s1697_) >>= fun w__153 : option ((mword 3 * mword 3)) => + (_s3718_ + _s3158_) >>= fun w__153 : option ((mword 3 * mword 3)) => (match w__153 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2267_ - _s1697_) >>= fun w__156 : option (mword 11) => + (_s3730_ + _s3158_) >>= fun w__156 : option (mword 11) => (if - ((match w__156 with - | Some - (imm) => - true - | _ => - false - end)) + match w__156 with + | Some + imm => + true + | _ => + false + end then - (_s2267_ - _s1697_) >>= fun w__157 : option (mword 11) => + (_s3730_ + _s3158_) >>= fun w__157 : option (mword 11) => (match w__157 with | Some - (imm) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + imm => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2275_ - _s1697_) >>= fun w__160 : option ((mword 3 * mword 8)) => + (_s3738_ + _s3158_) >>= fun w__160 : option ((mword 3 * mword 8)) => (if - ((match w__160 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__160 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s2275_ - _s1697_) >>= fun w__161 : option ((mword 3 * mword 8)) => + (_s3738_ + _s3158_) >>= fun w__161 : option ((mword 3 * mword 8)) => (match w__161 with | Some - ((rs, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2287_ - _s1697_) >>= fun w__164 : option ((mword 3 * mword 8)) => + (_s3750_ + _s3158_) >>= fun w__164 : option ((mword 3 * mword 8)) => (if - ((match w__164 with - | Some - ((rs, imm)) => - true - | _ => - false - end)) + match w__164 with + | Some + (rs, imm) => + true + | _ => + false + end then - (_s2287_ - _s1697_) >>= fun w__165 : option ((mword 3 * mword 8)) => + (_s3750_ + _s3158_) >>= fun w__165 : option ((mword 3 * mword 8)) => (match w__165 with | Some - ((rs, imm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs, imm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2299_ - _s1697_) >>= fun w__168 : option ((mword 5 * mword 6)) => + (_s3762_ + _s3158_) >>= fun w__168 : option ((mword 5 * mword 6)) => (if - ((match w__168 with - | Some - ((rsd, shamt)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__168 with + | Some + (rsd, shamt) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s2299_ - _s1697_) >>= fun w__169 : option ((mword 5 * mword 6)) => + (_s3762_ + _s3158_) >>= fun w__169 : option ((mword 5 * mword 6)) => (match w__169 with | Some - ((rsd, shamt)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, shamt) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2311_ - _s1697_) >>= fun w__172 : option ((mword 5 * mword 6)) => + (_s3774_ + _s3158_) >>= fun w__172 : option ((mword 5 * mword 6)) => (if - ((match w__172 with - | Some - ((rd, uimm)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__172 with + | Some + (rd, uimm) => + neq_vec + rd + zreg + | _ => + false + end then - (_s2311_ - _s1697_) >>= fun w__173 : option ((mword 5 * mword 6)) => + (_s3774_ + _s3158_) >>= fun w__173 : option ((mword 5 * mword 6)) => (match w__173 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2323_ - _s1697_) >>= fun w__176 : option ((mword 5 * mword 6)) => + (_s3786_ + _s3158_) >>= fun w__176 : option ((mword 5 * mword 6)) => (if - ((match w__176 with - | Some - ((rd, uimm)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 64 - 64) - | _ => - false - end)) + match w__176 with + | Some + (rd, uimm) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 64 + 64) + | _ => + false + end then - (_s2323_ - _s1697_) >>= fun w__177 : option ((mword 5 * mword 6)) => + (_s3786_ + _s3158_) >>= fun w__177 : option ((mword 5 * mword 6)) => (match w__177 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2335_ - _s1697_) >>= fun w__180 : option ((mword 5 * mword 6)) => + (_s3798_ + _s3158_) >>= fun w__180 : option ((mword 5 * mword 6)) => (if - ((match w__180 with - | Some - ((rd, uimm)) => - true - | _ => - false - end)) + match w__180 with + | Some + (rd, uimm) => + true + | _ => + false + end then - (_s2335_ - _s1697_) >>= fun w__181 : option ((mword 5 * mword 6)) => + (_s3798_ + _s3158_) >>= fun w__181 : option ((mword 5 * mword 6)) => (match w__181 with | Some - ((rd, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2347_ - _s1697_) >>= fun w__184 : option ((mword 5 * mword 6)) => + (_s3810_ + _s3158_) >>= fun w__184 : option ((mword 5 * mword 6)) => (if - ((match w__184 with - | Some - ((rs2, uimm)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__184 with + | Some + (rs2, uimm) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2347_ - _s1697_) >>= fun w__185 : option ((mword 5 * mword 6)) => + (_s3810_ + _s3158_) >>= fun w__185 : option ((mword 5 * mword 6)) => (match w__185 with | Some - ((rs2, uimm)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rs2, uimm) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2359_ - _s1697_) >>= fun w__188 : option (mword 5) => + (_s3822_ + _s3158_) >>= fun w__188 : option (mword 5) => (if - ((match w__188 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__188 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s2359_ - _s1697_) >>= fun w__189 : option (mword 5) => + (_s3822_ + _s3158_) >>= fun w__189 : option (mword 5) => (match w__189 with | Some - (rs1) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + rs1 => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2367_ - _s1697_) >>= fun w__192 : option (mword 5) => + (_s3830_ + _s3158_) >>= fun w__192 : option (mword 5) => (if - ((match w__192 with - | Some - (rs1) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__192 with + | Some + rs1 => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s2367_ - _s1697_) >>= fun w__193 : option (mword 5) => + (_s3830_ + _s3158_) >>= fun w__193 : option (mword 5) => (match w__193 with | Some - (rs1) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + rs1 => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2375_ - _s1697_) >>= fun w__196 : option ((mword 5 * mword 5)) => + (_s3838_ + _s3158_) >>= fun w__196 : option ((mword 5 * mword 5)) => (if - ((match w__196 with - | Some - ((rd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__196 with + | Some + (rd, rs2) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s2375_ - _s1697_) >>= fun w__197 : option ((mword 5 * mword 5)) => + (_s3838_ + _s3158_) >>= fun w__197 : option ((mword 5 * mword 5)) => (match w__197 with | Some - ((rd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else if - ((generic_eq - _s1697_ - "c.ebreak")) + generic_eq + _s3158_ + "c.ebreak" then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + returnm true else - (_s2387_ - _s1697_) >>= fun w__200 : option ((mword 5 * mword 5)) => + (_s3850_ + _s3158_) >>= fun w__200 : option ((mword 5 * mword 5)) => (if - ((match w__200 with - | Some - ((rsd, rs2)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__200 with + | Some + (rsd, rs2) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s2387_ - _s1697_) >>= fun w__201 : option ((mword 5 * mword 5)) => + (_s3850_ + _s3158_) >>= fun w__201 : option ((mword 5 * mword 5)) => (match w__201 with | Some - ((rsd, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rsd, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2399_ - _s1697_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s3862_ + _s3158_) >>= fun w__204 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__204 with - | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__204 with + | Some + (high, signed1, signed2, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2399_ - _s1697_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => + (_s3862_ + _s3158_) >>= fun w__205 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5)) => (match w__205 with | Some - ((high, signed1, signed2, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (high, signed1, signed2, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2416_ - _s1697_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3879_ + _s3158_) >>= fun w__208 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__208 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__208 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2416_ - _s1697_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3879_ + _s3158_) >>= fun w__209 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__209 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2434_ - _s1697_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3897_ + _s3158_) >>= fun w__212 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__212 with - | Some - ((s, rd, rs1, rs2)) => - true - | _ => - false - end)) + match w__212 with + | Some + (s, rd, rs1, rs2) => + true + | _ => + false + end then - (_s2434_ - _s1697_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3897_ + _s3158_) >>= fun w__213 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__213 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2452_ - _s1697_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => + (_s3915_ + _s3158_) >>= fun w__216 : option ((mword 5 * mword 5 * mword 5)) => (if - ((match w__216 with - | Some - ((rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__216 with + | Some + (rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2452_ - _s1697_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => + (_s3915_ + _s3158_) >>= fun w__217 : option ((mword 5 * mword 5 * mword 5)) => (match w__217 with | Some - ((rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2468_ - _s1697_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3931_ + _s3158_) >>= fun w__220 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__220 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__220 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2468_ - _s1697_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3931_ + _s3158_) >>= fun w__221 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__221 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2487_ - _s1697_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3950_ + _s3158_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s2487_ - _s1697_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => + (_s3950_ + _s3158_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5)) => (match w__225 with | Some - ((s, rd, rs1, rs2)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (s, rd, rs1, rs2) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2506_ - _s1697_) >>= fun w__228 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3969_ + _s3158_) >>= fun w__228 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__228 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__228 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s2506_ - _s1697_) >>= fun w__229 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3969_ + _s3158_) >>= fun w__229 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__229 with | Some - ((op, rd, rs1, csr)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (op, rd, csr, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2524_ - _s1697_) >>= fun w__232 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3987_ + _s3158_) >>= fun w__232 : option ((csrop * mword 5 * mword 12 * mword 5)) => (if - ((match w__232 with - | Some - ((op, rd, rs1, csr)) => - true - | _ => - false - end)) + match w__232 with + | Some + (op, rd, csr, rs1) => + true + | _ => + false + end then - (_s2524_ - _s1697_) >>= fun w__233 : option ((csrop * mword 5 * mword 5 * mword 12)) => + (_s3987_ + _s3158_) >>= fun w__233 : option ((csrop * mword 5 * mword 12 * mword 5)) => (match w__233 with | Some - ((op, rd, rs1, csr)) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (op, rd, csr, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else if - ((generic_eq - _s1697_ - "uret")) + generic_eq + _s3158_ + "uret" then - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + returnm true else - (_s2541_ - _s1697_) >>= fun w__236 : option (mword 32) => + (_s4004_ + _s3158_) >>= fun w__236 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__236 with - | Some - (s) => - true - | _ => - false - end)) + match w__236 with + | Some + (width, rd, imm, rs1) => + true + | _ => + false + end then - (_s2541_ - _s1697_) >>= fun w__237 : option (mword 32) => + (_s4004_ + _s3158_) >>= fun w__237 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__237 with | Some - (s) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (width, rd, imm, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - (_s2549_ - _s1697_) >>= fun w__240 : option (mword 16) => + (_s4028_ + _s3158_) >>= fun w__240 : option ((word_width * mword 5 * mword 12 * mword 5)) => (if - ((match w__240 with - | Some - (s) => - true - | _ => - false - end)) + match w__240 with + | Some + (width, rs2, imm, rs1) => + true + | _ => + false + end then - (_s2549_ - _s1697_) >>= fun w__241 : option (mword 16) => + (_s4028_ + _s3158_) >>= fun w__241 : option ((word_width * mword 5 * mword 12 * mword 5)) => (match w__241 with | Some - (s) => - returnm (projT1 - (build_ex - true - : {_bool : bool & ArithFact (_bool = - true)})) + (width, rs2, imm, rs1) => + returnm true | _ => exit tt : M (bool) end) : M (bool) else - returnm (projT1 - (build_ex - false - : {_bool : bool & ArithFact (not (_bool = - true))}))) + (_s4052_ + _s3158_) >>= fun w__244 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__244 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s4052_ + _s3158_) >>= fun w__245 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__245 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4077_ + _s3158_) >>= fun w__248 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__248 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s4077_ + _s3158_) >>= fun w__249 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__249 with + | Some + (op, rd, rs1, rs2, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4098_ + _s3158_) >>= fun w__252 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__252 with + | Some + (FSQRT_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4098_ + _s3158_) >>= fun w__253 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__253 with + | Some + (FSQRT_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4115_ + _s3158_) >>= fun w__256 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__256 with + | Some + (FCVT_W_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4115_ + _s3158_) >>= fun w__257 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__257 with + | Some + (FCVT_W_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4132_ + _s3158_) >>= fun w__260 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__260 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4132_ + _s3158_) >>= fun w__261 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__261 with + | Some + (FCVT_WU_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4149_ + _s3158_) >>= fun w__264 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__264 with + | Some + (FCVT_S_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4149_ + _s3158_) >>= fun w__265 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__265 with + | Some + (FCVT_S_W, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4166_ + _s3158_) >>= fun w__268 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__268 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4166_ + _s3158_) >>= fun w__269 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__269 with + | Some + (FCVT_S_WU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4183_ + _s3158_) >>= fun w__272 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__272 with + | Some + (FCVT_L_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4183_ + _s3158_) >>= fun w__273 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__273 with + | Some + (FCVT_L_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4200_ + _s3158_) >>= fun w__276 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__276 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4200_ + _s3158_) >>= fun w__277 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__277 with + | Some + (FCVT_LU_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4217_ + _s3158_) >>= fun w__280 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__280 with + | Some + (FCVT_S_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4217_ + _s3158_) >>= fun w__281 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__281 with + | Some + (FCVT_S_L, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4234_ + _s3158_) >>= fun w__284 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (if + match w__284 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4234_ + _s3158_) >>= fun w__285 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode)) => + (match w__285 with + | Some + (FCVT_S_LU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4251_ + _s3158_) >>= fun w__288 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__288 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4251_ + _s3158_) >>= fun w__289 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__289 with + | Some + (FSGNJ_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4268_ + _s3158_) >>= fun w__292 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__292 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4268_ + _s3158_) >>= fun w__293 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__293 with + | Some + (FSGNJN_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4285_ + _s3158_) >>= fun w__296 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__296 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4285_ + _s3158_) >>= fun w__297 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__297 with + | Some + (FSGNJX_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4302_ + _s3158_) >>= fun w__300 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__300 with + | Some + (FMIN_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4302_ + _s3158_) >>= fun w__301 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__301 with + | Some + (FMIN_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4319_ + _s3158_) >>= fun w__304 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__304 with + | Some + (FMAX_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4319_ + _s3158_) >>= fun w__305 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__305 with + | Some + (FMAX_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4336_ + _s3158_) >>= fun w__308 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__308 with + | Some + (FEQ_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4336_ + _s3158_) >>= fun w__309 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__309 with + | Some + (FEQ_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4353_ + _s3158_) >>= fun w__312 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__312 with + | Some + (FLT_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4353_ + _s3158_) >>= fun w__313 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__313 with + | Some + (FLT_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4370_ + _s3158_) >>= fun w__316 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (if + match w__316 with + | Some + (FLE_S, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4370_ + _s3158_) >>= fun w__317 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5)) => + (match w__317 with + | Some + (FLE_S, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4387_ + _s3158_) >>= fun w__320 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__320 with + | Some + (FMV_X_W, rd, rs1) => + true + | _ => + false + end + then + (_s4387_ + _s3158_) >>= fun w__321 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__321 with + | Some + (FMV_X_W, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4400_ + _s3158_) >>= fun w__324 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__324 with + | Some + (FMV_W_X, rd, rs1) => + true + | _ => + false + end + then + (_s4400_ + _s3158_) >>= fun w__325 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__325 with + | Some + (FMV_W_X, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4413_ + _s3158_) >>= fun w__328 : option ((f_un_op_S * mword 5 * mword 5)) => + (if + match w__328 with + | Some + (FCLASS_S, rd, rs1) => + true + | _ => + false + end + then + (_s4413_ + _s3158_) >>= fun w__329 : option ((f_un_op_S * mword 5 * mword 5)) => + (match w__329 with + | Some + (FCLASS_S, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4426_ + _s3158_) >>= fun w__332 : option ((mword 5 * mword 6)) => + (if + match w__332 with + | Some + (rd, imm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s4426_ + _s3158_) >>= fun w__333 : option ((mword 5 * mword 6)) => + (match w__333 with + | Some + (rd, imm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4438_ + _s3158_) >>= fun w__336 : option ((mword 5 * mword 6)) => + (if + match w__336 with + | Some + (rd, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s4438_ + _s3158_) >>= fun w__337 : option ((mword 5 * mword 6)) => + (match w__337 with + | Some + (rd, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4450_ + _s3158_) >>= fun w__340 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__340 with + | Some + (rdc, rsc, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s4450_ + _s3158_) >>= fun w__341 : option ((mword 3 * mword 3 * mword 5)) => + (match w__341 with + | Some + (rdc, rsc, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4466_ + _s3158_) >>= fun w__344 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__344 with + | Some + (rsc1, rsc2, uimm) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s4466_ + _s3158_) >>= fun w__345 : option ((mword 3 * mword 3 * mword 5)) => + (match w__345 with + | Some + (rsc1, rsc2, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4482_ + _s3158_) >>= fun w__348 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__348 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + true + | _ => + false + end + then + (_s4482_ + _s3158_) >>= fun w__349 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__349 with + | Some + (op, rd, rs1, rs2, rs3, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4507_ + _s3158_) >>= fun w__352 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (if + match w__352 with + | Some + (op, rd, rs1, rs2, rm) => + true + | _ => + false + end + then + (_s4507_ + _s3158_) >>= fun w__353 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode)) => + (match w__353 with + | Some + (op, rd, rs1, rs2, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4528_ + _s3158_) >>= fun w__356 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__356 with + | Some + (FSQRT_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4528_ + _s3158_) >>= fun w__357 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__357 with + | Some + (FSQRT_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4545_ + _s3158_) >>= fun w__360 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__360 with + | Some + (FCVT_W_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4545_ + _s3158_) >>= fun w__361 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__361 with + | Some + (FCVT_W_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4562_ + _s3158_) >>= fun w__364 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__364 with + | Some + (FCVT_WU_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4562_ + _s3158_) >>= fun w__365 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__365 with + | Some + (FCVT_WU_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4579_ + _s3158_) >>= fun w__368 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__368 with + | Some + (FCVT_D_W, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4579_ + _s3158_) >>= fun w__369 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__369 with + | Some + (FCVT_D_W, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4596_ + _s3158_) >>= fun w__372 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__372 with + | Some + (FCVT_D_WU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4596_ + _s3158_) >>= fun w__373 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__373 with + | Some + (FCVT_D_WU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4613_ + _s3158_) >>= fun w__376 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__376 with + | Some + (FCVT_L_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4613_ + _s3158_) >>= fun w__377 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__377 with + | Some + (FCVT_L_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4630_ + _s3158_) >>= fun w__380 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__380 with + | Some + (FCVT_LU_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4630_ + _s3158_) >>= fun w__381 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__381 with + | Some + (FCVT_LU_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4647_ + _s3158_) >>= fun w__384 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__384 with + | Some + (FCVT_D_L, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4647_ + _s3158_) >>= fun w__385 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__385 with + | Some + (FCVT_D_L, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4664_ + _s3158_) >>= fun w__388 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__388 with + | Some + (FCVT_D_LU, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4664_ + _s3158_) >>= fun w__389 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__389 with + | Some + (FCVT_D_LU, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4681_ + _s3158_) >>= fun w__392 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__392 with + | Some + (FCVT_S_D, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4681_ + _s3158_) >>= fun w__393 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__393 with + | Some + (FCVT_S_D, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4698_ + _s3158_) >>= fun w__396 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (if + match w__396 with + | Some + (FCVT_D_S, rd, rs1, rm) => + true + | _ => + false + end + then + (_s4698_ + _s3158_) >>= fun w__397 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode)) => + (match w__397 with + | Some + (FCVT_D_S, rd, rs1, rm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4715_ + _s3158_) >>= fun w__400 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__400 with + | Some + (FSGNJ_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4715_ + _s3158_) >>= fun w__401 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__401 with + | Some + (FSGNJ_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4732_ + _s3158_) >>= fun w__404 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__404 with + | Some + (FSGNJN_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4732_ + _s3158_) >>= fun w__405 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__405 with + | Some + (FSGNJN_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4749_ + _s3158_) >>= fun w__408 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__408 with + | Some + (FSGNJX_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4749_ + _s3158_) >>= fun w__409 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__409 with + | Some + (FSGNJX_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4766_ + _s3158_) >>= fun w__412 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__412 with + | Some + (FMIN_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4766_ + _s3158_) >>= fun w__413 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__413 with + | Some + (FMIN_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4783_ + _s3158_) >>= fun w__416 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__416 with + | Some + (FMAX_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4783_ + _s3158_) >>= fun w__417 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__417 with + | Some + (FMAX_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4800_ + _s3158_) >>= fun w__420 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__420 with + | Some + (FEQ_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4800_ + _s3158_) >>= fun w__421 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__421 with + | Some + (FEQ_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4817_ + _s3158_) >>= fun w__424 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__424 with + | Some + (FLT_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4817_ + _s3158_) >>= fun w__425 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__425 with + | Some + (FLT_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4834_ + _s3158_) >>= fun w__428 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (if + match w__428 with + | Some + (FLE_D, rd, rs1, rs2) => + true + | _ => + false + end + then + (_s4834_ + _s3158_) >>= fun w__429 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5)) => + (match w__429 with + | Some + (FLE_D, rd, rs1, rs2) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4851_ + _s3158_) >>= fun w__432 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__432 with + | Some + (FMV_X_D, rd, rs1) => + true + | _ => + false + end + then + (_s4851_ + _s3158_) >>= fun w__433 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__433 with + | Some + (FMV_X_D, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4864_ + _s3158_) >>= fun w__436 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__436 with + | Some + (FMV_D_X, rd, rs1) => + true + | _ => + false + end + then + (_s4864_ + _s3158_) >>= fun w__437 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__437 with + | Some + (FMV_D_X, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4877_ + _s3158_) >>= fun w__440 : option ((f_un_op_D * mword 5 * mword 5)) => + (if + match w__440 with + | Some + (FCLASS_D, rd, rs1) => + true + | _ => + false + end + then + (_s4877_ + _s3158_) >>= fun w__441 : option ((f_un_op_D * mword 5 * mword 5)) => + (match w__441 with + | Some + (FCLASS_D, rd, rs1) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4890_ + _s3158_) >>= fun w__444 : option ((mword 5 * mword 6)) => + (if + match w__444 with + | Some + (rd, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s4890_ + _s3158_) >>= fun w__445 : option ((mword 5 * mword 6)) => + (match w__445 with + | Some + (rd, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4902_ + _s3158_) >>= fun w__448 : option ((mword 5 * mword 6)) => + (if + match w__448 with + | Some + (rs2, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s4902_ + _s3158_) >>= fun w__449 : option ((mword 5 * mword 6)) => + (match w__449 with + | Some + (rs2, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4914_ + _s3158_) >>= fun w__452 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__452 with + | Some + (rdc, rsc, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s4914_ + _s3158_) >>= fun w__453 : option ((mword 3 * mword 3 * mword 5)) => + (match w__453 with + | Some + (rdc, rsc, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4930_ + _s3158_) >>= fun w__456 : option ((mword 3 * mword 3 * mword 5)) => + (if + match w__456 with + | Some + (rsc1, rsc2, uimm) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s4930_ + _s3158_) >>= fun w__457 : option ((mword 3 * mword 3 * mword 5)) => + (match w__457 with + | Some + (rsc1, rsc2, uimm) => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4946_ + _s3158_) >>= fun w__460 : option (mword 32) => + (if + match w__460 with + | Some + s => + true + | _ => + false + end + then + (_s4946_ + _s3158_) >>= fun w__461 : option (mword 32) => + (match w__461 with + | Some + s => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + (_s4954_ + _s3158_) >>= fun w__464 : option (mword 16) => + (if + match w__464 with + | Some + s => + true + | _ => + false + end + then + (_s4954_ + _s3158_) >>= fun w__465 : option (mword 16) => + (match w__465 with + | Some + s => + returnm true + | _ => + exit tt + : M (bool) + end) + : M (bool) + else + returnm false) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) + : M (bool)) : M (bool)) : M (bool)) : M (bool)) @@ -35870,7039 +54397,13127 @@ Definition assembly_backwards_matches (arg_ : string) : M (bool)) : M (bool). -Definition _s3457_ (_s3458_ : string) -: M (option ((mword 16 * string))) := - - let _s3459_ := _s3458_ in - (if ((string_startswith _s3459_ "c.illegal")) then - (match (string_drop _s3459_ (projT1 (string_length "c.illegal"))) with - | _s3460_ => - (spc_matches_prefix _s3460_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3461_ _)) => - match (string_drop _s3460_ _s3461_) with - | _s3462_ => - match (hex_bits_16_matches_prefix _s3462_) with - | Some ((s, existT _ _s3463_ _)) => - match (string_drop _s3462_ _s3463_) with | s_ => Some ((s, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 16 * string))) +Definition _s6806_ (_s6807_ : string) : M (option ((mword 16 * string))) := + let _s6808_ := _s6807_ in + (if string_startswith _s6808_ "c.illegal" then + (match (string_drop _s6808_ (projT1 (string_length "c.illegal"))) with + | _s6809_ => + (spc_matches_prefix _s6809_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s6810_ _) => + match (string_drop _s6809_ _s6810_) with + | _s6811_ => + match (hex_bits_16_matches_prefix _s6811_) with + | Some (s, existT _ _s6812_ _) => + match (string_drop _s6811_ _s6812_) with | s_ => Some (s, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 16 * string))) - else returnm (None : option ((mword 16 * string)))) + else returnm None) : M (option ((mword 16 * string))). -Definition _s3449_ (_s3450_ : string) -: M (option ((mword 32 * string))) := - - let _s3451_ := _s3450_ in - (if ((string_startswith _s3451_ "illegal")) then - (match (string_drop _s3451_ (projT1 (string_length "illegal"))) with - | _s3452_ => - (spc_matches_prefix _s3452_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3453_ _)) => - match (string_drop _s3452_ _s3453_) with - | _s3454_ => - match (hex_bits_32_matches_prefix _s3454_) with - | Some ((s, existT _ _s3455_ _)) => - match (string_drop _s3454_ _s3455_) with | s_ => Some ((s, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 32 * string))) +Definition _s6798_ (_s6799_ : string) : M (option ((mword 32 * string))) := + let _s6800_ := _s6799_ in + (if string_startswith _s6800_ "illegal" then + (match (string_drop _s6800_ (projT1 (string_length "illegal"))) with + | _s6801_ => + (spc_matches_prefix _s6801_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s6802_ _) => + match (string_drop _s6801_ _s6802_) with + | _s6803_ => + match (hex_bits_32_matches_prefix _s6803_) with + | Some (s, existT _ _s6804_ _) => + match (string_drop _s6803_ _s6804_) with | s_ => Some (s, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 32 * string))) - else returnm (None : option ((mword 32 * string)))) + else returnm None) : M (option ((mword 32 * string))). -Definition _s3445_ (_s3446_ : string) -: option string := - - let _s3447_ := _s3446_ in - if ((string_startswith _s3447_ "uret")) then - match (string_drop _s3447_ (projT1 (string_length "uret"))) with | s_ => Some (s_) end - else None. +Definition _s6782_ (_s6783_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s6784_ := _s6783_ in + (if string_startswith _s6784_ "c.fsd" then + (match (string_drop _s6784_ (projT1 (string_length "c.fsd"))) with + | _s6785_ => + (spc_matches_prefix _s6785_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6786_ _) => + (match (string_drop _s6785_ _s6786_) with + | _s6787_ => + (creg_name_matches_prefix _s6787_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s6788_ _) => + (match (string_drop _s6787_ _s6788_) with + | _s6789_ => + (sep_matches_prefix _s6789_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s6790_ _) => + (match (string_drop _s6789_ _s6790_) with + | _s6791_ => + (creg_name_matches_prefix _s6791_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s6792_ _) => + (match (string_drop _s6791_ _s6792_) with + | _s6793_ => + (sep_matches_prefix _s6793_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s6794_ _) => + match (string_drop _s6793_ _s6794_) with + | _s6795_ => + match (hex_bits_8_matches_prefix _s6795_) with + | Some (v__1378, existT _ _s6796_ _) => + if eq_vec (subrange_vec_dec v__1378 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1378 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1378 7 3 in + match (string_drop _s6795_ _s6796_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s6766_ (_s6767_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s6768_ := _s6767_ in + (if string_startswith _s6768_ "c.fld" then + (match (string_drop _s6768_ (projT1 (string_length "c.fld"))) with + | _s6769_ => + (spc_matches_prefix _s6769_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6770_ _) => + (match (string_drop _s6769_ _s6770_) with + | _s6771_ => + (creg_name_matches_prefix _s6771_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s6772_ _) => + (match (string_drop _s6771_ _s6772_) with + | _s6773_ => + (sep_matches_prefix _s6773_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s6774_ _) => + (match (string_drop _s6773_ _s6774_) with + | _s6775_ => + (creg_name_matches_prefix _s6775_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s6776_ _) => + (match (string_drop _s6775_ _s6776_) with + | _s6777_ => + (sep_matches_prefix _s6777_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s6778_ _) => + match (string_drop _s6777_ _s6778_) with + | _s6779_ => + match (hex_bits_8_matches_prefix _s6779_) with + | Some (v__1380, existT _ _s6780_ _) => + if eq_vec (subrange_vec_dec v__1380 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1380 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1380 7 3 in + match (string_drop _s6779_ _s6780_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s6754_ (_s6755_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s6756_ := _s6755_ in + (if string_startswith _s6756_ "c.fsdsp" then + (match (string_drop _s6756_ (projT1 (string_length "c.fsdsp"))) with + | _s6757_ => + (spc_matches_prefix _s6757_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6758_ _) => + (match (string_drop _s6757_ _s6758_) with + | _s6759_ => + (reg_name_matches_prefix _s6759_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rs2, existT _ _s6760_ _) => + (match (string_drop _s6759_ _s6760_) with + | _s6761_ => + (sep_matches_prefix _s6761_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s6762_ _) => + match (string_drop _s6761_ _s6762_) with + | _s6763_ => + match (hex_bits_6_matches_prefix _s6763_) with + | Some (uimm, existT _ _s6764_ _) => + match (string_drop _s6763_ _s6764_) with + | s_ => Some (rs2, uimm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s6742_ (_s6743_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s6744_ := _s6743_ in + (if string_startswith _s6744_ "c.fldsp" then + (match (string_drop _s6744_ (projT1 (string_length "c.fldsp"))) with + | _s6745_ => + (spc_matches_prefix _s6745_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6746_ _) => + (match (string_drop _s6745_ _s6746_) with + | _s6747_ => + (reg_name_matches_prefix _s6747_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s6748_ _) => + (match (string_drop _s6747_ _s6748_) with + | _s6749_ => + (sep_matches_prefix _s6749_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s6750_ _) => + match (string_drop _s6749_ _s6750_) with + | _s6751_ => + match (hex_bits_6_matches_prefix _s6751_) with + | Some (uimm, existT _ _s6752_ _) => + match (string_drop _s6751_ _s6752_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s6729_ (_s6730_ : string) : M (option ((f_un_op_D * mword 5 * mword 5 * string))) := + (match _s6730_ with + | _s6731_ => + (f_un_type_mnemonic_D_matches_prefix _s6731_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_D, existT _ _s6732_ _) => + (match (string_drop _s6731_ _s6732_) with + | _s6733_ => + (spc_matches_prefix _s6733_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6734_ _) => + (match (string_drop _s6733_ _s6734_) with + | _s6735_ => + (reg_name_matches_prefix _s6735_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6736_ _) => + (match (string_drop _s6735_ _s6736_) with + | _s6737_ => + (sep_matches_prefix _s6737_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6738_ _) => + (match (string_drop _s6737_ _s6738_) with + | _s6739_ => + (freg_name_matches_prefix _s6739_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6740_ _) => + match (string_drop _s6739_ _s6740_) with + | s_ => Some (FCLASS_D, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))). + +Definition _s6716_ (_s6717_ : string) : M (option ((f_un_op_D * mword 5 * mword 5 * string))) := + (match _s6717_ with + | _s6718_ => + (f_un_type_mnemonic_D_matches_prefix _s6718_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_D_X, existT _ _s6719_ _) => + (match (string_drop _s6718_ _s6719_) with + | _s6720_ => + (spc_matches_prefix _s6720_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6721_ _) => + (match (string_drop _s6720_ _s6721_) with + | _s6722_ => + (freg_name_matches_prefix _s6722_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6723_ _) => + (match (string_drop _s6722_ _s6723_) with + | _s6724_ => + (sep_matches_prefix _s6724_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6725_ _) => + (match (string_drop _s6724_ _s6725_) with + | _s6726_ => + (reg_name_matches_prefix _s6726_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6727_ _) => + match (string_drop _s6726_ _s6727_) with + | s_ => Some (FMV_D_X, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))). + +Definition _s6703_ (_s6704_ : string) : M (option ((f_un_op_D * mword 5 * mword 5 * string))) := + (match _s6704_ with + | _s6705_ => + (f_un_type_mnemonic_D_matches_prefix _s6705_) >>= fun w__0 : option ((f_un_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_D, existT _ _s6706_ _) => + (match (string_drop _s6705_ _s6706_) with + | _s6707_ => + (spc_matches_prefix _s6707_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6708_ _) => + (match (string_drop _s6707_ _s6708_) with + | _s6709_ => + (reg_name_matches_prefix _s6709_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6710_ _) => + (match (string_drop _s6709_ _s6710_) with + | _s6711_ => + (sep_matches_prefix _s6711_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6712_ _) => + (match (string_drop _s6711_ _s6712_) with + | _s6713_ => + (freg_name_matches_prefix _s6713_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6714_ _) => + match (string_drop _s6713_ _s6714_) with + | s_ => Some (FMV_X_D, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_D * mword 5 * mword 5 * string))). -Definition _s3428_ (_s3429_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s3429_ with - | _s3430_ => - (csr_mnemonic_matches_prefix _s3430_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s6686_ (_s6687_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6687_ with + | _s6688_ => + (f_bin_type_mnemonic_D_matches_prefix _s6688_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s3431_ _)) => - (match (string_drop _s3430_ _s3431_) with - | _s3432_ => - (spc_matches_prefix _s3432_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (FLE_D, existT _ _s6689_ _) => + (match (string_drop _s6688_ _s6689_) with + | _s6690_ => + (spc_matches_prefix _s6690_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3433_ _)) => - (match (string_drop _s3432_ _s3433_) with - | _s3434_ => - (reg_name_matches_prefix _s3434_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s6691_ _) => + (match (string_drop _s6690_ _s6691_) with + | _s6692_ => + (reg_name_matches_prefix _s6692_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3435_ _)) => - (match (string_drop _s3434_ _s3435_) with - | _s3436_ => - (sep_matches_prefix _s3436_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s6693_ _) => + (match (string_drop _s6692_ _s6693_) with + | _s6694_ => + (sep_matches_prefix _s6694_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3437_ _)) => - (match (string_drop _s3436_ _s3437_) with - | _s3438_ => - (reg_name_matches_prefix _s3438_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s6695_ _) => + (match (string_drop _s6694_ _s6695_) with + | _s6696_ => + (freg_name_matches_prefix _s6696_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3439_ _)) => - (match (string_drop _s3438_ _s3439_) with - | _s3440_ => - (sep_matches_prefix _s3440_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s6697_ _) => + (match (string_drop _s6696_ _s6697_) with + | _s6698_ => + (sep_matches_prefix _s6698_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3441_ _)) => - (match (string_drop _s3440_ _s3441_) with - | _s3442_ => - (csr_name_map_matches_prefix _s3442_) >>= fun w__6 : option ((mword 12 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s6699_ _) => + (match (string_drop _s6698_ _s6699_) with + | _s6700_ => + (freg_name_matches_prefix _s6700_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((csr, existT _ _s3443_ _)) => - match (string_drop _s3442_ - _s3443_) with - | s_ => - Some ((op, rd, rs1, csr, s_)) - end - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s6701_ _) => + match (string_drop _s6700_ + _s6701_) with + | s_ => + Some (FLE_D, rd, rs1, rs2, s_) + end + | _ => None + end) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6669_ (_s6670_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6670_ with + | _s6671_ => + (f_bin_type_mnemonic_D_matches_prefix _s6671_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_D, existT _ _s6672_ _) => + (match (string_drop _s6671_ _s6672_) with + | _s6673_ => + (spc_matches_prefix _s6673_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6674_ _) => + (match (string_drop _s6673_ _s6674_) with + | _s6675_ => + (reg_name_matches_prefix _s6675_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6676_ _) => + (match (string_drop _s6675_ _s6676_) with + | _s6677_ => + (sep_matches_prefix _s6677_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6678_ _) => + (match (string_drop _s6677_ _s6678_) with + | _s6679_ => + (freg_name_matches_prefix _s6679_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6680_ _) => + (match (string_drop _s6679_ _s6680_) with + | _s6681_ => + (sep_matches_prefix _s6681_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6682_ _) => + (match (string_drop _s6681_ _s6682_) with + | _s6683_ => + (freg_name_matches_prefix _s6683_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6684_ _) => + match (string_drop _s6683_ + _s6684_) with + | s_ => + Some (FLT_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6652_ (_s6653_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6653_ with + | _s6654_ => + (f_bin_type_mnemonic_D_matches_prefix _s6654_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_D, existT _ _s6655_ _) => + (match (string_drop _s6654_ _s6655_) with + | _s6656_ => + (spc_matches_prefix _s6656_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6657_ _) => + (match (string_drop _s6656_ _s6657_) with + | _s6658_ => + (reg_name_matches_prefix _s6658_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6659_ _) => + (match (string_drop _s6658_ _s6659_) with + | _s6660_ => + (sep_matches_prefix _s6660_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6661_ _) => + (match (string_drop _s6660_ _s6661_) with + | _s6662_ => + (freg_name_matches_prefix _s6662_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6663_ _) => + (match (string_drop _s6662_ _s6663_) with + | _s6664_ => + (sep_matches_prefix _s6664_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6665_ _) => + (match (string_drop _s6664_ _s6665_) with + | _s6666_ => + (freg_name_matches_prefix _s6666_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6667_ _) => + match (string_drop _s6666_ + _s6667_) with + | s_ => + Some (FEQ_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6635_ (_s6636_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6636_ with + | _s6637_ => + (f_bin_type_mnemonic_D_matches_prefix _s6637_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_D, existT _ _s6638_ _) => + (match (string_drop _s6637_ _s6638_) with + | _s6639_ => + (spc_matches_prefix _s6639_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6640_ _) => + (match (string_drop _s6639_ _s6640_) with + | _s6641_ => + (freg_name_matches_prefix _s6641_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6642_ _) => + (match (string_drop _s6641_ _s6642_) with + | _s6643_ => + (sep_matches_prefix _s6643_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6644_ _) => + (match (string_drop _s6643_ _s6644_) with + | _s6645_ => + (freg_name_matches_prefix _s6645_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6646_ _) => + (match (string_drop _s6645_ _s6646_) with + | _s6647_ => + (sep_matches_prefix _s6647_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6648_ _) => + (match (string_drop _s6647_ _s6648_) with + | _s6649_ => + (freg_name_matches_prefix _s6649_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6650_ _) => + match (string_drop _s6649_ + _s6650_) with + | s_ => + Some + (FMAX_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6618_ (_s6619_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6619_ with + | _s6620_ => + (f_bin_type_mnemonic_D_matches_prefix _s6620_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_D, existT _ _s6621_ _) => + (match (string_drop _s6620_ _s6621_) with + | _s6622_ => + (spc_matches_prefix _s6622_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6623_ _) => + (match (string_drop _s6622_ _s6623_) with + | _s6624_ => + (freg_name_matches_prefix _s6624_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6625_ _) => + (match (string_drop _s6624_ _s6625_) with + | _s6626_ => + (sep_matches_prefix _s6626_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6627_ _) => + (match (string_drop _s6626_ _s6627_) with + | _s6628_ => + (freg_name_matches_prefix _s6628_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6629_ _) => + (match (string_drop _s6628_ _s6629_) with + | _s6630_ => + (sep_matches_prefix _s6630_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6631_ _) => + (match (string_drop _s6630_ _s6631_) with + | _s6632_ => + (freg_name_matches_prefix _s6632_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6633_ _) => + match (string_drop _s6632_ + _s6633_) with + | s_ => + Some + (FMIN_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6601_ (_s6602_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6602_ with + | _s6603_ => + (f_bin_type_mnemonic_D_matches_prefix _s6603_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_D, existT _ _s6604_ _) => + (match (string_drop _s6603_ _s6604_) with + | _s6605_ => + (spc_matches_prefix _s6605_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6606_ _) => + (match (string_drop _s6605_ _s6606_) with + | _s6607_ => + (freg_name_matches_prefix _s6607_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6608_ _) => + (match (string_drop _s6607_ _s6608_) with + | _s6609_ => + (sep_matches_prefix _s6609_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6610_ _) => + (match (string_drop _s6609_ _s6610_) with + | _s6611_ => + (freg_name_matches_prefix _s6611_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6612_ _) => + (match (string_drop _s6611_ _s6612_) with + | _s6613_ => + (sep_matches_prefix _s6613_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6614_ _) => + (match (string_drop _s6613_ _s6614_) with + | _s6615_ => + (freg_name_matches_prefix _s6615_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6616_ _) => + match (string_drop _s6615_ + _s6616_) with + | s_ => + Some + (FSGNJX_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6584_ (_s6585_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6585_ with + | _s6586_ => + (f_bin_type_mnemonic_D_matches_prefix _s6586_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_D, existT _ _s6587_ _) => + (match (string_drop _s6586_ _s6587_) with + | _s6588_ => + (spc_matches_prefix _s6588_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6589_ _) => + (match (string_drop _s6588_ _s6589_) with + | _s6590_ => + (freg_name_matches_prefix _s6590_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6591_ _) => + (match (string_drop _s6590_ _s6591_) with + | _s6592_ => + (sep_matches_prefix _s6592_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6593_ _) => + (match (string_drop _s6592_ _s6593_) with + | _s6594_ => + (freg_name_matches_prefix _s6594_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6595_ _) => + (match (string_drop _s6594_ _s6595_) with + | _s6596_ => + (sep_matches_prefix _s6596_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6597_ _) => + (match (string_drop _s6596_ _s6597_) with + | _s6598_ => + (freg_name_matches_prefix _s6598_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6599_ _) => + match (string_drop _s6598_ + _s6599_) with + | s_ => + Some + (FSGNJN_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6567_ (_s6568_ : string) +: M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) := + (match _s6568_ with + | _s6569_ => + (f_bin_type_mnemonic_D_matches_prefix _s6569_) >>= fun w__0 : option ((f_bin_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_D, existT _ _s6570_ _) => + (match (string_drop _s6569_ _s6570_) with + | _s6571_ => + (spc_matches_prefix _s6571_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6572_ _) => + (match (string_drop _s6571_ _s6572_) with + | _s6573_ => + (freg_name_matches_prefix _s6573_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6574_ _) => + (match (string_drop _s6573_ _s6574_) with + | _s6575_ => + (sep_matches_prefix _s6575_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6576_ _) => + (match (string_drop _s6575_ _s6576_) with + | _s6577_ => + (freg_name_matches_prefix _s6577_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6578_ _) => + (match (string_drop _s6577_ _s6578_) with + | _s6579_ => + (sep_matches_prefix _s6579_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6580_ _) => + (match (string_drop _s6579_ _s6580_) with + | _s6581_ => + (freg_name_matches_prefix _s6581_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6582_ _) => + match (string_drop _s6581_ + _s6582_) with + | s_ => + Some + (FSGNJ_D, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6550_ (_s6551_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6551_ with + | _s6552_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6552_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_S, existT _ _s6553_ _) => + (match (string_drop _s6552_ _s6553_) with + | _s6554_ => + (spc_matches_prefix _s6554_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6555_ _) => + (match (string_drop _s6554_ _s6555_) with + | _s6556_ => + (freg_name_matches_prefix _s6556_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6557_ _) => + (match (string_drop _s6556_ _s6557_) with + | _s6558_ => + (sep_matches_prefix _s6558_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6559_ _) => + (match (string_drop _s6558_ _s6559_) with + | _s6560_ => + (freg_name_matches_prefix _s6560_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6561_ _) => + (match (string_drop _s6560_ _s6561_) with + | _s6562_ => + (sep_matches_prefix _s6562_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6563_ _) => + (match (string_drop _s6562_ _s6563_) with + | _s6564_ => + (frm_mnemonic_matches_prefix _s6564_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6565_ _) => + match (string_drop _s6564_ + _s6565_) with + | s_ => + Some + (FCVT_D_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6533_ (_s6534_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6534_ with + | _s6535_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6535_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_D, existT _ _s6536_ _) => + (match (string_drop _s6535_ _s6536_) with + | _s6537_ => + (spc_matches_prefix _s6537_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6538_ _) => + (match (string_drop _s6537_ _s6538_) with + | _s6539_ => + (freg_name_matches_prefix _s6539_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6540_ _) => + (match (string_drop _s6539_ _s6540_) with + | _s6541_ => + (sep_matches_prefix _s6541_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6542_ _) => + (match (string_drop _s6541_ _s6542_) with + | _s6543_ => + (freg_name_matches_prefix _s6543_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6544_ _) => + (match (string_drop _s6543_ _s6544_) with + | _s6545_ => + (sep_matches_prefix _s6545_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6546_ _) => + (match (string_drop _s6545_ _s6546_) with + | _s6547_ => + (frm_mnemonic_matches_prefix _s6547_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6548_ _) => + match (string_drop _s6547_ + _s6548_) with + | s_ => + Some + (FCVT_S_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6516_ (_s6517_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6517_ with + | _s6518_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6518_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_LU, existT _ _s6519_ _) => + (match (string_drop _s6518_ _s6519_) with + | _s6520_ => + (spc_matches_prefix _s6520_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6521_ _) => + (match (string_drop _s6520_ _s6521_) with + | _s6522_ => + (freg_name_matches_prefix _s6522_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6523_ _) => + (match (string_drop _s6522_ _s6523_) with + | _s6524_ => + (sep_matches_prefix _s6524_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6525_ _) => + (match (string_drop _s6524_ _s6525_) with + | _s6526_ => + (reg_name_matches_prefix _s6526_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6527_ _) => + (match (string_drop _s6526_ _s6527_) with + | _s6528_ => + (sep_matches_prefix _s6528_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6529_ _) => + (match (string_drop _s6528_ _s6529_) with + | _s6530_ => + (frm_mnemonic_matches_prefix _s6530_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6531_ _) => + match (string_drop _s6530_ + _s6531_) with + | s_ => + Some + (FCVT_D_LU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6499_ (_s6500_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6500_ with + | _s6501_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6501_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_L, existT _ _s6502_ _) => + (match (string_drop _s6501_ _s6502_) with + | _s6503_ => + (spc_matches_prefix _s6503_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6504_ _) => + (match (string_drop _s6503_ _s6504_) with + | _s6505_ => + (freg_name_matches_prefix _s6505_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6506_ _) => + (match (string_drop _s6505_ _s6506_) with + | _s6507_ => + (sep_matches_prefix _s6507_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6508_ _) => + (match (string_drop _s6507_ _s6508_) with + | _s6509_ => + (reg_name_matches_prefix _s6509_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6510_ _) => + (match (string_drop _s6509_ _s6510_) with + | _s6511_ => + (sep_matches_prefix _s6511_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6512_ _) => + (match (string_drop _s6511_ _s6512_) with + | _s6513_ => + (frm_mnemonic_matches_prefix _s6513_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6514_ _) => + match (string_drop _s6513_ + _s6514_) with + | s_ => + Some + (FCVT_D_L, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6482_ (_s6483_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6483_ with + | _s6484_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6484_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_D, existT _ _s6485_ _) => + (match (string_drop _s6484_ _s6485_) with + | _s6486_ => + (spc_matches_prefix _s6486_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6487_ _) => + (match (string_drop _s6486_ _s6487_) with + | _s6488_ => + (reg_name_matches_prefix _s6488_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6489_ _) => + (match (string_drop _s6488_ _s6489_) with + | _s6490_ => + (sep_matches_prefix _s6490_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6491_ _) => + (match (string_drop _s6490_ _s6491_) with + | _s6492_ => + (freg_name_matches_prefix _s6492_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6493_ _) => + (match (string_drop _s6492_ _s6493_) with + | _s6494_ => + (sep_matches_prefix _s6494_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6495_ _) => + (match (string_drop _s6494_ _s6495_) with + | _s6496_ => + (frm_mnemonic_matches_prefix _s6496_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6497_ _) => + match (string_drop _s6496_ + _s6497_) with + | s_ => + Some + (FCVT_LU_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6465_ (_s6466_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6466_ with + | _s6467_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6467_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_D, existT _ _s6468_ _) => + (match (string_drop _s6467_ _s6468_) with + | _s6469_ => + (spc_matches_prefix _s6469_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6470_ _) => + (match (string_drop _s6469_ _s6470_) with + | _s6471_ => + (reg_name_matches_prefix _s6471_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6472_ _) => + (match (string_drop _s6471_ _s6472_) with + | _s6473_ => + (sep_matches_prefix _s6473_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6474_ _) => + (match (string_drop _s6473_ _s6474_) with + | _s6475_ => + (freg_name_matches_prefix _s6475_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6476_ _) => + (match (string_drop _s6475_ _s6476_) with + | _s6477_ => + (sep_matches_prefix _s6477_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6478_ _) => + (match (string_drop _s6477_ _s6478_) with + | _s6479_ => + (frm_mnemonic_matches_prefix _s6479_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6480_ _) => + match (string_drop _s6479_ + _s6480_) with + | s_ => + Some + (FCVT_L_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6448_ (_s6449_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6449_ with + | _s6450_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6450_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_WU, existT _ _s6451_ _) => + (match (string_drop _s6450_ _s6451_) with + | _s6452_ => + (spc_matches_prefix _s6452_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6453_ _) => + (match (string_drop _s6452_ _s6453_) with + | _s6454_ => + (freg_name_matches_prefix _s6454_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6455_ _) => + (match (string_drop _s6454_ _s6455_) with + | _s6456_ => + (sep_matches_prefix _s6456_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6457_ _) => + (match (string_drop _s6456_ _s6457_) with + | _s6458_ => + (reg_name_matches_prefix _s6458_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6459_ _) => + (match (string_drop _s6458_ _s6459_) with + | _s6460_ => + (sep_matches_prefix _s6460_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6461_ _) => + (match (string_drop _s6460_ _s6461_) with + | _s6462_ => + (frm_mnemonic_matches_prefix _s6462_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6463_ _) => + match (string_drop _s6462_ + _s6463_) with + | s_ => + Some + (FCVT_D_WU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6431_ (_s6432_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6432_ with + | _s6433_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6433_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_D_W, existT _ _s6434_ _) => + (match (string_drop _s6433_ _s6434_) with + | _s6435_ => + (spc_matches_prefix _s6435_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6436_ _) => + (match (string_drop _s6435_ _s6436_) with + | _s6437_ => + (freg_name_matches_prefix _s6437_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6438_ _) => + (match (string_drop _s6437_ _s6438_) with + | _s6439_ => + (sep_matches_prefix _s6439_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6440_ _) => + (match (string_drop _s6439_ _s6440_) with + | _s6441_ => + (reg_name_matches_prefix _s6441_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6442_ _) => + (match (string_drop _s6441_ _s6442_) with + | _s6443_ => + (sep_matches_prefix _s6443_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6444_ _) => + (match (string_drop _s6443_ _s6444_) with + | _s6445_ => + (frm_mnemonic_matches_prefix _s6445_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6446_ _) => + match (string_drop _s6445_ + _s6446_) with + | s_ => + Some + (FCVT_D_W, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6414_ (_s6415_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6415_ with + | _s6416_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6416_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_D, existT _ _s6417_ _) => + (match (string_drop _s6416_ _s6417_) with + | _s6418_ => + (spc_matches_prefix _s6418_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6419_ _) => + (match (string_drop _s6418_ _s6419_) with + | _s6420_ => + (reg_name_matches_prefix _s6420_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6421_ _) => + (match (string_drop _s6420_ _s6421_) with + | _s6422_ => + (sep_matches_prefix _s6422_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6423_ _) => + (match (string_drop _s6422_ _s6423_) with + | _s6424_ => + (freg_name_matches_prefix _s6424_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6425_ _) => + (match (string_drop _s6424_ _s6425_) with + | _s6426_ => + (sep_matches_prefix _s6426_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6427_ _) => + (match (string_drop _s6426_ _s6427_) with + | _s6428_ => + (frm_mnemonic_matches_prefix _s6428_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6429_ _) => + match (string_drop _s6428_ + _s6429_) with + | s_ => + Some + (FCVT_WU_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6397_ (_s6398_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6398_ with + | _s6399_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6399_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_D, existT _ _s6400_ _) => + (match (string_drop _s6399_ _s6400_) with + | _s6401_ => + (spc_matches_prefix _s6401_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6402_ _) => + (match (string_drop _s6401_ _s6402_) with + | _s6403_ => + (reg_name_matches_prefix _s6403_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6404_ _) => + (match (string_drop _s6403_ _s6404_) with + | _s6405_ => + (sep_matches_prefix _s6405_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6406_ _) => + (match (string_drop _s6405_ _s6406_) with + | _s6407_ => + (freg_name_matches_prefix _s6407_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6408_ _) => + (match (string_drop _s6407_ _s6408_) with + | _s6409_ => + (sep_matches_prefix _s6409_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6410_ _) => + (match (string_drop _s6409_ _s6410_) with + | _s6411_ => + (frm_mnemonic_matches_prefix _s6411_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6412_ _) => + match (string_drop _s6411_ + _s6412_) with + | s_ => + Some + (FCVT_W_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6380_ (_s6381_ : string) +: M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6381_ with + | _s6382_ => + (f_un_rm_type_mnemonic_D_matches_prefix _s6382_) >>= fun w__0 : option ((f_un_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_D, existT _ _s6383_ _) => + (match (string_drop _s6382_ _s6383_) with + | _s6384_ => + (spc_matches_prefix _s6384_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6385_ _) => + (match (string_drop _s6384_ _s6385_) with + | _s6386_ => + (freg_name_matches_prefix _s6386_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6387_ _) => + (match (string_drop _s6386_ _s6387_) with + | _s6388_ => + (sep_matches_prefix _s6388_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6389_ _) => + (match (string_drop _s6388_ _s6389_) with + | _s6390_ => + (freg_name_matches_prefix _s6390_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6391_ _) => + (match (string_drop _s6390_ _s6391_) with + | _s6392_ => + (sep_matches_prefix _s6392_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6393_ _) => + (match (string_drop _s6392_ _s6393_) with + | _s6394_ => + (frm_mnemonic_matches_prefix _s6394_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6395_ _) => + match (string_drop _s6394_ + _s6395_) with + | s_ => + Some + (FSQRT_D, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6359_ (_s6360_ : string) +: M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6360_ with + | _s6361_ => + (f_bin_rm_type_mnemonic_D_matches_prefix _s6361_) >>= fun w__0 : option ((f_bin_rm_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s6362_ _) => + (match (string_drop _s6361_ _s6362_) with + | _s6363_ => + (spc_matches_prefix _s6363_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6364_ _) => + (match (string_drop _s6363_ _s6364_) with + | _s6365_ => + (freg_name_matches_prefix _s6365_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6366_ _) => + (match (string_drop _s6365_ _s6366_) with + | _s6367_ => + (sep_matches_prefix _s6367_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6368_ _) => + (match (string_drop _s6367_ _s6368_) with + | _s6369_ => + (freg_name_matches_prefix _s6369_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6370_ _) => + (match (string_drop _s6369_ _s6370_) with + | _s6371_ => + (sep_matches_prefix _s6371_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6372_ _) => + (match (string_drop _s6371_ _s6372_) with + | _s6373_ => + (freg_name_matches_prefix _s6373_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s6374_ _) => + (match (string_drop _s6373_ _s6374_) with + | _s6375_ => + (sep_matches_prefix _s6375_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s6376_ _) => + (match (string_drop _s6375_ + _s6376_) with + | _s6377_ => + (frm_mnemonic_matches_prefix + _s6377_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s6378_ _) => + match (string_drop + _s6377_ + _s6378_) with + | s_ => + Some + (op, rd, rs1, rs2, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6334_ (_s6335_ : string) +: M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6335_ with + | _s6336_ => + (f_madd_type_mnemonic_D_matches_prefix _s6336_) >>= fun w__0 : option ((f_madd_op_D * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s6337_ _) => + (match (string_drop _s6336_ _s6337_) with + | _s6338_ => + (spc_matches_prefix _s6338_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6339_ _) => + (match (string_drop _s6338_ _s6339_) with + | _s6340_ => + (freg_name_matches_prefix _s6340_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6341_ _) => + (match (string_drop _s6340_ _s6341_) with + | _s6342_ => + (sep_matches_prefix _s6342_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6343_ _) => + (match (string_drop _s6342_ _s6343_) with + | _s6344_ => + (freg_name_matches_prefix _s6344_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6345_ _) => + (match (string_drop _s6344_ _s6345_) with + | _s6346_ => + (sep_matches_prefix _s6346_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6347_ _) => + (match (string_drop _s6346_ _s6347_) with + | _s6348_ => + (freg_name_matches_prefix _s6348_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s6349_ _) => + (match (string_drop _s6348_ _s6349_) with + | _s6350_ => + (sep_matches_prefix _s6350_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s6351_ _) => + (match (string_drop _s6350_ + _s6351_) with + | _s6352_ => + (freg_name_matches_prefix + _s6352_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s6353_ _) => + (match (string_drop + _s6352_ _s6353_) with + | _s6354_ => + (sep_matches_prefix + _s6354_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s6355_ _) => + (match (string_drop + _s6354_ + _s6355_) with + | _s6356_ => + (frm_mnemonic_matches_prefix + _s6356_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s6357_ _) => + match (string_drop + _s6356_ + _s6357_) with + | s_ => + Some + (op, rd, rs1, rs2, rs3, rm, s_) + end + | _ => + None + end) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6318_ (_s6319_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s6320_ := _s6319_ in + (if string_startswith _s6320_ "c.fsw" then + (match (string_drop _s6320_ (projT1 (string_length "c.fsw"))) with + | _s6321_ => + (spc_matches_prefix _s6321_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6322_ _) => + (match (string_drop _s6321_ _s6322_) with + | _s6323_ => + (creg_name_matches_prefix _s6323_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rsc1, existT _ _s6324_ _) => + (match (string_drop _s6323_ _s6324_) with + | _s6325_ => + (sep_matches_prefix _s6325_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s6326_ _) => + (match (string_drop _s6325_ _s6326_) with + | _s6327_ => + (creg_name_matches_prefix _s6327_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc2, existT _ _s6328_ _) => + (match (string_drop _s6327_ _s6328_) with + | _s6329_ => + (sep_matches_prefix _s6329_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s6330_ _) => + match (string_drop _s6329_ _s6330_) with + | _s6331_ => + match (hex_bits_7_matches_prefix _s6331_) with + | Some (v__1382, existT _ _s6332_ _) => + if eq_vec (subrange_vec_dec v__1382 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1382 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1382 6 2 in + match (string_drop _s6331_ _s6332_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s6302_ (_s6303_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s6304_ := _s6303_ in + (if string_startswith _s6304_ "c.flw" then + (match (string_drop _s6304_ (projT1 (string_length "c.flw"))) with + | _s6305_ => + (spc_matches_prefix _s6305_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6306_ _) => + (match (string_drop _s6305_ _s6306_) with + | _s6307_ => + (creg_name_matches_prefix _s6307_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rdc, existT _ _s6308_ _) => + (match (string_drop _s6307_ _s6308_) with + | _s6309_ => + (sep_matches_prefix _s6309_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (tt, existT _ _s6310_ _) => + (match (string_drop _s6309_ _s6310_) with + | _s6311_ => + (creg_name_matches_prefix _s6311_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (rsc, existT _ _s6312_ _) => + (match (string_drop _s6311_ _s6312_) with + | _s6313_ => + (sep_matches_prefix _s6313_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (tt, existT _ _s6314_ _) => + match (string_drop _s6313_ _s6314_) with + | _s6315_ => + match (hex_bits_7_matches_prefix _s6315_) with + | Some (v__1384, existT _ _s6316_ _) => + if eq_vec (subrange_vec_dec v__1384 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1384 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1384 6 2 in + match (string_drop _s6315_ _s6316_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + end) + : M (option ((mword 3 * mword 3 * mword 5 * string))) + else returnm None) + : M (option ((mword 3 * mword 3 * mword 5 * string))). + +Definition _s6290_ (_s6291_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s6292_ := _s6291_ in + (if string_startswith _s6292_ "c.fswsp" then + (match (string_drop _s6292_ (projT1 (string_length "c.fswsp"))) with + | _s6293_ => + (spc_matches_prefix _s6293_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6294_ _) => + (match (string_drop _s6293_ _s6294_) with + | _s6295_ => + (reg_name_matches_prefix _s6295_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s6296_ _) => + (match (string_drop _s6295_ _s6296_) with + | _s6297_ => + (sep_matches_prefix _s6297_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s6298_ _) => + match (string_drop _s6297_ _s6298_) with + | _s6299_ => + match (hex_bits_6_matches_prefix _s6299_) with + | Some (uimm, existT _ _s6300_ _) => + match (string_drop _s6299_ _s6300_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s6278_ (_s6279_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s6280_ := _s6279_ in + (if string_startswith _s6280_ "c.flwsp" then + (match (string_drop _s6280_ (projT1 (string_length "c.flwsp"))) with + | _s6281_ => + (spc_matches_prefix _s6281_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + (match w__0 with + | Some (tt, existT _ _s6282_ _) => + (match (string_drop _s6281_ _s6282_) with + | _s6283_ => + (reg_name_matches_prefix _s6283_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (rd, existT _ _s6284_ _) => + (match (string_drop _s6283_ _s6284_) with + | _s6285_ => + (sep_matches_prefix _s6285_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__2 with + | Some (tt, existT _ _s6286_ _) => + match (string_drop _s6285_ _s6286_) with + | _s6287_ => + match (hex_bits_6_matches_prefix _s6287_) with + | Some (imm, existT _ _s6288_ _) => + match (string_drop _s6287_ _s6288_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + | _ => returnm None + end) + : M (option ((mword 5 * mword 6 * string))) + end) + : M (option ((mword 5 * mword 6 * string))) + else returnm None) + : M (option ((mword 5 * mword 6 * string))). + +Definition _s6265_ (_s6266_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s6266_ with + | _s6267_ => + (f_un_type_mnemonic_S_matches_prefix _s6267_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCLASS_S, existT _ _s6268_ _) => + (match (string_drop _s6267_ _s6268_) with + | _s6269_ => + (spc_matches_prefix _s6269_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6270_ _) => + (match (string_drop _s6269_ _s6270_) with + | _s6271_ => + (reg_name_matches_prefix _s6271_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6272_ _) => + (match (string_drop _s6271_ _s6272_) with + | _s6273_ => + (sep_matches_prefix _s6273_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6274_ _) => + (match (string_drop _s6273_ _s6274_) with + | _s6275_ => + (freg_name_matches_prefix _s6275_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6276_ _) => + match (string_drop _s6275_ _s6276_) with + | s_ => Some (FCLASS_S, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). + +Definition _s6252_ (_s6253_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s6253_ with + | _s6254_ => + (f_un_type_mnemonic_S_matches_prefix _s6254_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_W_X, existT _ _s6255_ _) => + (match (string_drop _s6254_ _s6255_) with + | _s6256_ => + (spc_matches_prefix _s6256_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6257_ _) => + (match (string_drop _s6256_ _s6257_) with + | _s6258_ => + (freg_name_matches_prefix _s6258_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6259_ _) => + (match (string_drop _s6258_ _s6259_) with + | _s6260_ => + (sep_matches_prefix _s6260_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6261_ _) => + (match (string_drop _s6260_ _s6261_) with + | _s6262_ => + (reg_name_matches_prefix _s6262_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6263_ _) => + match (string_drop _s6262_ _s6263_) with + | s_ => Some (FMV_W_X, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). + +Definition _s6239_ (_s6240_ : string) : M (option ((f_un_op_S * mword 5 * mword 5 * string))) := + (match _s6240_ with + | _s6241_ => + (f_un_type_mnemonic_S_matches_prefix _s6241_) >>= fun w__0 : option ((f_un_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMV_X_W, existT _ _s6242_ _) => + (match (string_drop _s6241_ _s6242_) with + | _s6243_ => + (spc_matches_prefix _s6243_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6244_ _) => + (match (string_drop _s6243_ _s6244_) with + | _s6245_ => + (reg_name_matches_prefix _s6245_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6246_ _) => + (match (string_drop _s6245_ _s6246_) with + | _s6247_ => + (sep_matches_prefix _s6247_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6248_ _) => + (match (string_drop _s6247_ _s6248_) with + | _s6249_ => + (freg_name_matches_prefix _s6249_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__4 with + | Some (rs1, existT _ _s6250_ _) => + match (string_drop _s6249_ _s6250_) with + | s_ => Some (FMV_X_W, rd, rs1, s_) + end + | _ => None + end) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))) + end) + : M (option ((f_un_op_S * mword 5 * mword 5 * string))). + +Definition _s6222_ (_s6223_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6223_ with + | _s6224_ => + (f_bin_type_mnemonic_S_matches_prefix _s6224_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLE_S, existT _ _s6225_ _) => + (match (string_drop _s6224_ _s6225_) with + | _s6226_ => + (spc_matches_prefix _s6226_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6227_ _) => + (match (string_drop _s6226_ _s6227_) with + | _s6228_ => + (reg_name_matches_prefix _s6228_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6229_ _) => + (match (string_drop _s6228_ _s6229_) with + | _s6230_ => + (sep_matches_prefix _s6230_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6231_ _) => + (match (string_drop _s6230_ _s6231_) with + | _s6232_ => + (freg_name_matches_prefix _s6232_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6233_ _) => + (match (string_drop _s6232_ _s6233_) with + | _s6234_ => + (sep_matches_prefix _s6234_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6235_ _) => + (match (string_drop _s6234_ _s6235_) with + | _s6236_ => + (freg_name_matches_prefix _s6236_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6237_ _) => + match (string_drop _s6236_ + _s6237_) with + | s_ => + Some (FLE_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6205_ (_s6206_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6206_ with + | _s6207_ => + (f_bin_type_mnemonic_S_matches_prefix _s6207_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FLT_S, existT _ _s6208_ _) => + (match (string_drop _s6207_ _s6208_) with + | _s6209_ => + (spc_matches_prefix _s6209_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6210_ _) => + (match (string_drop _s6209_ _s6210_) with + | _s6211_ => + (reg_name_matches_prefix _s6211_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6212_ _) => + (match (string_drop _s6211_ _s6212_) with + | _s6213_ => + (sep_matches_prefix _s6213_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6214_ _) => + (match (string_drop _s6213_ _s6214_) with + | _s6215_ => + (freg_name_matches_prefix _s6215_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6216_ _) => + (match (string_drop _s6215_ _s6216_) with + | _s6217_ => + (sep_matches_prefix _s6217_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6218_ _) => + (match (string_drop _s6217_ _s6218_) with + | _s6219_ => + (freg_name_matches_prefix _s6219_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6220_ _) => + match (string_drop _s6219_ + _s6220_) with + | s_ => + Some (FLT_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6188_ (_s6189_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6189_ with + | _s6190_ => + (f_bin_type_mnemonic_S_matches_prefix _s6190_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FEQ_S, existT _ _s6191_ _) => + (match (string_drop _s6190_ _s6191_) with + | _s6192_ => + (spc_matches_prefix _s6192_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6193_ _) => + (match (string_drop _s6192_ _s6193_) with + | _s6194_ => + (reg_name_matches_prefix _s6194_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6195_ _) => + (match (string_drop _s6194_ _s6195_) with + | _s6196_ => + (sep_matches_prefix _s6196_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6197_ _) => + (match (string_drop _s6196_ _s6197_) with + | _s6198_ => + (freg_name_matches_prefix _s6198_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6199_ _) => + (match (string_drop _s6198_ _s6199_) with + | _s6200_ => + (sep_matches_prefix _s6200_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6201_ _) => + (match (string_drop _s6200_ _s6201_) with + | _s6202_ => + (freg_name_matches_prefix _s6202_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6203_ _) => + match (string_drop _s6202_ + _s6203_) with + | s_ => + Some (FEQ_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6171_ (_s6172_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6172_ with + | _s6173_ => + (f_bin_type_mnemonic_S_matches_prefix _s6173_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMAX_S, existT _ _s6174_ _) => + (match (string_drop _s6173_ _s6174_) with + | _s6175_ => + (spc_matches_prefix _s6175_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6176_ _) => + (match (string_drop _s6175_ _s6176_) with + | _s6177_ => + (freg_name_matches_prefix _s6177_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6178_ _) => + (match (string_drop _s6177_ _s6178_) with + | _s6179_ => + (sep_matches_prefix _s6179_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6180_ _) => + (match (string_drop _s6179_ _s6180_) with + | _s6181_ => + (freg_name_matches_prefix _s6181_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6182_ _) => + (match (string_drop _s6181_ _s6182_) with + | _s6183_ => + (sep_matches_prefix _s6183_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6184_ _) => + (match (string_drop _s6183_ _s6184_) with + | _s6185_ => + (freg_name_matches_prefix _s6185_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6186_ _) => + match (string_drop _s6185_ + _s6186_) with + | s_ => + Some + (FMAX_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6154_ (_s6155_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6155_ with + | _s6156_ => + (f_bin_type_mnemonic_S_matches_prefix _s6156_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FMIN_S, existT _ _s6157_ _) => + (match (string_drop _s6156_ _s6157_) with + | _s6158_ => + (spc_matches_prefix _s6158_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6159_ _) => + (match (string_drop _s6158_ _s6159_) with + | _s6160_ => + (freg_name_matches_prefix _s6160_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6161_ _) => + (match (string_drop _s6160_ _s6161_) with + | _s6162_ => + (sep_matches_prefix _s6162_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6163_ _) => + (match (string_drop _s6162_ _s6163_) with + | _s6164_ => + (freg_name_matches_prefix _s6164_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6165_ _) => + (match (string_drop _s6164_ _s6165_) with + | _s6166_ => + (sep_matches_prefix _s6166_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6167_ _) => + (match (string_drop _s6166_ _s6167_) with + | _s6168_ => + (freg_name_matches_prefix _s6168_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6169_ _) => + match (string_drop _s6168_ + _s6169_) with + | s_ => + Some + (FMIN_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6137_ (_s6138_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6138_ with + | _s6139_ => + (f_bin_type_mnemonic_S_matches_prefix _s6139_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJX_S, existT _ _s6140_ _) => + (match (string_drop _s6139_ _s6140_) with + | _s6141_ => + (spc_matches_prefix _s6141_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6142_ _) => + (match (string_drop _s6141_ _s6142_) with + | _s6143_ => + (freg_name_matches_prefix _s6143_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6144_ _) => + (match (string_drop _s6143_ _s6144_) with + | _s6145_ => + (sep_matches_prefix _s6145_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6146_ _) => + (match (string_drop _s6145_ _s6146_) with + | _s6147_ => + (freg_name_matches_prefix _s6147_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6148_ _) => + (match (string_drop _s6147_ _s6148_) with + | _s6149_ => + (sep_matches_prefix _s6149_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6150_ _) => + (match (string_drop _s6149_ _s6150_) with + | _s6151_ => + (freg_name_matches_prefix _s6151_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6152_ _) => + match (string_drop _s6151_ + _s6152_) with + | s_ => + Some + (FSGNJX_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6120_ (_s6121_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6121_ with + | _s6122_ => + (f_bin_type_mnemonic_S_matches_prefix _s6122_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJN_S, existT _ _s6123_ _) => + (match (string_drop _s6122_ _s6123_) with + | _s6124_ => + (spc_matches_prefix _s6124_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6125_ _) => + (match (string_drop _s6124_ _s6125_) with + | _s6126_ => + (freg_name_matches_prefix _s6126_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6127_ _) => + (match (string_drop _s6126_ _s6127_) with + | _s6128_ => + (sep_matches_prefix _s6128_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6129_ _) => + (match (string_drop _s6128_ _s6129_) with + | _s6130_ => + (freg_name_matches_prefix _s6130_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6131_ _) => + (match (string_drop _s6130_ _s6131_) with + | _s6132_ => + (sep_matches_prefix _s6132_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6133_ _) => + (match (string_drop _s6132_ _s6133_) with + | _s6134_ => + (freg_name_matches_prefix _s6134_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6135_ _) => + match (string_drop _s6134_ + _s6135_) with + | s_ => + Some + (FSGNJN_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6103_ (_s6104_ : string) +: M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) := + (match _s6104_ with + | _s6105_ => + (f_bin_type_mnemonic_S_matches_prefix _s6105_) >>= fun w__0 : option ((f_bin_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSGNJ_S, existT _ _s6106_ _) => + (match (string_drop _s6105_ _s6106_) with + | _s6107_ => + (spc_matches_prefix _s6107_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6108_ _) => + (match (string_drop _s6107_ _s6108_) with + | _s6109_ => + (freg_name_matches_prefix _s6109_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6110_ _) => + (match (string_drop _s6109_ _s6110_) with + | _s6111_ => + (sep_matches_prefix _s6111_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6112_ _) => + (match (string_drop _s6111_ _s6112_) with + | _s6113_ => + (freg_name_matches_prefix _s6113_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6114_ _) => + (match (string_drop _s6113_ _s6114_) with + | _s6115_ => + (sep_matches_prefix _s6115_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6116_ _) => + (match (string_drop _s6115_ _s6116_) with + | _s6117_ => + (freg_name_matches_prefix _s6117_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs2, existT _ _s6118_ _) => + match (string_drop _s6117_ + _s6118_) with + | s_ => + Some + (FSGNJ_S, rd, rs1, rs2, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))) + end) + : M (option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string))). + +Definition _s6086_ (_s6087_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6087_ with + | _s6088_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6088_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_LU, existT _ _s6089_ _) => + (match (string_drop _s6088_ _s6089_) with + | _s6090_ => + (spc_matches_prefix _s6090_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6091_ _) => + (match (string_drop _s6090_ _s6091_) with + | _s6092_ => + (freg_name_matches_prefix _s6092_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6093_ _) => + (match (string_drop _s6092_ _s6093_) with + | _s6094_ => + (sep_matches_prefix _s6094_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6095_ _) => + (match (string_drop _s6094_ _s6095_) with + | _s6096_ => + (reg_name_matches_prefix _s6096_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6097_ _) => + (match (string_drop _s6096_ _s6097_) with + | _s6098_ => + (sep_matches_prefix _s6098_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6099_ _) => + (match (string_drop _s6098_ _s6099_) with + | _s6100_ => + (frm_mnemonic_matches_prefix _s6100_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6101_ _) => + match (string_drop _s6100_ + _s6101_) with + | s_ => + Some + (FCVT_S_LU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6069_ (_s6070_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6070_ with + | _s6071_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6071_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_L, existT _ _s6072_ _) => + (match (string_drop _s6071_ _s6072_) with + | _s6073_ => + (spc_matches_prefix _s6073_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6074_ _) => + (match (string_drop _s6073_ _s6074_) with + | _s6075_ => + (freg_name_matches_prefix _s6075_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6076_ _) => + (match (string_drop _s6075_ _s6076_) with + | _s6077_ => + (sep_matches_prefix _s6077_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6078_ _) => + (match (string_drop _s6077_ _s6078_) with + | _s6079_ => + (reg_name_matches_prefix _s6079_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6080_ _) => + (match (string_drop _s6079_ _s6080_) with + | _s6081_ => + (sep_matches_prefix _s6081_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6082_ _) => + (match (string_drop _s6081_ _s6082_) with + | _s6083_ => + (frm_mnemonic_matches_prefix _s6083_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6084_ _) => + match (string_drop _s6083_ + _s6084_) with + | s_ => + Some + (FCVT_S_L, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6052_ (_s6053_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6053_ with + | _s6054_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6054_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_LU_S, existT _ _s6055_ _) => + (match (string_drop _s6054_ _s6055_) with + | _s6056_ => + (spc_matches_prefix _s6056_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6057_ _) => + (match (string_drop _s6056_ _s6057_) with + | _s6058_ => + (reg_name_matches_prefix _s6058_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6059_ _) => + (match (string_drop _s6058_ _s6059_) with + | _s6060_ => + (sep_matches_prefix _s6060_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6061_ _) => + (match (string_drop _s6060_ _s6061_) with + | _s6062_ => + (freg_name_matches_prefix _s6062_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6063_ _) => + (match (string_drop _s6062_ _s6063_) with + | _s6064_ => + (sep_matches_prefix _s6064_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6065_ _) => + (match (string_drop _s6064_ _s6065_) with + | _s6066_ => + (frm_mnemonic_matches_prefix _s6066_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6067_ _) => + match (string_drop _s6066_ + _s6067_) with + | s_ => + Some + (FCVT_LU_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6035_ (_s6036_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6036_ with + | _s6037_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6037_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_L_S, existT _ _s6038_ _) => + (match (string_drop _s6037_ _s6038_) with + | _s6039_ => + (spc_matches_prefix _s6039_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6040_ _) => + (match (string_drop _s6039_ _s6040_) with + | _s6041_ => + (reg_name_matches_prefix _s6041_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6042_ _) => + (match (string_drop _s6041_ _s6042_) with + | _s6043_ => + (sep_matches_prefix _s6043_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6044_ _) => + (match (string_drop _s6043_ _s6044_) with + | _s6045_ => + (freg_name_matches_prefix _s6045_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6046_ _) => + (match (string_drop _s6045_ _s6046_) with + | _s6047_ => + (sep_matches_prefix _s6047_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6048_ _) => + (match (string_drop _s6047_ _s6048_) with + | _s6049_ => + (frm_mnemonic_matches_prefix _s6049_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6050_ _) => + match (string_drop _s6049_ + _s6050_) with + | s_ => + Some + (FCVT_L_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6018_ (_s6019_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6019_ with + | _s6020_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6020_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_WU, existT _ _s6021_ _) => + (match (string_drop _s6020_ _s6021_) with + | _s6022_ => + (spc_matches_prefix _s6022_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6023_ _) => + (match (string_drop _s6022_ _s6023_) with + | _s6024_ => + (freg_name_matches_prefix _s6024_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6025_ _) => + (match (string_drop _s6024_ _s6025_) with + | _s6026_ => + (sep_matches_prefix _s6026_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6027_ _) => + (match (string_drop _s6026_ _s6027_) with + | _s6028_ => + (reg_name_matches_prefix _s6028_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6029_ _) => + (match (string_drop _s6028_ _s6029_) with + | _s6030_ => + (sep_matches_prefix _s6030_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6031_ _) => + (match (string_drop _s6030_ _s6031_) with + | _s6032_ => + (frm_mnemonic_matches_prefix _s6032_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6033_ _) => + match (string_drop _s6032_ + _s6033_) with + | s_ => + Some + (FCVT_S_WU, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s6001_ (_s6002_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s6002_ with + | _s6003_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s6003_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_S_W, existT _ _s6004_ _) => + (match (string_drop _s6003_ _s6004_) with + | _s6005_ => + (spc_matches_prefix _s6005_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s6006_ _) => + (match (string_drop _s6005_ _s6006_) with + | _s6007_ => + (freg_name_matches_prefix _s6007_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s6008_ _) => + (match (string_drop _s6007_ _s6008_) with + | _s6009_ => + (sep_matches_prefix _s6009_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s6010_ _) => + (match (string_drop _s6009_ _s6010_) with + | _s6011_ => + (reg_name_matches_prefix _s6011_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s6012_ _) => + (match (string_drop _s6011_ _s6012_) with + | _s6013_ => + (sep_matches_prefix _s6013_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s6014_ _) => + (match (string_drop _s6013_ _s6014_) with + | _s6015_ => + (frm_mnemonic_matches_prefix _s6015_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s6016_ _) => + match (string_drop _s6015_ + _s6016_) with + | s_ => + Some + (FCVT_S_W, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5984_ (_s5985_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5985_ with + | _s5986_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5986_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_WU_S, existT _ _s5987_ _) => + (match (string_drop _s5986_ _s5987_) with + | _s5988_ => + (spc_matches_prefix _s5988_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5989_ _) => + (match (string_drop _s5988_ _s5989_) with + | _s5990_ => + (reg_name_matches_prefix _s5990_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5991_ _) => + (match (string_drop _s5990_ _s5991_) with + | _s5992_ => + (sep_matches_prefix _s5992_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5993_ _) => + (match (string_drop _s5992_ _s5993_) with + | _s5994_ => + (freg_name_matches_prefix _s5994_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5995_ _) => + (match (string_drop _s5994_ _s5995_) with + | _s5996_ => + (sep_matches_prefix _s5996_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5997_ _) => + (match (string_drop _s5996_ _s5997_) with + | _s5998_ => + (frm_mnemonic_matches_prefix _s5998_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5999_ _) => + match (string_drop _s5998_ + _s5999_) with + | s_ => + Some + (FCVT_WU_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5967_ (_s5968_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5968_ with + | _s5969_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5969_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FCVT_W_S, existT _ _s5970_ _) => + (match (string_drop _s5969_ _s5970_) with + | _s5971_ => + (spc_matches_prefix _s5971_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5972_ _) => + (match (string_drop _s5971_ _s5972_) with + | _s5973_ => + (reg_name_matches_prefix _s5973_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5974_ _) => + (match (string_drop _s5973_ _s5974_) with + | _s5975_ => + (sep_matches_prefix _s5975_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5976_ _) => + (match (string_drop _s5975_ _s5976_) with + | _s5977_ => + (freg_name_matches_prefix _s5977_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5978_ _) => + (match (string_drop _s5977_ _s5978_) with + | _s5979_ => + (sep_matches_prefix _s5979_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5980_ _) => + (match (string_drop _s5979_ _s5980_) with + | _s5981_ => + (frm_mnemonic_matches_prefix _s5981_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5982_ _) => + match (string_drop _s5981_ + _s5982_) with + | s_ => + Some + (FCVT_W_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5950_ (_s5951_ : string) +: M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5951_ with + | _s5952_ => + (f_un_rm_type_mnemonic_S_matches_prefix _s5952_) >>= fun w__0 : option ((f_un_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (FSQRT_S, existT _ _s5953_ _) => + (match (string_drop _s5952_ _s5953_) with + | _s5954_ => + (spc_matches_prefix _s5954_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5955_ _) => + (match (string_drop _s5954_ _s5955_) with + | _s5956_ => + (freg_name_matches_prefix _s5956_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5957_ _) => + (match (string_drop _s5956_ _s5957_) with + | _s5958_ => + (sep_matches_prefix _s5958_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5959_ _) => + (match (string_drop _s5958_ _s5959_) with + | _s5960_ => + (freg_name_matches_prefix _s5960_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5961_ _) => + (match (string_drop _s5960_ _s5961_) with + | _s5962_ => + (sep_matches_prefix _s5962_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5963_ _) => + (match (string_drop _s5962_ _s5963_) with + | _s5964_ => + (frm_mnemonic_matches_prefix _s5964_) >>= fun w__6 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rm, existT _ _s5965_ _) => + match (string_drop _s5964_ + _s5965_) with + | s_ => + Some + (FSQRT_S, rd, rs1, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5929_ (_s5930_ : string) +: M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5930_ with + | _s5931_ => + (f_bin_rm_type_mnemonic_S_matches_prefix _s5931_) >>= fun w__0 : option ((f_bin_rm_op_S * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s5932_ _) => + (match (string_drop _s5931_ _s5932_) with + | _s5933_ => + (spc_matches_prefix _s5933_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5934_ _) => + (match (string_drop _s5933_ _s5934_) with + | _s5935_ => + (freg_name_matches_prefix _s5935_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5936_ _) => + (match (string_drop _s5935_ _s5936_) with + | _s5937_ => + (sep_matches_prefix _s5937_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5938_ _) => + (match (string_drop _s5937_ _s5938_) with + | _s5939_ => + (freg_name_matches_prefix _s5939_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5940_ _) => + (match (string_drop _s5939_ _s5940_) with + | _s5941_ => + (sep_matches_prefix _s5941_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5942_ _) => + (match (string_drop _s5941_ _s5942_) with + | _s5943_ => + (freg_name_matches_prefix _s5943_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s5944_ _) => + (match (string_drop _s5943_ _s5944_) with + | _s5945_ => + (sep_matches_prefix _s5945_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s5946_ _) => + (match (string_drop _s5945_ + _s5946_) with + | _s5947_ => + (frm_mnemonic_matches_prefix + _s5947_) >>= fun w__8 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__8 with + | Some + (rm, existT _ _s5948_ _) => + match (string_drop + _s5947_ + _s5948_) with + | s_ => + Some + (op, rd, rs1, rs2, rm, s_) + end + | _ => None + end) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))). + : M (option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string))). -Definition _s3410_ (_s3411_ : string) -: M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s3411_ with - | _s3412_ => - (csr_mnemonic_matches_prefix _s3412_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >= +Definition _s5904_ (_s5905_ : string) +: M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) := + (match _s5905_ with + | _s5906_ => + (f_madd_type_mnemonic_S_matches_prefix _s5906_) >>= fun w__0 : option ((f_madd_op_S * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s3413_ _)) => - let _s3414_ := string_drop _s3412_ _s3413_ in - (if ((string_startswith _s3414_ "i")) then - (match (string_drop _s3414_ (projT1 (string_length "i"))) with - | _s3415_ => - (spc_matches_prefix _s3415_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5907_ _) => + (match (string_drop _s5906_ _s5907_) with + | _s5908_ => + (spc_matches_prefix _s5908_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5909_ _) => + (match (string_drop _s5908_ _s5909_) with + | _s5910_ => + (freg_name_matches_prefix _s5910_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5911_ _) => + (match (string_drop _s5910_ _s5911_) with + | _s5912_ => + (sep_matches_prefix _s5912_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5913_ _) => + (match (string_drop _s5912_ _s5913_) with + | _s5914_ => + (freg_name_matches_prefix _s5914_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (rs1, existT _ _s5915_ _) => + (match (string_drop _s5914_ _s5915_) with + | _s5916_ => + (sep_matches_prefix _s5916_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5917_ _) => + (match (string_drop _s5916_ _s5917_) with + | _s5918_ => + (freg_name_matches_prefix _s5918_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some (rs2, existT _ _s5919_ _) => + (match (string_drop _s5918_ _s5919_) with + | _s5920_ => + (sep_matches_prefix _s5920_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__7 with + | Some (tt, existT _ _s5921_ _) => + (match (string_drop _s5920_ + _s5921_) with + | _s5922_ => + (freg_name_matches_prefix + _s5922_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__8 with + | Some + (rs3, existT _ _s5923_ _) => + (match (string_drop + _s5922_ _s5923_) with + | _s5924_ => + (sep_matches_prefix + _s5924_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__9 with + | Some + (tt, existT _ _s5925_ _) => + (match (string_drop + _s5924_ + _s5925_) with + | _s5926_ => + (frm_mnemonic_matches_prefix + _s5926_) >>= fun w__10 : option ((rounding_mode * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__10 with + | Some + (rm, existT _ _s5927_ _) => + match (string_drop + _s5926_ + _s5927_) with + | s_ => + Some + (op, rd, rs1, rs2, rs3, rm, s_) + end + | _ => + None + end) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + | _ => returnm None + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))) + end) + : M (option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string))). + +Definition _s5880_ (_s5881_ : string) +: M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) := + let _s5882_ := _s5881_ in + (if string_startswith _s5882_ "fs" then + (match (string_drop _s5882_ (projT1 (string_length "fs"))) with + | _s5883_ => + (size_mnemonic_matches_prefix _s5883_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s5884_ _) => + (match (string_drop _s5883_ _s5884_) with + | _s5885_ => + (spc_matches_prefix _s5885_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3416_ _)) => - (match (string_drop _s3415_ _s3416_) with - | _s3417_ => - (reg_name_matches_prefix _s3417_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5886_ _) => + (match (string_drop _s5885_ _s5886_) with + | _s5887_ => + (freg_name_matches_prefix _s5887_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3418_ _)) => - (match (string_drop _s3417_ _s3418_) with - | _s3419_ => - (sep_matches_prefix _s3419_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s5888_ _) => + (match (string_drop _s5887_ _s5888_) with + | _s5889_ => + (sep_matches_prefix _s5889_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3420_ _)) => - (match (string_drop _s3419_ _s3420_) with - | _s3421_ => - (match (hex_bits_5_matches_prefix _s3421_) with - | Some ((rs1, existT _ _s3422_ _)) => - (match (string_drop _s3421_ _s3422_) with - | _s3423_ => - (sep_matches_prefix _s3423_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5890_ _) => + (match (string_drop _s5889_ _s5890_) with + | _s5891_ => + (match (hex_bits_12_matches_prefix _s5891_) with + | Some (imm, existT _ _s5892_ _) => + (match (string_drop _s5891_ _s5892_) with + | _s5893_ => + (opt_spc_matches_prefix _s5893_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s3424_ _)) => - (match (string_drop _s3423_ _s3424_) with - | _s3425_ => - (csr_name_map_matches_prefix _s3425_) >>= fun w__5 : option ((mword 12 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__5 with - | Some - ((csr, existT _ _s3426_ _)) => - match (string_drop _s3425_ - _s3426_) with - | s_ => - Some - ((op, rd, rs1, csr, s_)) - end - | _ => None - end) - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + | Some (tt, existT _ _s5894_ _) => + let _s5895_ := string_drop _s5893_ _s5894_ in + (if string_startswith _s5895_ "(" then + (match (string_drop _s5895_ + (projT1 + (string_length "("))) with + | _s5896_ => + (opt_spc_matches_prefix _s5896_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5897_ _) => + (match (string_drop _s5896_ _s5897_) with + | _s5898_ => + (reg_name_matches_prefix + _s5898_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s5899_ _) => + (match (string_drop _s5898_ + _s5899_) with + | _s5900_ => + (opt_spc_matches_prefix + _s5900_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s5901_ _) => + let _s5902_ := + string_drop + _s5900_ + _s5901_ in + if string_startswith + _s5902_ + ")" + then + match (string_drop + _s5902_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (width, rs2, imm, rs1, s_) + end + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))). + +Definition _s5856_ (_s5857_ : string) +: M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) := + let _s5858_ := _s5857_ in + (if string_startswith _s5858_ "fl" then + (match (string_drop _s5858_ (projT1 (string_length "fl"))) with + | _s5859_ => + (size_mnemonic_matches_prefix _s5859_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (width, existT _ _s5860_ _) => + (match (string_drop _s5859_ _s5860_) with + | _s5861_ => + (spc_matches_prefix _s5861_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5862_ _) => + (match (string_drop _s5861_ _s5862_) with + | _s5863_ => + (freg_name_matches_prefix _s5863_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5864_ _) => + (match (string_drop _s5863_ _s5864_) with + | _s5865_ => + (sep_matches_prefix _s5865_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5866_ _) => + (match (string_drop _s5865_ _s5866_) with + | _s5867_ => + (match (hex_bits_12_matches_prefix _s5867_) with + | Some (imm, existT _ _s5868_ _) => + (match (string_drop _s5867_ _s5868_) with + | _s5869_ => + (opt_spc_matches_prefix _s5869_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (tt, existT _ _s5870_ _) => + let _s5871_ := string_drop _s5869_ _s5870_ in + (if string_startswith _s5871_ "(" then + (match (string_drop _s5871_ + (projT1 + (string_length "("))) with + | _s5872_ => + (opt_spc_matches_prefix _s5872_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5873_ _) => + (match (string_drop _s5872_ _s5873_) with + | _s5874_ => + (reg_name_matches_prefix + _s5874_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__6 with + | Some + (rs1, existT _ _s5875_ _) => + (match (string_drop _s5874_ + _s5875_) with + | _s5876_ => + (opt_spc_matches_prefix + _s5876_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__7 with + | Some + (tt, existT _ _s5877_ _) => + let _s5878_ := + string_drop + _s5876_ + _s5877_ in + if string_startswith + _s5878_ + ")" + then + match (string_drop + _s5878_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (width, rd, imm, rs1, s_) + end + else None + | _ => None + end) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string)))) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((csrop * mword 5 * mword 5 * mword 12 * string))) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((word_width * mword 5 * mword 12 * mword 5 * string))). + +Definition _s5852_ (_s5853_ : string) : option string := + let _s5854_ := _s5853_ in + if string_startswith _s5854_ "uret" then + match (string_drop _s5854_ (projT1 (string_length "uret"))) with | s_ => Some s_ end + else None. + +Definition _s5835_ (_s5836_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) := + (match _s5836_ with + | _s5837_ => + (csr_mnemonic_matches_prefix _s5837_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s5838_ _) => + (match (string_drop _s5837_ _s5838_) with + | _s5839_ => + (spc_matches_prefix _s5839_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5840_ _) => + (match (string_drop _s5839_ _s5840_) with + | _s5841_ => + (reg_name_matches_prefix _s5841_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5842_ _) => + (match (string_drop _s5841_ _s5842_) with + | _s5843_ => + (sep_matches_prefix _s5843_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5844_ _) => + (match (string_drop _s5843_ _s5844_) with + | _s5845_ => + (csr_name_map_matches_prefix _s5845_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s5846_ _) => + (match (string_drop _s5845_ _s5846_) with + | _s5847_ => + (sep_matches_prefix _s5847_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__5 with + | Some (tt, existT _ _s5848_ _) => + (match (string_drop _s5847_ _s5848_) with + | _s5849_ => + (reg_name_matches_prefix _s5849_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__6 with + | Some (rs1, existT _ _s5850_ _) => + match (string_drop _s5849_ + _s5850_) with + | s_ => + Some (op, rd, csr, rs1, s_) + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))) - end) - : M (option ((csrop * mword 5 * mword 5 * mword 12 * string))). - -Definition _s3391_ (_s3392_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3393_ := _s3392_ in - (if ((string_startswith _s3393_ "rem")) then - (match (string_drop _s3393_ (projT1 (string_length "rem"))) with - | _s3394_ => - (maybe_not_u_matches_prefix _s3394_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))). + +Definition _s5817_ (_s5818_ : string) : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) := + (match _s5818_ with + | _s5819_ => + (csr_mnemonic_matches_prefix _s5819_) >>= fun w__0 : option ((csrop * {n : Z & ArithFact (n >=? + 0)})) => + (match w__0 with + | Some (op, existT _ _s5820_ _) => + let _s5821_ := string_drop _s5819_ _s5820_ in + (if string_startswith _s5821_ "i" then + (match (string_drop _s5821_ (projT1 (string_length "i"))) with + | _s5822_ => + (spc_matches_prefix _s5822_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__1 with + | Some (tt, existT _ _s5823_ _) => + (match (string_drop _s5822_ _s5823_) with + | _s5824_ => + (reg_name_matches_prefix _s5824_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__2 with + | Some (rd, existT _ _s5825_ _) => + (match (string_drop _s5824_ _s5825_) with + | _s5826_ => + (sep_matches_prefix _s5826_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + (match w__3 with + | Some (tt, existT _ _s5827_ _) => + (match (string_drop _s5826_ _s5827_) with + | _s5828_ => + (csr_name_map_matches_prefix _s5828_) >>= fun w__4 : option ((mword 12 * {n : Z & ArithFact (n >=? + 0)})) => + (match w__4 with + | Some (csr, existT _ _s5829_ _) => + (match (string_drop _s5828_ _s5829_) with + | _s5830_ => + (sep_matches_prefix _s5830_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__5 with + | Some (tt, existT _ _s5831_ _) => + match (string_drop _s5830_ _s5831_) with + | _s5832_ => + match (hex_bits_5_matches_prefix + _s5832_) with + | Some (rs1, existT _ _s5833_ _) => + match (string_drop _s5832_ + _s5833_) with + | s_ => + Some (op, rd, csr, rs1, s_) + end + | _ => None + end + end + | _ => None + end) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + else returnm None) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))) + end) + : M (option ((csrop * mword 5 * mword 12 * mword 5 * string))). + +Definition _s5798_ (_s5799_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s5800_ := _s5799_ in + (if string_startswith _s5800_ "rem" then + (match (string_drop _s5800_ (projT1 (string_length "rem"))) with + | _s5801_ => + (maybe_not_u_matches_prefix _s5801_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3395_ _)) => - let _s3396_ := string_drop _s3394_ _s3395_ in - (if ((string_startswith _s3396_ "w")) then - (match (string_drop _s3396_ (projT1 (string_length "w"))) with - | _s3397_ => - (spc_matches_prefix _s3397_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s5802_ _) => + let _s5803_ := string_drop _s5801_ _s5802_ in + (if string_startswith _s5803_ "w" then + (match (string_drop _s5803_ (projT1 (string_length "w"))) with + | _s5804_ => + (spc_matches_prefix _s5804_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3398_ _)) => - (match (string_drop _s3397_ _s3398_) with - | _s3399_ => - (reg_name_matches_prefix _s3399_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5805_ _) => + (match (string_drop _s5804_ _s5805_) with + | _s5806_ => + (reg_name_matches_prefix _s5806_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3400_ _)) => - (match (string_drop _s3399_ _s3400_) with - | _s3401_ => - (sep_matches_prefix _s3401_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5807_ _) => + (match (string_drop _s5806_ _s5807_) with + | _s5808_ => + (sep_matches_prefix _s5808_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3402_ _)) => - (match (string_drop _s3401_ _s3402_) with - | _s3403_ => - (reg_name_matches_prefix _s3403_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5809_ _) => + (match (string_drop _s5808_ _s5809_) with + | _s5810_ => + (reg_name_matches_prefix _s5810_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3404_ _)) => - (match (string_drop _s3403_ _s3404_) with - | _s3405_ => - (sep_matches_prefix _s3405_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5811_ _) => + (match (string_drop _s5810_ _s5811_) with + | _s5812_ => + (sep_matches_prefix _s5812_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3406_ _)) => - (match (string_drop _s3405_ _s3406_) with - | _s3407_ => - (reg_name_matches_prefix _s3407_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5813_ _) => + (match (string_drop _s5812_ _s5813_) with + | _s5814_ => + (reg_name_matches_prefix _s5814_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3408_ _)) => - match (string_drop _s3407_ - _s3408_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some + (rs2, existT _ _s5815_ _) => + match (string_drop _s5814_ + _s5815_) with + | s_ => + Some + (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3372_ (_s3373_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3374_ := _s3373_ in - (if ((string_startswith _s3374_ "div")) then - (match (string_drop _s3374_ (projT1 (string_length "div"))) with - | _s3375_ => - (maybe_not_u_matches_prefix _s3375_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s5779_ (_s5780_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s5781_ := _s5780_ in + (if string_startswith _s5781_ "div" then + (match (string_drop _s5781_ (projT1 (string_length "div"))) with + | _s5782_ => + (maybe_not_u_matches_prefix _s5782_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3376_ _)) => - let _s3377_ := string_drop _s3375_ _s3376_ in - (if ((string_startswith _s3377_ "w")) then - (match (string_drop _s3377_ (projT1 (string_length "w"))) with - | _s3378_ => - (spc_matches_prefix _s3378_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s5783_ _) => + let _s5784_ := string_drop _s5782_ _s5783_ in + (if string_startswith _s5784_ "w" then + (match (string_drop _s5784_ (projT1 (string_length "w"))) with + | _s5785_ => + (spc_matches_prefix _s5785_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3379_ _)) => - (match (string_drop _s3378_ _s3379_) with - | _s3380_ => - (reg_name_matches_prefix _s3380_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5786_ _) => + (match (string_drop _s5785_ _s5786_) with + | _s5787_ => + (reg_name_matches_prefix _s5787_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3381_ _)) => - (match (string_drop _s3380_ _s3381_) with - | _s3382_ => - (sep_matches_prefix _s3382_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5788_ _) => + (match (string_drop _s5787_ _s5788_) with + | _s5789_ => + (sep_matches_prefix _s5789_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3383_ _)) => - (match (string_drop _s3382_ _s3383_) with - | _s3384_ => - (reg_name_matches_prefix _s3384_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5790_ _) => + (match (string_drop _s5789_ _s5790_) with + | _s5791_ => + (reg_name_matches_prefix _s5791_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3385_ _)) => - (match (string_drop _s3384_ _s3385_) with - | _s3386_ => - (sep_matches_prefix _s3386_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5792_ _) => + (match (string_drop _s5791_ _s5792_) with + | _s5793_ => + (sep_matches_prefix _s5793_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3387_ _)) => - (match (string_drop _s3386_ _s3387_) with - | _s3388_ => - (reg_name_matches_prefix _s3388_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5794_ _) => + (match (string_drop _s5793_ _s5794_) with + | _s5795_ => + (reg_name_matches_prefix _s5795_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3389_ _)) => - match (string_drop _s3388_ - _s3389_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some + (rs2, existT _ _s5796_ _) => + match (string_drop _s5795_ + _s5796_) with + | s_ => + Some + (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3356_ (_s3357_ : string) -: M (option ((mword 5 * mword 5 * mword 5 * string))) := - - let _s3358_ := _s3357_ in - (if ((string_startswith _s3358_ "mulw")) then - (match (string_drop _s3358_ (projT1 (string_length "mulw"))) with - | _s3359_ => - (spc_matches_prefix _s3359_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5763_ (_s5764_ : string) : M (option ((mword 5 * mword 5 * mword 5 * string))) := + let _s5765_ := _s5764_ in + (if string_startswith _s5765_ "mulw" then + (match (string_drop _s5765_ (projT1 (string_length "mulw"))) with + | _s5766_ => + (spc_matches_prefix _s5766_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3360_ _)) => - (match (string_drop _s3359_ _s3360_) with - | _s3361_ => - (reg_name_matches_prefix _s3361_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5767_ _) => + (match (string_drop _s5766_ _s5767_) with + | _s5768_ => + (reg_name_matches_prefix _s5768_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3362_ _)) => - (match (string_drop _s3361_ _s3362_) with - | _s3363_ => - (sep_matches_prefix _s3363_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5769_ _) => + (match (string_drop _s5768_ _s5769_) with + | _s5770_ => + (sep_matches_prefix _s5770_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3364_ _)) => - (match (string_drop _s3363_ _s3364_) with - | _s3365_ => - (reg_name_matches_prefix _s3365_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5771_ _) => + (match (string_drop _s5770_ _s5771_) with + | _s5772_ => + (reg_name_matches_prefix _s5772_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s3366_ _)) => - (match (string_drop _s3365_ _s3366_) with - | _s3367_ => - (sep_matches_prefix _s3367_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5773_ _) => + (match (string_drop _s5772_ _s5773_) with + | _s5774_ => + (sep_matches_prefix _s5774_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s3368_ _)) => - (match (string_drop _s3367_ _s3368_) with - | _s3369_ => - (reg_name_matches_prefix _s3369_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5775_ _) => + (match (string_drop _s5774_ _s5775_) with + | _s5776_ => + (reg_name_matches_prefix _s5776_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((rs2, existT _ _s3370_ _)) => - match (string_drop _s3369_ _s3370_) with - | s_ => Some ((rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (rs2, existT _ _s5777_ _) => + match (string_drop _s5776_ _s5777_) with + | s_ => Some (rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 5 * string))). -Definition _s3338_ (_s3339_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3340_ := _s3339_ in - (if ((string_startswith _s3340_ "rem")) then - (match (string_drop _s3340_ (projT1 (string_length "rem"))) with - | _s3341_ => - (maybe_not_u_matches_prefix _s3341_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s5745_ (_s5746_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s5747_ := _s5746_ in + (if string_startswith _s5747_ "rem" then + (match (string_drop _s5747_ (projT1 (string_length "rem"))) with + | _s5748_ => + (maybe_not_u_matches_prefix _s5748_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3342_ _)) => - (match (string_drop _s3341_ _s3342_) with - | _s3343_ => - (spc_matches_prefix _s3343_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s5749_ _) => + (match (string_drop _s5748_ _s5749_) with + | _s5750_ => + (spc_matches_prefix _s5750_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3344_ _)) => - (match (string_drop _s3343_ _s3344_) with - | _s3345_ => - (reg_name_matches_prefix _s3345_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5751_ _) => + (match (string_drop _s5750_ _s5751_) with + | _s5752_ => + (reg_name_matches_prefix _s5752_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3346_ _)) => - (match (string_drop _s3345_ _s3346_) with - | _s3347_ => - (sep_matches_prefix _s3347_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5753_ _) => + (match (string_drop _s5752_ _s5753_) with + | _s5754_ => + (sep_matches_prefix _s5754_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3348_ _)) => - (match (string_drop _s3347_ _s3348_) with - | _s3349_ => - (reg_name_matches_prefix _s3349_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5755_ _) => + (match (string_drop _s5754_ _s5755_) with + | _s5756_ => + (reg_name_matches_prefix _s5756_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3350_ _)) => - (match (string_drop _s3349_ _s3350_) with - | _s3351_ => - (sep_matches_prefix _s3351_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5757_ _) => + (match (string_drop _s5756_ _s5757_) with + | _s5758_ => + (sep_matches_prefix _s5758_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3352_ _)) => - (match (string_drop _s3351_ _s3352_) with - | _s3353_ => - (reg_name_matches_prefix _s3353_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5759_ _) => + (match (string_drop _s5758_ _s5759_) with + | _s5760_ => + (reg_name_matches_prefix _s5760_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3354_ _)) => - match (string_drop _s3353_ - _s3354_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5761_ _) => + match (string_drop _s5760_ + _s5761_) with + | s_ => + Some (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3320_ (_s3321_ : string) -: M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s3322_ := _s3321_ in - (if ((string_startswith _s3322_ "div")) then - (match (string_drop _s3322_ (projT1 (string_length "div"))) with - | _s3323_ => - (maybe_not_u_matches_prefix _s3323_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >= +Definition _s5727_ (_s5728_ : string) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) := + let _s5729_ := _s5728_ in + (if string_startswith _s5729_ "div" then + (match (string_drop _s5729_ (projT1 (string_length "div"))) with + | _s5730_ => + (maybe_not_u_matches_prefix _s5730_) >>= fun w__0 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((s, existT _ _s3324_ _)) => - (match (string_drop _s3323_ _s3324_) with - | _s3325_ => - (spc_matches_prefix _s3325_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (s, existT _ _s5731_ _) => + (match (string_drop _s5730_ _s5731_) with + | _s5732_ => + (spc_matches_prefix _s5732_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3326_ _)) => - (match (string_drop _s3325_ _s3326_) with - | _s3327_ => - (reg_name_matches_prefix _s3327_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5733_ _) => + (match (string_drop _s5732_ _s5733_) with + | _s5734_ => + (reg_name_matches_prefix _s5734_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3328_ _)) => - (match (string_drop _s3327_ _s3328_) with - | _s3329_ => - (sep_matches_prefix _s3329_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5735_ _) => + (match (string_drop _s5734_ _s5735_) with + | _s5736_ => + (sep_matches_prefix _s5736_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3330_ _)) => - (match (string_drop _s3329_ _s3330_) with - | _s3331_ => - (reg_name_matches_prefix _s3331_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5737_ _) => + (match (string_drop _s5736_ _s5737_) with + | _s5738_ => + (reg_name_matches_prefix _s5738_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3332_ _)) => - (match (string_drop _s3331_ _s3332_) with - | _s3333_ => - (sep_matches_prefix _s3333_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5739_ _) => + (match (string_drop _s5738_ _s5739_) with + | _s5740_ => + (sep_matches_prefix _s5740_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3334_ _)) => - (match (string_drop _s3333_ _s3334_) with - | _s3335_ => - (reg_name_matches_prefix _s3335_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5741_ _) => + (match (string_drop _s5740_ _s5741_) with + | _s5742_ => + (reg_name_matches_prefix _s5742_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs2, existT _ _s3336_ _)) => - match (string_drop _s3335_ - _s3336_) with - | s_ => - Some - ((s, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5743_ _) => + match (string_drop _s5742_ + _s5743_) with + | s_ => + Some (s, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))) - else returnm (None : option ((bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3303_ (_s3304_ : string) +Definition _s5710_ (_s5711_ : string) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - (match _s3304_ with - | _s3305_ => - (mul_mnemonic_matches_prefix _s3305_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >= + (match _s5711_ with + | _s5712_ => + (mul_mnemonic_matches_prefix _s5712_) >>= fun w__0 : option (((bool * bool * bool) * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some (((high, signed1, signed2), existT _ _s3306_ _)) => - (match (string_drop _s3305_ _s3306_) with - | _s3307_ => - (spc_matches_prefix _s3307_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some ((high, signed1, signed2), existT _ _s5713_ _) => + (match (string_drop _s5712_ _s5713_) with + | _s5714_ => + (spc_matches_prefix _s5714_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s3308_ _)) => - (match (string_drop _s3307_ _s3308_) with - | _s3309_ => - (reg_name_matches_prefix _s3309_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5715_ _) => + (match (string_drop _s5714_ _s5715_) with + | _s5716_ => + (reg_name_matches_prefix _s5716_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s3310_ _)) => - (match (string_drop _s3309_ _s3310_) with - | _s3311_ => - (sep_matches_prefix _s3311_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5717_ _) => + (match (string_drop _s5716_ _s5717_) with + | _s5718_ => + (sep_matches_prefix _s5718_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s3312_ _)) => - (match (string_drop _s3311_ _s3312_) with - | _s3313_ => - (reg_name_matches_prefix _s3313_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5719_ _) => + (match (string_drop _s5718_ _s5719_) with + | _s5720_ => + (reg_name_matches_prefix _s5720_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s3314_ _)) => - (match (string_drop _s3313_ _s3314_) with - | _s3315_ => - (sep_matches_prefix _s3315_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5721_ _) => + (match (string_drop _s5720_ _s5721_) with + | _s5722_ => + (sep_matches_prefix _s5722_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s3316_ _)) => - (match (string_drop _s3315_ _s3316_) with - | _s3317_ => - (reg_name_matches_prefix _s3317_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5723_ _) => + (match (string_drop _s5722_ _s5723_) with + | _s5724_ => + (reg_name_matches_prefix _s5724_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s3318_ _)) => - match (string_drop _s3317_ - _s3318_) with - | s_ => - Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5725_ _) => + match (string_drop _s5724_ + _s5725_) with + | s_ => + Some + (high, signed1, signed2, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s3291_ (_s3292_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s3293_ := _s3292_ in - (if ((string_startswith _s3293_ "c.add")) then - (match (string_drop _s3293_ (projT1 (string_length "c.add"))) with - | _s3294_ => - (spc_matches_prefix _s3294_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5698_ (_s5699_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s5700_ := _s5699_ in + (if string_startswith _s5700_ "c.add" then + (match (string_drop _s5700_ (projT1 (string_length "c.add"))) with + | _s5701_ => + (spc_matches_prefix _s5701_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3295_ _)) => - (match (string_drop _s3294_ _s3295_) with - | _s3296_ => - (reg_name_matches_prefix _s3296_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5702_ _) => + (match (string_drop _s5701_ _s5702_) with + | _s5703_ => + (reg_name_matches_prefix _s5703_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3297_ _)) => - (match (string_drop _s3296_ _s3297_) with - | _s3298_ => - (sep_matches_prefix _s3298_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5704_ _) => + (match (string_drop _s5703_ _s5704_) with + | _s5705_ => + (sep_matches_prefix _s5705_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3299_ _)) => - (match (string_drop _s3298_ _s3299_) with - | _s3300_ => - (reg_name_matches_prefix _s3300_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5706_ _) => + (match (string_drop _s5705_ _s5706_) with + | _s5707_ => + (reg_name_matches_prefix _s5707_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3301_ _)) => - match (string_drop _s3300_ _s3301_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5708_ _) => + match (string_drop _s5707_ _s5708_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s3287_ (_s3288_ : string) -: option string := - - let _s3289_ := _s3288_ in - if ((string_startswith _s3289_ "c.ebreak")) then - match (string_drop _s3289_ (projT1 (string_length "c.ebreak"))) with | s_ => Some (s_) end - else None. - -Definition _s3275_ (_s3276_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s3277_ := _s3276_ in - (if ((string_startswith _s3277_ "c.mv")) then - (match (string_drop _s3277_ (projT1 (string_length "c.mv"))) with - | _s3278_ => - (spc_matches_prefix _s3278_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5694_ (_s5695_ : string) : option string := + let _s5696_ := _s5695_ in + if string_startswith _s5696_ "c.ebreak" then + match (string_drop _s5696_ (projT1 (string_length "c.ebreak"))) with | s_ => Some s_ end + else None. + +Definition _s5682_ (_s5683_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s5684_ := _s5683_ in + (if string_startswith _s5684_ "c.mv" then + (match (string_drop _s5684_ (projT1 (string_length "c.mv"))) with + | _s5685_ => + (spc_matches_prefix _s5685_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3279_ _)) => - (match (string_drop _s3278_ _s3279_) with - | _s3280_ => - (reg_name_matches_prefix _s3280_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5686_ _) => + (match (string_drop _s5685_ _s5686_) with + | _s5687_ => + (reg_name_matches_prefix _s5687_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3281_ _)) => - (match (string_drop _s3280_ _s3281_) with - | _s3282_ => - (sep_matches_prefix _s3282_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5688_ _) => + (match (string_drop _s5687_ _s5688_) with + | _s5689_ => + (sep_matches_prefix _s5689_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3283_ _)) => - (match (string_drop _s3282_ _s3283_) with - | _s3284_ => - (reg_name_matches_prefix _s3284_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5690_ _) => + (match (string_drop _s5689_ _s5690_) with + | _s5691_ => + (reg_name_matches_prefix _s5691_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3285_ _)) => - match (string_drop _s3284_ _s3285_) with - | s_ => Some ((rd, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5692_ _) => + match (string_drop _s5691_ _s5692_) with + | s_ => Some (rd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s3267_ (_s3268_ : string) -: M (option ((mword 5 * string))) := - - let _s3269_ := _s3268_ in - (if ((string_startswith _s3269_ "c.jalr")) then - (match (string_drop _s3269_ (projT1 (string_length "c.jalr"))) with - | _s3270_ => - (spc_matches_prefix _s3270_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5674_ (_s5675_ : string) : M (option ((mword 5 * string))) := + let _s5676_ := _s5675_ in + (if string_startswith _s5676_ "c.jalr" then + (match (string_drop _s5676_ (projT1 (string_length "c.jalr"))) with + | _s5677_ => + (spc_matches_prefix _s5677_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3271_ _)) => - (match (string_drop _s3270_ _s3271_) with - | _s3272_ => - (reg_name_matches_prefix _s3272_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5678_ _) => + (match (string_drop _s5677_ _s5678_) with + | _s5679_ => + (reg_name_matches_prefix _s5679_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s3273_ _)) => - match (string_drop _s3272_ _s3273_) with | s_ => Some ((rs1, s_)) end - | _ => None - end) - : option ((mword 5 * string))) + returnm (match w__1 with + | Some (rs1, existT _ _s5680_ _) => + match (string_drop _s5679_ _s5680_) with | s_ => Some (rs1, s_) end + | _ => None + end) end) : M (option ((mword 5 * string))) - | _ => returnm (None : option ((mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * string))) end) : M (option ((mword 5 * string))) - else returnm (None : option ((mword 5 * string)))) + else returnm None) : M (option ((mword 5 * string))). -Definition _s3259_ (_s3260_ : string) -: M (option ((mword 5 * string))) := - - let _s3261_ := _s3260_ in - (if ((string_startswith _s3261_ "c.jr")) then - (match (string_drop _s3261_ (projT1 (string_length "c.jr"))) with - | _s3262_ => - (spc_matches_prefix _s3262_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5666_ (_s5667_ : string) : M (option ((mword 5 * string))) := + let _s5668_ := _s5667_ in + (if string_startswith _s5668_ "c.jr" then + (match (string_drop _s5668_ (projT1 (string_length "c.jr"))) with + | _s5669_ => + (spc_matches_prefix _s5669_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3263_ _)) => - (match (string_drop _s3262_ _s3263_) with - | _s3264_ => - (reg_name_matches_prefix _s3264_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5670_ _) => + (match (string_drop _s5669_ _s5670_) with + | _s5671_ => + (reg_name_matches_prefix _s5671_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__1 with - | Some ((rs1, existT _ _s3265_ _)) => - match (string_drop _s3264_ _s3265_) with | s_ => Some ((rs1, s_)) end - | _ => None - end) - : option ((mword 5 * string))) + returnm (match w__1 with + | Some (rs1, existT _ _s5672_ _) => + match (string_drop _s5671_ _s5672_) with | s_ => Some (rs1, s_) end + | _ => None + end) end) : M (option ((mword 5 * string))) - | _ => returnm (None : option ((mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * string))) end) : M (option ((mword 5 * string))) - else returnm (None : option ((mword 5 * string)))) + else returnm None) : M (option ((mword 5 * string))). -Definition _s3247_ (_s3248_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3249_ := _s3248_ in - (if ((string_startswith _s3249_ "c.sdsp")) then - (match (string_drop _s3249_ (projT1 (string_length "c.sdsp"))) with - | _s3250_ => - (spc_matches_prefix _s3250_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5654_ (_s5655_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5656_ := _s5655_ in + (if string_startswith _s5656_ "c.sdsp" then + (match (string_drop _s5656_ (projT1 (string_length "c.sdsp"))) with + | _s5657_ => + (spc_matches_prefix _s5657_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3251_ _)) => - (match (string_drop _s3250_ _s3251_) with - | _s3252_ => - (reg_name_matches_prefix _s3252_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5658_ _) => + (match (string_drop _s5657_ _s5658_) with + | _s5659_ => + (reg_name_matches_prefix _s5659_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs2, existT _ _s3253_ _)) => - (match (string_drop _s3252_ _s3253_) with - | _s3254_ => - (sep_matches_prefix _s3254_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s5660_ _) => + (match (string_drop _s5659_ _s5660_) with + | _s5661_ => + (sep_matches_prefix _s5661_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3255_ _)) => - match (string_drop _s3254_ _s3255_) with - | _s3256_ => - match (hex_bits_6_matches_prefix _s3256_) with - | Some ((uimm, existT _ _s3257_ _)) => - match (string_drop _s3256_ _s3257_) with - | s_ => Some ((rs2, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5662_ _) => + match (string_drop _s5661_ _s5662_) with + | _s5663_ => + match (hex_bits_6_matches_prefix _s5663_) with + | Some (uimm, existT _ _s5664_ _) => + match (string_drop _s5663_ _s5664_) with + | s_ => Some (rs2, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3235_ (_s3236_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3237_ := _s3236_ in - (if ((string_startswith _s3237_ "c.swsp")) then - (match (string_drop _s3237_ (projT1 (string_length "c.swsp"))) with - | _s3238_ => - (spc_matches_prefix _s3238_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5642_ (_s5643_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5644_ := _s5643_ in + (if string_startswith _s5644_ "c.swsp" then + (match (string_drop _s5644_ (projT1 (string_length "c.swsp"))) with + | _s5645_ => + (spc_matches_prefix _s5645_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3239_ _)) => - (match (string_drop _s3238_ _s3239_) with - | _s3240_ => - (reg_name_matches_prefix _s3240_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5646_ _) => + (match (string_drop _s5645_ _s5646_) with + | _s5647_ => + (reg_name_matches_prefix _s5647_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3241_ _)) => - (match (string_drop _s3240_ _s3241_) with - | _s3242_ => - (sep_matches_prefix _s3242_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5648_ _) => + (match (string_drop _s5647_ _s5648_) with + | _s5649_ => + (sep_matches_prefix _s5649_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3243_ _)) => - match (string_drop _s3242_ _s3243_) with - | _s3244_ => - match (hex_bits_6_matches_prefix _s3244_) with - | Some ((uimm, existT _ _s3245_ _)) => - match (string_drop _s3244_ _s3245_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5650_ _) => + match (string_drop _s5649_ _s5650_) with + | _s5651_ => + match (hex_bits_6_matches_prefix _s5651_) with + | Some (uimm, existT _ _s5652_ _) => + match (string_drop _s5651_ _s5652_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3223_ (_s3224_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3225_ := _s3224_ in - (if ((string_startswith _s3225_ "c.ldsp")) then - (match (string_drop _s3225_ (projT1 (string_length "c.ldsp"))) with - | _s3226_ => - (spc_matches_prefix _s3226_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5630_ (_s5631_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5632_ := _s5631_ in + (if string_startswith _s5632_ "c.ldsp" then + (match (string_drop _s5632_ (projT1 (string_length "c.ldsp"))) with + | _s5633_ => + (spc_matches_prefix _s5633_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3227_ _)) => - (match (string_drop _s3226_ _s3227_) with - | _s3228_ => - (reg_name_matches_prefix _s3228_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5634_ _) => + (match (string_drop _s5633_ _s5634_) with + | _s5635_ => + (reg_name_matches_prefix _s5635_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3229_ _)) => - (match (string_drop _s3228_ _s3229_) with - | _s3230_ => - (sep_matches_prefix _s3230_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5636_ _) => + (match (string_drop _s5635_ _s5636_) with + | _s5637_ => + (sep_matches_prefix _s5637_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3231_ _)) => - match (string_drop _s3230_ _s3231_) with - | _s3232_ => - match (hex_bits_6_matches_prefix _s3232_) with - | Some ((uimm, existT _ _s3233_ _)) => - match (string_drop _s3232_ _s3233_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5638_ _) => + match (string_drop _s5637_ _s5638_) with + | _s5639_ => + match (hex_bits_6_matches_prefix _s5639_) with + | Some (uimm, existT _ _s5640_ _) => + match (string_drop _s5639_ _s5640_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3211_ (_s3212_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3213_ := _s3212_ in - (if ((string_startswith _s3213_ "c.lwsp")) then - (match (string_drop _s3213_ (projT1 (string_length "c.lwsp"))) with - | _s3214_ => - (spc_matches_prefix _s3214_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5618_ (_s5619_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5620_ := _s5619_ in + (if string_startswith _s5620_ "c.lwsp" then + (match (string_drop _s5620_ (projT1 (string_length "c.lwsp"))) with + | _s5621_ => + (spc_matches_prefix _s5621_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3215_ _)) => - (match (string_drop _s3214_ _s3215_) with - | _s3216_ => - (reg_name_matches_prefix _s3216_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5622_ _) => + (match (string_drop _s5621_ _s5622_) with + | _s5623_ => + (reg_name_matches_prefix _s5623_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3217_ _)) => - (match (string_drop _s3216_ _s3217_) with - | _s3218_ => - (sep_matches_prefix _s3218_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5624_ _) => + (match (string_drop _s5623_ _s5624_) with + | _s5625_ => + (sep_matches_prefix _s5625_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3219_ _)) => - match (string_drop _s3218_ _s3219_) with - | _s3220_ => - match (hex_bits_6_matches_prefix _s3220_) with - | Some ((uimm, existT _ _s3221_ _)) => - match (string_drop _s3220_ _s3221_) with - | s_ => Some ((rd, uimm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5626_ _) => + match (string_drop _s5625_ _s5626_) with + | _s5627_ => + match (hex_bits_6_matches_prefix _s5627_) with + | Some (uimm, existT _ _s5628_ _) => + match (string_drop _s5627_ _s5628_) with + | s_ => Some (rd, uimm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3199_ (_s3200_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3201_ := _s3200_ in - (if ((string_startswith _s3201_ "c.slli")) then - (match (string_drop _s3201_ (projT1 (string_length "c.slli"))) with - | _s3202_ => - (spc_matches_prefix _s3202_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5606_ (_s5607_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5608_ := _s5607_ in + (if string_startswith _s5608_ "c.slli" then + (match (string_drop _s5608_ (projT1 (string_length "c.slli"))) with + | _s5609_ => + (spc_matches_prefix _s5609_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3203_ _)) => - (match (string_drop _s3202_ _s3203_) with - | _s3204_ => - (reg_name_matches_prefix _s3204_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5610_ _) => + (match (string_drop _s5609_ _s5610_) with + | _s5611_ => + (reg_name_matches_prefix _s5611_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3205_ _)) => - (match (string_drop _s3204_ _s3205_) with - | _s3206_ => - (sep_matches_prefix _s3206_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5612_ _) => + (match (string_drop _s5611_ _s5612_) with + | _s5613_ => + (sep_matches_prefix _s5613_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3207_ _)) => - match (string_drop _s3206_ _s3207_) with - | _s3208_ => - match (hex_bits_6_matches_prefix _s3208_) with - | Some ((shamt, existT _ _s3209_ _)) => - match (string_drop _s3208_ _s3209_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5614_ _) => + match (string_drop _s5613_ _s5614_) with + | _s5615_ => + match (hex_bits_6_matches_prefix _s5615_) with + | Some (shamt, existT _ _s5616_ _) => + match (string_drop _s5615_ _s5616_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3187_ (_s3188_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s3189_ := _s3188_ in - (if ((string_startswith _s3189_ "c.bnez")) then - (match (string_drop _s3189_ (projT1 (string_length "c.bnez"))) with - | _s3190_ => - (spc_matches_prefix _s3190_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5594_ (_s5595_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s5596_ := _s5595_ in + (if string_startswith _s5596_ "c.bnez" then + (match (string_drop _s5596_ (projT1 (string_length "c.bnez"))) with + | _s5597_ => + (spc_matches_prefix _s5597_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3191_ _)) => - (match (string_drop _s3190_ _s3191_) with - | _s3192_ => - (creg_name_matches_prefix _s3192_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5598_ _) => + (match (string_drop _s5597_ _s5598_) with + | _s5599_ => + (creg_name_matches_prefix _s5599_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s3193_ _)) => - (match (string_drop _s3192_ _s3193_) with - | _s3194_ => - (sep_matches_prefix _s3194_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s5600_ _) => + (match (string_drop _s5599_ _s5600_) with + | _s5601_ => + (sep_matches_prefix _s5601_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3195_ _)) => - match (string_drop _s3194_ _s3195_) with - | _s3196_ => - match (hex_bits_8_matches_prefix _s3196_) with - | Some ((imm, existT _ _s3197_ _)) => - match (string_drop _s3196_ _s3197_) with - | s_ => Some ((rs, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5602_ _) => + match (string_drop _s5601_ _s5602_) with + | _s5603_ => + match (hex_bits_8_matches_prefix _s5603_) with + | Some (imm, existT _ _s5604_ _) => + match (string_drop _s5603_ _s5604_) with + | s_ => Some (rs, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s3175_ (_s3176_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s3177_ := _s3176_ in - (if ((string_startswith _s3177_ "c.beqz")) then - (match (string_drop _s3177_ (projT1 (string_length "c.beqz"))) with - | _s3178_ => - (spc_matches_prefix _s3178_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5582_ (_s5583_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s5584_ := _s5583_ in + (if string_startswith _s5584_ "c.beqz" then + (match (string_drop _s5584_ (projT1 (string_length "c.beqz"))) with + | _s5585_ => + (spc_matches_prefix _s5585_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3179_ _)) => - (match (string_drop _s3178_ _s3179_) with - | _s3180_ => - (creg_name_matches_prefix _s3180_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5586_ _) => + (match (string_drop _s5585_ _s5586_) with + | _s5587_ => + (creg_name_matches_prefix _s5587_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs, existT _ _s3181_ _)) => - (match (string_drop _s3180_ _s3181_) with - | _s3182_ => - (sep_matches_prefix _s3182_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs, existT _ _s5588_ _) => + (match (string_drop _s5587_ _s5588_) with + | _s5589_ => + (sep_matches_prefix _s5589_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3183_ _)) => - match (string_drop _s3182_ _s3183_) with - | _s3184_ => - match (hex_bits_8_matches_prefix _s3184_) with - | Some ((imm, existT _ _s3185_ _)) => - match (string_drop _s3184_ _s3185_) with - | s_ => Some ((rs, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5590_ _) => + match (string_drop _s5589_ _s5590_) with + | _s5591_ => + match (hex_bits_8_matches_prefix _s5591_) with + | Some (imm, existT _ _s5592_ _) => + match (string_drop _s5591_ _s5592_) with + | s_ => Some (rs, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s3167_ (_s3168_ : string) -: M (option ((mword 11 * string))) := - - let _s3169_ := _s3168_ in - (if ((string_startswith _s3169_ "c.j")) then - (match (string_drop _s3169_ (projT1 (string_length "c.j"))) with - | _s3170_ => - (spc_matches_prefix _s3170_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3171_ _)) => - match (string_drop _s3170_ _s3171_) with - | _s3172_ => - match (hex_bits_11_matches_prefix _s3172_) with - | Some ((imm, existT _ _s3173_ _)) => - match (string_drop _s3172_ _s3173_) with | s_ => Some ((imm, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 11 * string))) +Definition _s5574_ (_s5575_ : string) : M (option ((mword 11 * string))) := + let _s5576_ := _s5575_ in + (if string_startswith _s5576_ "c.j" then + (match (string_drop _s5576_ (projT1 (string_length "c.j"))) with + | _s5577_ => + (spc_matches_prefix _s5577_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s5578_ _) => + match (string_drop _s5577_ _s5578_) with + | _s5579_ => + match (hex_bits_11_matches_prefix _s5579_) with + | Some (imm, existT _ _s5580_ _) => + match (string_drop _s5579_ _s5580_) with | s_ => Some (imm, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 11 * string))) - else returnm (None : option ((mword 11 * string)))) + else returnm None) : M (option ((mword 11 * string))). -Definition _s3155_ (_s3156_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3157_ := _s3156_ in - (if ((string_startswith _s3157_ "c.addw")) then - (match (string_drop _s3157_ (projT1 (string_length "c.addw"))) with - | _s3158_ => - (spc_matches_prefix _s3158_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5562_ (_s5563_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5564_ := _s5563_ in + (if string_startswith _s5564_ "c.addw" then + (match (string_drop _s5564_ (projT1 (string_length "c.addw"))) with + | _s5565_ => + (spc_matches_prefix _s5565_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3159_ _)) => - (match (string_drop _s3158_ _s3159_) with - | _s3160_ => - (creg_name_matches_prefix _s3160_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5566_ _) => + (match (string_drop _s5565_ _s5566_) with + | _s5567_ => + (creg_name_matches_prefix _s5567_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3161_ _)) => - (match (string_drop _s3160_ _s3161_) with - | _s3162_ => - (sep_matches_prefix _s3162_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5568_ _) => + (match (string_drop _s5567_ _s5568_) with + | _s5569_ => + (sep_matches_prefix _s5569_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3163_ _)) => - (match (string_drop _s3162_ _s3163_) with - | _s3164_ => - (creg_name_matches_prefix _s3164_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5570_ _) => + (match (string_drop _s5569_ _s5570_) with + | _s5571_ => + (creg_name_matches_prefix _s5571_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3165_ _)) => - match (string_drop _s3164_ _s3165_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5572_ _) => + match (string_drop _s5571_ _s5572_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3143_ (_s3144_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3145_ := _s3144_ in - (if ((string_startswith _s3145_ "c.subw")) then - (match (string_drop _s3145_ (projT1 (string_length "c.subw"))) with - | _s3146_ => - (spc_matches_prefix _s3146_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5550_ (_s5551_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5552_ := _s5551_ in + (if string_startswith _s5552_ "c.subw" then + (match (string_drop _s5552_ (projT1 (string_length "c.subw"))) with + | _s5553_ => + (spc_matches_prefix _s5553_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3147_ _)) => - (match (string_drop _s3146_ _s3147_) with - | _s3148_ => - (creg_name_matches_prefix _s3148_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5554_ _) => + (match (string_drop _s5553_ _s5554_) with + | _s5555_ => + (creg_name_matches_prefix _s5555_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3149_ _)) => - (match (string_drop _s3148_ _s3149_) with - | _s3150_ => - (sep_matches_prefix _s3150_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5556_ _) => + (match (string_drop _s5555_ _s5556_) with + | _s5557_ => + (sep_matches_prefix _s5557_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3151_ _)) => - (match (string_drop _s3150_ _s3151_) with - | _s3152_ => - (creg_name_matches_prefix _s3152_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5558_ _) => + (match (string_drop _s5557_ _s5558_) with + | _s5559_ => + (creg_name_matches_prefix _s5559_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3153_ _)) => - match (string_drop _s3152_ _s3153_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5560_ _) => + match (string_drop _s5559_ _s5560_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3131_ (_s3132_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3133_ := _s3132_ in - (if ((string_startswith _s3133_ "c.and")) then - (match (string_drop _s3133_ (projT1 (string_length "c.and"))) with - | _s3134_ => - (spc_matches_prefix _s3134_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5538_ (_s5539_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5540_ := _s5539_ in + (if string_startswith _s5540_ "c.and" then + (match (string_drop _s5540_ (projT1 (string_length "c.and"))) with + | _s5541_ => + (spc_matches_prefix _s5541_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3135_ _)) => - (match (string_drop _s3134_ _s3135_) with - | _s3136_ => - (creg_name_matches_prefix _s3136_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5542_ _) => + (match (string_drop _s5541_ _s5542_) with + | _s5543_ => + (creg_name_matches_prefix _s5543_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3137_ _)) => - (match (string_drop _s3136_ _s3137_) with - | _s3138_ => - (sep_matches_prefix _s3138_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5544_ _) => + (match (string_drop _s5543_ _s5544_) with + | _s5545_ => + (sep_matches_prefix _s5545_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3139_ _)) => - (match (string_drop _s3138_ _s3139_) with - | _s3140_ => - (creg_name_matches_prefix _s3140_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5546_ _) => + (match (string_drop _s5545_ _s5546_) with + | _s5547_ => + (creg_name_matches_prefix _s5547_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3141_ _)) => - match (string_drop _s3140_ _s3141_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5548_ _) => + match (string_drop _s5547_ _s5548_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3119_ (_s3120_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3121_ := _s3120_ in - (if ((string_startswith _s3121_ "c.or")) then - (match (string_drop _s3121_ (projT1 (string_length "c.or"))) with - | _s3122_ => - (spc_matches_prefix _s3122_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5526_ (_s5527_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5528_ := _s5527_ in + (if string_startswith _s5528_ "c.or" then + (match (string_drop _s5528_ (projT1 (string_length "c.or"))) with + | _s5529_ => + (spc_matches_prefix _s5529_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3123_ _)) => - (match (string_drop _s3122_ _s3123_) with - | _s3124_ => - (creg_name_matches_prefix _s3124_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5530_ _) => + (match (string_drop _s5529_ _s5530_) with + | _s5531_ => + (creg_name_matches_prefix _s5531_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3125_ _)) => - (match (string_drop _s3124_ _s3125_) with - | _s3126_ => - (sep_matches_prefix _s3126_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5532_ _) => + (match (string_drop _s5531_ _s5532_) with + | _s5533_ => + (sep_matches_prefix _s5533_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3127_ _)) => - (match (string_drop _s3126_ _s3127_) with - | _s3128_ => - (creg_name_matches_prefix _s3128_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5534_ _) => + (match (string_drop _s5533_ _s5534_) with + | _s5535_ => + (creg_name_matches_prefix _s5535_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3129_ _)) => - match (string_drop _s3128_ _s3129_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5536_ _) => + match (string_drop _s5535_ _s5536_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3107_ (_s3108_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3109_ := _s3108_ in - (if ((string_startswith _s3109_ "c.xor")) then - (match (string_drop _s3109_ (projT1 (string_length "c.xor"))) with - | _s3110_ => - (spc_matches_prefix _s3110_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5514_ (_s5515_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5516_ := _s5515_ in + (if string_startswith _s5516_ "c.xor" then + (match (string_drop _s5516_ (projT1 (string_length "c.xor"))) with + | _s5517_ => + (spc_matches_prefix _s5517_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3111_ _)) => - (match (string_drop _s3110_ _s3111_) with - | _s3112_ => - (creg_name_matches_prefix _s3112_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5518_ _) => + (match (string_drop _s5517_ _s5518_) with + | _s5519_ => + (creg_name_matches_prefix _s5519_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3113_ _)) => - (match (string_drop _s3112_ _s3113_) with - | _s3114_ => - (sep_matches_prefix _s3114_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5520_ _) => + (match (string_drop _s5519_ _s5520_) with + | _s5521_ => + (sep_matches_prefix _s5521_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3115_ _)) => - (match (string_drop _s3114_ _s3115_) with - | _s3116_ => - (creg_name_matches_prefix _s3116_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5522_ _) => + (match (string_drop _s5521_ _s5522_) with + | _s5523_ => + (creg_name_matches_prefix _s5523_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3117_ _)) => - match (string_drop _s3116_ _s3117_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5524_ _) => + match (string_drop _s5523_ _s5524_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3095_ (_s3096_ : string) -: M (option ((mword 3 * mword 3 * string))) := - - let _s3097_ := _s3096_ in - (if ((string_startswith _s3097_ "c.sub")) then - (match (string_drop _s3097_ (projT1 (string_length "c.sub"))) with - | _s3098_ => - (spc_matches_prefix _s3098_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5502_ (_s5503_ : string) : M (option ((mword 3 * mword 3 * string))) := + let _s5504_ := _s5503_ in + (if string_startswith _s5504_ "c.sub" then + (match (string_drop _s5504_ (projT1 (string_length "c.sub"))) with + | _s5505_ => + (spc_matches_prefix _s5505_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3099_ _)) => - (match (string_drop _s3098_ _s3099_) with - | _s3100_ => - (creg_name_matches_prefix _s3100_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5506_ _) => + (match (string_drop _s5505_ _s5506_) with + | _s5507_ => + (creg_name_matches_prefix _s5507_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3101_ _)) => - (match (string_drop _s3100_ _s3101_) with - | _s3102_ => - (sep_matches_prefix _s3102_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5508_ _) => + (match (string_drop _s5507_ _s5508_) with + | _s5509_ => + (sep_matches_prefix _s5509_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s3103_ _)) => - (match (string_drop _s3102_ _s3103_) with - | _s3104_ => - (creg_name_matches_prefix _s3104_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5510_ _) => + (match (string_drop _s5509_ _s5510_) with + | _s5511_ => + (creg_name_matches_prefix _s5511_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s3105_ _)) => - match (string_drop _s3104_ _s3105_) with - | s_ => Some ((rsd, rs2, s_)) - end - | _ => None - end) - : option ((mword 3 * mword 3 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5512_ _) => + match (string_drop _s5511_ _s5512_) with + | s_ => Some (rsd, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * string))) end) : M (option ((mword 3 * mword 3 * string))) - else returnm (None : option ((mword 3 * mword 3 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * string))). -Definition _s3083_ (_s3084_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3085_ := _s3084_ in - (if ((string_startswith _s3085_ "c.andi")) then - (match (string_drop _s3085_ (projT1 (string_length "c.andi"))) with - | _s3086_ => - (spc_matches_prefix _s3086_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5490_ (_s5491_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s5492_ := _s5491_ in + (if string_startswith _s5492_ "c.andi" then + (match (string_drop _s5492_ (projT1 (string_length "c.andi"))) with + | _s5493_ => + (spc_matches_prefix _s5493_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3087_ _)) => - (match (string_drop _s3086_ _s3087_) with - | _s3088_ => - (creg_name_matches_prefix _s3088_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5494_ _) => + (match (string_drop _s5493_ _s5494_) with + | _s5495_ => + (creg_name_matches_prefix _s5495_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3089_ _)) => - (match (string_drop _s3088_ _s3089_) with - | _s3090_ => - (sep_matches_prefix _s3090_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5496_ _) => + (match (string_drop _s5495_ _s5496_) with + | _s5497_ => + (sep_matches_prefix _s5497_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3091_ _)) => - match (string_drop _s3090_ _s3091_) with - | _s3092_ => - match (hex_bits_6_matches_prefix _s3092_) with - | Some ((imm, existT _ _s3093_ _)) => - match (string_drop _s3092_ _s3093_) with - | s_ => Some ((rsd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5498_ _) => + match (string_drop _s5497_ _s5498_) with + | _s5499_ => + match (hex_bits_6_matches_prefix _s5499_) with + | Some (imm, existT _ _s5500_ _) => + match (string_drop _s5499_ _s5500_) with + | s_ => Some (rsd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3071_ (_s3072_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3073_ := _s3072_ in - (if ((string_startswith _s3073_ "c.srai")) then - (match (string_drop _s3073_ (projT1 (string_length "c.srai"))) with - | _s3074_ => - (spc_matches_prefix _s3074_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5478_ (_s5479_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s5480_ := _s5479_ in + (if string_startswith _s5480_ "c.srai" then + (match (string_drop _s5480_ (projT1 (string_length "c.srai"))) with + | _s5481_ => + (spc_matches_prefix _s5481_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3075_ _)) => - (match (string_drop _s3074_ _s3075_) with - | _s3076_ => - (creg_name_matches_prefix _s3076_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5482_ _) => + (match (string_drop _s5481_ _s5482_) with + | _s5483_ => + (creg_name_matches_prefix _s5483_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3077_ _)) => - (match (string_drop _s3076_ _s3077_) with - | _s3078_ => - (sep_matches_prefix _s3078_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5484_ _) => + (match (string_drop _s5483_ _s5484_) with + | _s5485_ => + (sep_matches_prefix _s5485_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3079_ _)) => - match (string_drop _s3078_ _s3079_) with - | _s3080_ => - match (hex_bits_6_matches_prefix _s3080_) with - | Some ((shamt, existT _ _s3081_ _)) => - match (string_drop _s3080_ _s3081_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5486_ _) => + match (string_drop _s5485_ _s5486_) with + | _s5487_ => + match (hex_bits_6_matches_prefix _s5487_) with + | Some (shamt, existT _ _s5488_ _) => + match (string_drop _s5487_ _s5488_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3059_ (_s3060_ : string) -: M (option ((mword 3 * mword 6 * string))) := - - let _s3061_ := _s3060_ in - (if ((string_startswith _s3061_ "c.srli")) then - (match (string_drop _s3061_ (projT1 (string_length "c.srli"))) with - | _s3062_ => - (spc_matches_prefix _s3062_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5466_ (_s5467_ : string) : M (option ((mword 3 * mword 6 * string))) := + let _s5468_ := _s5467_ in + (if string_startswith _s5468_ "c.srli" then + (match (string_drop _s5468_ (projT1 (string_length "c.srli"))) with + | _s5469_ => + (spc_matches_prefix _s5469_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3063_ _)) => - (match (string_drop _s3062_ _s3063_) with - | _s3064_ => - (creg_name_matches_prefix _s3064_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5470_ _) => + (match (string_drop _s5469_ _s5470_) with + | _s5471_ => + (creg_name_matches_prefix _s5471_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3065_ _)) => - (match (string_drop _s3064_ _s3065_) with - | _s3066_ => - (sep_matches_prefix _s3066_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5472_ _) => + (match (string_drop _s5471_ _s5472_) with + | _s5473_ => + (sep_matches_prefix _s5473_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3067_ _)) => - match (string_drop _s3066_ _s3067_) with - | _s3068_ => - match (hex_bits_6_matches_prefix _s3068_) with - | Some ((shamt, existT _ _s3069_ _)) => - match (string_drop _s3068_ _s3069_) with - | s_ => Some ((rsd, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5474_ _) => + match (string_drop _s5473_ _s5474_) with + | _s5475_ => + match (hex_bits_6_matches_prefix _s5475_) with + | Some (shamt, existT _ _s5476_ _) => + match (string_drop _s5475_ _s5476_) with + | s_ => Some (rsd, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - | _ => returnm (None : option ((mword 3 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 6 * string))) end) : M (option ((mword 3 * mword 6 * string))) - else returnm (None : option ((mword 3 * mword 6 * string)))) + else returnm None) : M (option ((mword 3 * mword 6 * string))). -Definition _s3047_ (_s3048_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3049_ := _s3048_ in - (if ((string_startswith _s3049_ "c.lui")) then - (match (string_drop _s3049_ (projT1 (string_length "c.lui"))) with - | _s3050_ => - (spc_matches_prefix _s3050_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5454_ (_s5455_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5456_ := _s5455_ in + (if string_startswith _s5456_ "c.lui" then + (match (string_drop _s5456_ (projT1 (string_length "c.lui"))) with + | _s5457_ => + (spc_matches_prefix _s5457_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3051_ _)) => - (match (string_drop _s3050_ _s3051_) with - | _s3052_ => - (reg_name_matches_prefix _s3052_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5458_ _) => + (match (string_drop _s5457_ _s5458_) with + | _s5459_ => + (reg_name_matches_prefix _s5459_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3053_ _)) => - (match (string_drop _s3052_ _s3053_) with - | _s3054_ => - (sep_matches_prefix _s3054_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5460_ _) => + (match (string_drop _s5459_ _s5460_) with + | _s5461_ => + (sep_matches_prefix _s5461_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3055_ _)) => - match (string_drop _s3054_ _s3055_) with - | _s3056_ => - match (hex_bits_6_matches_prefix _s3056_) with - | Some ((imm, existT _ _s3057_ _)) => - match (string_drop _s3056_ _s3057_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5462_ _) => + match (string_drop _s5461_ _s5462_) with + | _s5463_ => + match (hex_bits_6_matches_prefix _s5463_) with + | Some (imm, existT _ _s5464_ _) => + match (string_drop _s5463_ _s5464_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3039_ (_s3040_ : string) -: M (option ((mword 6 * string))) := - - let _s3041_ := _s3040_ in - (if ((string_startswith _s3041_ "c.addi16sp")) then - (match (string_drop _s3041_ (projT1 (string_length "c.addi16sp"))) with - | _s3042_ => - (spc_matches_prefix _s3042_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3043_ _)) => - match (string_drop _s3042_ _s3043_) with - | _s3044_ => - match (hex_bits_6_matches_prefix _s3044_) with - | Some ((imm, existT _ _s3045_ _)) => - match (string_drop _s3044_ _s3045_) with | s_ => Some ((imm, s_)) end - | _ => None - end - end - | _ => None - end) - : option ((mword 6 * string))) +Definition _s5446_ (_s5447_ : string) : M (option ((mword 6 * string))) := + let _s5448_ := _s5447_ in + (if string_startswith _s5448_ "c.addi16sp" then + (match (string_drop _s5448_ (projT1 (string_length "c.addi16sp"))) with + | _s5449_ => + (spc_matches_prefix _s5449_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s5450_ _) => + match (string_drop _s5449_ _s5450_) with + | _s5451_ => + match (hex_bits_6_matches_prefix _s5451_) with + | Some (imm, existT _ _s5452_ _) => + match (string_drop _s5451_ _s5452_) with | s_ => Some (imm, s_) end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 6 * string))) - else returnm (None : option ((mword 6 * string)))) + else returnm None) : M (option ((mword 6 * string))). -Definition _s3027_ (_s3028_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3029_ := _s3028_ in - (if ((string_startswith _s3029_ "c.li")) then - (match (string_drop _s3029_ (projT1 (string_length "c.li"))) with - | _s3030_ => - (spc_matches_prefix _s3030_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5434_ (_s5435_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5436_ := _s5435_ in + (if string_startswith _s5436_ "c.li" then + (match (string_drop _s5436_ (projT1 (string_length "c.li"))) with + | _s5437_ => + (spc_matches_prefix _s5437_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3031_ _)) => - (match (string_drop _s3030_ _s3031_) with - | _s3032_ => - (reg_name_matches_prefix _s3032_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5438_ _) => + (match (string_drop _s5437_ _s5438_) with + | _s5439_ => + (reg_name_matches_prefix _s5439_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s3033_ _)) => - (match (string_drop _s3032_ _s3033_) with - | _s3034_ => - (sep_matches_prefix _s3034_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5440_ _) => + (match (string_drop _s5439_ _s5440_) with + | _s5441_ => + (sep_matches_prefix _s5441_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3035_ _)) => - match (string_drop _s3034_ _s3035_) with - | _s3036_ => - match (hex_bits_6_matches_prefix _s3036_) with - | Some ((imm, existT _ _s3037_ _)) => - match (string_drop _s3036_ _s3037_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5442_ _) => + match (string_drop _s5441_ _s5442_) with + | _s5443_ => + match (hex_bits_6_matches_prefix _s5443_) with + | Some (imm, existT _ _s5444_ _) => + match (string_drop _s5443_ _s5444_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3015_ (_s3016_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s3017_ := _s3016_ in - (if ((string_startswith _s3017_ "c.addiw")) then - (match (string_drop _s3017_ (projT1 (string_length "c.addiw"))) with - | _s3018_ => - (spc_matches_prefix _s3018_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5422_ (_s5423_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5424_ := _s5423_ in + (if string_startswith _s5424_ "c.addiw" then + (match (string_drop _s5424_ (projT1 (string_length "c.addiw"))) with + | _s5425_ => + (spc_matches_prefix _s5425_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s3019_ _)) => - (match (string_drop _s3018_ _s3019_) with - | _s3020_ => - (reg_name_matches_prefix _s3020_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5426_ _) => + (match (string_drop _s5425_ _s5426_) with + | _s5427_ => + (reg_name_matches_prefix _s5427_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3021_ _)) => - (match (string_drop _s3020_ _s3021_) with - | _s3022_ => - (sep_matches_prefix _s3022_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5428_ _) => + (match (string_drop _s5427_ _s5428_) with + | _s5429_ => + (sep_matches_prefix _s5429_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3023_ _)) => - match (string_drop _s3022_ _s3023_) with - | _s3024_ => - match (hex_bits_6_matches_prefix _s3024_) with - | Some ((imm, existT _ _s3025_ _)) => - match (string_drop _s3024_ _s3025_) with - | s_ => Some ((rsd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5430_ _) => + match (string_drop _s5429_ _s5430_) with + | _s5431_ => + match (hex_bits_6_matches_prefix _s5431_) with + | Some (imm, existT _ _s5432_ _) => + match (string_drop _s5431_ _s5432_) with + | s_ => Some (rsd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s3007_ (_s3008_ : string) -: M (option ((mword 11 * string))) := - - let _s3009_ := _s3008_ in - (if ((string_startswith _s3009_ "c.jal")) then - (match (string_drop _s3009_ (projT1 (string_length "c.jal"))) with - | _s3010_ => - (spc_matches_prefix _s3010_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => - returnm ((match w__0 with - | Some ((tt, existT _ _s3011_ _)) => - match (string_drop _s3010_ _s3011_) with - | _s3012_ => - match (hex_bits_12_matches_prefix _s3012_) with - | Some ((v__826, existT _ _s3013_ _)) => - if ((eq_vec (subrange_vec_dec v__826 0 0) - (vec_of_bits [B0] : mword (0 - 0 + 1)))) then - let imm : mword 11 := subrange_vec_dec v__826 11 1 in - let imm : mword 11 := subrange_vec_dec v__826 11 1 in - match (string_drop _s3012_ _s3013_) with | s_ => Some ((imm, s_)) end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 11 * string))) +Definition _s5414_ (_s5415_ : string) : M (option ((mword 11 * string))) := + let _s5416_ := _s5415_ in + (if string_startswith _s5416_ "c.jal" then + (match (string_drop _s5416_ (projT1 (string_length "c.jal"))) with + | _s5417_ => + (spc_matches_prefix _s5417_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => + returnm (match w__0 with + | Some (tt, existT _ _s5418_ _) => + match (string_drop _s5417_ _s5418_) with + | _s5419_ => + match (hex_bits_12_matches_prefix _s5419_) with + | Some (v__1386, existT _ _s5420_ _) => + if eq_vec (subrange_vec_dec v__1386 0 0) ('b"0" : mword (0 - 0 + 1)) + then + let imm : mword 11 := subrange_vec_dec v__1386 11 1 in + let imm : mword 11 := subrange_vec_dec v__1386 11 1 in + match (string_drop _s5419_ _s5420_) with | s_ => Some (imm, s_) end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 11 * string))) - else returnm (None : option ((mword 11 * string)))) + else returnm None) : M (option ((mword 11 * string))). -Definition _s2995_ (_s2996_ : string) -: M (option ((mword 5 * mword 6 * string))) := - - let _s2997_ := _s2996_ in - (if ((string_startswith _s2997_ "c.addi")) then - (match (string_drop _s2997_ (projT1 (string_length "c.addi"))) with - | _s2998_ => - (spc_matches_prefix _s2998_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5402_ (_s5403_ : string) : M (option ((mword 5 * mword 6 * string))) := + let _s5404_ := _s5403_ in + (if string_startswith _s5404_ "c.addi" then + (match (string_drop _s5404_ (projT1 (string_length "c.addi"))) with + | _s5405_ => + (spc_matches_prefix _s5405_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2999_ _)) => - (match (string_drop _s2998_ _s2999_) with - | _s3000_ => - (reg_name_matches_prefix _s3000_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5406_ _) => + (match (string_drop _s5405_ _s5406_) with + | _s5407_ => + (reg_name_matches_prefix _s5407_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsd, existT _ _s3001_ _)) => - (match (string_drop _s3000_ _s3001_) with - | _s3002_ => - (sep_matches_prefix _s3002_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsd, existT _ _s5408_ _) => + (match (string_drop _s5407_ _s5408_) with + | _s5409_ => + (sep_matches_prefix _s5409_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s3003_ _)) => - match (string_drop _s3002_ _s3003_) with - | _s3004_ => - match (hex_bits_6_matches_prefix _s3004_) with - | Some ((nzi, existT _ _s3005_ _)) => - match (string_drop _s3004_ _s3005_) with - | s_ => Some ((rsd, nzi, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 6 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5410_ _) => + match (string_drop _s5409_ _s5410_) with + | _s5411_ => + match (hex_bits_6_matches_prefix _s5411_) with + | Some (nzi, existT _ _s5412_ _) => + match (string_drop _s5411_ _s5412_) with + | s_ => Some (rsd, nzi, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - | _ => returnm (None : option ((mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 6 * string))) end) : M (option ((mword 5 * mword 6 * string))) - else returnm (None : option ((mword 5 * mword 6 * string)))) + else returnm None) : M (option ((mword 5 * mword 6 * string))). -Definition _s2979_ (_s2980_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2981_ := _s2980_ in - (if ((string_startswith _s2981_ "c.sd")) then - (match (string_drop _s2981_ (projT1 (string_length "c.sd"))) with - | _s2982_ => - (spc_matches_prefix _s2982_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5386_ (_s5387_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5388_ := _s5387_ in + (if string_startswith _s5388_ "c.sd" then + (match (string_drop _s5388_ (projT1 (string_length "c.sd"))) with + | _s5389_ => + (spc_matches_prefix _s5389_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2983_ _)) => - (match (string_drop _s2982_ _s2983_) with - | _s2984_ => - (creg_name_matches_prefix _s2984_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5390_ _) => + (match (string_drop _s5389_ _s5390_) with + | _s5391_ => + (creg_name_matches_prefix _s5391_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2985_ _)) => - (match (string_drop _s2984_ _s2985_) with - | _s2986_ => - (sep_matches_prefix _s2986_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s5392_ _) => + (match (string_drop _s5391_ _s5392_) with + | _s5393_ => + (sep_matches_prefix _s5393_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2987_ _)) => - (match (string_drop _s2986_ _s2987_) with - | _s2988_ => - (creg_name_matches_prefix _s2988_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5394_ _) => + (match (string_drop _s5393_ _s5394_) with + | _s5395_ => + (creg_name_matches_prefix _s5395_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2989_ _)) => - (match (string_drop _s2988_ _s2989_) with - | _s2990_ => - (sep_matches_prefix _s2990_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s5396_ _) => + (match (string_drop _s5395_ _s5396_) with + | _s5397_ => + (sep_matches_prefix _s5397_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2991_ _)) => - match (string_drop _s2990_ _s2991_) with - | _s2992_ => - match (hex_bits_8_matches_prefix _s2992_) with - | Some ((v__828, existT _ _s2993_ _)) => - if ((eq_vec - (subrange_vec_dec v__828 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__828 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__828 7 3 in - match (string_drop _s2992_ _s2993_) with - | s_ => Some ((rsc1, rsc2, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s5398_ _) => + match (string_drop _s5397_ _s5398_) with + | _s5399_ => + match (hex_bits_8_matches_prefix _s5399_) with + | Some (v__1388, existT _ _s5400_ _) => + if eq_vec (subrange_vec_dec v__1388 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1388 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1388 7 3 in + match (string_drop _s5399_ _s5400_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2963_ (_s2964_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2965_ := _s2964_ in - (if ((string_startswith _s2965_ "c.sw")) then - (match (string_drop _s2965_ (projT1 (string_length "c.sw"))) with - | _s2966_ => - (spc_matches_prefix _s2966_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5370_ (_s5371_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5372_ := _s5371_ in + (if string_startswith _s5372_ "c.sw" then + (match (string_drop _s5372_ (projT1 (string_length "c.sw"))) with + | _s5373_ => + (spc_matches_prefix _s5373_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2967_ _)) => - (match (string_drop _s2966_ _s2967_) with - | _s2968_ => - (creg_name_matches_prefix _s2968_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5374_ _) => + (match (string_drop _s5373_ _s5374_) with + | _s5375_ => + (creg_name_matches_prefix _s5375_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rsc1, existT _ _s2969_ _)) => - (match (string_drop _s2968_ _s2969_) with - | _s2970_ => - (sep_matches_prefix _s2970_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc1, existT _ _s5376_ _) => + (match (string_drop _s5375_ _s5376_) with + | _s5377_ => + (sep_matches_prefix _s5377_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2971_ _)) => - (match (string_drop _s2970_ _s2971_) with - | _s2972_ => - (creg_name_matches_prefix _s2972_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5378_ _) => + (match (string_drop _s5377_ _s5378_) with + | _s5379_ => + (creg_name_matches_prefix _s5379_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc2, existT _ _s2973_ _)) => - (match (string_drop _s2972_ _s2973_) with - | _s2974_ => - (sep_matches_prefix _s2974_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc2, existT _ _s5380_ _) => + (match (string_drop _s5379_ _s5380_) with + | _s5381_ => + (sep_matches_prefix _s5381_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2975_ _)) => - match (string_drop _s2974_ _s2975_) with - | _s2976_ => - match (hex_bits_7_matches_prefix _s2976_) with - | Some ((v__830, existT _ _s2977_ _)) => - if ((eq_vec - (subrange_vec_dec v__830 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__830 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__830 6 2 in - match (string_drop _s2976_ _s2977_) with - | s_ => Some ((rsc1, rsc2, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s5382_ _) => + match (string_drop _s5381_ _s5382_) with + | _s5383_ => + match (hex_bits_7_matches_prefix _s5383_) with + | Some (v__1390, existT _ _s5384_ _) => + if eq_vec (subrange_vec_dec v__1390 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1390 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1390 6 2 in + match (string_drop _s5383_ _s5384_) with + | s_ => Some (rsc1, rsc2, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2947_ (_s2948_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2949_ := _s2948_ in - (if ((string_startswith _s2949_ "c.ld")) then - (match (string_drop _s2949_ (projT1 (string_length "c.ld"))) with - | _s2950_ => - (spc_matches_prefix _s2950_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5354_ (_s5355_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5356_ := _s5355_ in + (if string_startswith _s5356_ "c.ld" then + (match (string_drop _s5356_ (projT1 (string_length "c.ld"))) with + | _s5357_ => + (spc_matches_prefix _s5357_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2951_ _)) => - (match (string_drop _s2950_ _s2951_) with - | _s2952_ => - (creg_name_matches_prefix _s2952_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5358_ _) => + (match (string_drop _s5357_ _s5358_) with + | _s5359_ => + (creg_name_matches_prefix _s5359_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2953_ _)) => - (match (string_drop _s2952_ _s2953_) with - | _s2954_ => - (sep_matches_prefix _s2954_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s5360_ _) => + (match (string_drop _s5359_ _s5360_) with + | _s5361_ => + (sep_matches_prefix _s5361_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2955_ _)) => - (match (string_drop _s2954_ _s2955_) with - | _s2956_ => - (creg_name_matches_prefix _s2956_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5362_ _) => + (match (string_drop _s5361_ _s5362_) with + | _s5363_ => + (creg_name_matches_prefix _s5363_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2957_ _)) => - (match (string_drop _s2956_ _s2957_) with - | _s2958_ => - (sep_matches_prefix _s2958_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s5364_ _) => + (match (string_drop _s5363_ _s5364_) with + | _s5365_ => + (sep_matches_prefix _s5365_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2959_ _)) => - match (string_drop _s2958_ _s2959_) with - | _s2960_ => - match (hex_bits_8_matches_prefix _s2960_) with - | Some ((v__832, existT _ _s2961_ _)) => - if ((eq_vec - (subrange_vec_dec v__832 2 0) - (vec_of_bits [B0;B0;B0] - : mword (2 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__832 7 3 in - let uimm : mword 5 := - subrange_vec_dec v__832 7 3 in - match (string_drop _s2960_ _s2961_) with - | s_ => Some ((rdc, rsc, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s5366_ _) => + match (string_drop _s5365_ _s5366_) with + | _s5367_ => + match (hex_bits_8_matches_prefix _s5367_) with + | Some (v__1392, existT _ _s5368_ _) => + if eq_vec (subrange_vec_dec v__1392 2 0) + ('b"000" + : mword (2 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1392 7 3 in + let uimm : mword 5 := + subrange_vec_dec v__1392 7 3 in + match (string_drop _s5367_ _s5368_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2931_ (_s2932_ : string) -: M (option ((mword 3 * mword 3 * mword 5 * string))) := - - let _s2933_ := _s2932_ in - (if ((string_startswith _s2933_ "c.lw")) then - (match (string_drop _s2933_ (projT1 (string_length "c.lw"))) with - | _s2934_ => - (spc_matches_prefix _s2934_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5338_ (_s5339_ : string) : M (option ((mword 3 * mword 3 * mword 5 * string))) := + let _s5340_ := _s5339_ in + (if string_startswith _s5340_ "c.lw" then + (match (string_drop _s5340_ (projT1 (string_length "c.lw"))) with + | _s5341_ => + (spc_matches_prefix _s5341_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2935_ _)) => - (match (string_drop _s2934_ _s2935_) with - | _s2936_ => - (creg_name_matches_prefix _s2936_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5342_ _) => + (match (string_drop _s5341_ _s5342_) with + | _s5343_ => + (creg_name_matches_prefix _s5343_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2937_ _)) => - (match (string_drop _s2936_ _s2937_) with - | _s2938_ => - (sep_matches_prefix _s2938_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s5344_ _) => + (match (string_drop _s5343_ _s5344_) with + | _s5345_ => + (sep_matches_prefix _s5345_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2939_ _)) => - (match (string_drop _s2938_ _s2939_) with - | _s2940_ => - (creg_name_matches_prefix _s2940_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5346_ _) => + (match (string_drop _s5345_ _s5346_) with + | _s5347_ => + (creg_name_matches_prefix _s5347_) >>= fun w__3 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rsc, existT _ _s2941_ _)) => - (match (string_drop _s2940_ _s2941_) with - | _s2942_ => - (sep_matches_prefix _s2942_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rsc, existT _ _s5348_ _) => + (match (string_drop _s5347_ _s5348_) with + | _s5349_ => + (sep_matches_prefix _s5349_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2943_ _)) => - match (string_drop _s2942_ _s2943_) with - | _s2944_ => - match (hex_bits_7_matches_prefix _s2944_) with - | Some ((v__834, existT _ _s2945_ _)) => - if ((eq_vec - (subrange_vec_dec v__834 1 0) - (vec_of_bits [B0;B0] - : mword (1 - 0 + 1)))) then - let uimm : mword 5 := - subrange_vec_dec v__834 6 2 in - let uimm : mword 5 := - subrange_vec_dec v__834 6 2 in - match (string_drop _s2944_ _s2945_) with - | s_ => Some ((rdc, rsc, uimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 3 * mword 5 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s5350_ _) => + match (string_drop _s5349_ _s5350_) with + | _s5351_ => + match (hex_bits_7_matches_prefix _s5351_) with + | Some (v__1394, existT _ _s5352_ _) => + if eq_vec (subrange_vec_dec v__1394 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let uimm : mword 5 := + subrange_vec_dec v__1394 6 2 in + let uimm : mword 5 := + subrange_vec_dec v__1394 6 2 in + match (string_drop _s5351_ _s5352_) with + | s_ => Some (rdc, rsc, uimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => - returnm (None - : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - | _ => returnm (None : option ((mword 3 * mword 3 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 3 * mword 5 * string))) end) : M (option ((mword 3 * mword 3 * mword 5 * string))) - else returnm (None : option ((mword 3 * mword 3 * mword 5 * string)))) + else returnm None) : M (option ((mword 3 * mword 3 * mword 5 * string))). -Definition _s2919_ (_s2920_ : string) -: M (option ((mword 3 * mword 8 * string))) := - - let _s2921_ := _s2920_ in - (if ((string_startswith _s2921_ "c.addi4spn")) then - (match (string_drop _s2921_ (projT1 (string_length "c.addi4spn"))) with - | _s2922_ => - (spc_matches_prefix _s2922_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5326_ (_s5327_ : string) : M (option ((mword 3 * mword 8 * string))) := + let _s5328_ := _s5327_ in + (if string_startswith _s5328_ "c.addi4spn" then + (match (string_drop _s5328_ (projT1 (string_length "c.addi4spn"))) with + | _s5329_ => + (spc_matches_prefix _s5329_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2923_ _)) => - (match (string_drop _s2922_ _s2923_) with - | _s2924_ => - (creg_name_matches_prefix _s2924_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5330_ _) => + (match (string_drop _s5329_ _s5330_) with + | _s5331_ => + (creg_name_matches_prefix _s5331_) >>= fun w__1 : option ((mword 3 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rdc, existT _ _s2925_ _)) => - (match (string_drop _s2924_ _s2925_) with - | _s2926_ => - (sep_matches_prefix _s2926_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rdc, existT _ _s5332_ _) => + (match (string_drop _s5331_ _s5332_) with + | _s5333_ => + (sep_matches_prefix _s5333_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2927_ _)) => - match (string_drop _s2926_ _s2927_) with - | _s2928_ => - match (hex_bits_10_matches_prefix _s2928_) with - | Some ((v__836, existT _ _s2929_ _)) => - if ((eq_vec (subrange_vec_dec v__836 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1)))) - then - let nzimm : mword 8 := subrange_vec_dec v__836 9 2 in - let nzimm : mword 8 := subrange_vec_dec v__836 9 2 in - match (string_drop _s2928_ _s2929_) with - | s_ => Some ((rdc, nzimm, s_)) - end - else None - | _ => None - end - end - | _ => None - end) - : option ((mword 3 * mword 8 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s5334_ _) => + match (string_drop _s5333_ _s5334_) with + | _s5335_ => + match (hex_bits_10_matches_prefix _s5335_) with + | Some (v__1396, existT _ _s5336_ _) => + if eq_vec (subrange_vec_dec v__1396 1 0) + ('b"00" + : mword (1 - 0 + 1)) then + let nzimm : mword 8 := subrange_vec_dec v__1396 9 2 in + let nzimm : mword 8 := subrange_vec_dec v__1396 9 2 in + match (string_drop _s5335_ _s5336_) with + | s_ => Some (rdc, nzimm, s_) + end + else None + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - | _ => returnm (None : option ((mword 3 * mword 8 * string))) + | _ => returnm None end) : M (option ((mword 3 * mword 8 * string))) end) : M (option ((mword 3 * mword 8 * string))) - else returnm (None : option ((mword 3 * mword 8 * string)))) + else returnm None) : M (option ((mword 3 * mword 8 * string))). -Definition _s2915_ (_s2916_ : string) -: option string := - - let _s2917_ := _s2916_ in - if ((string_startswith _s2917_ "c.nop")) then - match (string_drop _s2917_ (projT1 (string_length "c.nop"))) with | s_ => Some (s_) end +Definition _s5322_ (_s5323_ : string) : option string := + let _s5324_ := _s5323_ in + if string_startswith _s5324_ "c.nop" then + match (string_drop _s5324_ (projT1 (string_length "c.nop"))) with | s_ => Some s_ end else None. -Definition _s2891_ (_s2892_ : string) +Definition _s5296_ (_s5297_ : string) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2892_ with - | _s2893_ => - (amo_mnemonic_matches_prefix _s2893_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >= + (match _s5297_ with + | _s5298_ => + (amo_mnemonic_matches_prefix _s5298_) >>= fun w__0 : option ((amoop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2894_ _)) => - let _s2895_ := string_drop _s2893_ _s2894_ in - (if ((string_startswith _s2895_ ".")) then - (match (string_drop _s2895_ (projT1 (string_length "."))) with - | _s2896_ => - (size_mnemonic_matches_prefix _s2896_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5299_ _) => + let _s5300_ := string_drop _s5298_ _s5299_ in + (if string_startswith _s5300_ "." then + (match (string_drop _s5300_ (projT1 (string_length "."))) with + | _s5301_ => + (size_mnemonic_matches_prefix _s5301_) >>= fun w__1 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((width, existT _ _s2897_ _)) => - (match (string_drop _s2896_ _s2897_) with - | _s2898_ => - (maybe_aq_matches_prefix _s2898_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (width, existT _ _s5302_ _) => + (match (string_drop _s5301_ _s5302_) with + | _s5303_ => + (maybe_aq_matches_prefix _s5303_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2899_ _)) => - (match (string_drop _s2898_ _s2899_) with - | _s2900_ => - (maybe_rl_matches_prefix _s2900_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s5304_ _) => + (match (string_drop _s5303_ _s5304_) with + | _s5305_ => + (maybe_rl_matches_prefix _s5305_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2901_ _)) => - (match (string_drop _s2900_ _s2901_) with - | _s2902_ => - (spc_matches_prefix _s2902_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s5306_ _) => + (match (string_drop _s5305_ _s5306_) with + | _s5307_ => + (spc_matches_prefix _s5307_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2903_ _)) => - (match (string_drop _s2902_ _s2903_) with - | _s2904_ => - (reg_name_matches_prefix _s2904_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5308_ _) => + (match (string_drop _s5307_ _s5308_) with + | _s5309_ => + (reg_name_matches_prefix _s5309_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2905_ _)) => - (match (string_drop _s2904_ _s2905_) with - | _s2906_ => - (sep_matches_prefix _s2906_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5310_ _) => + (match (string_drop _s5309_ _s5310_) with + | _s5311_ => + (sep_matches_prefix _s5311_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2907_ _)) => - (match (string_drop _s2906_ _s2907_) with - | _s2908_ => - (reg_name_matches_prefix _s2908_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5312_ _) => + (match (string_drop _s5311_ _s5312_) with + | _s5313_ => + (reg_name_matches_prefix _s5313_) >>= fun w__7 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some - ((rs1, existT _ _s2909_ _)) => - (match (string_drop _s2908_ - _s2909_) with - | _s2910_ => + | Some (rs2, existT _ _s5314_ _) => + (match (string_drop _s5313_ + _s5314_) with + | _s5315_ => (sep_matches_prefix - _s2910_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s5315_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2911_ _)) => - (match (string_drop - _s2910_ - _s2911_) with - | _s2912_ => - (reg_name_matches_prefix - _s2912_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= - 0)})) => - returnm ((match w__9 with - | Some - ((rs2, existT _ _s2913_ _)) => - match (string_drop - _s2912_ - _s2913_) with - | s_ => - Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) - end - | _ => - None - end) - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - end) + (tt, existT _ _s5316_ _) => + let _s5317_ := + string_drop _s5315_ + _s5316_ in + (if string_startswith + _s5317_ "(" then + (match (string_drop + _s5317_ + (projT1 + (string_length + "("))) with + | _s5318_ => + (reg_name_matches_prefix + _s5318_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? + 0)})) => + returnm (match w__9 with + | Some + (rs1, existT _ _s5319_ _) => + let _s5320_ := + string_drop + _s5318_ + _s5319_ in + if string_startswith + _s5320_ + ")" + then + match (string_drop + _s5320_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (op, width, aq, rl, rd, rs2, rs1, s_) + end + else + None + | _ => + None + end) + end) + : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - else - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s2869_ (_s2870_ : string) +Definition _s5274_ (_s5275_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) := - - let _s2871_ := _s2870_ in - (if ((string_startswith _s2871_ "sc.")) then - (match (string_drop _s2871_ (projT1 (string_length "sc."))) with - | _s2872_ => - (size_mnemonic_matches_prefix _s2872_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s5276_ := _s5275_ in + (if string_startswith _s5276_ "sc." then + (match (string_drop _s5276_ (projT1 (string_length "sc."))) with + | _s5277_ => + (size_mnemonic_matches_prefix _s5277_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2873_ _)) => - (match (string_drop _s2872_ _s2873_) with - | _s2874_ => - (maybe_aq_matches_prefix _s2874_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s5278_ _) => + (match (string_drop _s5277_ _s5278_) with + | _s5279_ => + (maybe_aq_matches_prefix _s5279_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2875_ _)) => - (match (string_drop _s2874_ _s2875_) with - | _s2876_ => - (maybe_rl_matches_prefix _s2876_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s5280_ _) => + (match (string_drop _s5279_ _s5280_) with + | _s5281_ => + (maybe_rl_matches_prefix _s5281_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2877_ _)) => - (match (string_drop _s2876_ _s2877_) with - | _s2878_ => - (spc_matches_prefix _s2878_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s5282_ _) => + (match (string_drop _s5281_ _s5282_) with + | _s5283_ => + (spc_matches_prefix _s5283_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2879_ _)) => - (match (string_drop _s2878_ _s2879_) with - | _s2880_ => - (reg_name_matches_prefix _s2880_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5284_ _) => + (match (string_drop _s5283_ _s5284_) with + | _s5285_ => + (reg_name_matches_prefix _s5285_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s2881_ _)) => - (match (string_drop _s2880_ _s2881_) with - | _s2882_ => - (sep_matches_prefix _s2882_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5286_ _) => + (match (string_drop _s5285_ _s5286_) with + | _s5287_ => + (sep_matches_prefix _s5287_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2883_ _)) => - (match (string_drop _s2882_ _s2883_) with - | _s2884_ => - (reg_name_matches_prefix _s2884_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5288_ _) => + (match (string_drop _s5287_ _s5288_) with + | _s5289_ => + (reg_name_matches_prefix _s5289_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((rs1, existT _ _s2885_ _)) => - (match (string_drop _s2884_ _s2885_) with - | _s2886_ => - (sep_matches_prefix _s2886_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5290_ _) => + (match (string_drop _s5289_ _s5290_) with + | _s5291_ => + (sep_matches_prefix _s5291_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with - | Some ((tt, existT _ _s2887_ _)) => - (match (string_drop _s2886_ - _s2887_) with - | _s2888_ => + | Some (tt, existT _ _s5292_ _) => + (match (string_drop _s5291_ + _s5292_) with + | _s5293_ => (reg_name_matches_prefix - _s2888_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s5293_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__8 with - | Some - ((rs2, existT _ _s2889_ _)) => - match (string_drop - _s2888_ - _s2889_) with - | s_ => - Some - ((size, aq, rl, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__8 with + | Some + (rs2, existT _ _s5294_ _) => + match (string_drop + _s5293_ + _s5294_) with + | s_ => + Some + (size, aq, rl, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string))). -Definition _s2851_ (_s2852_ : string) +Definition _s5256_ (_s5257_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) := - - let _s2853_ := _s2852_ in - (if ((string_startswith _s2853_ "lr.")) then - (match (string_drop _s2853_ (projT1 (string_length "lr."))) with - | _s2854_ => - (size_mnemonic_matches_prefix _s2854_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s5258_ := _s5257_ in + (if string_startswith _s5258_ "lr." then + (match (string_drop _s5258_ (projT1 (string_length "lr."))) with + | _s5259_ => + (size_mnemonic_matches_prefix _s5259_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2855_ _)) => - (match (string_drop _s2854_ _s2855_) with - | _s2856_ => - (maybe_aq_matches_prefix _s2856_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s5260_ _) => + (match (string_drop _s5259_ _s5260_) with + | _s5261_ => + (maybe_aq_matches_prefix _s5261_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2857_ _)) => - (match (string_drop _s2856_ _s2857_) with - | _s2858_ => - (maybe_rl_matches_prefix _s2858_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s5262_ _) => + (match (string_drop _s5261_ _s5262_) with + | _s5263_ => + (maybe_rl_matches_prefix _s5263_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2859_ _)) => - (match (string_drop _s2858_ _s2859_) with - | _s2860_ => - (spc_matches_prefix _s2860_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s5264_ _) => + (match (string_drop _s5263_ _s5264_) with + | _s5265_ => + (spc_matches_prefix _s5265_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2861_ _)) => - (match (string_drop _s2860_ _s2861_) with - | _s2862_ => - (reg_name_matches_prefix _s2862_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5266_ _) => + (match (string_drop _s5265_ _s5266_) with + | _s5267_ => + (reg_name_matches_prefix _s5267_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rd, existT _ _s2863_ _)) => - (match (string_drop _s2862_ _s2863_) with - | _s2864_ => - (sep_matches_prefix _s2864_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5268_ _) => + (match (string_drop _s5267_ _s5268_) with + | _s5269_ => + (sep_matches_prefix _s5269_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2865_ _)) => - (match (string_drop _s2864_ _s2865_) with - | _s2866_ => - (reg_name_matches_prefix _s2866_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5270_ _) => + (match (string_drop _s5269_ _s5270_) with + | _s5271_ => + (reg_name_matches_prefix _s5271_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some - ((rs1, existT _ _s2867_ _)) => - match (string_drop _s2866_ - _s2867_) with - | s_ => - Some - ((size, aq, rl, rd, rs1, s_)) - end - | _ => None - end) - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs1, existT _ _s5272_ _) => + match (string_drop _s5271_ + _s5272_) with + | s_ => + Some + (size, aq, rl, rd, rs1, s_) + end + | _ => None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))) - else returnm (None : option ((word_width * bool * bool * mword 5 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 5 * string))). -Definition _s2839_ (_s2840_ : string) -: M (option ((mword 5 * mword 5 * string))) := - - let _s2841_ := _s2840_ in - (if ((string_startswith _s2841_ "sfence.vma")) then - (match (string_drop _s2841_ (projT1 (string_length "sfence.vma"))) with - | _s2842_ => - (spc_matches_prefix _s2842_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5244_ (_s5245_ : string) : M (option ((mword 5 * mword 5 * string))) := + let _s5246_ := _s5245_ in + (if string_startswith _s5246_ "sfence.vma" then + (match (string_drop _s5246_ (projT1 (string_length "sfence.vma"))) with + | _s5247_ => + (spc_matches_prefix _s5247_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2843_ _)) => - (match (string_drop _s2842_ _s2843_) with - | _s2844_ => - (reg_name_matches_prefix _s2844_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5248_ _) => + (match (string_drop _s5247_ _s5248_) with + | _s5249_ => + (reg_name_matches_prefix _s5249_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rs1, existT _ _s2845_ _)) => - (match (string_drop _s2844_ _s2845_) with - | _s2846_ => - (sep_matches_prefix _s2846_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5250_ _) => + (match (string_drop _s5249_ _s5250_) with + | _s5251_ => + (sep_matches_prefix _s5251_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2847_ _)) => - (match (string_drop _s2846_ _s2847_) with - | _s2848_ => - (reg_name_matches_prefix _s2848_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5252_ _) => + (match (string_drop _s5251_ _s5252_) with + | _s5253_ => + (reg_name_matches_prefix _s5253_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((rs2, existT _ _s2849_ _)) => - match (string_drop _s2848_ _s2849_) with - | s_ => Some ((rs1, rs2, s_)) - end - | _ => None - end) - : option ((mword 5 * mword 5 * string))) + returnm (match w__3 with + | Some (rs2, existT _ _s5254_ _) => + match (string_drop _s5253_ _s5254_) with + | s_ => Some (rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * string))) end) : M (option ((mword 5 * mword 5 * string))) - else returnm (None : option ((mword 5 * mword 5 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * string))). -Definition _s2835_ (_s2836_ : string) -: option string := - - let _s2837_ := _s2836_ in - if ((string_startswith _s2837_ "wfi")) then - match (string_drop _s2837_ (projT1 (string_length "wfi"))) with | s_ => Some (s_) end - else None. - -Definition _s2831_ (_s2832_ : string) -: option string := - - let _s2833_ := _s2832_ in - if ((string_startswith _s2833_ "ebreak")) then - match (string_drop _s2833_ (projT1 (string_length "ebreak"))) with | s_ => Some (s_) end - else None. - -Definition _s2827_ (_s2828_ : string) -: option string := - - let _s2829_ := _s2828_ in - if ((string_startswith _s2829_ "sret")) then - match (string_drop _s2829_ (projT1 (string_length "sret"))) with | s_ => Some (s_) end - else None. - -Definition _s2823_ (_s2824_ : string) -: option string := - - let _s2825_ := _s2824_ in - if ((string_startswith _s2825_ "mret")) then - match (string_drop _s2825_ (projT1 (string_length "mret"))) with | s_ => Some (s_) end - else None. - -Definition _s2819_ (_s2820_ : string) -: option string := - - let _s2821_ := _s2820_ in - if ((string_startswith _s2821_ "ecall")) then - match (string_drop _s2821_ (projT1 (string_length "ecall"))) with | s_ => Some (s_) end - else None. - -Definition _s2815_ (_s2816_ : string) -: option string := - - let _s2817_ := _s2816_ in - if ((string_startswith _s2817_ "fence.i")) then - match (string_drop _s2817_ (projT1 (string_length "fence.i"))) with | s_ => Some (s_) end - else None. - -Definition _s2803_ (_s2804_ : string) -: M (option ((mword 4 * mword 4 * string))) := - - let _s2805_ := _s2804_ in - (if ((string_startswith _s2805_ "fence.tso")) then - (match (string_drop _s2805_ (projT1 (string_length "fence.tso"))) with - | _s2806_ => - (spc_matches_prefix _s2806_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5240_ (_s5241_ : string) : option string := + let _s5242_ := _s5241_ in + if string_startswith _s5242_ "wfi" then + match (string_drop _s5242_ (projT1 (string_length "wfi"))) with | s_ => Some s_ end + else None. + +Definition _s5236_ (_s5237_ : string) : option string := + let _s5238_ := _s5237_ in + if string_startswith _s5238_ "ebreak" then + match (string_drop _s5238_ (projT1 (string_length "ebreak"))) with | s_ => Some s_ end + else None. + +Definition _s5232_ (_s5233_ : string) : option string := + let _s5234_ := _s5233_ in + if string_startswith _s5234_ "sret" then + match (string_drop _s5234_ (projT1 (string_length "sret"))) with | s_ => Some s_ end + else None. + +Definition _s5228_ (_s5229_ : string) : option string := + let _s5230_ := _s5229_ in + if string_startswith _s5230_ "mret" then + match (string_drop _s5230_ (projT1 (string_length "mret"))) with | s_ => Some s_ end + else None. + +Definition _s5224_ (_s5225_ : string) : option string := + let _s5226_ := _s5225_ in + if string_startswith _s5226_ "ecall" then + match (string_drop _s5226_ (projT1 (string_length "ecall"))) with | s_ => Some s_ end + else None. + +Definition _s5220_ (_s5221_ : string) : option string := + let _s5222_ := _s5221_ in + if string_startswith _s5222_ "fence.i" then + match (string_drop _s5222_ (projT1 (string_length "fence.i"))) with | s_ => Some s_ end + else None. + +Definition _s5208_ (_s5209_ : string) : M (option ((mword 4 * mword 4 * string))) := + let _s5210_ := _s5209_ in + (if string_startswith _s5210_ "fence.tso" then + (match (string_drop _s5210_ (projT1 (string_length "fence.tso"))) with + | _s5211_ => + (spc_matches_prefix _s5211_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2807_ _)) => - (match (string_drop _s2806_ _s2807_) with - | _s2808_ => - (fence_bits_matches_prefix _s2808_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5212_ _) => + (match (string_drop _s5211_ _s5212_) with + | _s5213_ => + (fence_bits_matches_prefix _s5213_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s2809_ _)) => - (match (string_drop _s2808_ _s2809_) with - | _s2810_ => - (sep_matches_prefix _s2810_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s5214_ _) => + (match (string_drop _s5213_ _s5214_) with + | _s5215_ => + (sep_matches_prefix _s5215_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2811_ _)) => - (match (string_drop _s2810_ _s2811_) with - | _s2812_ => - (fence_bits_matches_prefix _s2812_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5216_ _) => + (match (string_drop _s5215_ _s5216_) with + | _s5217_ => + (fence_bits_matches_prefix _s5217_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s2813_ _)) => - match (string_drop _s2812_ _s2813_) with - | s_ => Some ((pred, succ, s_)) - end - | _ => None - end) - : option ((mword 4 * mword 4 * string))) + returnm (match w__3 with + | Some (succ, existT _ _s5218_ _) => + match (string_drop _s5217_ _s5218_) with + | s_ => Some (pred, succ, s_) + end + | _ => None + end) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - else returnm (None : option ((mword 4 * mword 4 * string)))) + else returnm None) : M (option ((mword 4 * mword 4 * string))). -Definition _s2791_ (_s2792_ : string) -: M (option ((mword 4 * mword 4 * string))) := - - let _s2793_ := _s2792_ in - (if ((string_startswith _s2793_ "fence")) then - (match (string_drop _s2793_ (projT1 (string_length "fence"))) with - | _s2794_ => - (spc_matches_prefix _s2794_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5196_ (_s5197_ : string) : M (option ((mword 4 * mword 4 * string))) := + let _s5198_ := _s5197_ in + (if string_startswith _s5198_ "fence" then + (match (string_drop _s5198_ (projT1 (string_length "fence"))) with + | _s5199_ => + (spc_matches_prefix _s5199_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2795_ _)) => - (match (string_drop _s2794_ _s2795_) with - | _s2796_ => - (fence_bits_matches_prefix _s2796_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5200_ _) => + (match (string_drop _s5199_ _s5200_) with + | _s5201_ => + (fence_bits_matches_prefix _s5201_) >>= fun w__1 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((pred, existT _ _s2797_ _)) => - (match (string_drop _s2796_ _s2797_) with - | _s2798_ => - (sep_matches_prefix _s2798_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (pred, existT _ _s5202_ _) => + (match (string_drop _s5201_ _s5202_) with + | _s5203_ => + (sep_matches_prefix _s5203_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2799_ _)) => - (match (string_drop _s2798_ _s2799_) with - | _s2800_ => - (fence_bits_matches_prefix _s2800_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5204_ _) => + (match (string_drop _s5203_ _s5204_) with + | _s5205_ => + (fence_bits_matches_prefix _s5205_) >>= fun w__3 : option ((mword 4 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((succ, existT _ _s2801_ _)) => - match (string_drop _s2800_ _s2801_) with - | s_ => Some ((pred, succ, s_)) - end - | _ => None - end) - : option ((mword 4 * mword 4 * string))) + returnm (match w__3 with + | Some (succ, existT _ _s5206_ _) => + match (string_drop _s5205_ _s5206_) with + | s_ => Some (pred, succ, s_) + end + | _ => None + end) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - | _ => returnm (None : option ((mword 4 * mword 4 * string))) + | _ => returnm None end) : M (option ((mword 4 * mword 4 * string))) end) : M (option ((mword 4 * mword 4 * string))) - else returnm (None : option ((mword 4 * mword 4 * string)))) + else returnm None) : M (option ((mword 4 * mword 4 * string))). -Definition _s2774_ (_s2775_ : string) -: M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2775_ with - | _s2776_ => - (shiftiwop_mnemonic_matches_prefix _s2776_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >= +Definition _s5179_ (_s5180_ : string) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) := + (match _s5180_ with + | _s5181_ => + (shiftiwop_mnemonic_matches_prefix _s5181_) >>= fun w__0 : option ((sopw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2777_ _)) => - (match (string_drop _s2776_ _s2777_) with - | _s2778_ => - (spc_matches_prefix _s2778_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5182_ _) => + (match (string_drop _s5181_ _s5182_) with + | _s5183_ => + (spc_matches_prefix _s5183_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2779_ _)) => - (match (string_drop _s2778_ _s2779_) with - | _s2780_ => - (reg_name_matches_prefix _s2780_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5184_ _) => + (match (string_drop _s5183_ _s5184_) with + | _s5185_ => + (reg_name_matches_prefix _s5185_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2781_ _)) => - (match (string_drop _s2780_ _s2781_) with - | _s2782_ => - (sep_matches_prefix _s2782_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5186_ _) => + (match (string_drop _s5185_ _s5186_) with + | _s5187_ => + (sep_matches_prefix _s5187_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2783_ _)) => - (match (string_drop _s2782_ _s2783_) with - | _s2784_ => - (reg_name_matches_prefix _s2784_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5188_ _) => + (match (string_drop _s5187_ _s5188_) with + | _s5189_ => + (reg_name_matches_prefix _s5189_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2785_ _)) => - (match (string_drop _s2784_ _s2785_) with - | _s2786_ => - (sep_matches_prefix _s2786_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5190_ _) => + (match (string_drop _s5189_ _s5190_) with + | _s5191_ => + (sep_matches_prefix _s5191_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2787_ _)) => - match (string_drop _s2786_ _s2787_) with - | _s2788_ => - match (hex_bits_5_matches_prefix - _s2788_) with - | Some ((shamt, existT _ _s2789_ _)) => - match (string_drop _s2788_ _s2789_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s5192_ _) => + match (string_drop _s5191_ _s5192_) with + | _s5193_ => + match (hex_bits_5_matches_prefix + _s5193_) with + | Some (shamt, existT _ _s5194_ _) => + match (string_drop _s5193_ _s5194_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sopw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sopw * mword 5 * mword 5 * mword 5 * string))). -Definition _s2757_ (_s2758_ : string) -: M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2758_ with - | _s2759_ => - (rtypew_mnemonic_matches_prefix _s2759_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >= +Definition _s5162_ (_s5163_ : string) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) := + (match _s5163_ with + | _s5164_ => + (rtypew_mnemonic_matches_prefix _s5164_) >>= fun w__0 : option ((ropw * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2760_ _)) => - (match (string_drop _s2759_ _s2760_) with - | _s2761_ => - (spc_matches_prefix _s2761_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5165_ _) => + (match (string_drop _s5164_ _s5165_) with + | _s5166_ => + (spc_matches_prefix _s5166_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2762_ _)) => - (match (string_drop _s2761_ _s2762_) with - | _s2763_ => - (reg_name_matches_prefix _s2763_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5167_ _) => + (match (string_drop _s5166_ _s5167_) with + | _s5168_ => + (reg_name_matches_prefix _s5168_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2764_ _)) => - (match (string_drop _s2763_ _s2764_) with - | _s2765_ => - (sep_matches_prefix _s2765_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5169_ _) => + (match (string_drop _s5168_ _s5169_) with + | _s5170_ => + (sep_matches_prefix _s5170_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2766_ _)) => - (match (string_drop _s2765_ _s2766_) with - | _s2767_ => - (reg_name_matches_prefix _s2767_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5171_ _) => + (match (string_drop _s5170_ _s5171_) with + | _s5172_ => + (reg_name_matches_prefix _s5172_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2768_ _)) => - (match (string_drop _s2767_ _s2768_) with - | _s2769_ => - (sep_matches_prefix _s2769_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5173_ _) => + (match (string_drop _s5172_ _s5173_) with + | _s5174_ => + (sep_matches_prefix _s5174_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2770_ _)) => - (match (string_drop _s2769_ _s2770_) with - | _s2771_ => - (reg_name_matches_prefix _s2771_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5175_ _) => + (match (string_drop _s5174_ _s5175_) with + | _s5176_ => + (reg_name_matches_prefix _s5176_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2772_ _)) => - match (string_drop _s2771_ - _s2772_) with - | s_ => - Some ((op, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5177_ _) => + match (string_drop _s5176_ + _s5177_) with + | s_ => + Some (op, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((ropw * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((ropw * mword 5 * mword 5 * mword 5 * string))). -Definition _s2740_ (_s2741_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2741_ with - | _s2742_ => - (shiftw_mnemonic_matches_prefix _s2742_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s5145_ (_s5146_ : string) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) := + (match _s5146_ with + | _s5147_ => + (shiftw_mnemonic_matches_prefix _s5147_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2743_ _)) => - (match (string_drop _s2742_ _s2743_) with - | _s2744_ => - (spc_matches_prefix _s2744_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5148_ _) => + (match (string_drop _s5147_ _s5148_) with + | _s5149_ => + (spc_matches_prefix _s5149_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2745_ _)) => - (match (string_drop _s2744_ _s2745_) with - | _s2746_ => - (reg_name_matches_prefix _s2746_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5150_ _) => + (match (string_drop _s5149_ _s5150_) with + | _s5151_ => + (reg_name_matches_prefix _s5151_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2747_ _)) => - (match (string_drop _s2746_ _s2747_) with - | _s2748_ => - (sep_matches_prefix _s2748_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5152_ _) => + (match (string_drop _s5151_ _s5152_) with + | _s5153_ => + (sep_matches_prefix _s5153_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2749_ _)) => - (match (string_drop _s2748_ _s2749_) with - | _s2750_ => - (reg_name_matches_prefix _s2750_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5154_ _) => + (match (string_drop _s5153_ _s5154_) with + | _s5155_ => + (reg_name_matches_prefix _s5155_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2751_ _)) => - (match (string_drop _s2750_ _s2751_) with - | _s2752_ => - (sep_matches_prefix _s2752_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5156_ _) => + (match (string_drop _s5155_ _s5156_) with + | _s5157_ => + (sep_matches_prefix _s5157_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2753_ _)) => - match (string_drop _s2752_ _s2753_) with - | _s2754_ => - match (hex_bits_5_matches_prefix - _s2754_) with - | Some ((shamt, existT _ _s2755_ _)) => - match (string_drop _s2754_ _s2755_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s5158_ _) => + match (string_drop _s5157_ _s5158_) with + | _s5159_ => + match (hex_bits_5_matches_prefix + _s5159_) with + | Some (shamt, existT _ _s5160_ _) => + match (string_drop _s5159_ _s5160_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 5 * string))). -Definition _s2724_ (_s2725_ : string) -: M (option ((mword 5 * mword 5 * mword 12 * string))) := - - let _s2726_ := _s2725_ in - (if ((string_startswith _s2726_ "addiw")) then - (match (string_drop _s2726_ (projT1 (string_length "addiw"))) with - | _s2727_ => - (spc_matches_prefix _s2727_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s5129_ (_s5130_ : string) : M (option ((mword 5 * mword 5 * mword 12 * string))) := + let _s5131_ := _s5130_ in + (if string_startswith _s5131_ "addiw" then + (match (string_drop _s5131_ (projT1 (string_length "addiw"))) with + | _s5132_ => + (spc_matches_prefix _s5132_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2728_ _)) => - (match (string_drop _s2727_ _s2728_) with - | _s2729_ => - (reg_name_matches_prefix _s2729_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5133_ _) => + (match (string_drop _s5132_ _s5133_) with + | _s5134_ => + (reg_name_matches_prefix _s5134_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2730_ _)) => - (match (string_drop _s2729_ _s2730_) with - | _s2731_ => - (sep_matches_prefix _s2731_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5135_ _) => + (match (string_drop _s5134_ _s5135_) with + | _s5136_ => + (sep_matches_prefix _s5136_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2732_ _)) => - (match (string_drop _s2731_ _s2732_) with - | _s2733_ => - (reg_name_matches_prefix _s2733_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5137_ _) => + (match (string_drop _s5136_ _s5137_) with + | _s5138_ => + (reg_name_matches_prefix _s5138_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2734_ _)) => - (match (string_drop _s2733_ _s2734_) with - | _s2735_ => - (sep_matches_prefix _s2735_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5139_ _) => + (match (string_drop _s5138_ _s5139_) with + | _s5140_ => + (sep_matches_prefix _s5140_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2736_ _)) => - match (string_drop _s2735_ _s2736_) with - | _s2737_ => - match (hex_bits_12_matches_prefix _s2737_) with - | Some ((imm, existT _ _s2738_ _)) => - match (string_drop _s2737_ _s2738_) with - | s_ => Some ((rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s5141_ _) => + match (string_drop _s5140_ _s5141_) with + | _s5142_ => + match (hex_bits_12_matches_prefix _s5142_) with + | Some (imm, existT _ _s5143_ _) => + match (string_drop _s5142_ _s5143_) with + | s_ => Some (rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 12 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12 * string))). -Definition _s2696_ (_s2697_ : string) +Definition _s5101_ (_s5102_ : string) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) := - - let _s2698_ := _s2697_ in - (if ((string_startswith _s2698_ "s")) then - (match (string_drop _s2698_ (projT1 (string_length "s"))) with - | _s2699_ => - (size_mnemonic_matches_prefix _s2699_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s5103_ := _s5102_ in + (if string_startswith _s5103_ "s" then + (match (string_drop _s5103_ (projT1 (string_length "s"))) with + | _s5104_ => + (size_mnemonic_matches_prefix _s5104_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2700_ _)) => - (match (string_drop _s2699_ _s2700_) with - | _s2701_ => - (maybe_aq_matches_prefix _s2701_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s5105_ _) => + (match (string_drop _s5104_ _s5105_) with + | _s5106_ => + (maybe_aq_matches_prefix _s5106_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((aq, existT _ _s2702_ _)) => - (match (string_drop _s2701_ _s2702_) with - | _s2703_ => - (maybe_rl_matches_prefix _s2703_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s5107_ _) => + (match (string_drop _s5106_ _s5107_) with + | _s5108_ => + (maybe_rl_matches_prefix _s5108_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rl, existT _ _s2704_ _)) => - (match (string_drop _s2703_ _s2704_) with - | _s2705_ => - (spc_matches_prefix _s2705_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s5109_ _) => + (match (string_drop _s5108_ _s5109_) with + | _s5110_ => + (spc_matches_prefix _s5110_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2706_ _)) => - (match (string_drop _s2705_ _s2706_) with - | _s2707_ => - (reg_name_matches_prefix _s2707_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5111_ _) => + (match (string_drop _s5110_ _s5111_) with + | _s5112_ => + (reg_name_matches_prefix _s5112_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s2708_ _)) => - (match (string_drop _s2707_ _s2708_) with - | _s2709_ => - (sep_matches_prefix _s2709_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s5113_ _) => + (match (string_drop _s5112_ _s5113_) with + | _s5114_ => + (sep_matches_prefix _s5114_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2710_ _)) => - (match (string_drop _s2709_ _s2710_) with - | _s2711_ => - (match (hex_bits_12_matches_prefix _s2711_) with - | Some ((imm, existT _ _s2712_ _)) => - (match (string_drop _s2711_ _s2712_) with - | _s2713_ => - (opt_spc_matches_prefix _s2713_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5115_ _) => + (match (string_drop _s5114_ _s5115_) with + | _s5116_ => + (match (hex_bits_12_matches_prefix _s5116_) with + | Some (imm, existT _ _s5117_ _) => + (match (string_drop _s5116_ _s5117_) with + | _s5118_ => + (opt_spc_matches_prefix _s5118_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2714_ _)) => - let _s2715_ := - string_drop _s2713_ _s2714_ in - (if ((string_startswith - _s2715_ "(")) then - (match (string_drop _s2715_ + | Some (tt, existT _ _s5119_ _) => + let _s5120_ := + string_drop _s5118_ _s5119_ in + (if string_startswith _s5120_ + "(" then + (match (string_drop _s5120_ (projT1 (string_length "("))) with - | _s2716_ => + | _s5121_ => (opt_spc_matches_prefix - _s2716_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s5121_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s2717_ _)) => + (tt, existT _ _s5122_ _) => (match (string_drop - _s2716_ - _s2717_) with - | _s2718_ => + _s5121_ + _s5122_) with + | _s5123_ => (reg_name_matches_prefix - _s2718_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >= + _s5123_) >>= fun w__8 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((rs1, existT _ _s2719_ _)) => + (rs1, existT _ _s5124_ _) => (match (string_drop - _s2718_ - _s2719_) with - | _s2720_ => + _s5123_ + _s5124_) with + | _s5125_ => (opt_spc_matches_prefix - _s2720_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >= + _s5125_) >>= fun w__9 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__9 with - | Some - ((tt, existT _ _s2721_ _)) => - let _s2722_ := - string_drop - _s2720_ - _s2721_ in - if - ((string_startswith - _s2722_ - ")")) - then - match (string_drop - _s2722_ - (projT1 - (string_length - ")"))) with - | s_ => - Some - ((size, aq, rl, rs2, imm, rs1, s_)) - end - else - None - | _ => - None - end) - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm (match w__9 with + | Some + (tt, existT _ _s5126_ _) => + let _s5127_ := + string_drop + _s5125_ + _s5126_ in + if + string_startswith + _s5127_ + ")" + then + match (string_drop + _s5127_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (size, aq, rl, rs2, imm, rs1, s_) + end + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string))). -Definition _s2666_ (_s2667_ : string) +Definition _s5071_ (_s5072_ : string) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) := - - let _s2668_ := _s2667_ in - (if ((string_startswith _s2668_ "l")) then - (match (string_drop _s2668_ (projT1 (string_length "l"))) with - | _s2669_ => - (size_mnemonic_matches_prefix _s2669_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >= + let _s5073_ := _s5072_ in + (if string_startswith _s5073_ "l" then + (match (string_drop _s5073_ (projT1 (string_length "l"))) with + | _s5074_ => + (size_mnemonic_matches_prefix _s5074_) >>= fun w__0 : option ((word_width * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((size, existT _ _s2670_ _)) => - (match (string_drop _s2669_ _s2670_) with - | _s2671_ => - (maybe_u_matches_prefix _s2671_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >= + | Some (size, existT _ _s5075_ _) => + (match (string_drop _s5074_ _s5075_) with + | _s5076_ => + (maybe_u_matches_prefix _s5076_) >>= fun w__1 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((is_unsigned, existT _ _s2672_ _)) => - (match (string_drop _s2671_ _s2672_) with - | _s2673_ => - (maybe_aq_matches_prefix _s2673_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >= + | Some (is_unsigned, existT _ _s5077_ _) => + (match (string_drop _s5076_ _s5077_) with + | _s5078_ => + (maybe_aq_matches_prefix _s5078_) >>= fun w__2 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((aq, existT _ _s2674_ _)) => - (match (string_drop _s2673_ _s2674_) with - | _s2675_ => - (maybe_rl_matches_prefix _s2675_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >= + | Some (aq, existT _ _s5079_ _) => + (match (string_drop _s5078_ _s5079_) with + | _s5080_ => + (maybe_rl_matches_prefix _s5080_) >>= fun w__3 : option ((bool * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rl, existT _ _s2676_ _)) => - (match (string_drop _s2675_ _s2676_) with - | _s2677_ => - (spc_matches_prefix _s2677_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rl, existT _ _s5081_ _) => + (match (string_drop _s5080_ _s5081_) with + | _s5082_ => + (spc_matches_prefix _s5082_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((tt, existT _ _s2678_ _)) => - (match (string_drop _s2677_ _s2678_) with - | _s2679_ => - (reg_name_matches_prefix _s2679_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5083_ _) => + (match (string_drop _s5082_ _s5083_) with + | _s5084_ => + (reg_name_matches_prefix _s5084_) >>= fun w__5 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((rd, existT _ _s2680_ _)) => - (match (string_drop _s2679_ _s2680_) with - | _s2681_ => - (sep_matches_prefix _s2681_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5085_ _) => + (match (string_drop _s5084_ _s5085_) with + | _s5086_ => + (sep_matches_prefix _s5086_) >>= fun w__6 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__6 with - | Some ((tt, existT _ _s2682_ _)) => - (match (string_drop _s2681_ _s2682_) with - | _s2683_ => + | Some (tt, existT _ _s5087_ _) => + (match (string_drop _s5086_ _s5087_) with + | _s5088_ => (match (hex_bits_12_matches_prefix - _s2683_) with - | Some - ((imm, existT _ _s2684_ _)) => - (match (string_drop _s2683_ - _s2684_) with - | _s2685_ => + _s5088_) with + | Some (imm, existT _ _s5089_ _) => + (match (string_drop _s5088_ + _s5089_) with + | _s5090_ => (opt_spc_matches_prefix - _s2685_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >= + _s5090_) >>= fun w__7 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__7 with | Some - ((tt, existT _ _s2686_ _)) => - let _s2687_ := - string_drop _s2685_ - _s2686_ in - (if ((string_startswith - _s2687_ "(")) - then + (tt, existT _ _s5091_ _) => + let _s5092_ := + string_drop _s5090_ + _s5091_ in + (if string_startswith + _s5092_ "(" then (match (string_drop - _s2687_ + _s5092_ (projT1 (string_length "("))) with - | _s2688_ => + | _s5093_ => (opt_spc_matches_prefix - _s2688_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >= + _s5093_) >>= fun w__8 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__8 with | Some - ((tt, existT _ _s2689_ _)) => + (tt, existT _ _s5094_ _) => (match (string_drop - _s2688_ - _s2689_) with - | _s2690_ => + _s5093_ + _s5094_) with + | _s5095_ => (reg_name_matches_prefix - _s2690_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >= + _s5095_) >>= fun w__9 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__9 with | Some - ((rs1, existT _ _s2691_ _)) => + (rs1, existT _ _s5096_ _) => (match (string_drop - _s2690_ - _s2691_) with - | _s2692_ => + _s5095_ + _s5096_) with + | _s5097_ => (opt_spc_matches_prefix - _s2692_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >= + _s5097_) >>= fun w__10 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__10 with - | Some - ((tt, existT _ _s2693_ _)) => - let _s2694_ := - string_drop - _s2692_ - _s2693_ in - if - ((string_startswith - _s2694_ - ")")) - then - match (string_drop - _s2694_ - (projT1 - (string_length - ")"))) with - | s_ => - Some - ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) - end - else - None - | _ => - None - end) - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm (match w__10 with + | Some + (tt, existT _ _s5098_ _) => + let _s5099_ := + string_drop + _s5097_ + _s5098_ in + if + string_startswith + _s5099_ + ")" + then + match (string_drop + _s5099_ + (projT1 + (string_length + ")"))) with + | s_ => + Some + (size, is_unsigned, aq, rl, rd, imm, rs1, s_) + end + else + None + | _ => + None + end) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - | _ => - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) + | _ => returnm None end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) end) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))) - else - returnm (None - : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)))) + else returnm None) : M (option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string))). -Definition _s2649_ (_s2650_ : string) -: M (option ((rop * mword 5 * mword 5 * mword 5 * string))) := - - (match _s2650_ with - | _s2651_ => - (rtype_mnemonic_matches_prefix _s2651_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >= +Definition _s5054_ (_s5055_ : string) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) := + (match _s5055_ with + | _s5056_ => + (rtype_mnemonic_matches_prefix _s5056_) >>= fun w__0 : option ((rop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2652_ _)) => - (match (string_drop _s2651_ _s2652_) with - | _s2653_ => - (spc_matches_prefix _s2653_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5057_ _) => + (match (string_drop _s5056_ _s5057_) with + | _s5058_ => + (spc_matches_prefix _s5058_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2654_ _)) => - (match (string_drop _s2653_ _s2654_) with - | _s2655_ => - (reg_name_matches_prefix _s2655_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5059_ _) => + (match (string_drop _s5058_ _s5059_) with + | _s5060_ => + (reg_name_matches_prefix _s5060_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2656_ _)) => - (match (string_drop _s2655_ _s2656_) with - | _s2657_ => - (sep_matches_prefix _s2657_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5061_ _) => + (match (string_drop _s5060_ _s5061_) with + | _s5062_ => + (sep_matches_prefix _s5062_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2658_ _)) => - (match (string_drop _s2657_ _s2658_) with - | _s2659_ => - (reg_name_matches_prefix _s2659_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5063_ _) => + (match (string_drop _s5062_ _s5063_) with + | _s5064_ => + (reg_name_matches_prefix _s5064_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2660_ _)) => - (match (string_drop _s2659_ _s2660_) with - | _s2661_ => - (sep_matches_prefix _s2661_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5065_ _) => + (match (string_drop _s5064_ _s5065_) with + | _s5066_ => + (sep_matches_prefix _s5066_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__5 with - | Some ((tt, existT _ _s2662_ _)) => - (match (string_drop _s2661_ _s2662_) with - | _s2663_ => - (reg_name_matches_prefix _s2663_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5067_ _) => + (match (string_drop _s5066_ _s5067_) with + | _s5068_ => + (reg_name_matches_prefix _s5068_) >>= fun w__6 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__6 with - | Some ((rs2, existT _ _s2664_ _)) => - match (string_drop _s2663_ - _s2664_) with - | s_ => - Some ((op, rd, rs1, rs2, s_)) - end - | _ => None - end) - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + returnm (match w__6 with + | Some (rs2, existT _ _s5069_ _) => + match (string_drop _s5068_ + _s5069_) with + | s_ => + Some (op, rd, rs1, rs2, s_) + end + | _ => None + end) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None - : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => - returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) - | _ => returnm (None : option ((rop * mword 5 * mword 5 * mword 5 * string))) + | _ => returnm None end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))) end) : M (option ((rop * mword 5 * mword 5 * mword 5 * string))). -Definition _s2632_ (_s2633_ : string) -: M (option ((sop * mword 5 * mword 5 * mword 6 * string))) := - - (match _s2633_ with - | _s2634_ => - (shiftiop_mnemonic_matches_prefix _s2634_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >= +Definition _s5037_ (_s5038_ : string) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) := + (match _s5038_ with + | _s5039_ => + (shiftiop_mnemonic_matches_prefix _s5039_) >>= fun w__0 : option ((sop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2635_ _)) => - (match (string_drop _s2634_ _s2635_) with - | _s2636_ => - (spc_matches_prefix _s2636_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5040_ _) => + (match (string_drop _s5039_ _s5040_) with + | _s5041_ => + (spc_matches_prefix _s5041_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2637_ _)) => - (match (string_drop _s2636_ _s2637_) with - | _s2638_ => - (reg_name_matches_prefix _s2638_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5042_ _) => + (match (string_drop _s5041_ _s5042_) with + | _s5043_ => + (reg_name_matches_prefix _s5043_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2639_ _)) => - (match (string_drop _s2638_ _s2639_) with - | _s2640_ => - (sep_matches_prefix _s2640_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5044_ _) => + (match (string_drop _s5043_ _s5044_) with + | _s5045_ => + (sep_matches_prefix _s5045_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2641_ _)) => - (match (string_drop _s2640_ _s2641_) with - | _s2642_ => - (reg_name_matches_prefix _s2642_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5046_ _) => + (match (string_drop _s5045_ _s5046_) with + | _s5047_ => + (reg_name_matches_prefix _s5047_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2643_ _)) => - (match (string_drop _s2642_ _s2643_) with - | _s2644_ => - (sep_matches_prefix _s2644_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5048_ _) => + (match (string_drop _s5047_ _s5048_) with + | _s5049_ => + (sep_matches_prefix _s5049_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2645_ _)) => - match (string_drop _s2644_ _s2645_) with - | _s2646_ => - match (hex_bits_6_matches_prefix - _s2646_) with - | Some ((shamt, existT _ _s2647_ _)) => - match (string_drop _s2646_ _s2647_) with - | s_ => - Some ((op, rd, rs1, shamt, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s5050_ _) => + match (string_drop _s5049_ _s5050_) with + | _s5051_ => + match (hex_bits_6_matches_prefix + _s5051_) with + | Some (shamt, existT _ _s5052_ _) => + match (string_drop _s5051_ _s5052_) with + | s_ => + Some (op, rd, rs1, shamt, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None - : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => - returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) - | _ => returnm (None : option ((sop * mword 5 * mword 5 * mword 6 * string))) + | _ => returnm None end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))) end) : M (option ((sop * mword 5 * mword 5 * mword 6 * string))). -Definition _s2615_ (_s2616_ : string) -: M (option ((iop * mword 5 * mword 5 * mword 12 * string))) := - - (match _s2616_ with - | _s2617_ => - (itype_mnemonic_matches_prefix _s2617_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >= +Definition _s5020_ (_s5021_ : string) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) := + (match _s5021_ with + | _s5022_ => + (itype_mnemonic_matches_prefix _s5022_) >>= fun w__0 : option ((iop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2618_ _)) => - (match (string_drop _s2617_ _s2618_) with - | _s2619_ => - (spc_matches_prefix _s2619_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5023_ _) => + (match (string_drop _s5022_ _s5023_) with + | _s5024_ => + (spc_matches_prefix _s5024_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2620_ _)) => - (match (string_drop _s2619_ _s2620_) with - | _s2621_ => - (reg_name_matches_prefix _s2621_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5025_ _) => + (match (string_drop _s5024_ _s5025_) with + | _s5026_ => + (reg_name_matches_prefix _s5026_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2622_ _)) => - (match (string_drop _s2621_ _s2622_) with - | _s2623_ => - (sep_matches_prefix _s2623_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s5027_ _) => + (match (string_drop _s5026_ _s5027_) with + | _s5028_ => + (sep_matches_prefix _s5028_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2624_ _)) => - (match (string_drop _s2623_ _s2624_) with - | _s2625_ => - (reg_name_matches_prefix _s2625_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5029_ _) => + (match (string_drop _s5028_ _s5029_) with + | _s5030_ => + (reg_name_matches_prefix _s5030_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs1, existT _ _s2626_ _)) => - (match (string_drop _s2625_ _s2626_) with - | _s2627_ => - (sep_matches_prefix _s2627_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5031_ _) => + (match (string_drop _s5030_ _s5031_) with + | _s5032_ => + (sep_matches_prefix _s5032_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2628_ _)) => - match (string_drop _s2627_ _s2628_) with - | _s2629_ => - match (hex_bits_12_matches_prefix - _s2629_) with - | Some ((imm, existT _ _s2630_ _)) => - match (string_drop _s2629_ _s2630_) with - | s_ => - Some ((op, rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s5033_ _) => + match (string_drop _s5032_ _s5033_) with + | _s5034_ => + match (hex_bits_12_matches_prefix + _s5034_) with + | Some (imm, existT _ _s5035_ _) => + match (string_drop _s5034_ _s5035_) with + | s_ => Some (op, rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((iop * mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))) end) : M (option ((iop * mword 5 * mword 5 * mword 12 * string))). -Definition _s2598_ (_s2599_ : string) -: M (option ((bop * mword 5 * mword 5 * mword 13 * string))) := - - (match _s2599_ with - | _s2600_ => - (btype_mnemonic_matches_prefix _s2600_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >= +Definition _s5003_ (_s5004_ : string) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) := + (match _s5004_ with + | _s5005_ => + (btype_mnemonic_matches_prefix _s5005_) >>= fun w__0 : option ((bop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2601_ _)) => - (match (string_drop _s2600_ _s2601_) with - | _s2602_ => - (spc_matches_prefix _s2602_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s5006_ _) => + (match (string_drop _s5005_ _s5006_) with + | _s5007_ => + (spc_matches_prefix _s5007_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2603_ _)) => - (match (string_drop _s2602_ _s2603_) with - | _s2604_ => - (reg_name_matches_prefix _s2604_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5008_ _) => + (match (string_drop _s5007_ _s5008_) with + | _s5009_ => + (reg_name_matches_prefix _s5009_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rs1, existT _ _s2605_ _)) => - (match (string_drop _s2604_ _s2605_) with - | _s2606_ => - (sep_matches_prefix _s2606_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s5010_ _) => + (match (string_drop _s5009_ _s5010_) with + | _s5011_ => + (sep_matches_prefix _s5011_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((tt, existT _ _s2607_ _)) => - (match (string_drop _s2606_ _s2607_) with - | _s2608_ => - (reg_name_matches_prefix _s2608_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s5012_ _) => + (match (string_drop _s5011_ _s5012_) with + | _s5013_ => + (reg_name_matches_prefix _s5013_) >>= fun w__4 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__4 with - | Some ((rs2, existT _ _s2609_ _)) => - (match (string_drop _s2608_ _s2609_) with - | _s2610_ => - (sep_matches_prefix _s2610_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs2, existT _ _s5014_ _) => + (match (string_drop _s5013_ _s5014_) with + | _s5015_ => + (sep_matches_prefix _s5015_) >>= fun w__5 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__5 with - | Some ((tt, existT _ _s2611_ _)) => - match (string_drop _s2610_ _s2611_) with - | _s2612_ => - match (hex_bits_13_matches_prefix - _s2612_) with - | Some ((imm, existT _ _s2613_ _)) => - match (string_drop _s2612_ _s2613_) with - | s_ => - Some ((op, rs1, rs2, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + returnm (match w__5 with + | Some (tt, existT _ _s5016_ _) => + match (string_drop _s5015_ _s5016_) with + | _s5017_ => + match (hex_bits_13_matches_prefix + _s5017_) with + | Some (imm, existT _ _s5018_ _) => + match (string_drop _s5017_ _s5018_) with + | s_ => + Some (op, rs1, rs2, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None - : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => - returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) - | _ => returnm (None : option ((bop * mword 5 * mword 5 * mword 13 * string))) + | _ => returnm None end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))) end) : M (option ((bop * mword 5 * mword 5 * mword 13 * string))). -Definition _s2582_ (_s2583_ : string) -: M (option ((mword 5 * mword 5 * mword 12 * string))) := - - let _s2584_ := _s2583_ in - (if ((string_startswith _s2584_ "jalr")) then - (match (string_drop _s2584_ (projT1 (string_length "jalr"))) with - | _s2585_ => - (spc_matches_prefix _s2585_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4987_ (_s4988_ : string) : M (option ((mword 5 * mword 5 * mword 12 * string))) := + let _s4989_ := _s4988_ in + (if string_startswith _s4989_ "jalr" then + (match (string_drop _s4989_ (projT1 (string_length "jalr"))) with + | _s4990_ => + (spc_matches_prefix _s4990_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2586_ _)) => - (match (string_drop _s2585_ _s2586_) with - | _s2587_ => - (reg_name_matches_prefix _s2587_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4991_ _) => + (match (string_drop _s4990_ _s4991_) with + | _s4992_ => + (reg_name_matches_prefix _s4992_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2588_ _)) => - (match (string_drop _s2587_ _s2588_) with - | _s2589_ => - (sep_matches_prefix _s2589_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4993_ _) => + (match (string_drop _s4992_ _s4993_) with + | _s4994_ => + (sep_matches_prefix _s4994_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((tt, existT _ _s2590_ _)) => - (match (string_drop _s2589_ _s2590_) with - | _s2591_ => - (reg_name_matches_prefix _s2591_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4995_ _) => + (match (string_drop _s4994_ _s4995_) with + | _s4996_ => + (reg_name_matches_prefix _s4996_) >>= fun w__3 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__3 with - | Some ((rs1, existT _ _s2592_ _)) => - (match (string_drop _s2591_ _s2592_) with - | _s2593_ => - (sep_matches_prefix _s2593_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >= + | Some (rs1, existT _ _s4997_ _) => + (match (string_drop _s4996_ _s4997_) with + | _s4998_ => + (sep_matches_prefix _s4998_) >>= fun w__4 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__4 with - | Some ((tt, existT _ _s2594_ _)) => - match (string_drop _s2593_ _s2594_) with - | _s2595_ => - match (hex_bits_12_matches_prefix _s2595_) with - | Some ((imm, existT _ _s2596_ _)) => - match (string_drop _s2595_ _s2596_) with - | s_ => Some ((rd, rs1, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 5 * mword 12 * string))) + returnm (match w__4 with + | Some (tt, existT _ _s4999_ _) => + match (string_drop _s4998_ _s4999_) with + | _s5000_ => + match (hex_bits_12_matches_prefix _s5000_) with + | Some (imm, existT _ _s5001_ _) => + match (string_drop _s5000_ _s5001_) with + | s_ => Some (rd, rs1, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => - returnm (None - : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - | _ => returnm (None : option ((mword 5 * mword 5 * mword 12 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 5 * mword 12 * string))) end) : M (option ((mword 5 * mword 5 * mword 12 * string))) - else returnm (None : option ((mword 5 * mword 5 * mword 12 * string)))) + else returnm None) : M (option ((mword 5 * mword 5 * mword 12 * string))). -Definition _s2570_ (_s2571_ : string) -: M (option ((mword 5 * mword 21 * string))) := - - let _s2572_ := _s2571_ in - (if ((string_startswith _s2572_ "jal")) then - (match (string_drop _s2572_ (projT1 (string_length "jal"))) with - | _s2573_ => - (spc_matches_prefix _s2573_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >= 0)})) => +Definition _s4975_ (_s4976_ : string) : M (option ((mword 5 * mword 21 * string))) := + let _s4977_ := _s4976_ in + (if string_startswith _s4977_ "jal" then + (match (string_drop _s4977_ (projT1 (string_length "jal"))) with + | _s4978_ => + (spc_matches_prefix _s4978_) >>= fun w__0 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((tt, existT _ _s2574_ _)) => - (match (string_drop _s2573_ _s2574_) with - | _s2575_ => - (reg_name_matches_prefix _s2575_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4979_ _) => + (match (string_drop _s4978_ _s4979_) with + | _s4980_ => + (reg_name_matches_prefix _s4980_) >>= fun w__1 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((rd, existT _ _s2576_ _)) => - (match (string_drop _s2575_ _s2576_) with - | _s2577_ => - (sep_matches_prefix _s2577_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4981_ _) => + (match (string_drop _s4980_ _s4981_) with + | _s4982_ => + (sep_matches_prefix _s4982_) >>= fun w__2 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__2 with - | Some ((tt, existT _ _s2578_ _)) => - match (string_drop _s2577_ _s2578_) with - | _s2579_ => - match (hex_bits_21_matches_prefix _s2579_) with - | Some ((imm, existT _ _s2580_ _)) => - match (string_drop _s2579_ _s2580_) with - | s_ => Some ((rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((mword 5 * mword 21 * string))) + returnm (match w__2 with + | Some (tt, existT _ _s4983_ _) => + match (string_drop _s4982_ _s4983_) with + | _s4984_ => + match (hex_bits_21_matches_prefix _s4984_) with + | Some (imm, existT _ _s4985_ _) => + match (string_drop _s4984_ _s4985_) with + | s_ => Some (rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((mword 5 * mword 21 * string))) - | _ => returnm (None : option ((mword 5 * mword 21 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 21 * string))) end) : M (option ((mword 5 * mword 21 * string))) - | _ => returnm (None : option ((mword 5 * mword 21 * string))) + | _ => returnm None end) : M (option ((mword 5 * mword 21 * string))) end) : M (option ((mword 5 * mword 21 * string))) - else returnm (None : option ((mword 5 * mword 21 * string)))) + else returnm None) : M (option ((mword 5 * mword 21 * string))). -Definition _s2557_ (_s2558_ : string) -: M (option ((uop * mword 5 * mword 20 * string))) := - - (match _s2558_ with - | _s2559_ => - (utype_mnemonic_matches_prefix _s2559_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >= +Definition _s4962_ (_s4963_ : string) : M (option ((uop * mword 5 * mword 20 * string))) := + (match _s4963_ with + | _s4964_ => + (utype_mnemonic_matches_prefix _s4964_) >>= fun w__0 : option ((uop * {n : Z & ArithFact (n >=? 0)})) => (match w__0 with - | Some ((op, existT _ _s2560_ _)) => - (match (string_drop _s2559_ _s2560_) with - | _s2561_ => - (spc_matches_prefix _s2561_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >= + | Some (op, existT _ _s4965_ _) => + (match (string_drop _s4964_ _s4965_) with + | _s4966_ => + (spc_matches_prefix _s4966_) >>= fun w__1 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => (match w__1 with - | Some ((tt, existT _ _s2562_ _)) => - (match (string_drop _s2561_ _s2562_) with - | _s2563_ => - (reg_name_matches_prefix _s2563_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >= + | Some (tt, existT _ _s4967_ _) => + (match (string_drop _s4966_ _s4967_) with + | _s4968_ => + (reg_name_matches_prefix _s4968_) >>= fun w__2 : option ((mword 5 * {n : Z & ArithFact (n >=? 0)})) => (match w__2 with - | Some ((rd, existT _ _s2564_ _)) => - (match (string_drop _s2563_ _s2564_) with - | _s2565_ => - (sep_matches_prefix _s2565_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >= + | Some (rd, existT _ _s4969_ _) => + (match (string_drop _s4968_ _s4969_) with + | _s4970_ => + (sep_matches_prefix _s4970_) >>= fun w__3 : option ((unit * {n : Z & ArithFact (n >=? 0)})) => - returnm ((match w__3 with - | Some ((tt, existT _ _s2566_ _)) => - match (string_drop _s2565_ _s2566_) with - | _s2567_ => - match (hex_bits_20_matches_prefix _s2567_) with - | Some ((imm, existT _ _s2568_ _)) => - match (string_drop _s2567_ _s2568_) with - | s_ => Some ((op, rd, imm, s_)) - end - | _ => None - end - end - | _ => None - end) - : option ((uop * mword 5 * mword 20 * string))) + returnm (match w__3 with + | Some (tt, existT _ _s4971_ _) => + match (string_drop _s4970_ _s4971_) with + | _s4972_ => + match (hex_bits_20_matches_prefix _s4972_) with + | Some (imm, existT _ _s4973_ _) => + match (string_drop _s4972_ _s4973_) with + | s_ => Some (op, rd, imm, s_) + end + | _ => None + end + end + | _ => None + end) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))) - | _ => returnm (None : option ((uop * mword 5 * mword 20 * string))) + | _ => returnm None end) : M (option ((uop * mword 5 * mword 20 * string))) end) : M (option ((uop * mword 5 * mword 20 * string))). -Definition assembly_matches_prefix (arg_ : string) -: M (option ((ast * {n : Z & ArithFact (n >= 0)}))) := - - let _s2569_ := arg_ in - (_s2557_ _s2569_) >>= fun w__0 : option ((uop * mword 5 * mword 20 * string)) => - (if ((match w__0 with | Some ((op, rd, imm, s_)) => true | _ => false end)) then - (_s2557_ _s2569_) >>= fun w__1 : option ((uop * mword 5 * mword 20 * string)) => +Definition assembly_matches_prefix (arg_ : string) +: M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) := + let _s4974_ := arg_ in + (_s4962_ _s4974_) >>= fun w__0 : option ((uop * mword 5 * mword 20 * string)) => + (if match w__0 with | Some (op, rd, imm, s_) => true | _ => false end then + (_s4962_ _s4974_) >>= fun w__1 : option ((uop * mword 5 * mword 20 * string)) => (match w__1 with - | Some ((op, rd, imm, s_)) => - returnm ((Some - ((UTYPE - ((imm, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, imm, s_) => + returnm (Some + (UTYPE (imm, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2570_ _s2569_) >>= fun w__4 : option ((mword 5 * mword 21 * string)) => - (if ((match w__4 with | Some ((rd, imm, s_)) => true | _ => false end)) then - (_s2570_ _s2569_) >>= fun w__5 : option ((mword 5 * mword 21 * string)) => + (_s4975_ _s4974_) >>= fun w__4 : option ((mword 5 * mword 21 * string)) => + (if match w__4 with | Some (rd, imm, s_) => true | _ => false end then + (_s4975_ _s4974_) >>= fun w__5 : option ((mword 5 * mword 21 * string)) => (match w__5 with - | Some ((rd, imm, s_)) => - returnm ((Some - ((RISCV_JAL - ((imm, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, imm, s_) => + returnm (Some + (RISCV_JAL (imm, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2582_ _s2569_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__8 with | Some ((rd, rs1, imm, s_)) => true | _ => false end)) then - (_s2582_ _s2569_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12 * string)) => + (_s4987_ _s4974_) >>= fun w__8 : option ((mword 5 * mword 5 * mword 12 * string)) => + (if match w__8 with | Some (rd, rs1, imm, s_) => true | _ => false end then + (_s4987_ _s4974_) >>= fun w__9 : option ((mword 5 * mword 5 * mword 12 * string)) => (match w__9 with - | Some ((rd, rs1, imm, s_)) => - returnm ((Some - ((RISCV_JALR - ((imm, rs1, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, rs1, imm, s_) => + returnm (Some + (RISCV_JALR (imm, rs1, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2598_ _s2569_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => - (if ((match w__12 with | Some ((op, rs1, rs2, imm, s_)) => true | _ => false end)) then - (_s2598_ _s2569_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => + (_s5003_ _s4974_) >>= fun w__12 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => + (if match w__12 with | Some (op, rs1, rs2, imm, s_) => true | _ => false end then + (_s5003_ _s4974_) >>= fun w__13 : option ((bop * mword 5 * mword 5 * mword 13 * string)) => (match w__13 with - | Some ((op, rs1, rs2, imm, s_)) => - returnm ((Some - ((BTYPE - ((imm, rs2, rs1, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rs1, rs2, imm, s_) => + returnm (Some + (BTYPE (imm, rs2, rs1, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2615_ _s2569_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__16 with | Some ((op, rd, rs1, imm, s_)) => true | _ => false end)) - then - (_s2615_ _s2569_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => + (_s5020_ _s4974_) >>= fun w__16 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => + (if match w__16 with | Some (op, rd, rs1, imm, s_) => true | _ => false end then + (_s5020_ _s4974_) >>= fun w__17 : option ((iop * mword 5 * mword 5 * mword 12 * string)) => (match w__17 with - | Some ((op, rd, rs1, imm, s_)) => - returnm ((Some - ((ITYPE - ((imm, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, imm, s_) => + returnm (Some + (ITYPE (imm, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) (projT1 (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2632_ _s2569_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => - (if ((match w__20 with | Some ((op, rd, rs1, shamt, s_)) => true | _ => false end)) - then - (_s2632_ _s2569_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => + (_s5037_ _s4974_) >>= fun w__20 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => + (if match w__20 with | Some (op, rd, rs1, shamt, s_) => true | _ => false end then + (_s5037_ _s4974_) >>= fun w__21 : option ((sop * mword 5 * mword 5 * mword 6 * string)) => (match w__21 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTIOP - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTIOP (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2649_ _s2569_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__24 with | Some ((op, rd, rs1, rs2, s_)) => true | _ => false end)) + (_s5054_ _s4974_) >>= fun w__24 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => + (if match w__24 with | Some (op, rd, rs1, rs2, s_) => true | _ => false end then - (_s2649_ _s2569_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => + (_s5054_ _s4974_) >>= fun w__25 : option ((rop * mword 5 * mword 5 * mword 5 * string)) => (match w__25 with - | Some ((op, rd, rs1, rs2, s_)) => - returnm ((Some - ((RTYPE - ((rs2, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, rs2, s_) => + returnm (Some + (RTYPE (rs2, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2666_ _s2569_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => - (if ((match w__28 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) => true - | _ => false - end)) then - (_s2666_ _s2569_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (_s5071_ _s4974_) >>= fun w__28 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (if match w__28 with + | Some (size, is_unsigned, aq, rl, rd, imm, rs1, s_) => true + | _ => false + end then + (_s5071_ _s4974_) >>= fun w__29 : option ((word_width * bool * bool * bool * mword 5 * mword 12 * mword 5 * string)) => (match w__29 with - | Some ((size, is_unsigned, aq, rl, rd, imm, rs1, s_)) => - returnm ((Some - ((LOAD - ((imm, rs1, rd, is_unsigned, size, aq, rl)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (size, is_unsigned, aq, rl, rd, imm, rs1, s_) => + returnm (Some + (LOAD (imm, rs1, rd, is_unsigned, size, aq, rl), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2696_ _s2569_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => - (if ((match w__32 with - | Some ((size, aq, rl, rs2, imm, rs1, s_)) => true - | _ => false - end)) then - (_s2696_ _s2569_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (_s5101_ _s4974_) >>= fun w__32 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => + (if match w__32 with + | Some (size, aq, rl, rs2, imm, rs1, s_) => true + | _ => false + end then + (_s5101_ _s4974_) >>= fun w__33 : option ((word_width * bool * bool * mword 5 * mword 12 * mword 5 * string)) => (match w__33 with - | Some ((size, aq, rl, rs2, imm, rs1, s_)) => - returnm ((Some - ((STORE - ((imm, rs2, rs1, size, aq, rl)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) - | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (size, aq, rl, rs2, imm, rs1, s_) => + returnm (Some + (STORE (imm, rs2, rs1, size, aq, rl), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) + | _ => exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2724_ _s2569_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12 * string)) => - (if ((match w__36 with - | Some ((rd, rs1, imm, s_)) => Z.eqb 64 64 - | _ => false - end)) then - (_s2724_ _s2569_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12 * string)) => + (_s5129_ _s4974_) >>= fun w__36 : option ((mword 5 * mword 5 * mword 12 * string)) => + (if match w__36 with + | Some (rd, rs1, imm, s_) => Z.eqb 64 64 + | _ => false + end then + (_s5129_ _s4974_) >>= fun w__37 : option ((mword 5 * mword 5 * mword 12 * string)) => (match w__37 with - | Some ((rd, rs1, imm, s_)) => - returnm ((Some - ((ADDIW - ((imm, rs1, rd)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rd, rs1, imm, s_) => + returnm (Some + (ADDIW (imm, rs1, rd), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => - exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + exit tt : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2740_ _s2569_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__40 with - | Some ((op, rd, rs1, shamt, s_)) => Z.eqb 64 64 - | _ => false - end)) then - (_s2740_ _s2569_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => + (_s5145_ _s4974_) >>= fun w__40 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => + (if match w__40 with + | Some (op, rd, rs1, shamt, s_) => Z.eqb 64 64 + | _ => false + end then + (_s5145_ _s4974_) >>= fun w__41 : option ((sop * mword 5 * mword 5 * mword 5 * string)) => (match w__41 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTW - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTW (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => - exit tt : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2757_ _s2569_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__44 with - | Some ((op, rd, rs1, rs2, s_)) => Z.eqb 64 64 - | _ => false - end)) then - (_s2757_ _s2569_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => + (_s5162_ _s4974_) >>= fun w__44 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => + (if match w__44 with + | Some (op, rd, rs1, rs2, s_) => Z.eqb 64 64 + | _ => false + end then + (_s5162_ _s4974_) >>= fun w__45 : option ((ropw * mword 5 * mword 5 * mword 5 * string)) => (match w__45 with - | Some ((op, rd, rs1, rs2, s_)) => - returnm ((Some - ((RTYPEW - ((rs2, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, rs2, s_) => + returnm (Some + (RTYPEW (rs2, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2774_ _s2569_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__48 with - | Some ((op, rd, rs1, shamt, s_)) => Z.eqb 64 64 - | _ => false - end)) then - (_s2774_ _s2569_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => + (_s5179_ _s4974_) >>= fun w__48 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => + (if match w__48 with + | Some (op, rd, rs1, shamt, s_) => Z.eqb 64 64 + | _ => false + end then + (_s5179_ _s4974_) >>= fun w__49 : option ((sopw * mword 5 * mword 5 * mword 5 * string)) => (match w__49 with - | Some ((op, rd, rs1, shamt, s_)) => - returnm ((Some - ((SHIFTIWOP - ((shamt, rs1, rd, op)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (op, rd, rs1, shamt, s_) => + returnm (Some + (SHIFTIWOP (shamt, rs1, rd, op), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2791_ _s2569_) >>= fun w__52 : option ((mword 4 * mword 4 * string)) => - (if ((match w__52 with - | Some ((pred, succ, s_)) => true - | _ => false - end)) then - (_s2791_ _s2569_) >>= fun w__53 : option ((mword 4 * mword 4 * string)) => + (_s5196_ _s4974_) >>= fun w__52 : option ((mword 4 * mword 4 * string)) => + (if match w__52 with + | Some (pred, succ, s_) => true + | _ => false + end then + (_s5196_ _s4974_) >>= fun w__53 : option ((mword 4 * mword 4 * string)) => (match w__53 with - | Some ((pred, succ, s_)) => - returnm ((Some - ((FENCE - ((pred, succ)), build_ex - (projT1 - (sub_nat (projT1 (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (pred, succ, s_) => + returnm (Some + (FENCE (pred, succ), build_ex + (projT1 + (sub_nat (projT1 (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2803_ _s2569_) >>= fun w__56 : option ((mword 4 * mword 4 * string)) => - (if ((match w__56 with - | Some ((pred, succ, s_)) => true - | _ => false - end)) then - (_s2803_ _s2569_) >>= fun w__57 : option ((mword 4 * mword 4 * string)) => + (_s5208_ _s4974_) >>= fun w__56 : option ((mword 4 * mword 4 * string)) => + (if match w__56 with + | Some (pred, succ, s_) => true + | _ => false + end then + (_s5208_ _s4974_) >>= fun w__57 : option ((mword 4 * mword 4 * string)) => (match w__57 with - | Some ((pred, succ, s_)) => - returnm ((Some - ((FENCE_TSO - ((pred, succ)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (pred, succ, s_) => + returnm (Some + (FENCE_TSO (pred, succ), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2815_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2815_ _s2569_) with - | Some (s_) => - returnm ((Some - ((FENCEI - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5220_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5220_ _s4974_) with + | Some s_ => + returnm (Some + (FENCEI tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2819_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2819_ _s2569_) with - | Some (s_) => - returnm ((Some - ((ECALL - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5224_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5224_ _s4974_) with + | Some s_ => + returnm (Some + (ECALL tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2823_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2823_ _s2569_) with - | Some (s_) => - returnm ((Some - ((MRET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5228_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5228_ _s4974_) with + | Some s_ => + returnm (Some + (MRET tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2827_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2827_ _s2569_) with - | Some (s_) => - returnm ((Some - ((SRET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5232_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5232_ _s4974_) with + | Some s_ => + returnm (Some + (SRET tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2831_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2831_ _s2569_) with - | Some (s_) => - returnm ((Some - ((EBREAK - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5236_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5236_ _s4974_) with + | Some s_ => + returnm (Some + (EBREAK tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) - else if ((match (_s2835_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2835_ _s2569_) with - | Some (s_) => - returnm ((Some - ((WFI - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) + else if match (_s5240_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5240_ _s4974_) with + | Some s_ => + returnm (Some + (WFI tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2839_ _s2569_) >>= fun w__72 : option ((mword 5 * mword 5 * string)) => - (if ((match w__72 with - | Some ((rs1, rs2, s_)) => true - | _ => false - end)) then - (_s2839_ _s2569_) >>= fun w__73 : option ((mword 5 * mword 5 * string)) => + (_s5244_ _s4974_) >>= fun w__72 : option ((mword 5 * mword 5 * string)) => + (if match w__72 with + | Some (rs1, rs2, s_) => true + | _ => false + end then + (_s5244_ _s4974_) >>= fun w__73 : option ((mword 5 * mword 5 * string)) => (match w__73 with - | Some ((rs1, rs2, s_)) => - returnm ((Some - ((SFENCE_VMA - ((rs1, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= 0)}))) + | Some (rs1, rs2, s_) => + returnm (Some + (SFENCE_VMA (rs1, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2851_ _s2569_) >>= fun w__76 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => - (if ((match w__76 with - | Some ((size, aq, rl, rd, rs1, s_)) => - true - | _ => false - end)) then - (_s2851_ _s2569_) >>= fun w__77 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => + (_s5256_ _s4974_) >>= fun w__76 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => + (if match w__76 with + | Some (size, aq, rl, rd, rs1, s_) => true + | _ => false + end then + (_s5256_ _s4974_) >>= fun w__77 : option ((word_width * bool * bool * mword 5 * mword 5 * string)) => (match w__77 with - | Some ((size, aq, rl, rd, rs1, s_)) => - returnm ((Some - ((LOADRES - ((aq, rl, rs1, size, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (size, aq, rl, rd, rs1, s_) => + returnm (Some + (LOADRES + (aq, rl, rs1, size, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2869_ _s2569_) >>= fun w__80 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__80 with - | Some - ((size, aq, rl, rd, rs1, rs2, s_)) => - true - | _ => false - end)) then - (_s2869_ _s2569_) >>= fun w__81 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5274_ _s4974_) >>= fun w__80 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (if match w__80 with + | Some (size, aq, rl, rd, rs1, rs2, s_) => + true + | _ => false + end then + (_s5274_ _s4974_) >>= fun w__81 : option ((word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__81 with - | Some ((size, aq, rl, rd, rs1, rs2, s_)) => - returnm ((Some - ((STORECON - ((aq, rl, rs2, rs1, size, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (size, aq, rl, rd, rs1, rs2, s_) => + returnm (Some + (STORECON + (aq, rl, rs2, rs1, size, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2891_ _s2569_) >>= fun w__84 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => - (if ((match w__84 with - | Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) => - true - | _ => false - end)) then - (_s2891_ _s2569_) >>= fun w__85 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5296_ _s4974_) >>= fun w__84 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (if match w__84 with + | Some + (op, width, aq, rl, rd, rs2, rs1, s_) => + true + | _ => false + end then + (_s5296_ _s4974_) >>= fun w__85 : option ((amoop * word_width * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__85 with | Some - ((op, width, aq, rl, rd, rs1, rs2, s_)) => - returnm ((Some - ((AMO - ((op, aq, rl, rs2, rs1, width, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, width, aq, rl, rd, rs2, rs1, s_) => + returnm (Some + (AMO + (op, aq, rl, rs2, rs1, width, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) - else if ((match (_s2915_ _s2569_) with - | Some (s_) => true - | _ => false - end)) then - (match (_s2915_ _s2569_) with - | Some (s_) => - returnm ((Some - ((C_NOP - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length arg_)) - (projT1 - (string_length s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + else if match (_s5322_ _s4974_) with + | Some s_ => true + | _ => false + end then + (match (_s5322_ _s4974_) with + | Some s_ => + returnm (Some + (C_NOP tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2919_ _s2569_) >>= fun w__90 : option ((mword 3 * mword 8 * string)) => - (if ((match w__90 with - | Some ((rdc, nzimm, s_)) => - neq_vec nzimm - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0] - : mword 8) - | _ => false - end)) then - (_s2919_ _s2569_) >>= fun w__91 : option ((mword 3 * mword 8 * string)) => + (_s5326_ _s4974_) >>= fun w__90 : option ((mword 3 * mword 8 * string)) => + (if match w__90 with + | Some (rdc, nzimm, s_) => + neq_vec nzimm (Ox"00" : mword 8) + | _ => false + end then + (_s5326_ _s4974_) >>= fun w__91 : option ((mword 3 * mword 8 * string)) => (match w__91 with - | Some ((rdc, nzimm, s_)) => - returnm ((Some - ((C_ADDI4SPN - ((rdc, nzimm)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, nzimm, s_) => + returnm (Some + (C_ADDI4SPN + (rdc, nzimm), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2931_ _s2569_) >>= fun w__94 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__94 with - | Some ((rdc, rsc, uimm, s_)) => - true - | _ => false - end)) then - (_s2931_ _s2569_) >>= fun w__95 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s5338_ _s4974_) >>= fun w__94 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__94 with + | Some (rdc, rsc, uimm, s_) => + true + | _ => false + end then + (_s5338_ _s4974_) >>= fun w__95 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__95 with - | Some ((rdc, rsc, uimm, s_)) => - returnm ((Some - ((C_LW - ((uimm, rsc, rdc)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, rsc, uimm, s_) => + returnm (Some + (C_LW + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2947_ _s2569_) >>= fun w__98 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__98 with - | Some - ((rdc, rsc, uimm, s_)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s2947_ _s2569_) >>= fun w__99 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s5354_ _s4974_) >>= fun w__98 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__98 with + | Some (rdc, rsc, uimm, s_) => + Z.eqb 64 64 + | _ => false + end then + (_s5354_ _s4974_) >>= fun w__99 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__99 with - | Some ((rdc, rsc, uimm, s_)) => - returnm ((Some - ((C_LD - ((uimm, rsc, rdc)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rdc, rsc, uimm, s_) => + returnm (Some + (C_LD + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2963_ _s2569_) >>= fun w__102 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__102 with - | Some - ((rsc1, rsc2, uimm, s_)) => - true - | _ => false - end)) then - (_s2963_ _s2569_) >>= fun w__103 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s5370_ _s4974_) >>= fun w__102 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__102 with + | Some + (rsc1, rsc2, uimm, s_) => + true + | _ => false + end then + (_s5370_ _s4974_) >>= fun w__103 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__103 with | Some - ((rsc1, rsc2, uimm, s_)) => - returnm ((Some - ((C_SW - ((uimm, rsc1, rsc2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_SW + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2979_ _s2569_) >>= fun w__106 : option ((mword 3 * mword 3 * mword 5 * string)) => - (if ((match w__106 with - | Some - ((rsc1, rsc2, uimm, s_)) => - Z.eqb 64 64 - | _ => false - end)) then - (_s2979_ _s2569_) >>= fun w__107 : option ((mword 3 * mword 3 * mword 5 * string)) => + (_s5386_ _s4974_) >>= fun w__106 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if match w__106 with + | Some + (rsc1, rsc2, uimm, s_) => + Z.eqb 64 64 + | _ => false + end then + (_s5386_ _s4974_) >>= fun w__107 : option ((mword 3 * mword 3 * mword 5 * string)) => (match w__107 with | Some - ((rsc1, rsc2, uimm, s_)) => - returnm ((Some - ((C_SD - ((uimm, rsc1, rsc2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_SD + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s2995_ _s2569_) >>= fun w__110 : option ((mword 5 * mword 6 * string)) => - (if ((match w__110 with - | Some - ((rsd, nzi, s_)) => - andb - (neq_vec nzi - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => false - end)) then - (_s2995_ _s2569_) >>= fun w__111 : option ((mword 5 * mword 6 * string)) => + (_s5402_ _s4974_) >>= fun w__110 : option ((mword 5 * mword 6 * string)) => + (if match w__110 with + | Some (rsd, nzi, s_) => + andb + (neq_vec nzi + ('b"000000" + : mword 6)) + (neq_vec rsd + zreg) + | _ => false + end then + (_s5402_ _s4974_) >>= fun w__111 : option ((mword 5 * mword 6 * string)) => (match w__111 with - | Some - ((rsd, nzi, s_)) => - returnm ((Some - ((C_ADDI - ((nzi, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (rsd, nzi, s_) => + returnm (Some + (C_ADDI + (nzi, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3007_ _s2569_) >>= fun w__114 : option ((mword 11 * string)) => - (if ((match w__114 with - | Some - ((imm, s_)) => - Z.eqb 64 32 - | _ => false - end)) then - (_s3007_ _s2569_) >>= fun w__115 : option ((mword 11 * string)) => + (_s5414_ _s4974_) >>= fun w__114 : option ((mword 11 * string)) => + (if match w__114 with + | Some (imm, s_) => + Z.eqb 64 32 + | _ => false + end then + (_s5414_ _s4974_) >>= fun w__115 : option ((mword 11 * string)) => (match w__115 with - | Some ((imm, s_)) => - returnm ((Some - ((C_JAL - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + | Some (imm, s_) => + returnm (Some + (C_JAL + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3015_ _s2569_) >>= fun w__118 : option ((mword 5 * mword 6 * string)) => - (if ((match w__118 with - | Some - ((rsd, imm, s_)) => - Z.eqb 64 - 64 - | _ => false - end)) then - (_s3015_ _s2569_) >>= fun w__119 : option ((mword 5 * mword 6 * string)) => + (_s5422_ _s4974_) >>= fun w__118 : option ((mword 5 * mword 6 * string)) => + (if match w__118 with + | Some + (rsd, imm, s_) => + Z.eqb 64 64 + | _ => false + end then + (_s5422_ _s4974_) >>= fun w__119 : option ((mword 5 * mword 6 * string)) => (match w__119 with | Some - ((rsd, imm, s_)) => - returnm ((Some - ((C_ADDIW - ((imm, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, imm, s_) => + returnm (Some + (C_ADDIW + (imm, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3027_ _s2569_) >>= fun w__122 : option ((mword 5 * mword 6 * string)) => - (if ((match w__122 with - | Some - ((rd, imm, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) then - (_s3027_ - _s2569_) >>= fun w__123 : option ((mword 5 * mword 6 * string)) => + (_s5434_ _s4974_) >>= fun w__122 : option ((mword 5 * mword 6 * string)) => + (if match w__122 with + | Some + (rd, imm, s_) => + neq_vec + rd zreg + | _ => false + end then + (_s5434_ + _s4974_) >>= fun w__123 : option ((mword 5 * mword 6 * string)) => (match w__123 with | Some - ((rd, imm, s_)) => - returnm ((Some - ((C_LI - ((imm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, imm, s_) => + returnm (Some + (C_LI + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3039_ - _s2569_) >>= fun w__126 : option ((mword 6 * string)) => - (if ((match w__126 with - | Some - ((imm, s_)) => - neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) - then - (_s3039_ - _s2569_) >>= fun w__127 : option ((mword 6 * string)) => + (_s5446_ + _s4974_) >>= fun w__126 : option ((mword 6 * string)) => + (if match w__126 with + | Some + (imm, s_) => + neq_vec + imm + ('b"000000" + : mword 6) + | _ => + false + end then + (_s5446_ + _s4974_) >>= fun w__127 : option ((mword 6 * string)) => (match w__127 with | Some - ((imm, s_)) => - returnm ((Some - ((C_ADDI16SP - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (imm, s_) => + returnm (Some + (C_ADDI16SP + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3047_ - _s2569_) >>= fun w__130 : option ((mword 5 * mword 6 * string)) => - (if ((match w__130 with - | Some - ((rd, imm, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - sp)))) - (neq_vec - imm - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6))) - : bool) - | _ => - false - end)) + (_s5454_ + _s4974_) >>= fun w__130 : option ((mword 5 * mword 6 * string)) => + (if match w__130 with + | Some + (rd, imm, s_) => + andb + (neq_vec + rd + zreg) + (andb + (neq_vec + rd + sp) + (neq_vec + imm + ('b"000000" + : mword 6))) + | _ => + false + end then - (_s3047_ - _s2569_) >>= fun w__131 : option ((mword 5 * mword 6 * string)) => + (_s5454_ + _s4974_) >>= fun w__131 : option ((mword 5 * mword 6 * string)) => (match w__131 with | Some - ((rd, imm, s_)) => - returnm ((Some - ((C_LUI - ((imm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, imm, s_) => + returnm (Some + (C_LUI + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3059_ - _s2569_) >>= fun w__134 : option ((mword 3 * mword 6 * string)) => - (if ((match w__134 with - | Some - ((rsd, shamt, s_)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s5466_ + _s4974_) >>= fun w__134 : option ((mword 3 * mword 6 * string)) => + (if match w__134 with + | Some + (rsd, shamt, s_) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s3059_ - _s2569_) >>= fun w__135 : option ((mword 3 * mword 6 * string)) => + (_s5466_ + _s4974_) >>= fun w__135 : option ((mword 3 * mword 6 * string)) => (match w__135 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SRLI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SRLI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3071_ - _s2569_) >>= fun w__138 : option ((mword 3 * mword 6 * string)) => - (if ((match w__138 with - | Some - ((rsd, shamt, s_)) => - neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6) - | _ => - false - end)) + (_s5478_ + _s4974_) >>= fun w__138 : option ((mword 3 * mword 6 * string)) => + (if match w__138 with + | Some + (rsd, shamt, s_) => + neq_vec + shamt + ('b"000000" + : mword 6) + | _ => + false + end then - (_s3071_ - _s2569_) >>= fun w__139 : option ((mword 3 * mword 6 * string)) => + (_s5478_ + _s4974_) >>= fun w__139 : option ((mword 3 * mword 6 * string)) => (match w__139 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SRAI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SRAI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3083_ - _s2569_) >>= fun w__142 : option ((mword 3 * mword 6 * string)) => + (_s5490_ + _s4974_) >>= fun w__142 : option ((mword 3 * mword 6 * string)) => (if - ((match w__142 with - | Some - ((rsd, imm, s_)) => - true - | _ => - false - end)) + match w__142 with + | Some + (rsd, imm, s_) => + true + | _ => + false + end then - (_s3083_ - _s2569_) >>= fun w__143 : option ((mword 3 * mword 6 * string)) => + (_s5490_ + _s4974_) >>= fun w__143 : option ((mword 3 * mword 6 * string)) => (match w__143 with | Some - ((rsd, imm, s_)) => - returnm ((Some - ((C_ANDI - ((imm, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, imm, s_) => + returnm (Some + (C_ANDI + (imm, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3095_ - _s2569_) >>= fun w__146 : option ((mword 3 * mword 3 * string)) => + (_s5502_ + _s4974_) >>= fun w__146 : option ((mword 3 * mword 3 * string)) => (if - ((match w__146 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__146 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3095_ - _s2569_) >>= fun w__147 : option ((mword 3 * mword 3 * string)) => + (_s5502_ + _s4974_) >>= fun w__147 : option ((mword 3 * mword 3 * string)) => (match w__147 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_SUB - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_SUB + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3107_ - _s2569_) >>= fun w__150 : option ((mword 3 * mword 3 * string)) => + (_s5514_ + _s4974_) >>= fun w__150 : option ((mword 3 * mword 3 * string)) => (if - ((match w__150 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__150 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3107_ - _s2569_) >>= fun w__151 : option ((mword 3 * mword 3 * string)) => + (_s5514_ + _s4974_) >>= fun w__151 : option ((mword 3 * mword 3 * string)) => (match w__151 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_XOR - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_XOR + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3119_ - _s2569_) >>= fun w__154 : option ((mword 3 * mword 3 * string)) => + (_s5526_ + _s4974_) >>= fun w__154 : option ((mword 3 * mword 3 * string)) => (if - ((match w__154 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__154 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3119_ - _s2569_) >>= fun w__155 : option ((mword 3 * mword 3 * string)) => + (_s5526_ + _s4974_) >>= fun w__155 : option ((mword 3 * mword 3 * string)) => (match w__155 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_OR - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_OR + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3131_ - _s2569_) >>= fun w__158 : option ((mword 3 * mword 3 * string)) => + (_s5538_ + _s4974_) >>= fun w__158 : option ((mword 3 * mword 3 * string)) => (if - ((match w__158 with - | Some - ((rsd, rs2, s_)) => - true - | _ => - false - end)) + match w__158 with + | Some + (rsd, rs2, s_) => + true + | _ => + false + end then - (_s3131_ - _s2569_) >>= fun w__159 : option ((mword 3 * mword 3 * string)) => + (_s5538_ + _s4974_) >>= fun w__159 : option ((mword 3 * mword 3 * string)) => (match w__159 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_AND - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_AND + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3143_ - _s2569_) >>= fun w__162 : option ((mword 3 * mword 3 * string)) => + (_s5550_ + _s4974_) >>= fun w__162 : option ((mword 3 * mword 3 * string)) => (if - ((match w__162 with - | Some - ((rsd, rs2, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__162 with + | Some + (rsd, rs2, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3143_ - _s2569_) >>= fun w__163 : option ((mword 3 * mword 3 * string)) => + (_s5550_ + _s4974_) >>= fun w__163 : option ((mword 3 * mword 3 * string)) => (match w__163 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_SUBW - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_SUBW + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3155_ - _s2569_) >>= fun w__166 : option ((mword 3 * mword 3 * string)) => + (_s5562_ + _s4974_) >>= fun w__166 : option ((mword 3 * mword 3 * string)) => (if - ((match w__166 with - | Some - ((rsd, rs2, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__166 with + | Some + (rsd, rs2, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3155_ - _s2569_) >>= fun w__167 : option ((mword 3 * mword 3 * string)) => + (_s5562_ + _s4974_) >>= fun w__167 : option ((mword 3 * mword 3 * string)) => (match w__167 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_ADDW - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_ADDW + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3167_ - _s2569_) >>= fun w__170 : option ((mword 11 * string)) => + (_s5574_ + _s4974_) >>= fun w__170 : option ((mword 11 * string)) => (if - ((match w__170 with - | Some - ((imm, s_)) => - true - | _ => - false - end)) + match w__170 with + | Some + (imm, s_) => + true + | _ => + false + end then - (_s3167_ - _s2569_) >>= fun w__171 : option ((mword 11 * string)) => + (_s5574_ + _s4974_) >>= fun w__171 : option ((mword 11 * string)) => (match w__171 with | Some - ((imm, s_)) => - returnm ((Some - ((C_J - (imm), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (imm, s_) => + returnm (Some + (C_J + imm, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3175_ - _s2569_) >>= fun w__174 : option ((mword 3 * mword 8 * string)) => + (_s5582_ + _s4974_) >>= fun w__174 : option ((mword 3 * mword 8 * string)) => (if - ((match w__174 with - | Some - ((rs, imm, s_)) => - true - | _ => - false - end)) + match w__174 with + | Some + (rs, imm, s_) => + true + | _ => + false + end then - (_s3175_ - _s2569_) >>= fun w__175 : option ((mword 3 * mword 8 * string)) => + (_s5582_ + _s4974_) >>= fun w__175 : option ((mword 3 * mword 8 * string)) => (match w__175 with | Some - ((rs, imm, s_)) => - returnm ((Some - ((C_BEQZ - ((imm, rs)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs, imm, s_) => + returnm (Some + (C_BEQZ + (imm, rs), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3187_ - _s2569_) >>= fun w__178 : option ((mword 3 * mword 8 * string)) => + (_s5594_ + _s4974_) >>= fun w__178 : option ((mword 3 * mword 8 * string)) => (if - ((match w__178 with - | Some - ((rs, imm, s_)) => - true - | _ => - false - end)) + match w__178 with + | Some + (rs, imm, s_) => + true + | _ => + false + end then - (_s3187_ - _s2569_) >>= fun w__179 : option ((mword 3 * mword 8 * string)) => + (_s5594_ + _s4974_) >>= fun w__179 : option ((mword 3 * mword 8 * string)) => (match w__179 with | Some - ((rs, imm, s_)) => - returnm ((Some - ((C_BNEZ - ((imm, rs)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs, imm, s_) => + returnm (Some + (C_BNEZ + (imm, rs), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3199_ - _s2569_) >>= fun w__182 : option ((mword 5 * mword 6 * string)) => + (_s5606_ + _s4974_) >>= fun w__182 : option ((mword 5 * mword 6 * string)) => (if - ((match w__182 with - | Some - ((rsd, shamt, s_)) => - andb - (neq_vec - shamt - (vec_of_bits [B0;B0;B0;B0;B0;B0] - : mword 6)) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__182 with + | Some + (rsd, shamt, s_) => + andb + (neq_vec + shamt + ('b"000000" + : mword 6)) + (neq_vec + rsd + zreg) + | _ => + false + end then - (_s3199_ - _s2569_) >>= fun w__183 : option ((mword 5 * mword 6 * string)) => + (_s5606_ + _s4974_) >>= fun w__183 : option ((mword 5 * mword 6 * string)) => (match w__183 with | Some - ((rsd, shamt, s_)) => - returnm ((Some - ((C_SLLI - ((shamt, rsd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, shamt, s_) => + returnm (Some + (C_SLLI + (shamt, rsd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3211_ - _s2569_) >>= fun w__186 : option ((mword 5 * mword 6 * string)) => + (_s5618_ + _s4974_) >>= fun w__186 : option ((mword 5 * mword 6 * string)) => (if - ((match w__186 with - | Some - ((rd, uimm, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__186 with + | Some + (rd, uimm, s_) => + neq_vec + rd + zreg + | _ => + false + end then - (_s3211_ - _s2569_) >>= fun w__187 : option ((mword 5 * mword 6 * string)) => + (_s5618_ + _s4974_) >>= fun w__187 : option ((mword 5 * mword 6 * string)) => (match w__187 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_LWSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_LWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3223_ - _s2569_) >>= fun w__190 : option ((mword 5 * mword 6 * string)) => + (_s5630_ + _s4974_) >>= fun w__190 : option ((mword 5 * mword 6 * string)) => (if - ((match w__190 with - | Some - ((rd, uimm, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - (Z.eqb - 64 - 64) - | _ => - false - end)) + match w__190 with + | Some + (rd, uimm, s_) => + andb + (neq_vec + rd + zreg) + (Z.eqb + 64 + 64) + | _ => + false + end then - (_s3223_ - _s2569_) >>= fun w__191 : option ((mword 5 * mword 6 * string)) => + (_s5630_ + _s4974_) >>= fun w__191 : option ((mword 5 * mword 6 * string)) => (match w__191 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_LDSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_LDSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3235_ - _s2569_) >>= fun w__194 : option ((mword 5 * mword 6 * string)) => + (_s5642_ + _s4974_) >>= fun w__194 : option ((mword 5 * mword 6 * string)) => (if - ((match w__194 with - | Some - ((rd, uimm, s_)) => - true - | _ => - false - end)) + match w__194 with + | Some + (rd, uimm, s_) => + true + | _ => + false + end then - (_s3235_ - _s2569_) >>= fun w__195 : option ((mword 5 * mword 6 * string)) => + (_s5642_ + _s4974_) >>= fun w__195 : option ((mword 5 * mword 6 * string)) => (match w__195 with | Some - ((rd, uimm, s_)) => - returnm ((Some - ((C_SWSP - ((uimm, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, uimm, s_) => + returnm (Some + (C_SWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3247_ - _s2569_) >>= fun w__198 : option ((mword 5 * mword 6 * string)) => + (_s5654_ + _s4974_) >>= fun w__198 : option ((mword 5 * mword 6 * string)) => (if - ((match w__198 with - | Some - ((rs2, uimm, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__198 with + | Some + (rs2, uimm, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3247_ - _s2569_) >>= fun w__199 : option ((mword 5 * mword 6 * string)) => + (_s5654_ + _s4974_) >>= fun w__199 : option ((mword 5 * mword 6 * string)) => (match w__199 with | Some - ((rs2, uimm, s_)) => - returnm ((Some - ((C_SDSP - ((uimm, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs2, uimm, s_) => + returnm (Some + (C_SDSP + (uimm, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3259_ - _s2569_) >>= fun w__202 : option ((mword 5 * string)) => + (_s5666_ + _s4974_) >>= fun w__202 : option ((mword 5 * string)) => (if - ((match w__202 with - | Some - ((rs1, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__202 with + | Some + (rs1, s_) => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s3259_ - _s2569_) >>= fun w__203 : option ((mword 5 * string)) => + (_s5666_ + _s4974_) >>= fun w__203 : option ((mword 5 * string)) => (match w__203 with | Some - ((rs1, s_)) => - returnm ((Some - ((C_JR - (rs1), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs1, s_) => + returnm (Some + (C_JR + rs1, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3267_ - _s2569_) >>= fun w__206 : option ((mword 5 * string)) => + (_s5674_ + _s4974_) >>= fun w__206 : option ((mword 5 * string)) => (if - ((match w__206 with - | Some - ((rs1, s_)) => - projT1 - (neq_int - (projT1 - (regidx_to_regno - rs1)) - (projT1 - (regidx_to_regno - zreg))) - | _ => - false - end)) + match w__206 with + | Some + (rs1, s_) => + neq_vec + rs1 + zreg + | _ => + false + end then - (_s3267_ - _s2569_) >>= fun w__207 : option ((mword 5 * string)) => + (_s5674_ + _s4974_) >>= fun w__207 : option ((mword 5 * string)) => (match w__207 with | Some - ((rs1, s_)) => - returnm ((Some - ((C_JALR - (rs1), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rs1, s_) => + returnm (Some + (C_JALR + rs1, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3275_ - _s2569_) >>= fun w__210 : option ((mword 5 * mword 5 * string)) => + (_s5682_ + _s4974_) >>= fun w__210 : option ((mword 5 * mword 5 * string)) => (if - ((match w__210 with - | Some - ((rd, rs2, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__210 with + | Some + (rd, rs2, s_) => + andb + (neq_vec + rd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s3275_ - _s2569_) >>= fun w__211 : option ((mword 5 * mword 5 * string)) => + (_s5682_ + _s4974_) >>= fun w__211 : option ((mword 5 * mword 5 * string)) => (match w__211 with | Some - ((rd, rs2, s_)) => - returnm ((Some - ((C_MV - ((rd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, rs2, s_) => + returnm (Some + (C_MV + (rd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else if - ((match (_s3287_ - _s2569_) with - | Some - (s_) => - true - | _ => - false - end)) + match (_s5694_ + _s4974_) with + | Some + s_ => + true + | _ => + false + end then - (match (_s3287_ - _s2569_) with + (match (_s5694_ + _s4974_) with | Some - (s_) => - returnm ((Some - ((C_EBREAK - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + s_ => + returnm (Some + (C_EBREAK + tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3291_ - _s2569_) >>= fun w__216 : option ((mword 5 * mword 5 * string)) => + (_s5698_ + _s4974_) >>= fun w__216 : option ((mword 5 * mword 5 * string)) => (if - ((match w__216 with - | Some - ((rsd, rs2, s_)) => - andb - (projT1 - (neq_int - (projT1 - (regidx_to_regno - rsd)) - (projT1 - (regidx_to_regno - zreg)))) - ((projT1 - (neq_int - (projT1 - (regidx_to_regno - rs2)) - (projT1 - (regidx_to_regno - zreg)))) - : bool) - | _ => - false - end)) + match w__216 with + | Some + (rsd, rs2, s_) => + andb + (neq_vec + rsd + zreg) + (neq_vec + rs2 + zreg) + | _ => + false + end then - (_s3291_ - _s2569_) >>= fun w__217 : option ((mword 5 * mword 5 * string)) => + (_s5698_ + _s4974_) >>= fun w__217 : option ((mword 5 * mword 5 * string)) => (match w__217 with | Some - ((rsd, rs2, s_)) => - returnm ((Some - ((C_ADD - ((rsd, rs2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rsd, rs2, s_) => + returnm (Some + (C_ADD + (rsd, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3303_ - _s2569_) >>= fun w__220 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5710_ + _s4974_) >>= fun w__220 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__220 with - | Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__220 with + | Some + (high, signed1, signed2, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3303_ - _s2569_) >>= fun w__221 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5710_ + _s4974_) >>= fun w__221 : option ((bool * bool * bool * mword 5 * mword 5 * mword 5 * string)) => (match w__221 with | Some - ((high, signed1, signed2, rd, rs1, rs2, s_)) => - returnm ((Some - ((MUL - ((rs2, rs1, rd, high, signed1, signed2)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (high, signed1, signed2, rd, rs1, rs2, s_) => + returnm (Some + (MUL + (rs2, rs1, rd, high, signed1, signed2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3320_ - _s2569_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5727_ + _s4974_) >>= fun w__224 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__224 with - | Some - ((s, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__224 with + | Some + (s, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3320_ - _s2569_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5727_ + _s4974_) >>= fun w__225 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__225 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((DIV - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (DIV + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3338_ - _s2569_) >>= fun w__228 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5745_ + _s4974_) >>= fun w__228 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__228 with - | Some - ((s, rd, rs1, rs2, s_)) => - true - | _ => - false - end)) + match w__228 with + | Some + (s, rd, rs1, rs2, s_) => + true + | _ => + false + end then - (_s3338_ - _s2569_) >>= fun w__229 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5745_ + _s4974_) >>= fun w__229 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__229 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((REM - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (REM + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3356_ - _s2569_) >>= fun w__232 : option ((mword 5 * mword 5 * mword 5 * string)) => + (_s5763_ + _s4974_) >>= fun w__232 : option ((mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__232 with - | Some - ((rd, rs1, rs2, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__232 with + | Some + (rd, rs1, rs2, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3356_ - _s2569_) >>= fun w__233 : option ((mword 5 * mword 5 * mword 5 * string)) => + (_s5763_ + _s4974_) >>= fun w__233 : option ((mword 5 * mword 5 * mword 5 * string)) => (match w__233 with | Some - ((rd, rs1, rs2, s_)) => - returnm ((Some - ((MULW - ((rs2, rs1, rd)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (rd, rs1, rs2, s_) => + returnm (Some + (MULW + (rs2, rs1, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3372_ - _s2569_) >>= fun w__236 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5779_ + _s4974_) >>= fun w__236 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__236 with - | Some - ((s, rd, rs1, rs2, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__236 with + | Some + (s, rd, rs1, rs2, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3372_ - _s2569_) >>= fun w__237 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5779_ + _s4974_) >>= fun w__237 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__237 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((DIVW - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (DIVW + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3391_ - _s2569_) >>= fun w__240 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5798_ + _s4974_) >>= fun w__240 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (if - ((match w__240 with - | Some - ((s, rd, rs1, rs2, s_)) => - Z.eqb - 64 - 64 - | _ => - false - end)) + match w__240 with + | Some + (s, rd, rs1, rs2, s_) => + Z.eqb + 64 + 64 + | _ => + false + end then - (_s3391_ - _s2569_) >>= fun w__241 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => + (_s5798_ + _s4974_) >>= fun w__241 : option ((bool * mword 5 * mword 5 * mword 5 * string)) => (match w__241 with | Some - ((s, rd, rs1, rs2, s_)) => - returnm ((Some - ((REMW - ((rs2, rs1, rd, s)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (s, rd, rs1, rs2, s_) => + returnm (Some + (REMW + (rs2, rs1, rd, s), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3410_ - _s2569_) >>= fun w__244 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s5817_ + _s4974_) >>= fun w__244 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__244 with - | Some - ((op, rd, rs1, csr, s_)) => - true - | _ => - false - end)) + match w__244 with + | Some + (op, rd, csr, rs1, s_) => + true + | _ => + false + end then - (_s3410_ - _s2569_) >>= fun w__245 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s5817_ + _s4974_) >>= fun w__245 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (match w__245 with | Some - ((op, rd, rs1, csr, s_)) => - returnm ((Some - ((CSR - ((csr, rs1, rd, true, op)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, rd, csr, rs1, s_) => + returnm (Some + (CSR + (csr, rs1, rd, true, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3428_ - _s2569_) >>= fun w__248 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s5835_ + _s4974_) >>= fun w__248 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__248 with - | Some - ((op, rd, rs1, csr, s_)) => - true - | _ => - false - end)) + match w__248 with + | Some + (op, rd, csr, rs1, s_) => + true + | _ => + false + end then - (_s3428_ - _s2569_) >>= fun w__249 : option ((csrop * mword 5 * mword 5 * mword 12 * string)) => + (_s5835_ + _s4974_) >>= fun w__249 : option ((csrop * mword 5 * mword 12 * mword 5 * string)) => (match w__249 with | Some - ((op, rd, rs1, csr, s_)) => - returnm ((Some - ((CSR - ((csr, rs1, rd, false, op)), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (op, rd, csr, rs1, s_) => + returnm (Some + (CSR + (csr, rs1, rd, false, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else if - ((match (_s3445_ - _s2569_) with - | Some - (s_) => - true - | _ => - false - end)) + match (_s5852_ + _s4974_) with + | Some + s_ => + true + | _ => + false + end then - (match (_s3445_ - _s2569_) with + (match (_s5852_ + _s4974_) with | Some - (s_) => - returnm ((Some - ((URET - (tt), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + s_ => + returnm (Some + (URET + tt, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3449_ - _s2569_) >>= fun w__254 : option ((mword 32 * string)) => + (_s5856_ + _s4974_) >>= fun w__254 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__254 with - | Some - ((s, s_)) => - true - | _ => - false - end)) + match w__254 with + | Some + (width, rd, imm, rs1, s_) => + true + | _ => + false + end then - (_s3449_ - _s2569_) >>= fun w__255 : option ((mword 32 * string)) => + (_s5856_ + _s4974_) >>= fun w__255 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (match w__255 with | Some - ((s, s_)) => - returnm ((Some - ((ILLEGAL - (s), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (width, rd, imm, rs1, s_) => + returnm (Some + (LOAD_FP + (imm, rs1, rd, width), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - (_s3457_ - _s2569_) >>= fun w__258 : option ((mword 16 * string)) => + (_s5880_ + _s4974_) >>= fun w__258 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (if - ((match w__258 with - | Some - ((s, s_)) => - true - | _ => - false - end)) + match w__258 with + | Some + (width, rs2, imm, rs1, s_) => + true + | _ => + false + end then - (_s3457_ - _s2569_) >>= fun w__259 : option ((mword 16 * string)) => + (_s5880_ + _s4974_) >>= fun w__259 : option ((word_width * mword 5 * mword 12 * mword 5 * string)) => (match w__259 with | Some - ((s, s_)) => - returnm ((Some - ((C_ILLEGAL - (s), build_ex - (projT1 - (sub_nat - (projT1 - (string_length - arg_)) - (projT1 - (string_length - s_))))))) - : option ((ast * {n : Z & ArithFact (n >= - 0)}))) + (width, rs2, imm, rs1, s_) => + returnm (Some + (STORE_FP + (imm, rs2, rs1, width), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) | _ => exit tt - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) end) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))) else - returnm (None - : option ((ast * {n : Z & ArithFact (n >= + (_s5904_ + _s4974_) >>= fun w__262 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__262 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + true + | _ => + false + end + then + (_s5904_ + _s4974_) >>= fun w__263 : option ((f_madd_op_S * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__263 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + returnm (Some + (F_MADD_TYPE_S + (rs3, rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5929_ + _s4974_) >>= fun w__266 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__266 with + | Some + (op, rd, rs1, rs2, rm, s_) => + true + | _ => + false + end + then + (_s5929_ + _s4974_) >>= fun w__267 : option ((f_bin_rm_op_S * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__267 with + | Some + (op, rd, rs1, rs2, rm, s_) => + returnm (Some + (F_BIN_RM_TYPE_S + (rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5950_ + _s4974_) >>= fun w__270 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__270 with + | Some + (FSQRT_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5950_ + _s4974_) >>= fun w__271 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__271 with + | Some + (FSQRT_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FSQRT_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5967_ + _s4974_) >>= fun w__274 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__274 with + | Some + (FCVT_W_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5967_ + _s4974_) >>= fun w__275 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__275 with + | Some + (FCVT_W_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_W_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s5984_ + _s4974_) >>= fun w__278 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__278 with + | Some + (FCVT_WU_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s5984_ + _s4974_) >>= fun w__279 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__279 with + | Some + (FCVT_WU_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_WU_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6001_ + _s4974_) >>= fun w__282 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__282 with + | Some + (FCVT_S_W, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6001_ + _s4974_) >>= fun w__283 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__283 with + | Some + (FCVT_S_W, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_W), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6018_ + _s4974_) >>= fun w__286 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__286 with + | Some + (FCVT_S_WU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6018_ + _s4974_) >>= fun w__287 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__287 with + | Some + (FCVT_S_WU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_WU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6035_ + _s4974_) >>= fun w__290 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__290 with + | Some + (FCVT_L_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6035_ + _s4974_) >>= fun w__291 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__291 with + | Some + (FCVT_L_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_L_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6052_ + _s4974_) >>= fun w__294 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__294 with + | Some + (FCVT_LU_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6052_ + _s4974_) >>= fun w__295 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__295 with + | Some + (FCVT_LU_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_LU_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6069_ + _s4974_) >>= fun w__298 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__298 with + | Some + (FCVT_S_L, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6069_ + _s4974_) >>= fun w__299 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__299 with + | Some + (FCVT_S_L, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_L), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6086_ + _s4974_) >>= fun w__302 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__302 with + | Some + (FCVT_S_LU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6086_ + _s4974_) >>= fun w__303 : option ((f_un_rm_op_S * mword 5 * mword 5 * rounding_mode * string)) => + (match w__303 with + | Some + (FCVT_S_LU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_S + (rs1, rm, rd, FCVT_S_LU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6103_ + _s4974_) >>= fun w__306 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__306 with + | Some + (FSGNJ_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6103_ + _s4974_) >>= fun w__307 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__307 with + | Some + (FSGNJ_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJ_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6120_ + _s4974_) >>= fun w__310 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__310 with + | Some + (FSGNJN_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6120_ + _s4974_) >>= fun w__311 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__311 with + | Some + (FSGNJN_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJN_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6137_ + _s4974_) >>= fun w__314 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__314 with + | Some + (FSGNJX_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6137_ + _s4974_) >>= fun w__315 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__315 with + | Some + (FSGNJX_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FSGNJX_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6154_ + _s4974_) >>= fun w__318 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__318 with + | Some + (FMIN_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6154_ + _s4974_) >>= fun w__319 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__319 with + | Some + (FMIN_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FMIN_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6171_ + _s4974_) >>= fun w__322 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__322 with + | Some + (FMAX_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6171_ + _s4974_) >>= fun w__323 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__323 with + | Some + (FMAX_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FMAX_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6188_ + _s4974_) >>= fun w__326 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__326 with + | Some + (FEQ_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6188_ + _s4974_) >>= fun w__327 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__327 with + | Some + (FEQ_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FEQ_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6205_ + _s4974_) >>= fun w__330 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__330 with + | Some + (FLT_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6205_ + _s4974_) >>= fun w__331 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__331 with + | Some + (FLT_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FLT_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6222_ + _s4974_) >>= fun w__334 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__334 with + | Some + (FLE_S, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6222_ + _s4974_) >>= fun w__335 : option ((f_bin_op_S * mword 5 * mword 5 * mword 5 * string)) => + (match w__335 with + | Some + (FLE_S, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_S + (rs2, rs1, rd, FLE_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6239_ + _s4974_) >>= fun w__338 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__338 with + | Some + (FMV_X_W, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6239_ + _s4974_) >>= fun w__339 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__339 with + | Some + (FMV_X_W, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FMV_X_W), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6252_ + _s4974_) >>= fun w__342 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__342 with + | Some + (FMV_W_X, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6252_ + _s4974_) >>= fun w__343 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__343 with + | Some + (FMV_W_X, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FMV_W_X), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6265_ + _s4974_) >>= fun w__346 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (if + match w__346 with + | Some + (FCLASS_S, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6265_ + _s4974_) >>= fun w__347 : option ((f_un_op_S * mword 5 * mword 5 * string)) => + (match w__347 with + | Some + (FCLASS_S, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_S + (rs1, rd, FCLASS_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6278_ + _s4974_) >>= fun w__350 : option ((mword 5 * mword 6 * string)) => + (if + match w__350 with + | Some + (rd, imm, s_) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s6278_ + _s4974_) >>= fun w__351 : option ((mword 5 * mword 6 * string)) => + (match w__351 with + | Some + (rd, imm, s_) => + returnm (Some + (C_FLWSP + (imm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6290_ + _s4974_) >>= fun w__354 : option ((mword 5 * mword 6 * string)) => + (if + match w__354 with + | Some + (rd, uimm, s_) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s6290_ + _s4974_) >>= fun w__355 : option ((mword 5 * mword 6 * string)) => + (match w__355 with + | Some + (rd, uimm, s_) => + returnm (Some + (C_FSWSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6302_ + _s4974_) >>= fun w__358 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__358 with + | Some + (rdc, rsc, uimm, s_) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s6302_ + _s4974_) >>= fun w__359 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__359 with + | Some + (rdc, rsc, uimm, s_) => + returnm (Some + (C_FLW + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6318_ + _s4974_) >>= fun w__362 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__362 with + | Some + (rsc1, rsc2, uimm, s_) => + Z.eqb + 64 + 32 + | _ => + false + end + then + (_s6318_ + _s4974_) >>= fun w__363 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__363 with + | Some + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_FSW + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6334_ + _s4974_) >>= fun w__366 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__366 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + true + | _ => + false + end + then + (_s6334_ + _s4974_) >>= fun w__367 : option ((f_madd_op_D * mword 5 * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__367 with + | Some + (op, rd, rs1, rs2, rs3, rm, s_) => + returnm (Some + (F_MADD_TYPE_D + (rs3, rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6359_ + _s4974_) >>= fun w__370 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__370 with + | Some + (op, rd, rs1, rs2, rm, s_) => + true + | _ => + false + end + then + (_s6359_ + _s4974_) >>= fun w__371 : option ((f_bin_rm_op_D * mword 5 * mword 5 * mword 5 * rounding_mode * string)) => + (match w__371 with + | Some + (op, rd, rs1, rs2, rm, s_) => + returnm (Some + (F_BIN_RM_TYPE_D + (rs2, rs1, rm, rd, op), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6380_ + _s4974_) >>= fun w__374 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__374 with + | Some + (FSQRT_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6380_ + _s4974_) >>= fun w__375 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__375 with + | Some + (FSQRT_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FSQRT_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6397_ + _s4974_) >>= fun w__378 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__378 with + | Some + (FCVT_W_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6397_ + _s4974_) >>= fun w__379 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__379 with + | Some + (FCVT_W_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_W_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6414_ + _s4974_) >>= fun w__382 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__382 with + | Some + (FCVT_WU_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6414_ + _s4974_) >>= fun w__383 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__383 with + | Some + (FCVT_WU_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_WU_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6431_ + _s4974_) >>= fun w__386 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__386 with + | Some + (FCVT_D_W, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6431_ + _s4974_) >>= fun w__387 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__387 with + | Some + (FCVT_D_W, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_W), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6448_ + _s4974_) >>= fun w__390 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__390 with + | Some + (FCVT_D_WU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6448_ + _s4974_) >>= fun w__391 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__391 with + | Some + (FCVT_D_WU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_WU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6465_ + _s4974_) >>= fun w__394 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__394 with + | Some + (FCVT_L_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6465_ + _s4974_) >>= fun w__395 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__395 with + | Some + (FCVT_L_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_L_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6482_ + _s4974_) >>= fun w__398 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__398 with + | Some + (FCVT_LU_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6482_ + _s4974_) >>= fun w__399 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__399 with + | Some + (FCVT_LU_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_LU_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6499_ + _s4974_) >>= fun w__402 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__402 with + | Some + (FCVT_D_L, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6499_ + _s4974_) >>= fun w__403 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__403 with + | Some + (FCVT_D_L, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_L), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6516_ + _s4974_) >>= fun w__406 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__406 with + | Some + (FCVT_D_LU, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6516_ + _s4974_) >>= fun w__407 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__407 with + | Some + (FCVT_D_LU, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_LU), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6533_ + _s4974_) >>= fun w__410 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__410 with + | Some + (FCVT_S_D, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6533_ + _s4974_) >>= fun w__411 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__411 with + | Some + (FCVT_S_D, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_S_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6550_ + _s4974_) >>= fun w__414 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (if + match w__414 with + | Some + (FCVT_D_S, rd, rs1, rm, s_) => + true + | _ => + false + end + then + (_s6550_ + _s4974_) >>= fun w__415 : option ((f_un_rm_op_D * mword 5 * mword 5 * rounding_mode * string)) => + (match w__415 with + | Some + (FCVT_D_S, rd, rs1, rm, s_) => + returnm (Some + (F_UN_RM_TYPE_D + (rs1, rm, rd, FCVT_D_S), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6567_ + _s4974_) >>= fun w__418 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__418 with + | Some + (FSGNJ_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6567_ + _s4974_) >>= fun w__419 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__419 with + | Some + (FSGNJ_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJ_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6584_ + _s4974_) >>= fun w__422 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__422 with + | Some + (FSGNJN_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6584_ + _s4974_) >>= fun w__423 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__423 with + | Some + (FSGNJN_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJN_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6601_ + _s4974_) >>= fun w__426 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__426 with + | Some + (FSGNJX_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6601_ + _s4974_) >>= fun w__427 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__427 with + | Some + (FSGNJX_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FSGNJX_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6618_ + _s4974_) >>= fun w__430 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__430 with + | Some + (FMIN_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6618_ + _s4974_) >>= fun w__431 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__431 with + | Some + (FMIN_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FMIN_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6635_ + _s4974_) >>= fun w__434 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__434 with + | Some + (FMAX_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6635_ + _s4974_) >>= fun w__435 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__435 with + | Some + (FMAX_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FMAX_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6652_ + _s4974_) >>= fun w__438 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__438 with + | Some + (FEQ_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6652_ + _s4974_) >>= fun w__439 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__439 with + | Some + (FEQ_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FEQ_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6669_ + _s4974_) >>= fun w__442 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__442 with + | Some + (FLT_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6669_ + _s4974_) >>= fun w__443 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__443 with + | Some + (FLT_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FLT_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6686_ + _s4974_) >>= fun w__446 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (if + match w__446 with + | Some + (FLE_D, rd, rs1, rs2, s_) => + true + | _ => + false + end + then + (_s6686_ + _s4974_) >>= fun w__447 : option ((f_bin_op_D * mword 5 * mword 5 * mword 5 * string)) => + (match w__447 with + | Some + (FLE_D, rd, rs1, rs2, s_) => + returnm (Some + (F_BIN_TYPE_D + (rs2, rs1, rd, FLE_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6703_ + _s4974_) >>= fun w__450 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (if + match w__450 with + | Some + (FMV_X_D, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6703_ + _s4974_) >>= fun w__451 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (match w__451 with + | Some + (FMV_X_D, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_D + (rs1, rd, FMV_X_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6716_ + _s4974_) >>= fun w__454 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (if + match w__454 with + | Some + (FMV_D_X, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6716_ + _s4974_) >>= fun w__455 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (match w__455 with + | Some + (FMV_D_X, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_D + (rs1, rd, FMV_D_X), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6729_ + _s4974_) >>= fun w__458 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (if + match w__458 with + | Some + (FCLASS_D, rd, rs1, s_) => + true + | _ => + false + end + then + (_s6729_ + _s4974_) >>= fun w__459 : option ((f_un_op_D * mword 5 * mword 5 * string)) => + (match w__459 with + | Some + (FCLASS_D, rd, rs1, s_) => + returnm (Some + (F_UN_TYPE_D + (rs1, rd, FCLASS_D), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6742_ + _s4974_) >>= fun w__462 : option ((mword 5 * mword 6 * string)) => + (if + match w__462 with + | Some + (rd, uimm, s_) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s6742_ + _s4974_) >>= fun w__463 : option ((mword 5 * mword 6 * string)) => + (match w__463 with + | Some + (rd, uimm, s_) => + returnm (Some + (C_FLDSP + (uimm, rd), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6754_ + _s4974_) >>= fun w__466 : option ((mword 5 * mword 6 * string)) => + (if + match w__466 with + | Some + (rs2, uimm, s_) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s6754_ + _s4974_) >>= fun w__467 : option ((mword 5 * mword 6 * string)) => + (match w__467 with + | Some + (rs2, uimm, s_) => + returnm (Some + (C_FSDSP + (uimm, rs2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6766_ + _s4974_) >>= fun w__470 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__470 with + | Some + (rdc, rsc, uimm, s_) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s6766_ + _s4974_) >>= fun w__471 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__471 with + | Some + (rdc, rsc, uimm, s_) => + returnm (Some + (C_FLD + (uimm, rsc, rdc), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6782_ + _s4974_) >>= fun w__474 : option ((mword 3 * mword 3 * mword 5 * string)) => + (if + match w__474 with + | Some + (rsc1, rsc2, uimm, s_) => + orb + (Z.eqb + 64 + 32) + (Z.eqb + 64 + 64) + | _ => + false + end + then + (_s6782_ + _s4974_) >>= fun w__475 : option ((mword 3 * mword 3 * mword 5 * string)) => + (match w__475 with + | Some + (rsc1, rsc2, uimm, s_) => + returnm (Some + (C_FSD + (uimm, rsc1, rsc2), build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6798_ + _s4974_) >>= fun w__478 : option ((mword 32 * string)) => + (if + match w__478 with + | Some + (s, s_) => + true + | _ => + false + end + then + (_s6798_ + _s4974_) >>= fun w__479 : option ((mword 32 * string)) => + (match w__479 with + | Some + (s, s_) => + returnm (Some + (ILLEGAL + s, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + (_s6806_ + _s4974_) >>= fun w__482 : option ((mword 16 * string)) => + (if + match w__482 with + | Some + (s, s_) => + true + | _ => + false + end + then + (_s6806_ + _s4974_) >>= fun w__483 : option ((mword 16 * string)) => + (match w__483 with + | Some + (s, s_) => + returnm (Some + (C_ILLEGAL + s, build_ex + (projT1 + (sub_nat + (projT1 + (string_length + arg_)) + (projT1 + (string_length + s_)))))) + | _ => + exit tt + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + end) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)}))) + else + returnm None) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? + 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)})))) - : M (option ((ast * {n : Z & ArithFact (n >= 0)}))). - -Definition print_insn (insn : ast) : M (string) := (assembly_forwards insn) : M (string). - -Definition decode (bv : mword 32) : M (ast) := (encdec_backwards bv) : M (ast). - -Definition decodeCompressed (bv : mword 16) : ast := encdec_compressed_backwards bv. - -Definition GPRstr : vec string 32 := -vec_of_list_len ["x31";"x30";"x29";"x28";"x27";"x26";"x25";"x24";"x23";"x22";"x21";"x20";"x19";"x18";"x17";"x16";"x15";"x14";"x13";"x12";"x11"; - "x10";"x9";"x8";"x7";"x6";"x5";"x4";"x3";"x2";"x1";"x0"]. -Hint Unfold GPRstr : sail. -Definition CIA_fp := RFull ("CIA"). + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)})))) + : M (option ((ast * {n : Z & ArithFact (n >=? 0)}))). + +Definition print_insn (insn : ast) : M (string) := (assembly_forwards insn) : M (string). + +Definition decode (bv : mword 32) : M (ast) := (encdec_backwards bv) : M (ast). + +Definition decodeCompressed (bv : mword 16) : M (ast) := + (encdec_compressed_backwards bv) : M (ast). + +Definition GPRstrs : vec string 32 := +vec_of_list_len ["x31";"x30";"x29";"x28";"x27";"x26";"x25";"x24";"x23";"x22";"x21";"x20";"x19";"x18"; + "x17";"x16";"x15";"x14";"x13";"x12";"x11";"x10";"x9";"x8";"x7";"x6";"x5";"x4";"x3"; + "x2";"x1";"x0"]. +Hint Unfold GPRstrs : sail. +Definition GPRstr (i : mword 5) : string := vec_access_dec GPRstrs (projT1 (uint i)). + +Definition CIA_fp := RFull "CIA". Hint Unfold CIA_fp : sail. -Definition NIA_fp := RFull ("NIA"). +Definition NIA_fp := RFull "NIA". Hint Unfold NIA_fp : sail. -Definition initial_analysis (instr : ast) +Definition initial_analysis (instr : ast) : M ((list regfp * list regfp * list regfp * list niafp * diafp * instruction_kind)) := - let iR := [] : regfps in let oR := [] : regfps in let aR := [] : regfps in - let ik := (IK_simple (tt)) : instruction_kind in - let Nias := [NIAFP_successor (tt)] : niafps in - let Dia := (DIAFP_none (tt)) : diafp in + let ik := (IK_simple tt) : instruction_kind in + let Nias := [NIAFP_successor tt] : niafps in + let Dia := (DIAFP_none tt) : diafp in (match instr with - | EBREAK (tt) => returnm (Nias, aR, iR, ik, oR) - | UTYPE ((imm, rd, op)) => + | EBREAK tt => returnm (Nias, aR, iR, ik, oR) + | UTYPE (imm, rd, op) => let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | RISCV_JAL ((imm, rd)) => + | RISCV_JAL (imm, rd) => let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in let offset : bits 64 := EXTS 64 imm in ((read_reg PC_ref) : M (mword 64)) >>= fun w__0 : mword 64 => let Nias : list niafp := [NIAFP_concrete_address (add_vec w__0 offset)] in - let ik : instruction_kind := IK_branch (tt) in + let ik : instruction_kind := IK_branch tt in returnm (Nias, aR, iR, ik, oR) - | RISCV_JALR ((imm, rs, rd)) => + | RISCV_JALR (imm, rs, rd) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in let offset : bits 64 := EXTS 64 imm in - let Nias : list niafp := [NIAFP_indirect_address (tt)] in - let ik : instruction_kind := IK_branch (tt) in + let Nias : list niafp := [NIAFP_indirect_address tt] in + let ik : instruction_kind := IK_branch tt in returnm (Nias, aR, iR, ik, oR) - | BTYPE ((imm, rs2, rs1, op)) => + | BTYPE (imm, rs2, rs1, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in - let ik := (IK_branch (tt)) : instruction_kind in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in + let ik := (IK_branch tt) : instruction_kind in let offset : bits 64 := EXTS 64 imm in ((read_reg PC_ref) : M (mword 64)) >>= fun w__1 : mword 64 => - let Nias : list niafp := [NIAFP_concrete_address (add_vec w__1 offset);NIAFP_successor (tt)] in + let Nias : list niafp := [NIAFP_concrete_address (add_vec w__1 offset); NIAFP_successor tt] in returnm (Nias, aR, iR, ik, oR) - | ITYPE ((imm, rs, rd, op)) => + | ITYPE (imm, rs, rd, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | SHIFTIOP ((imm, rs, rd, op)) => + | SHIFTIOP (imm, rs, rd, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | RTYPE ((rs2, rs1, rd, op)) => + | RTYPE (rs2, rs1, rd, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | CSR ((csr, rs1, rd, is_imm, op)) => + | CSR (csr, rs1, rd, is_imm, op) => let isWrite : bool := match op with | CSRRW => true | _ => - if sumbool_of_bool (is_imm) then projT1 (neq_int (projT1 (uint rs1)) 0) + if sumbool_of_bool is_imm then projT1 (neq_int (projT1 (uint rs1)) 0) else projT1 (neq_int (projT1 (uint rs1)) 0) end in let iR : list regfp := (RFull (csr_name csr)) :: iR in let iR : list regfp := - if sumbool_of_bool ((negb is_imm)) then - (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR + if sumbool_of_bool (negb is_imm) then (RFull (GPRstr rs1)) :: iR else iR in - let oR : list regfp := if sumbool_of_bool (isWrite) then (RFull (csr_name csr)) :: oR else oR in - let oR : list regfp := (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + let oR : list regfp := if sumbool_of_bool isWrite then (RFull (csr_name csr)) :: oR else oR in + let oR : list regfp := (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | LOAD ((imm, rs, rd, unsign, width, aq, rl)) => + | LOAD (imm, rs, rd, unsign, width, aq, rl) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in let aR := iR : list regfp in (match (aq, rl) with - | (false, false) => returnm ((IK_mem_read (Read_plain)) : instruction_kind ) - | (true, false) => returnm ((IK_mem_read (Read_RISCV_acquire)) : instruction_kind ) - | (true, true) => returnm ((IK_mem_read (Read_RISCV_strong_acquire)) : instruction_kind ) + | (false, false) => returnm (IK_mem_read Read_plain) + | (true, false) => returnm (IK_mem_read Read_RISCV_acquire) + | (true, true) => returnm (IK_mem_read Read_RISCV_strong_acquire) | _ => (internal_error "LOAD type not implemented in initial_analysis") : M (instruction_kind) end) >>= fun w__3 : instruction_kind => let ik : instruction_kind := w__3 in returnm (Nias, aR, iR, ik, oR) - | STORE ((imm, rs2, rs1, width, aq, rl)) => + | STORE (imm, rs2, rs1, width, aq, rl) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let aR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then aR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: aR in + if eq_vec rs1 ('b"00000" : mword 5) then aR + else (RFull (GPRstr rs1)) :: aR in (match (aq, rl) with - | (false, false) => returnm ((IK_mem_write (Write_plain)) : instruction_kind ) - | (false, true) => returnm ((IK_mem_write (Write_RISCV_release)) : instruction_kind ) - | (true, true) => returnm ((IK_mem_write (Write_RISCV_strong_release)) : instruction_kind ) + | (false, false) => returnm (IK_mem_write Write_plain) + | (false, true) => returnm (IK_mem_write Write_RISCV_release) + | (true, true) => returnm (IK_mem_write Write_RISCV_strong_release) | _ => (internal_error "STORE type not implemented in initial_analysis") : M (instruction_kind) end) >>= fun w__5 : instruction_kind => let ik : instruction_kind := w__5 in returnm (Nias, aR, iR, ik, oR) - | ADDIW ((imm, rs, rd)) => + | ADDIW (imm, rs, rd) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | SHIFTW ((imm, rs, rd, op)) => + | SHIFTW (imm, rs, rd, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs)))) :: iR in + if eq_vec rs ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | RTYPEW ((rs2, rs1, rd, op)) => + | RTYPEW (rs2, rs1, rd, op) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in returnm (Nias, aR, iR, ik, oR) - | FENCE ((pred, succ)) => + | FENCE (pred, succ) => (match (pred, succ) with - | (v__838, v__839) => - (if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - returnm ((IK_barrier - (Barrier_RISCV_rw_rw - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_r_rw - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_r_r - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_rw_w - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_w_w - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_w_rw - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_rw_r - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_r_w - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B0;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B1;B0] : mword (1 - 0 + 1))))) then - returnm ((IK_barrier - (Barrier_RISCV_w_r - (tt))) - : instruction_kind ) - else if ((andb - (eq_vec (subrange_vec_dec v__838 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__839 1 0) - (vec_of_bits [B0;B0] : mword (1 - 0 + 1))))) then - returnm ((IK_simple - (tt)) - : instruction_kind ) + | (v__1398, v__1399) => + (if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"11" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_rw_rw tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"11" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_r_rw tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"10" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_r_r tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_rw_w tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_w_w tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"11" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_w_rw tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"10" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_rw_r tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"10" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"01" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_r_w tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"01" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"10" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_w_r tt)) + else if andb (eq_vec (subrange_vec_dec v__1398 1 0) ('b"00" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1399 1 0) ('b"00" : mword (1 - 0 + 1))) then + returnm (IK_simple tt) else (internal_error "barrier type not implemented in initial_analysis") : M (instruction_kind)) @@ -42910,17 +67525,12 @@ Definition initial_analysis (instr : ast) end) >>= fun w__17 : instruction_kind => let ik : instruction_kind := w__17 in returnm (Nias, aR, iR, ik, oR) - | FENCE_TSO ((pred, succ)) => + | FENCE_TSO (pred, succ) => (match (pred, succ) with - | (v__878, v__879) => - (if ((andb - (eq_vec (subrange_vec_dec v__878 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))) - (eq_vec (subrange_vec_dec v__879 1 0) (vec_of_bits [B1;B1] : mword (1 - 0 + 1))))) - then - returnm ((IK_barrier - (Barrier_RISCV_tso - (tt))) - : instruction_kind ) + | (v__1438, v__1439) => + (if andb (eq_vec (subrange_vec_dec v__1438 1 0) ('b"11" : mword (1 - 0 + 1))) + (eq_vec (subrange_vec_dec v__1439 1 0) ('b"11" : mword (1 - 0 + 1))) then + returnm (IK_barrier (Barrier_RISCV_tso tt)) else (internal_error "barrier type not implemented in initial_analysis") : M (instruction_kind)) @@ -42928,74 +67538,69 @@ Definition initial_analysis (instr : ast) end) >>= fun w__20 : instruction_kind => let ik : instruction_kind := w__20 in returnm (Nias, aR, iR, ik, oR) - | FENCEI (tt) => - let ik : instruction_kind := IK_simple (tt) in + | FENCEI tt => + let ik : instruction_kind := IK_simple tt in returnm (Nias, aR, iR, ik, oR) - | LOADRES ((aq, rl, rs1, width, rd)) => + | LOADRES (aq, rl, rs1, width, rd) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in let aR := iR : list regfp in (match (aq, rl) with - | (false, false) => returnm ((IK_mem_read (Read_RISCV_reserved)) : instruction_kind ) - | (true, false) => - returnm ((IK_mem_read (Read_RISCV_reserved_acquire)) : instruction_kind ) - | (true, true) => - returnm ((IK_mem_read (Read_RISCV_reserved_strong_acquire)) : instruction_kind ) + | (false, false) => returnm (IK_mem_read Read_RISCV_reserved) + | (true, false) => returnm (IK_mem_read Read_RISCV_reserved_acquire) + | (true, true) => returnm (IK_mem_read Read_RISCV_reserved_strong_acquire) | (false, true) => (internal_error "LOADRES type not implemented in initial_analysis") : M (instruction_kind) end) >>= fun w__22 : instruction_kind => let ik : instruction_kind := w__22 in returnm (Nias, aR, iR, ik, oR) - | STORECON ((aq, rl, rs2, rs1, width, rd)) => + | STORECON (aq, rl, rs2, rs1, width, rd) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let aR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then aR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: aR in + if eq_vec rs1 ('b"00000" : mword 5) then aR + else (RFull (GPRstr rs1)) :: aR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in (match (aq, rl) with - | (false, false) => returnm ((IK_mem_write (Write_RISCV_conditional)) : instruction_kind ) - | (false, true) => - returnm ((IK_mem_write (Write_RISCV_conditional_release)) : instruction_kind ) - | (true, true) => - returnm ((IK_mem_write (Write_RISCV_conditional_strong_release)) : instruction_kind ) + | (false, false) => returnm (IK_mem_write Write_RISCV_conditional) + | (false, true) => returnm (IK_mem_write Write_RISCV_conditional_release) + | (true, true) => returnm (IK_mem_write Write_RISCV_conditional_strong_release) | (true, false) => (internal_error "STORECON type not implemented in initial_analysis") : M (instruction_kind) end) >>= fun w__24 : instruction_kind => let ik : instruction_kind := w__24 in returnm (Nias, aR, iR, ik, oR) - | AMO ((op, aq, rl, rs2, rs1, width, rd)) => + | AMO (op, aq, rl, rs2, rs1, width, rd) => let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs2)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs2)))) :: iR in + if eq_vec rs2 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs2)) :: iR in let iR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then iR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: iR in + if eq_vec rs1 ('b"00000" : mword 5) then iR + else (RFull (GPRstr rs1)) :: iR in let aR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rs1)) 0)) then aR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rs1)))) :: aR in + if eq_vec rs1 ('b"00000" : mword 5) then aR + else (RFull (GPRstr rs1)) :: aR in let oR : list regfp := - if sumbool_of_bool ((Z.eqb (projT1 (regidx_to_regno rd)) 0)) then oR - else (RFull (vec_access_dec GPRstr (projT1 (regidx_to_regno rd)))) :: oR in + if eq_vec rd ('b"00000" : mword 5) then oR + else (RFull (GPRstr rd)) :: oR in let ik : instruction_kind := match (aq, rl) with - | (false, false) => IK_mem_rmw ((Read_RISCV_reserved, Write_RISCV_conditional)) - | (false, true) => IK_mem_rmw ((Read_RISCV_reserved, Write_RISCV_conditional_release)) - | (true, false) => IK_mem_rmw ((Read_RISCV_reserved_acquire, Write_RISCV_conditional)) - | (true, true) => - IK_mem_rmw ((Read_RISCV_reserved_acquire, Write_RISCV_conditional_release)) + | (false, false) => IK_mem_rmw (Read_RISCV_reserved, Write_RISCV_conditional) + | (false, true) => IK_mem_rmw (Read_RISCV_reserved, Write_RISCV_conditional_release) + | (true, false) => IK_mem_rmw (Read_RISCV_reserved_acquire, Write_RISCV_conditional) + | (true, true) => IK_mem_rmw (Read_RISCV_reserved_acquire, Write_RISCV_conditional_release) end in returnm (Nias, aR, iR, ik, oR) | _ => returnm (Nias, aR, iR, ik, oR) @@ -43004,4 +67609,4 @@ Definition initial_analysis (instr : ast) returnm (iR, oR, aR, Nias, Dia, ik). -End Content. + diff --git a/prover_snapshots/coq/RV64/riscv_extras.v b/prover_snapshots/coq/RV64/riscv_extras.v index 84f6761..02d5609 100644 --- a/prover_snapshots/coq/RV64/riscv_extras.v +++ b/prover_snapshots/coq/RV64/riscv_extras.v @@ -1,13 +1,8 @@ -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. +Require Import Sail.Base. Require Import String. Require Import List. Import List.ListNotations. - -Axiom real : Type. +Open Scope Z. Definition MEM_fence_rw_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_rw_rw tt). Definition MEM_fence_r_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_r_rw tt). @@ -45,12 +40,12 @@ val MEMr_reserved_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => inte val MEMr_reserved_strong_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> monad 'rv (bitvector 'b) 'e *) -Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. -Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. -Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. -Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. -Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. -Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. +Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. +Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. +Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. +Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. +Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. +Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. (* val MEMw : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> bitvector 'b -> monad 'rv bool 'e @@ -87,14 +82,14 @@ Definition undefined_string {rv e} (_:unit) : monad rv string e := returnm ""%st Definition undefined_unit {rv e} (_:unit) : monad rv unit e := returnm tt. Definition undefined_int {rv e} (_:unit) : monad rv Z e := returnm (0:ii). (*val undefined_vector : forall 'rv 'a 'e. integer -> 'a -> monad 'rv (list 'a) 'e*) -Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >= 0)} : monad rv (vec a len) e := returnm (vec_init u len). +Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >=? 0)} : monad rv (vec a len) e := returnm (vec_init u len). (*val undefined_bitvector : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) -Definition undefined_bitvector {rv e} len `{ArithFact (len >= 0)} : monad rv (mword len) e := returnm (mword_of_int 0). +Definition undefined_bitvector {rv e} len `{ArithFact (len >=? 0)} : monad rv (mword len) e := returnm (mword_of_int 0). (*val undefined_bits : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) Definition undefined_bits {rv e} := @undefined_bitvector rv e. Definition undefined_bit {rv e} (_:unit) : monad rv bitU e := returnm BU. (*Definition undefined_real {rv e} (_:unit) : monad rv real e := returnm (realFromFrac 0 1).*) -Definition undefined_range {rv e} i j `{ArithFact (i <= j)} : monad rv {z : Z & ArithFact (i <= z /\ z <= j)} e := returnm (build_ex i). +Definition undefined_range {rv e} i j `{ArithFact (i <=? j)} : monad rv {z : Z & ArithFact (i <=? z <=? j)} e := returnm (build_ex i). Definition undefined_atom {rv e} i : monad rv Z e := returnm i. Definition undefined_nat {rv e} (_:unit) : monad rv Z e := returnm (0:ii). @@ -119,10 +114,12 @@ Definition eq_bit (x : bitU) (y : bitU) : bool := end. Require Import Zeuclid. -Definition euclid_modulo (m n : Z) `{ArithFact (n > 0)} : {z : Z & ArithFact (0 <= z <= n-1)}. +Definition euclid_modulo (m n : Z) `{ArithFact (n >? 0)} : {z : Z & ArithFact (0 <=? z <=? n-1)}. apply existT with (x := ZEuclid.modulo m n). constructor. destruct H. +unbool_comparisons. +unbool_comparisons_goal. assert (Z.abs n = n). { rewrite Z.abs_eq; auto with zarith. } rewrite <- H at 3. lapply (ZEuclid.mod_always_pos m n); omega. @@ -143,6 +140,7 @@ Definition string_of_int z := DecimalString.NilZero.string_of_int (Z.to_int z). Axiom sys_enable_writable_misa : unit -> bool. Axiom sys_enable_rvc : unit -> bool. +Axiom sys_enable_fdext : unit -> bool. (* The constraint solver can do this itself, but a Coq bug puts anonymous_subproof into the term instead of an actual subproof. *) diff --git a/prover_snapshots/coq/RV64/riscv_types.v b/prover_snapshots/coq/RV64/riscv_types.v index 98f6666..a68c649 100644 --- a/prover_snapshots/coq/RV64/riscv_types.v +++ b/prover_snapshots/coq/RV64/riscv_types.v @@ -1,19 +1,17 @@ (*Generated by Sail from riscv.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Import ListNotations. +Open Scope string. +Open Scope bool. +Open Scope Z. + Definition bits (n : Z) : Type := mword n. Inductive regfp := | RFull : string -> regfp - | RSlice : (string * {n : Z & ArithFact (n >= 0)} * {n : Z & ArithFact (n >= 0)}) -> regfp - | RSliceBit : (string * {n : Z & ArithFact (n >= 0)}) -> regfp + | RSlice : (string * {n : Z & ArithFact (n >=? 0)} * {n : Z & ArithFact (n >=? 0)}) -> regfp + | RSliceBit : (string * {n : Z & ArithFact (n >=? 0)}) -> regfp | RField : (string * string) -> regfp. Arguments regfp : clear implicits. @@ -68,11 +66,27 @@ Hint Unfold xlen_bytes : sail. Definition xlenbits : Type := bits 64. +Definition flen : Z := 64. +Hint Unfold flen : sail. + +Definition flen_bytes : Z := 8. +Hint Unfold flen_bytes : sail. + +Definition flenbits : Type := bits 64. + Definition mem_meta : Type := unit. Definition max_mem_access : Z := 16. Hint Unfold max_mem_access : sail. +Definition exc_code : Type := bits 8. + +Definition ext_ptw : Type := unit. + +Definition ext_ptw_error : Type := unit. + +Definition ext_exc_type : Type := unit. + Definition half : Type := bits 16. Definition word : Type := bits 32. @@ -83,7 +97,7 @@ Definition cregidx : Type := bits 3. Definition csreg : Type := bits 12. -Definition regno (n : Z)`{ArithFact (0 <= n /\ n < 32)} : Type := Z. +Definition regno (n : Z)`{ArithFact ((0 <=? n) && (n <? 32))} : Type := Z. Definition opcode : Type := bits 7. @@ -109,6 +123,38 @@ Instance Decidable_eq_Privilege : forall (x y : Privilege), Decidable (x = y) := Decidable_eq_from_dec Privilege_eq_dec. +Inductive AccessType {a : Type} := + | Read : a -> AccessType + | Write : a -> AccessType + | ReadWrite : a -> AccessType + | Execute : unit -> AccessType. +Arguments AccessType : clear implicits. +Instance Decidable_eq_AccessType {a : Type} `{forall x y : a, Decidable (x = y)}: +forall (x y : AccessType a), Decidable (x = y). +refine (Decidable_eq_from_dec (fun x y => _)). +decide equality; refine (generic_dec _ _). +Defined. + +Inductive ExceptionType := + | E_Fetch_Addr_Align : unit -> ExceptionType + | E_Fetch_Access_Fault : unit -> ExceptionType + | E_Illegal_Instr : unit -> ExceptionType + | E_Breakpoint : unit -> ExceptionType + | E_Load_Addr_Align : unit -> ExceptionType + | E_Load_Access_Fault : unit -> ExceptionType + | E_SAMO_Addr_Align : unit -> ExceptionType + | E_SAMO_Access_Fault : unit -> ExceptionType + | E_U_EnvCall : unit -> ExceptionType + | E_S_EnvCall : unit -> ExceptionType + | E_Reserved_10 : unit -> ExceptionType + | E_M_EnvCall : unit -> ExceptionType + | E_Fetch_Page_Fault : unit -> ExceptionType + | E_Load_Page_Fault : unit -> ExceptionType + | E_Reserved_14 : unit -> ExceptionType + | E_SAMO_Page_Fault : unit -> ExceptionType + | E_Extension : ext_exc_type -> ExceptionType. +Arguments ExceptionType : clear implicits. + Inductive amoop := AMOSWAP | AMOADD | AMOXOR | AMOAND | AMOOR | AMOMIN | AMOMAX | AMOMINU | AMOMAXU. Scheme Equality for amoop. Instance Decidable_eq_amoop : @@ -127,6 +173,86 @@ Instance Decidable_eq_csrop : forall (x y : csrop), Decidable (x = y) := Decidable_eq_from_dec csrop_eq_dec. +Inductive f_bin_op_D := FSGNJ_D | FSGNJN_D | FSGNJX_D | FMIN_D | FMAX_D | FEQ_D | FLT_D | FLE_D. +Scheme Equality for f_bin_op_D. +Instance Decidable_eq_f_bin_op_D : +forall (x y : f_bin_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_bin_op_D_eq_dec. + +Inductive f_bin_op_S := FSGNJ_S | FSGNJN_S | FSGNJX_S | FMIN_S | FMAX_S | FEQ_S | FLT_S | FLE_S. +Scheme Equality for f_bin_op_S. +Instance Decidable_eq_f_bin_op_S : +forall (x y : f_bin_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_bin_op_S_eq_dec. + +Inductive f_bin_rm_op_D := FADD_D | FSUB_D | FMUL_D | FDIV_D. +Scheme Equality for f_bin_rm_op_D. +Instance Decidable_eq_f_bin_rm_op_D : +forall (x y : f_bin_rm_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_bin_rm_op_D_eq_dec. + +Inductive f_bin_rm_op_S := FADD_S | FSUB_S | FMUL_S | FDIV_S. +Scheme Equality for f_bin_rm_op_S. +Instance Decidable_eq_f_bin_rm_op_S : +forall (x y : f_bin_rm_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_bin_rm_op_S_eq_dec. + +Inductive f_madd_op_D := FMADD_D | FMSUB_D | FNMSUB_D | FNMADD_D. +Scheme Equality for f_madd_op_D. +Instance Decidable_eq_f_madd_op_D : +forall (x y : f_madd_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_madd_op_D_eq_dec. + +Inductive f_madd_op_S := FMADD_S | FMSUB_S | FNMSUB_S | FNMADD_S. +Scheme Equality for f_madd_op_S. +Instance Decidable_eq_f_madd_op_S : +forall (x y : f_madd_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_madd_op_S_eq_dec. + +Inductive f_un_op_D := FCLASS_D | FMV_X_D | FMV_D_X. +Scheme Equality for f_un_op_D. +Instance Decidable_eq_f_un_op_D : +forall (x y : f_un_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_un_op_D_eq_dec. + +Inductive f_un_op_S := FCLASS_S | FMV_X_W | FMV_W_X. +Scheme Equality for f_un_op_S. +Instance Decidable_eq_f_un_op_S : +forall (x y : f_un_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_un_op_S_eq_dec. + +Inductive f_un_rm_op_D := + FSQRT_D + | FCVT_W_D + | FCVT_WU_D + | FCVT_D_W + | FCVT_D_WU + | FCVT_S_D + | FCVT_D_S + | FCVT_L_D + | FCVT_LU_D + | FCVT_D_L + | FCVT_D_LU. +Scheme Equality for f_un_rm_op_D. +Instance Decidable_eq_f_un_rm_op_D : +forall (x y : f_un_rm_op_D), Decidable (x = y) := +Decidable_eq_from_dec f_un_rm_op_D_eq_dec. + +Inductive f_un_rm_op_S := + FSQRT_S + | FCVT_W_S + | FCVT_WU_S + | FCVT_S_W + | FCVT_S_WU + | FCVT_L_S + | FCVT_LU_S + | FCVT_S_L + | FCVT_S_LU. +Scheme Equality for f_un_rm_op_S. +Instance Decidable_eq_f_un_rm_op_S : +forall (x y : f_un_rm_op_S), Decidable (x = y) := +Decidable_eq_from_dec f_un_rm_op_S_eq_dec. + Inductive iop := RISCV_ADDI | RISCV_SLTI | RISCV_SLTIU | RISCV_XORI | RISCV_ORI | RISCV_ANDI. Scheme Equality for iop. Instance Decidable_eq_iop : @@ -155,6 +281,12 @@ Instance Decidable_eq_ropw : forall (x y : ropw), Decidable (x = y) := Decidable_eq_from_dec ropw_eq_dec. +Inductive rounding_mode := RM_RNE | RM_RTZ | RM_RDN | RM_RUP | RM_RMM | RM_DYN. +Scheme Equality for rounding_mode. +Instance Decidable_eq_rounding_mode : +forall (x y : rounding_mode), Decidable (x = y) := +Decidable_eq_from_dec rounding_mode_eq_dec. + Inductive sop := RISCV_SLLI | RISCV_SRLI | RISCV_SRAI. Scheme Equality for sop. Instance Decidable_eq_sop : @@ -247,24 +379,46 @@ Inductive ast := | REMW : (regidx * regidx * regidx * bool) -> ast | CSR : (bits 12 * regidx * regidx * bool * csrop) -> ast | URET : unit -> ast + | LOAD_FP : (bits 12 * regidx * regidx * word_width) -> ast + | STORE_FP : (bits 12 * regidx * regidx * word_width) -> ast + | F_MADD_TYPE_S : (regidx * regidx * regidx * rounding_mode * regidx * f_madd_op_S) -> ast + | F_BIN_RM_TYPE_S : (regidx * regidx * rounding_mode * regidx * f_bin_rm_op_S) -> ast + | F_UN_RM_TYPE_S : (regidx * rounding_mode * regidx * f_un_rm_op_S) -> ast + | F_BIN_TYPE_S : (regidx * regidx * regidx * f_bin_op_S) -> ast + | F_UN_TYPE_S : (regidx * regidx * f_un_op_S) -> ast + | C_FLWSP : (bits 6 * regidx) -> ast + | C_FSWSP : (bits 6 * regidx) -> ast + | C_FLW : (bits 5 * cregidx * cregidx) -> ast + | C_FSW : (bits 5 * cregidx * cregidx) -> ast + | F_MADD_TYPE_D : (regidx * regidx * regidx * rounding_mode * regidx * f_madd_op_D) -> ast + | F_BIN_RM_TYPE_D : (regidx * regidx * rounding_mode * regidx * f_bin_rm_op_D) -> ast + | F_UN_RM_TYPE_D : (regidx * rounding_mode * regidx * f_un_rm_op_D) -> ast + | F_BIN_TYPE_D : (regidx * regidx * regidx * f_bin_op_D) -> ast + | F_UN_TYPE_D : (regidx * regidx * f_un_op_D) -> ast + | C_FLDSP : (bits 6 * regidx) -> ast + | C_FSDSP : (bits 6 * regidx) -> ast + | C_FLD : (bits 5 * cregidx * cregidx) -> ast + | C_FSD : (bits 5 * cregidx * cregidx) -> ast | ILLEGAL : word -> ast | C_ILLEGAL : half -> ast. Arguments ast : clear implicits. +Inductive PTW_Error := + | PTW_Invalid_Addr : unit -> PTW_Error + | PTW_Access : unit -> PTW_Error + | PTW_Invalid_PTE : unit -> PTW_Error + | PTW_No_Permission : unit -> PTW_Error + | PTW_Misaligned : unit -> PTW_Error + | PTW_PTE_Update : unit -> PTW_Error + | PTW_Ext_Error : ext_ptw_error -> PTW_Error. +Arguments PTW_Error : clear implicits. + Inductive Retired := RETIRE_SUCCESS | RETIRE_FAIL. Scheme Equality for Retired. Instance Decidable_eq_Retired : forall (x y : Retired), Decidable (x = y) := Decidable_eq_from_dec Retired_eq_dec. -Inductive AccessType := Read | Write | ReadWrite | Execute. -Scheme Equality for AccessType. -Instance Decidable_eq_AccessType : -forall (x y : AccessType), Decidable (x = y) := -Decidable_eq_from_dec AccessType_eq_dec. - -Definition exc_code : Type := bits 8. - Inductive InterruptType := I_U_Software | I_S_Software @@ -280,29 +434,6 @@ Instance Decidable_eq_InterruptType : forall (x y : InterruptType), Decidable (x = y) := Decidable_eq_from_dec InterruptType_eq_dec. -Inductive ExceptionType := - E_Fetch_Addr_Align - | E_Fetch_Access_Fault - | E_Illegal_Instr - | E_Breakpoint - | E_Load_Addr_Align - | E_Load_Access_Fault - | E_SAMO_Addr_Align - | E_SAMO_Access_Fault - | E_U_EnvCall - | E_S_EnvCall - | E_Reserved_10 - | E_M_EnvCall - | E_Fetch_Page_Fault - | E_Load_Page_Fault - | E_Reserved_14 - | E_SAMO_Page_Fault - | E_CHERI. -Scheme Equality for ExceptionType. -Instance Decidable_eq_ExceptionType : -forall (x y : ExceptionType), Decidable (x = y) := -Decidable_eq_from_dec ExceptionType_eq_dec. - Inductive exception := | Error_not_implemented : string -> exception | Error_internal_error : unit -> exception. Arguments exception : clear implicits. @@ -333,16 +464,54 @@ Decidable_eq_from_dec SATPMode_eq_dec. Definition csrRW : Type := bits 2. +Definition ext_access_type : Type := unit. + Definition regtype : Type := xlenbits. +Definition fregtype : Type := flenbits. + Record Misa := { Misa_Misa_chunk_0 : mword 64; }. Arguments Misa : clear implicits. Notation "{[ r 'with' 'Misa_Misa_chunk_0' := e ]}" := {| Misa_Misa_chunk_0 := e |} (only parsing). -Record SV48_PTE := { SV48_PTE_SV48_PTE_chunk_0 : mword 64; }. -Arguments SV48_PTE : clear implicits. -Notation "{[ r 'with' 'SV48_PTE_SV48_PTE_chunk_0' := e ]}" := - {| SV48_PTE_SV48_PTE_chunk_0 := e |} (only parsing). +Record Counteren := { Counteren_Counteren_chunk_0 : mword 32; }. +Arguments Counteren : clear implicits. +Notation "{[ r 'with' 'Counteren_Counteren_chunk_0' := e ]}" := + {| Counteren_Counteren_chunk_0 := e |} (only parsing). + +Record Counterin := { Counterin_Counterin_chunk_0 : mword 32; }. +Arguments Counterin : clear implicits. +Notation "{[ r 'with' 'Counterin_Counterin_chunk_0' := e ]}" := + {| Counterin_Counterin_chunk_0 := e |} (only parsing). + +Record Fcsr := { Fcsr_Fcsr_chunk_0 : mword 32; }. +Arguments Fcsr : clear implicits. +Notation "{[ r 'with' 'Fcsr_Fcsr_chunk_0' := e ]}" := {| Fcsr_Fcsr_chunk_0 := e |} (only parsing). + +Record Mcause := { Mcause_Mcause_chunk_0 : mword 64; }. +Arguments Mcause : clear implicits. +Notation "{[ r 'with' 'Mcause_Mcause_chunk_0' := e ]}" := + {| Mcause_Mcause_chunk_0 := e |} (only parsing). + +Record Medeleg := { Medeleg_Medeleg_chunk_0 : mword 64; }. +Arguments Medeleg : clear implicits. +Notation "{[ r 'with' 'Medeleg_Medeleg_chunk_0' := e ]}" := + {| Medeleg_Medeleg_chunk_0 := e |} (only parsing). + +Record Minterrupts := { Minterrupts_Minterrupts_chunk_0 : mword 64; }. +Arguments Minterrupts : clear implicits. +Notation "{[ r 'with' 'Minterrupts_Minterrupts_chunk_0' := e ]}" := + {| Minterrupts_Minterrupts_chunk_0 := e |} (only parsing). + +Record Mstatus := { Mstatus_Mstatus_chunk_0 : mword 64; }. +Arguments Mstatus : clear implicits. +Notation "{[ r 'with' 'Mstatus_Mstatus_chunk_0' := e ]}" := + {| Mstatus_Mstatus_chunk_0 := e |} (only parsing). + +Record Mtvec := { Mtvec_Mtvec_chunk_0 : mword 64; }. +Arguments Mtvec : clear implicits. +Notation "{[ r 'with' 'Mtvec_Mtvec_chunk_0' := e ]}" := + {| Mtvec_Mtvec_chunk_0 := e |} (only parsing). Record PTE_Bits := { PTE_Bits_PTE_Bits_chunk_0 : mword 8; }. Arguments PTE_Bits : clear implicits. @@ -354,71 +523,91 @@ Arguments Pmpcfg_ent : clear implicits. Notation "{[ r 'with' 'Pmpcfg_ent_Pmpcfg_ent_chunk_0' := e ]}" := {| Pmpcfg_ent_Pmpcfg_ent_chunk_0 := e |} (only parsing). -Record Mstatus := { Mstatus_Mstatus_chunk_0 : mword 64; }. -Arguments Mstatus : clear implicits. -Notation "{[ r 'with' 'Mstatus_Mstatus_chunk_0' := e ]}" := - {| Mstatus_Mstatus_chunk_0 := e |} (only parsing). +Record SV32_PTE := { SV32_PTE_SV32_PTE_chunk_0 : mword 32; }. +Arguments SV32_PTE : clear implicits. +Notation "{[ r 'with' 'SV32_PTE_SV32_PTE_chunk_0' := e ]}" := + {| SV32_PTE_SV32_PTE_chunk_0 := e |} (only parsing). -Record Sstatus := { Sstatus_Sstatus_chunk_0 : mword 64; }. -Arguments Sstatus : clear implicits. -Notation "{[ r 'with' 'Sstatus_Sstatus_chunk_0' := e ]}" := - {| Sstatus_Sstatus_chunk_0 := e |} (only parsing). +Record SV32_Paddr := { SV32_Paddr_SV32_Paddr_chunk_0 : mword 34; }. +Arguments SV32_Paddr : clear implicits. +Notation "{[ r 'with' 'SV32_Paddr_SV32_Paddr_chunk_0' := e ]}" := + {| SV32_Paddr_SV32_Paddr_chunk_0 := e |} (only parsing). -Record Ustatus := { Ustatus_Ustatus_chunk_0 : mword 64; }. -Arguments Ustatus : clear implicits. -Notation "{[ r 'with' 'Ustatus_Ustatus_chunk_0' := e ]}" := - {| Ustatus_Ustatus_chunk_0 := e |} (only parsing). +Record SV32_Vaddr := { SV32_Vaddr_SV32_Vaddr_chunk_0 : mword 32; }. +Arguments SV32_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV32_Vaddr_SV32_Vaddr_chunk_0' := e ]}" := + {| SV32_Vaddr_SV32_Vaddr_chunk_0 := e |} (only parsing). -Record Minterrupts := { Minterrupts_Minterrupts_chunk_0 : mword 64; }. -Arguments Minterrupts : clear implicits. -Notation "{[ r 'with' 'Minterrupts_Minterrupts_chunk_0' := e ]}" := - {| Minterrupts_Minterrupts_chunk_0 := e |} (only parsing). +Record SV39_PTE := { SV39_PTE_SV39_PTE_chunk_0 : mword 64; }. +Arguments SV39_PTE : clear implicits. +Notation "{[ r 'with' 'SV39_PTE_SV39_PTE_chunk_0' := e ]}" := + {| SV39_PTE_SV39_PTE_chunk_0 := e |} (only parsing). -Record Sinterrupts := { Sinterrupts_Sinterrupts_chunk_0 : mword 64; }. -Arguments Sinterrupts : clear implicits. -Notation "{[ r 'with' 'Sinterrupts_Sinterrupts_chunk_0' := e ]}" := - {| Sinterrupts_Sinterrupts_chunk_0 := e |} (only parsing). +Record SV39_Paddr := { SV39_Paddr_SV39_Paddr_chunk_0 : mword 56; }. +Arguments SV39_Paddr : clear implicits. +Notation "{[ r 'with' 'SV39_Paddr_SV39_Paddr_chunk_0' := e ]}" := + {| SV39_Paddr_SV39_Paddr_chunk_0 := e |} (only parsing). -Record Uinterrupts := { Uinterrupts_Uinterrupts_chunk_0 : mword 64; }. -Arguments Uinterrupts : clear implicits. -Notation "{[ r 'with' 'Uinterrupts_Uinterrupts_chunk_0' := e ]}" := - {| Uinterrupts_Uinterrupts_chunk_0 := e |} (only parsing). +Record SV39_Vaddr := { SV39_Vaddr_SV39_Vaddr_chunk_0 : mword 39; }. +Arguments SV39_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV39_Vaddr_SV39_Vaddr_chunk_0' := e ]}" := + {| SV39_Vaddr_SV39_Vaddr_chunk_0 := e |} (only parsing). -Record Medeleg := { Medeleg_Medeleg_chunk_0 : mword 64; }. -Arguments Medeleg : clear implicits. -Notation "{[ r 'with' 'Medeleg_Medeleg_chunk_0' := e ]}" := - {| Medeleg_Medeleg_chunk_0 := e |} (only parsing). +Record SV48_PTE := { SV48_PTE_SV48_PTE_chunk_0 : mword 64; }. +Arguments SV48_PTE : clear implicits. +Notation "{[ r 'with' 'SV48_PTE_SV48_PTE_chunk_0' := e ]}" := + {| SV48_PTE_SV48_PTE_chunk_0 := e |} (only parsing). -Record Sedeleg := { Sedeleg_Sedeleg_chunk_0 : mword 64; }. -Arguments Sedeleg : clear implicits. -Notation "{[ r 'with' 'Sedeleg_Sedeleg_chunk_0' := e ]}" := - {| Sedeleg_Sedeleg_chunk_0 := e |} (only parsing). +Record SV48_Paddr := { SV48_Paddr_SV48_Paddr_chunk_0 : mword 56; }. +Arguments SV48_Paddr : clear implicits. +Notation "{[ r 'with' 'SV48_Paddr_SV48_Paddr_chunk_0' := e ]}" := + {| SV48_Paddr_SV48_Paddr_chunk_0 := e |} (only parsing). -Record Mtvec := { Mtvec_Mtvec_chunk_0 : mword 64; }. -Arguments Mtvec : clear implicits. -Notation "{[ r 'with' 'Mtvec_Mtvec_chunk_0' := e ]}" := - {| Mtvec_Mtvec_chunk_0 := e |} (only parsing). +Record SV48_Vaddr := { SV48_Vaddr_SV48_Vaddr_chunk_0 : mword 48; }. +Arguments SV48_Vaddr : clear implicits. +Notation "{[ r 'with' 'SV48_Vaddr_SV48_Vaddr_chunk_0' := e ]}" := + {| SV48_Vaddr_SV48_Vaddr_chunk_0 := e |} (only parsing). Record Satp32 := { Satp32_Satp32_chunk_0 : mword 32; }. Arguments Satp32 : clear implicits. Notation "{[ r 'with' 'Satp32_Satp32_chunk_0' := e ]}" := {| Satp32_Satp32_chunk_0 := e |} (only parsing). -Record Mcause := { Mcause_Mcause_chunk_0 : mword 64; }. -Arguments Mcause : clear implicits. -Notation "{[ r 'with' 'Mcause_Mcause_chunk_0' := e ]}" := - {| Mcause_Mcause_chunk_0 := e |} (only parsing). - -Record Counteren := { Counteren_Counteren_chunk_0 : mword 32; }. -Arguments Counteren : clear implicits. -Notation "{[ r 'with' 'Counteren_Counteren_chunk_0' := e ]}" := - {| Counteren_Counteren_chunk_0 := e |} (only parsing). - Record Satp64 := { Satp64_Satp64_chunk_0 : mword 64; }. Arguments Satp64 : clear implicits. Notation "{[ r 'with' 'Satp64_Satp64_chunk_0' := e ]}" := {| Satp64_Satp64_chunk_0 := e |} (only parsing). +Record Sedeleg := { Sedeleg_Sedeleg_chunk_0 : mword 64; }. +Arguments Sedeleg : clear implicits. +Notation "{[ r 'with' 'Sedeleg_Sedeleg_chunk_0' := e ]}" := + {| Sedeleg_Sedeleg_chunk_0 := e |} (only parsing). + +Record Sinterrupts := { Sinterrupts_Sinterrupts_chunk_0 : mword 64; }. +Arguments Sinterrupts : clear implicits. +Notation "{[ r 'with' 'Sinterrupts_Sinterrupts_chunk_0' := e ]}" := + {| Sinterrupts_Sinterrupts_chunk_0 := e |} (only parsing). + +Record Sstatus := { Sstatus_Sstatus_chunk_0 : mword 64; }. +Arguments Sstatus : clear implicits. +Notation "{[ r 'with' 'Sstatus_Sstatus_chunk_0' := e ]}" := + {| Sstatus_Sstatus_chunk_0 := e |} (only parsing). + +Record Uinterrupts := { Uinterrupts_Uinterrupts_chunk_0 : mword 64; }. +Arguments Uinterrupts : clear implicits. +Notation "{[ r 'with' 'Uinterrupts_Uinterrupts_chunk_0' := e ]}" := + {| Uinterrupts_Uinterrupts_chunk_0 := e |} (only parsing). + +Record Ustatus := { Ustatus_Ustatus_chunk_0 : mword 64; }. +Arguments Ustatus : clear implicits. +Notation "{[ r 'with' 'Ustatus_Ustatus_chunk_0' := e ]}" := + {| Ustatus_Ustatus_chunk_0 := e |} (only parsing). + +Record htif_cmd := { htif_cmd_htif_cmd_chunk_0 : mword 64; }. +Arguments htif_cmd : clear implicits. +Notation "{[ r 'with' 'htif_cmd_htif_cmd_chunk_0' := e ]}" := + {| htif_cmd_htif_cmd_chunk_0 := e |} (only parsing). + Inductive PmpAddrMatchType := OFF | TOR | NA4 | NAPOT. Scheme Equality for PmpAddrMatchType. Instance Decidable_eq_PmpAddrMatchType : @@ -466,21 +655,28 @@ Record sync_exception := sync_exception_excinfo : option xlenbits; sync_exception_ext : option ext_exception; }. Arguments sync_exception : clear implicits. -Notation "{[ r 'with' 'sync_exception_trap' := e ]}" := {| - sync_exception_trap := e; - sync_exception_excinfo := sync_exception_excinfo r; - sync_exception_ext := sync_exception_ext r - |}. -Notation "{[ r 'with' 'sync_exception_excinfo' := e ]}" := {| - sync_exception_excinfo := e; - sync_exception_trap := sync_exception_trap r; - sync_exception_ext := sync_exception_ext r - |}. -Notation "{[ r 'with' 'sync_exception_ext' := e ]}" := {| - sync_exception_ext := e; - sync_exception_trap := sync_exception_trap r; - sync_exception_excinfo := sync_exception_excinfo r - |}. +Notation "{[ r 'with' 'sync_exception_trap' := e ]}" := + match r with Build_sync_exception _ f1 f2 => Build_sync_exception e f1 f2 end. +Notation "{[ r 'with' 'sync_exception_excinfo' := e ]}" := + match r with Build_sync_exception f0 _ f2 => Build_sync_exception f0 e f2 end. +Notation "{[ r 'with' 'sync_exception_ext' := e ]}" := + match r with Build_sync_exception f0 f1 _ => Build_sync_exception f0 f1 e end. + +Definition bits_rm : Type := bits 3. + +Definition bits_fflags : Type := bits 5. + +Definition bits_S : Type := bits 32. + +Definition bits_D : Type := bits 64. + +Definition bits_W : Type := bits 32. + +Definition bits_WU : Type := bits 32. + +Definition bits_L : Type := bits 64. + +Definition bits_LU : Type := bits 64. Inductive interrupt_set := | Ints_Pending : xlenbits -> interrupt_set @@ -499,19 +695,13 @@ Inductive MemoryOpResult {a : Type} := | MemValue : a -> MemoryOpResult | MemException : ExceptionType -> MemoryOpResult. Arguments MemoryOpResult : clear implicits. -Record htif_cmd := { htif_cmd_htif_cmd_chunk_0 : mword 64; }. -Arguments htif_cmd : clear implicits. -Notation "{[ r 'with' 'htif_cmd_htif_cmd_chunk_0' := e ]}" := - {| htif_cmd_htif_cmd_chunk_0 := e |} (only parsing). - Definition pteAttribs : Type := bits 8. -Inductive PTW_Error := - PTW_Access | PTW_Invalid_PTE | PTW_No_Permission | PTW_Misaligned | PTW_PTE_Update. -Scheme Equality for PTW_Error. -Instance Decidable_eq_PTW_Error : -forall (x y : PTW_Error), Decidable (x = y) := -Decidable_eq_from_dec PTW_Error_eq_dec. +Definition extPte : Type := bits 10. + +Inductive PTE_Check := + | PTE_Check_Success : ext_ptw -> PTE_Check | PTE_Check_Failure : ext_ptw -> PTE_Check. +Arguments PTE_Check : clear implicits. Definition vaddr32 : Type := bits 32. @@ -521,31 +711,6 @@ Definition pte32 : Type := bits 32. Definition asid32 : Type := bits 9. -Record SV32_Vaddr := { SV32_Vaddr_SV32_Vaddr_chunk_0 : mword 32; }. -Arguments SV32_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV32_Vaddr_SV32_Vaddr_chunk_0' := e ]}" := - {| SV32_Vaddr_SV32_Vaddr_chunk_0 := e |} (only parsing). - -Record SV48_Vaddr := { SV48_Vaddr_SV48_Vaddr_chunk_0 : mword 48; }. -Arguments SV48_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV48_Vaddr_SV48_Vaddr_chunk_0' := e ]}" := - {| SV48_Vaddr_SV48_Vaddr_chunk_0 := e |} (only parsing). - -Record SV48_Paddr := { SV48_Paddr_SV48_Paddr_chunk_0 : mword 56; }. -Arguments SV48_Paddr : clear implicits. -Notation "{[ r 'with' 'SV48_Paddr_SV48_Paddr_chunk_0' := e ]}" := - {| SV48_Paddr_SV48_Paddr_chunk_0 := e |} (only parsing). - -Record SV32_Paddr := { SV32_Paddr_SV32_Paddr_chunk_0 : mword 34; }. -Arguments SV32_Paddr : clear implicits. -Notation "{[ r 'with' 'SV32_Paddr_SV32_Paddr_chunk_0' := e ]}" := - {| SV32_Paddr_SV32_Paddr_chunk_0 := e |} (only parsing). - -Record SV32_PTE := { SV32_PTE_SV32_PTE_chunk_0 : mword 32; }. -Arguments SV32_PTE : clear implicits. -Notation "{[ r 'with' 'SV32_PTE_SV32_PTE_chunk_0' := e ]}" := - {| SV32_PTE_SV32_PTE_chunk_0 := e |} (only parsing). - Definition paddr64 : Type := bits 56. Definition pte64 : Type := bits 64. @@ -554,32 +719,17 @@ Definition asid64 : Type := bits 16. Definition vaddr39 : Type := bits 39. -Record SV39_Vaddr := { SV39_Vaddr_SV39_Vaddr_chunk_0 : mword 39; }. -Arguments SV39_Vaddr : clear implicits. -Notation "{[ r 'with' 'SV39_Vaddr_SV39_Vaddr_chunk_0' := e ]}" := - {| SV39_Vaddr_SV39_Vaddr_chunk_0 := e |} (only parsing). - -Record SV39_Paddr := { SV39_Paddr_SV39_Paddr_chunk_0 : mword 56; }. -Arguments SV39_Paddr : clear implicits. -Notation "{[ r 'with' 'SV39_Paddr_SV39_Paddr_chunk_0' := e ]}" := - {| SV39_Paddr_SV39_Paddr_chunk_0 := e |} (only parsing). - -Record SV39_PTE := { SV39_PTE_SV39_PTE_chunk_0 : mword 64; }. -Arguments SV39_PTE : clear implicits. -Notation "{[ r 'with' 'SV39_PTE_SV39_PTE_chunk_0' := e ]}" := - {| SV39_PTE_SV39_PTE_chunk_0 := e |} (only parsing). - Definition vaddr48 : Type := bits 48. Definition pte48 : Type := bits 64. Inductive PTW_Result {paddr : Type} {pte : Type} := - | PTW_Success : (paddr * pte * paddr * {n : Z & ArithFact (n >= 0)} * bool) -> PTW_Result - | PTW_Failure : PTW_Error -> PTW_Result. + | PTW_Success : (paddr * pte * paddr * {n : Z & ArithFact (n >=? 0)} * bool * ext_ptw) -> PTW_Result + | PTW_Failure : (PTW_Error * ext_ptw) -> PTW_Result. Arguments PTW_Result : clear implicits. Inductive TR_Result {paddr : Type} {failure : Type} := - | TR_Address : paddr -> TR_Result | TR_Failure : failure -> TR_Result. + | TR_Address : (paddr * ext_ptw) -> TR_Result | TR_Failure : (failure * ext_ptw) -> TR_Result. Arguments TR_Result : clear implicits. Record TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} := @@ -593,115 +743,45 @@ Record TLB_Entry {asidlen : Z} {valen : Z} {palen : Z} {ptelen : Z} := TLB_Entry_pteAddr : bits palen; TLB_Entry_age : bits 64; }. Arguments TLB_Entry : clear implicits. -Notation "{[ r 'with' 'TLB_Entry_asid' := e ]}" := {| - TLB_Entry_asid := e; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_global' := e ]}" := {| - TLB_Entry_global := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vAddr' := e ]}" := {| - TLB_Entry_vAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pAddr' := e ]}" := {| - TLB_Entry_pAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vMatchMask' := e ]}" := {| - TLB_Entry_vMatchMask := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_vAddrMask' := e ]}" := {| - TLB_Entry_vAddrMask := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pte' := e ]}" := {| - TLB_Entry_pte := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_pteAddr' := e ]}" := {| - TLB_Entry_pteAddr := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_age := TLB_Entry_age r - |}. -Notation "{[ r 'with' 'TLB_Entry_age' := e ]}" := {| - TLB_Entry_age := e; - TLB_Entry_asid := TLB_Entry_asid r; - TLB_Entry_global := TLB_Entry_global r; - TLB_Entry_vAddr := TLB_Entry_vAddr r; - TLB_Entry_pAddr := TLB_Entry_pAddr r; - TLB_Entry_vMatchMask := TLB_Entry_vMatchMask r; - TLB_Entry_vAddrMask := TLB_Entry_vAddrMask r; - TLB_Entry_pte := TLB_Entry_pte r; - TLB_Entry_pteAddr := TLB_Entry_pteAddr r - |}. +Notation "{[ r 'with' 'TLB_Entry_asid' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ _ f1 f2 f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ e f1 f2 f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_global' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 _ f2 f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 e f2 f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 _ f3 f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 e f3 f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 _ f4 f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 e f4 f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vMatchMask' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 _ f5 f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 e f5 f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_vAddrMask' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 _ f6 f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 e f6 f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pte' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 _ f7 f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 e f7 f8 end. +Notation "{[ r 'with' 'TLB_Entry_pteAddr' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 _ f8 => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 e f8 end. +Notation "{[ r 'with' 'TLB_Entry_age' := e ]}" := + match r with Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 f7 _ => + Build_TLB_Entry _ _ _ _ f0 f1 f2 f3 f4 f5 f6 f7 e end. Definition TLB39_Entry : Type := TLB_Entry 16 39 56 64. Definition TLB48_Entry : Type := TLB_Entry 16 48 56 64. Inductive register_value := - | Regval_vector : (Z * bool * list register_value) -> register_value + | Regval_vector : list register_value -> register_value | Regval_list : list register_value -> register_value | Regval_option : option register_value -> register_value | Regval_Counteren : Counteren -> register_value + | Regval_Counterin : Counterin -> register_value + | Regval_Fcsr : Fcsr -> register_value | Regval_Mcause : Mcause -> register_value | Regval_Medeleg : Medeleg -> register_value | Regval_Minterrupts : Minterrupts -> register_value @@ -728,6 +808,42 @@ Record regstate := htif_done : bool; htif_tohost : mword 64; mtimecmp : mword 64; + fcsr : Fcsr; + f31 : mword 64; + f30 : mword 64; + f29 : mword 64; + f28 : mword 64; + f27 : mword 64; + f26 : mword 64; + f25 : mword 64; + f24 : mword 64; + f23 : mword 64; + f22 : mword 64; + f21 : mword 64; + f20 : mword 64; + f19 : mword 64; + f18 : mword 64; + f17 : mword 64; + f16 : mword 64; + f15 : mword 64; + f14 : mword 64; + f13 : mword 64; + f12 : mword 64; + f11 : mword 64; + f10 : mword 64; + f9 : mword 64; + f8 : mword 64; + f7 : mword 64; + f6 : mword 64; + f5 : mword 64; + f4 : mword 64; + f3 : mword 64; + f2 : mword 64; + f1 : mword 64; + f0 : mword 64; + fs : vec (mword 64) 32; + float_fflags : mword 64; + float_result : mword 64; utval : mword 64; ucause : Mcause; uepc : mword 64; @@ -781,6 +897,7 @@ Record regstate := minstret : mword 64; mtime : mword 64; mcycle : mword 64; + mcountinhibit : Counterin; scounteren : Counteren; mcounteren : Counteren; mscratch : mword 64; @@ -832,12472 +949,704 @@ Record regstate := nextPC : mword 64; PC : mword 64; }. Arguments regstate : clear implicits. -Notation "{[ r 'with' 'satp' := e ]}" := {| - satp := e; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'tlb48' := e ]}" := {| - tlb48 := e; - satp := satp r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'tlb39' := e ]}" := {| - tlb39 := e; - satp := satp r; - tlb48 := tlb48 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_exit_code' := e ]}" := {| - htif_exit_code := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_done' := e ]}" := {| - htif_done := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'htif_tohost' := e ]}" := {| - htif_tohost := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtimecmp' := e ]}" := {| - mtimecmp := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'utval' := e ]}" := {| - utval := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'ucause' := e ]}" := {| - ucause := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'uepc' := e ]}" := {| - uepc := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'uscratch' := e ]}" := {| - uscratch := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'utvec' := e ]}" := {| - utvec := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr15' := e ]}" := {| - pmpaddr15 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr14' := e ]}" := {| - pmpaddr14 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr13' := e ]}" := {| - pmpaddr13 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr12' := e ]}" := {| - pmpaddr12 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr11' := e ]}" := {| - pmpaddr11 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr10' := e ]}" := {| - pmpaddr10 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr9' := e ]}" := {| - pmpaddr9 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr8' := e ]}" := {| - pmpaddr8 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr7' := e ]}" := {| - pmpaddr7 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr6' := e ]}" := {| - pmpaddr6 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr5' := e ]}" := {| - pmpaddr5 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr4' := e ]}" := {| - pmpaddr4 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr3' := e ]}" := {| - pmpaddr3 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr2' := e ]}" := {| - pmpaddr2 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr1' := e ]}" := {| - pmpaddr1 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmpaddr0' := e ]}" := {| - pmpaddr0 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp15cfg' := e ]}" := {| - pmp15cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp14cfg' := e ]}" := {| - pmp14cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp13cfg' := e ]}" := {| - pmp13cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp12cfg' := e ]}" := {| - pmp12cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp11cfg' := e ]}" := {| - pmp11cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp10cfg' := e ]}" := {| - pmp10cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp9cfg' := e ]}" := {| - pmp9cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp8cfg' := e ]}" := {| - pmp8cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp7cfg' := e ]}" := {| - pmp7cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp6cfg' := e ]}" := {| - pmp6cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp5cfg' := e ]}" := {| - pmp5cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp4cfg' := e ]}" := {| - pmp4cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp3cfg' := e ]}" := {| - pmp3cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp2cfg' := e ]}" := {| - pmp2cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp1cfg' := e ]}" := {| - pmp1cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'pmp0cfg' := e ]}" := {| - pmp0cfg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'tselect' := e ]}" := {| - tselect := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'stval' := e ]}" := {| - stval := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'scause' := e ]}" := {| - scause := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sepc' := e ]}" := {| - sepc := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sscratch' := e ]}" := {| - sscratch := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'stvec' := e ]}" := {| - stvec := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sideleg' := e ]}" := {| - sideleg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'sedeleg' := e ]}" := {| - sedeleg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mhartid' := e ]}" := {| - mhartid := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'marchid' := e ]}" := {| - marchid := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mimpid' := e ]}" := {| - mimpid := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mvendorid' := e ]}" := {| - mvendorid := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'minstret_written' := e ]}" := {| - minstret_written := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'minstret' := e ]}" := {| - minstret := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtime' := e ]}" := {| - mtime := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcycle' := e ]}" := {| - mcycle := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'scounteren' := e ]}" := {| - scounteren := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcounteren' := e ]}" := {| - mcounteren := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mscratch' := e ]}" := {| - mscratch := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtval' := e ]}" := {| - mtval := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mepc' := e ]}" := {| - mepc := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mcause' := e ]}" := {| - mcause := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mtvec' := e ]}" := {| - mtvec := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'medeleg' := e ]}" := {| - medeleg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mideleg' := e ]}" := {| - mideleg := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mie' := e ]}" := {| - mie := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mip' := e ]}" := {| - mip := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'mstatus' := e ]}" := {| - mstatus := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'misa' := e ]}" := {| - misa := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'cur_inst' := e ]}" := {| - cur_inst := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'cur_privilege' := e ]}" := {| - cur_privilege := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x31' := e ]}" := {| - x31 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x30' := e ]}" := {| - x30 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x29' := e ]}" := {| - x29 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x28' := e ]}" := {| - x28 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x27' := e ]}" := {| - x27 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x26' := e ]}" := {| - x26 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x25' := e ]}" := {| - x25 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x24' := e ]}" := {| - x24 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x23' := e ]}" := {| - x23 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x22' := e ]}" := {| - x22 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x21' := e ]}" := {| - x21 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x20' := e ]}" := {| - x20 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x19' := e ]}" := {| - x19 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x18' := e ]}" := {| - x18 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x17' := e ]}" := {| - x17 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x16' := e ]}" := {| - x16 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x15' := e ]}" := {| - x15 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x14' := e ]}" := {| - x14 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x13' := e ]}" := {| - x13 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x12' := e ]}" := {| - x12 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x11' := e ]}" := {| - x11 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x10' := e ]}" := {| - x10 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x9' := e ]}" := {| - x9 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x8' := e ]}" := {| - x8 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x7' := e ]}" := {| - x7 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x6' := e ]}" := {| - x6 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x5' := e ]}" := {| - x5 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x4' := e ]}" := {| - x4 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x3' := e ]}" := {| - x3 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x2' := e ]}" := {| - x2 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'x1' := e ]}" := {| - x1 := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'Xs' := e ]}" := {| - Xs := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - instbits := instbits r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'instbits' := e ]}" := {| - instbits := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - nextPC := nextPC r; - PC := PC r - |}. -Notation "{[ r 'with' 'nextPC' := e ]}" := {| - nextPC := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - PC := PC r - |}. -Notation "{[ r 'with' 'PC' := e ]}" := {| - PC := e; - satp := satp r; - tlb48 := tlb48 r; - tlb39 := tlb39 r; - htif_exit_code := htif_exit_code r; - htif_done := htif_done r; - htif_tohost := htif_tohost r; - mtimecmp := mtimecmp r; - utval := utval r; - ucause := ucause r; - uepc := uepc r; - uscratch := uscratch r; - utvec := utvec r; - pmpaddr15 := pmpaddr15 r; - pmpaddr14 := pmpaddr14 r; - pmpaddr13 := pmpaddr13 r; - pmpaddr12 := pmpaddr12 r; - pmpaddr11 := pmpaddr11 r; - pmpaddr10 := pmpaddr10 r; - pmpaddr9 := pmpaddr9 r; - pmpaddr8 := pmpaddr8 r; - pmpaddr7 := pmpaddr7 r; - pmpaddr6 := pmpaddr6 r; - pmpaddr5 := pmpaddr5 r; - pmpaddr4 := pmpaddr4 r; - pmpaddr3 := pmpaddr3 r; - pmpaddr2 := pmpaddr2 r; - pmpaddr1 := pmpaddr1 r; - pmpaddr0 := pmpaddr0 r; - pmp15cfg := pmp15cfg r; - pmp14cfg := pmp14cfg r; - pmp13cfg := pmp13cfg r; - pmp12cfg := pmp12cfg r; - pmp11cfg := pmp11cfg r; - pmp10cfg := pmp10cfg r; - pmp9cfg := pmp9cfg r; - pmp8cfg := pmp8cfg r; - pmp7cfg := pmp7cfg r; - pmp6cfg := pmp6cfg r; - pmp5cfg := pmp5cfg r; - pmp4cfg := pmp4cfg r; - pmp3cfg := pmp3cfg r; - pmp2cfg := pmp2cfg r; - pmp1cfg := pmp1cfg r; - pmp0cfg := pmp0cfg r; - tselect := tselect r; - stval := stval r; - scause := scause r; - sepc := sepc r; - sscratch := sscratch r; - stvec := stvec r; - sideleg := sideleg r; - sedeleg := sedeleg r; - mhartid := mhartid r; - marchid := marchid r; - mimpid := mimpid r; - mvendorid := mvendorid r; - minstret_written := minstret_written r; - minstret := minstret r; - mtime := mtime r; - mcycle := mcycle r; - scounteren := scounteren r; - mcounteren := mcounteren r; - mscratch := mscratch r; - mtval := mtval r; - mepc := mepc r; - mcause := mcause r; - mtvec := mtvec r; - medeleg := medeleg r; - mideleg := mideleg r; - mie := mie r; - mip := mip r; - mstatus := mstatus r; - misa := misa r; - cur_inst := cur_inst r; - cur_privilege := cur_privilege r; - x31 := x31 r; - x30 := x30 r; - x29 := x29 r; - x28 := x28 r; - x27 := x27 r; - x26 := x26 r; - x25 := x25 r; - x24 := x24 r; - x23 := x23 r; - x22 := x22 r; - x21 := x21 r; - x20 := x20 r; - x19 := x19 r; - x18 := x18 r; - x17 := x17 r; - x16 := x16 r; - x15 := x15 r; - x14 := x14 r; - x13 := x13 r; - x12 := x12 r; - x11 := x11 r; - x10 := x10 r; - x9 := x9 r; - x8 := x8 r; - x7 := x7 r; - x6 := x6 r; - x5 := x5 r; - x4 := x4 r; - x3 := x3 r; - x2 := x2 r; - x1 := x1 r; - Xs := Xs r; - instbits := instbits r; - nextPC := nextPC r - |}. - - - -Definition Counteren_of_regval (merge_var : register_value) -: option Counteren := - - match merge_var with | Regval_Counteren (v) => Some (v) | _ => None end. - -Definition regval_of_Counteren (v : Counteren) : register_value := Regval_Counteren (v). - -Definition Mcause_of_regval (merge_var : register_value) -: option Mcause := - - match merge_var with | Regval_Mcause (v) => Some (v) | _ => None end. - -Definition regval_of_Mcause (v : Mcause) : register_value := Regval_Mcause (v). - -Definition Medeleg_of_regval (merge_var : register_value) -: option Medeleg := - - match merge_var with | Regval_Medeleg (v) => Some (v) | _ => None end. - -Definition regval_of_Medeleg (v : Medeleg) : register_value := Regval_Medeleg (v). - -Definition Minterrupts_of_regval (merge_var : register_value) -: option Minterrupts := - - match merge_var with | Regval_Minterrupts (v) => Some (v) | _ => None end. - -Definition regval_of_Minterrupts (v : Minterrupts) : register_value := Regval_Minterrupts (v). - -Definition Misa_of_regval (merge_var : register_value) -: option Misa := - - match merge_var with | Regval_Misa (v) => Some (v) | _ => None end. - -Definition regval_of_Misa (v : Misa) : register_value := Regval_Misa (v). - -Definition Mstatus_of_regval (merge_var : register_value) -: option Mstatus := - - match merge_var with | Regval_Mstatus (v) => Some (v) | _ => None end. - -Definition regval_of_Mstatus (v : Mstatus) : register_value := Regval_Mstatus (v). - -Definition Mtvec_of_regval (merge_var : register_value) -: option Mtvec := - - match merge_var with | Regval_Mtvec (v) => Some (v) | _ => None end. - -Definition regval_of_Mtvec (v : Mtvec) : register_value := Regval_Mtvec (v). - -Definition Pmpcfg_ent_of_regval (merge_var : register_value) -: option Pmpcfg_ent := - - match merge_var with | Regval_Pmpcfg_ent (v) => Some (v) | _ => None end. - -Definition regval_of_Pmpcfg_ent (v : Pmpcfg_ent) : register_value := Regval_Pmpcfg_ent (v). - -Definition Privilege_of_regval (merge_var : register_value) -: option Privilege := - - match merge_var with | Regval_Privilege (v) => Some (v) | _ => None end. - -Definition regval_of_Privilege (v : Privilege) : register_value := Regval_Privilege (v). - -Definition Sedeleg_of_regval (merge_var : register_value) -: option Sedeleg := - - match merge_var with | Regval_Sedeleg (v) => Some (v) | _ => None end. - -Definition regval_of_Sedeleg (v : Sedeleg) : register_value := Regval_Sedeleg (v). - -Definition Sinterrupts_of_regval (merge_var : register_value) -: option Sinterrupts := - - match merge_var with | Regval_Sinterrupts (v) => Some (v) | _ => None end. - -Definition regval_of_Sinterrupts (v : Sinterrupts) : register_value := Regval_Sinterrupts (v). +Notation "{[ r 'with' 'satp' := e ]}" := + match r with Build_regstate _ f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate e f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'tlb48' := e ]}" := + match r with Build_regstate f0 _ f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 e f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'tlb39' := e ]}" := + match r with Build_regstate f0 f1 _ f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 e f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'htif_exit_code' := e ]}" := + match r with Build_regstate f0 f1 f2 _ f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 e f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'htif_done' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 _ f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 e f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'htif_tohost' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 _ f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 e f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mtimecmp' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 _ f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 e f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'fcsr' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 _ f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 e f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f31' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 _ f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 e f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f30' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 _ f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 e f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f29' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 _ f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 e f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f28' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 _ f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 e f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f27' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 _ f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 e f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f26' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 _ f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 e f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f25' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 _ f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 e f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f24' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 _ f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 e f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f23' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 _ f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 e f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f22' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 _ f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 e f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f21' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 _ f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 e f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f20' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 _ f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 e f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f19' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 _ f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 e f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f18' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 _ f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 e f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f17' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 _ f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 e f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f16' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 _ f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 e f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 _ f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 e f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 _ f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 e f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 _ f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 e f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 _ f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 e f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 _ f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 e f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 _ f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 e f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 _ f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 e f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 _ f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 e f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 _ f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 e f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 _ f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 e f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 _ f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 e f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 _ f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 e f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 _ f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 e f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 _ f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 e f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 _ f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 e f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'f0' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 _ f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 e f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'fs' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 _ f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 e f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'float_fflags' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 _ f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 e f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'float_result' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 _ f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 e f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'utval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 _ f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 e f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'ucause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 _ f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 e f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'uepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 _ f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 e f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'uscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 _ f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 e f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'utvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 _ f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 e f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 _ f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 e f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 _ f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 e f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 _ f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 e f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 _ f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 e f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 _ f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 e f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 _ f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 e f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 _ f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 e f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 _ f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 e f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 _ f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 e f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 _ f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 e f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 _ f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 e f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 _ f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 e f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 _ f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 e f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 _ f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 e f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 _ f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 e f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmpaddr0' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 _ f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 e f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp15cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 _ f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 e f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp14cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 _ f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 e f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp13cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 _ f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 e f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp12cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 _ f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 e f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp11cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 _ f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 e f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp10cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 _ f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 e f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp9cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 _ f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 e f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp8cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 _ f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 e f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp7cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 _ f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 e f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp6cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 _ f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 e f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp5cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 _ f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 e f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp4cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 _ f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 e f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp3cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 _ f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 e f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp2cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 _ f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 e f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp1cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 _ f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 e f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'pmp0cfg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 _ f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 e f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'tselect' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 _ f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 e f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'stval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 _ f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 e f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'scause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 _ f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 e f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'sepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 _ f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 e f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'sscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 _ f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 e f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'stvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 _ f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 e f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'sideleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 _ f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 e f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'sedeleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 _ f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 e f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mhartid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 _ f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 e f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'marchid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 _ f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 e f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mimpid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 _ f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 e f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mvendorid' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 _ f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 e f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'minstret_written' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 _ f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 e f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'minstret' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 _ f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 e f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mtime' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 _ f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 e f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mcycle' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 _ f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 e f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mcountinhibit' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 _ f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 e f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'scounteren' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 _ f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 e f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mcounteren' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 _ f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 e f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mscratch' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 _ f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 e f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mtval' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 _ f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 e f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mepc' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 _ f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 e f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mcause' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 _ f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 e f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mtvec' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 _ f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 e f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'medeleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 _ f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 e f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mideleg' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 _ f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 e f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mie' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 _ f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 e f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mip' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 _ f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 e f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'mstatus' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 _ f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 e f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'misa' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 _ f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 e f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'cur_inst' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 _ f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 e f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'cur_privilege' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 _ f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 e f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x31' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 _ f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 e f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x30' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 _ f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 e f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x29' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 _ f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 e f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x28' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 _ f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 e f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x27' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 _ f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 e f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x26' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 _ f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 e f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x25' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 _ f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 e f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x24' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 _ f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 e f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x23' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 _ f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 e f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x22' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 _ f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 e f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x21' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 _ f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 e f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x20' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 _ f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 e f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x19' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 _ f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 e f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x18' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 _ f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 e f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x17' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 _ f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 e f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x16' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 _ f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 e f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x15' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 _ f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 e f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x14' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 _ f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 e f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x13' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 _ f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 e f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x12' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 _ f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 e f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x11' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 _ f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 e f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x10' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 _ f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 e f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x9' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 _ f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 e f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x8' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 _ f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 e f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x7' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 _ f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 e f137 f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x6' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 _ f138 f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 e f138 f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x5' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 _ f139 f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 e f139 f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x4' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 _ f140 f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 e f140 f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x3' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 _ f141 f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 e f141 f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x2' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 _ f142 f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 e f142 f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'x1' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 _ f143 f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 e f143 f144 f145 f146 + end. +Notation "{[ r 'with' 'Xs' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 _ f144 f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 e f144 f145 f146 + end. +Notation "{[ r 'with' 'instbits' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 _ f145 f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 e f145 f146 + end. +Notation "{[ r 'with' 'nextPC' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 _ f146 => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 e f146 + end. +Notation "{[ r 'with' 'PC' := e ]}" := + match r with Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 _ => + Build_regstate f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 f17 f18 f19 f20 f21 f22 f23 f24 f25 f26 f27 f28 f29 f30 f31 f32 f33 f34 f35 f36 f37 f38 f39 f40 f41 f42 f43 f44 f45 f46 f47 f48 f49 f50 f51 f52 f53 f54 f55 f56 f57 f58 f59 f60 f61 f62 f63 f64 f65 f66 f67 f68 f69 f70 f71 f72 f73 f74 f75 f76 f77 f78 f79 f80 f81 f82 f83 f84 f85 f86 f87 f88 f89 f90 f91 f92 f93 f94 f95 f96 f97 f98 f99 f100 f101 f102 f103 f104 f105 f106 f107 f108 f109 f110 f111 f112 f113 f114 f115 f116 f117 f118 f119 f120 f121 f122 f123 f124 f125 f126 f127 f128 f129 f130 f131 f132 f133 f134 f135 f136 f137 f138 f139 f140 f141 f142 f143 f144 f145 e + end. + + + +Definition Counteren_of_regval (merge_var : register_value) : option Counteren := + match merge_var with | Regval_Counteren v => Some v | _ => None end. + +Definition regval_of_Counteren (v : Counteren) : register_value := Regval_Counteren v. + +Definition Counterin_of_regval (merge_var : register_value) : option Counterin := + match merge_var with | Regval_Counterin v => Some v | _ => None end. + +Definition regval_of_Counterin (v : Counterin) : register_value := Regval_Counterin v. + +Definition Fcsr_of_regval (merge_var : register_value) : option Fcsr := + match merge_var with | Regval_Fcsr v => Some v | _ => None end. + +Definition regval_of_Fcsr (v : Fcsr) : register_value := Regval_Fcsr v. + +Definition Mcause_of_regval (merge_var : register_value) : option Mcause := + match merge_var with | Regval_Mcause v => Some v | _ => None end. + +Definition regval_of_Mcause (v : Mcause) : register_value := Regval_Mcause v. + +Definition Medeleg_of_regval (merge_var : register_value) : option Medeleg := + match merge_var with | Regval_Medeleg v => Some v | _ => None end. + +Definition regval_of_Medeleg (v : Medeleg) : register_value := Regval_Medeleg v. + +Definition Minterrupts_of_regval (merge_var : register_value) : option Minterrupts := + match merge_var with | Regval_Minterrupts v => Some v | _ => None end. + +Definition regval_of_Minterrupts (v : Minterrupts) : register_value := Regval_Minterrupts v. + +Definition Misa_of_regval (merge_var : register_value) : option Misa := + match merge_var with | Regval_Misa v => Some v | _ => None end. + +Definition regval_of_Misa (v : Misa) : register_value := Regval_Misa v. + +Definition Mstatus_of_regval (merge_var : register_value) : option Mstatus := + match merge_var with | Regval_Mstatus v => Some v | _ => None end. + +Definition regval_of_Mstatus (v : Mstatus) : register_value := Regval_Mstatus v. + +Definition Mtvec_of_regval (merge_var : register_value) : option Mtvec := + match merge_var with | Regval_Mtvec v => Some v | _ => None end. + +Definition regval_of_Mtvec (v : Mtvec) : register_value := Regval_Mtvec v. + +Definition Pmpcfg_ent_of_regval (merge_var : register_value) : option Pmpcfg_ent := + match merge_var with | Regval_Pmpcfg_ent v => Some v | _ => None end. -Definition TLB_Entry_16_39_56_64_of_regval (merge_var : register_value) +Definition regval_of_Pmpcfg_ent (v : Pmpcfg_ent) : register_value := Regval_Pmpcfg_ent v. + +Definition Privilege_of_regval (merge_var : register_value) : option Privilege := + match merge_var with | Regval_Privilege v => Some v | _ => None end. + +Definition regval_of_Privilege (v : Privilege) : register_value := Regval_Privilege v. + +Definition Sedeleg_of_regval (merge_var : register_value) : option Sedeleg := + match merge_var with | Regval_Sedeleg v => Some v | _ => None end. + +Definition regval_of_Sedeleg (v : Sedeleg) : register_value := Regval_Sedeleg v. + +Definition Sinterrupts_of_regval (merge_var : register_value) : option Sinterrupts := + match merge_var with | Regval_Sinterrupts v => Some v | _ => None end. + +Definition regval_of_Sinterrupts (v : Sinterrupts) : register_value := Regval_Sinterrupts v. + +Definition TLB_Entry_16_39_56_64_of_regval (merge_var : register_value) : option (TLB_Entry 16 39 56 64) := - - match merge_var with | Regval_TLB_Entry_16_39_56_64 (v) => Some (v) | _ => None end. + match merge_var with | Regval_TLB_Entry_16_39_56_64 v => Some v | _ => None end. -Definition regval_of_TLB_Entry_16_39_56_64 (v : TLB_Entry 16 39 56 64) -: register_value := - - Regval_TLB_Entry_16_39_56_64 - (v). +Definition regval_of_TLB_Entry_16_39_56_64 (v : TLB_Entry 16 39 56 64) : register_value := + Regval_TLB_Entry_16_39_56_64 v. -Definition TLB_Entry_16_48_56_64_of_regval (merge_var : register_value) +Definition TLB_Entry_16_48_56_64_of_regval (merge_var : register_value) : option (TLB_Entry 16 48 56 64) := - - match merge_var with | Regval_TLB_Entry_16_48_56_64 (v) => Some (v) | _ => None end. + match merge_var with | Regval_TLB_Entry_16_48_56_64 v => Some v | _ => None end. -Definition regval_of_TLB_Entry_16_48_56_64 (v : TLB_Entry 16 48 56 64) -: register_value := - - Regval_TLB_Entry_16_48_56_64 - (v). +Definition regval_of_TLB_Entry_16_48_56_64 (v : TLB_Entry 16 48 56 64) : register_value := + Regval_TLB_Entry_16_48_56_64 v. -Definition bit_of_regval (merge_var : register_value) -: option bitU := - - match merge_var with | Regval_bit (v) => Some (v) | _ => None end. +Definition bit_of_regval (merge_var : register_value) : option bitU := + match merge_var with | Regval_bit v => Some v | _ => None end. -Definition regval_of_bit (v : bitU) : register_value := Regval_bit (v). +Definition regval_of_bit (v : bitU) : register_value := Regval_bit v. -Definition bitvector_32_dec_of_regval (merge_var : register_value) -: option (mword 32) := - - match merge_var with | Regval_bitvector_32_dec (v) => Some (v) | _ => None end. +Definition bitvector_32_dec_of_regval (merge_var : register_value) : option (mword 32) := + match merge_var with | Regval_bitvector_32_dec v => Some v | _ => None end. -Definition regval_of_bitvector_32_dec (v : mword 32) -: register_value := - - Regval_bitvector_32_dec - (v). +Definition regval_of_bitvector_32_dec (v : mword 32) : register_value := Regval_bitvector_32_dec v. -Definition bitvector_64_dec_of_regval (merge_var : register_value) -: option (mword 64) := - - match merge_var with | Regval_bitvector_64_dec (v) => Some (v) | _ => None end. +Definition bitvector_64_dec_of_regval (merge_var : register_value) : option (mword 64) := + match merge_var with | Regval_bitvector_64_dec v => Some v | _ => None end. -Definition regval_of_bitvector_64_dec (v : mword 64) -: register_value := - - Regval_bitvector_64_dec - (v). +Definition regval_of_bitvector_64_dec (v : mword 64) : register_value := Regval_bitvector_64_dec v. -Definition bool_of_regval (merge_var : register_value) -: option bool := - - match merge_var with | Regval_bool (v) => Some (v) | _ => None end. +Definition bool_of_regval (merge_var : register_value) : option bool := + match merge_var with | Regval_bool v => Some v | _ => None end. -Definition regval_of_bool (v : bool) : register_value := Regval_bool (v). +Definition regval_of_bool (v : bool) : register_value := Regval_bool v. Definition vector_of_regval {a} n (of_regval : register_value -> option a) (rv : register_value) : option (vec a n) := match rv with - | Regval_vector (n', _, v) => if n =? n' then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None + | Regval_vector v => if n =? length_list v then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None | _ => None end. -Definition regval_of_vector {a} (regval_of : a -> register_value) (size : Z) (is_inc : bool) (xs : vec a size) : register_value := Regval_vector (size, is_inc, List.map regval_of (list_of_vec xs)). +Definition regval_of_vector {a size} (regval_of : a -> register_value) (xs : vec a size) : register_value := Regval_vector (List.map regval_of (list_of_vec xs)). Definition list_of_regval {a} (of_regval : register_value -> option a) (rv : register_value) : option (list a) := match rv with | Regval_list v => just_list (List.map of_regval v) @@ -13363,6 +1712,258 @@ Definition mtimecmp_ref := {| of_regval := (fun v => bitvector_64_dec_of_regval v); regval_of := (fun v => regval_of_bitvector_64_dec v) |}. +Definition fcsr_ref := {| + name := "fcsr"; + read_from := (fun s => s.(fcsr)); + write_to := (fun v s => ({[ s with fcsr := v ]})); + of_regval := (fun v => Fcsr_of_regval v); + regval_of := (fun v => regval_of_Fcsr v) |}. + +Definition f31_ref := {| + name := "f31"; + read_from := (fun s => s.(f31)); + write_to := (fun v s => ({[ s with f31 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f30_ref := {| + name := "f30"; + read_from := (fun s => s.(f30)); + write_to := (fun v s => ({[ s with f30 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f29_ref := {| + name := "f29"; + read_from := (fun s => s.(f29)); + write_to := (fun v s => ({[ s with f29 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f28_ref := {| + name := "f28"; + read_from := (fun s => s.(f28)); + write_to := (fun v s => ({[ s with f28 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f27_ref := {| + name := "f27"; + read_from := (fun s => s.(f27)); + write_to := (fun v s => ({[ s with f27 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f26_ref := {| + name := "f26"; + read_from := (fun s => s.(f26)); + write_to := (fun v s => ({[ s with f26 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f25_ref := {| + name := "f25"; + read_from := (fun s => s.(f25)); + write_to := (fun v s => ({[ s with f25 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f24_ref := {| + name := "f24"; + read_from := (fun s => s.(f24)); + write_to := (fun v s => ({[ s with f24 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f23_ref := {| + name := "f23"; + read_from := (fun s => s.(f23)); + write_to := (fun v s => ({[ s with f23 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f22_ref := {| + name := "f22"; + read_from := (fun s => s.(f22)); + write_to := (fun v s => ({[ s with f22 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f21_ref := {| + name := "f21"; + read_from := (fun s => s.(f21)); + write_to := (fun v s => ({[ s with f21 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f20_ref := {| + name := "f20"; + read_from := (fun s => s.(f20)); + write_to := (fun v s => ({[ s with f20 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f19_ref := {| + name := "f19"; + read_from := (fun s => s.(f19)); + write_to := (fun v s => ({[ s with f19 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f18_ref := {| + name := "f18"; + read_from := (fun s => s.(f18)); + write_to := (fun v s => ({[ s with f18 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f17_ref := {| + name := "f17"; + read_from := (fun s => s.(f17)); + write_to := (fun v s => ({[ s with f17 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f16_ref := {| + name := "f16"; + read_from := (fun s => s.(f16)); + write_to := (fun v s => ({[ s with f16 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f15_ref := {| + name := "f15"; + read_from := (fun s => s.(f15)); + write_to := (fun v s => ({[ s with f15 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f14_ref := {| + name := "f14"; + read_from := (fun s => s.(f14)); + write_to := (fun v s => ({[ s with f14 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f13_ref := {| + name := "f13"; + read_from := (fun s => s.(f13)); + write_to := (fun v s => ({[ s with f13 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f12_ref := {| + name := "f12"; + read_from := (fun s => s.(f12)); + write_to := (fun v s => ({[ s with f12 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f11_ref := {| + name := "f11"; + read_from := (fun s => s.(f11)); + write_to := (fun v s => ({[ s with f11 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f10_ref := {| + name := "f10"; + read_from := (fun s => s.(f10)); + write_to := (fun v s => ({[ s with f10 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f9_ref := {| + name := "f9"; + read_from := (fun s => s.(f9)); + write_to := (fun v s => ({[ s with f9 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f8_ref := {| + name := "f8"; + read_from := (fun s => s.(f8)); + write_to := (fun v s => ({[ s with f8 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f7_ref := {| + name := "f7"; + read_from := (fun s => s.(f7)); + write_to := (fun v s => ({[ s with f7 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f6_ref := {| + name := "f6"; + read_from := (fun s => s.(f6)); + write_to := (fun v s => ({[ s with f6 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f5_ref := {| + name := "f5"; + read_from := (fun s => s.(f5)); + write_to := (fun v s => ({[ s with f5 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f4_ref := {| + name := "f4"; + read_from := (fun s => s.(f4)); + write_to := (fun v s => ({[ s with f4 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f3_ref := {| + name := "f3"; + read_from := (fun s => s.(f3)); + write_to := (fun v s => ({[ s with f3 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f2_ref := {| + name := "f2"; + read_from := (fun s => s.(f2)); + write_to := (fun v s => ({[ s with f2 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f1_ref := {| + name := "f1"; + read_from := (fun s => s.(f1)); + write_to := (fun v s => ({[ s with f1 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition f0_ref := {| + name := "f0"; + read_from := (fun s => s.(f0)); + write_to := (fun v s => ({[ s with f0 := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition fs_ref := {| + name := "fs"; + read_from := (fun s => s.(fs)); + write_to := (fun v s => ({[ s with fs := v ]})); + of_regval := (fun v => vector_of_regval 32 (fun v => bitvector_64_dec_of_regval v) v); + regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_64_dec v) v) |}. + +Definition float_fflags_ref := {| + name := "float_fflags"; + read_from := (fun s => s.(float_fflags)); + write_to := (fun v s => ({[ s with float_fflags := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + +Definition float_result_ref := {| + name := "float_result"; + read_from := (fun s => s.(float_result)); + write_to := (fun v s => ({[ s with float_result := v ]})); + of_regval := (fun v => bitvector_64_dec_of_regval v); + regval_of := (fun v => regval_of_bitvector_64_dec v) |}. + Definition utval_ref := {| name := "utval"; read_from := (fun s => s.(utval)); @@ -13734,6 +2335,13 @@ Definition mcycle_ref := {| of_regval := (fun v => bitvector_64_dec_of_regval v); regval_of := (fun v => regval_of_bitvector_64_dec v) |}. +Definition mcountinhibit_ref := {| + name := "mcountinhibit"; + read_from := (fun s => s.(mcountinhibit)); + write_to := (fun v s => ({[ s with mcountinhibit := v ]})); + of_regval := (fun v => Counterin_of_regval v); + regval_of := (fun v => regval_of_Counterin v) |}. + Definition scounteren_ref := {| name := "scounteren"; read_from := (fun s => s.(scounteren)); @@ -14061,7 +2669,7 @@ Definition Xs_ref := {| read_from := (fun s => s.(Xs)); write_to := (fun v s => ({[ s with Xs := v ]})); of_regval := (fun v => vector_of_regval 32 (fun v => bitvector_64_dec_of_regval v) v); - regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_64_dec v) 32 false v) |}. + regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_64_dec v) v) |}. Definition instbits_ref := {| name := "instbits"; @@ -14093,6 +2701,42 @@ Definition get_regval (reg_name : string) (s : regstate) : option register_value if string_dec reg_name "htif_done" then Some (htif_done_ref.(regval_of) (htif_done_ref.(read_from) s)) else if string_dec reg_name "htif_tohost" then Some (htif_tohost_ref.(regval_of) (htif_tohost_ref.(read_from) s)) else if string_dec reg_name "mtimecmp" then Some (mtimecmp_ref.(regval_of) (mtimecmp_ref.(read_from) s)) else + if string_dec reg_name "fcsr" then Some (fcsr_ref.(regval_of) (fcsr_ref.(read_from) s)) else + if string_dec reg_name "f31" then Some (f31_ref.(regval_of) (f31_ref.(read_from) s)) else + if string_dec reg_name "f30" then Some (f30_ref.(regval_of) (f30_ref.(read_from) s)) else + if string_dec reg_name "f29" then Some (f29_ref.(regval_of) (f29_ref.(read_from) s)) else + if string_dec reg_name "f28" then Some (f28_ref.(regval_of) (f28_ref.(read_from) s)) else + if string_dec reg_name "f27" then Some (f27_ref.(regval_of) (f27_ref.(read_from) s)) else + if string_dec reg_name "f26" then Some (f26_ref.(regval_of) (f26_ref.(read_from) s)) else + if string_dec reg_name "f25" then Some (f25_ref.(regval_of) (f25_ref.(read_from) s)) else + if string_dec reg_name "f24" then Some (f24_ref.(regval_of) (f24_ref.(read_from) s)) else + if string_dec reg_name "f23" then Some (f23_ref.(regval_of) (f23_ref.(read_from) s)) else + if string_dec reg_name "f22" then Some (f22_ref.(regval_of) (f22_ref.(read_from) s)) else + if string_dec reg_name "f21" then Some (f21_ref.(regval_of) (f21_ref.(read_from) s)) else + if string_dec reg_name "f20" then Some (f20_ref.(regval_of) (f20_ref.(read_from) s)) else + if string_dec reg_name "f19" then Some (f19_ref.(regval_of) (f19_ref.(read_from) s)) else + if string_dec reg_name "f18" then Some (f18_ref.(regval_of) (f18_ref.(read_from) s)) else + if string_dec reg_name "f17" then Some (f17_ref.(regval_of) (f17_ref.(read_from) s)) else + if string_dec reg_name "f16" then Some (f16_ref.(regval_of) (f16_ref.(read_from) s)) else + if string_dec reg_name "f15" then Some (f15_ref.(regval_of) (f15_ref.(read_from) s)) else + if string_dec reg_name "f14" then Some (f14_ref.(regval_of) (f14_ref.(read_from) s)) else + if string_dec reg_name "f13" then Some (f13_ref.(regval_of) (f13_ref.(read_from) s)) else + if string_dec reg_name "f12" then Some (f12_ref.(regval_of) (f12_ref.(read_from) s)) else + if string_dec reg_name "f11" then Some (f11_ref.(regval_of) (f11_ref.(read_from) s)) else + if string_dec reg_name "f10" then Some (f10_ref.(regval_of) (f10_ref.(read_from) s)) else + if string_dec reg_name "f9" then Some (f9_ref.(regval_of) (f9_ref.(read_from) s)) else + if string_dec reg_name "f8" then Some (f8_ref.(regval_of) (f8_ref.(read_from) s)) else + if string_dec reg_name "f7" then Some (f7_ref.(regval_of) (f7_ref.(read_from) s)) else + if string_dec reg_name "f6" then Some (f6_ref.(regval_of) (f6_ref.(read_from) s)) else + if string_dec reg_name "f5" then Some (f5_ref.(regval_of) (f5_ref.(read_from) s)) else + if string_dec reg_name "f4" then Some (f4_ref.(regval_of) (f4_ref.(read_from) s)) else + if string_dec reg_name "f3" then Some (f3_ref.(regval_of) (f3_ref.(read_from) s)) else + if string_dec reg_name "f2" then Some (f2_ref.(regval_of) (f2_ref.(read_from) s)) else + if string_dec reg_name "f1" then Some (f1_ref.(regval_of) (f1_ref.(read_from) s)) else + if string_dec reg_name "f0" then Some (f0_ref.(regval_of) (f0_ref.(read_from) s)) else + if string_dec reg_name "fs" then Some (fs_ref.(regval_of) (fs_ref.(read_from) s)) else + if string_dec reg_name "float_fflags" then Some (float_fflags_ref.(regval_of) (float_fflags_ref.(read_from) s)) else + if string_dec reg_name "float_result" then Some (float_result_ref.(regval_of) (float_result_ref.(read_from) s)) else if string_dec reg_name "utval" then Some (utval_ref.(regval_of) (utval_ref.(read_from) s)) else if string_dec reg_name "ucause" then Some (ucause_ref.(regval_of) (ucause_ref.(read_from) s)) else if string_dec reg_name "uepc" then Some (uepc_ref.(regval_of) (uepc_ref.(read_from) s)) else @@ -14146,6 +2790,7 @@ Definition get_regval (reg_name : string) (s : regstate) : option register_value if string_dec reg_name "minstret" then Some (minstret_ref.(regval_of) (minstret_ref.(read_from) s)) else if string_dec reg_name "mtime" then Some (mtime_ref.(regval_of) (mtime_ref.(read_from) s)) else if string_dec reg_name "mcycle" then Some (mcycle_ref.(regval_of) (mcycle_ref.(read_from) s)) else + if string_dec reg_name "mcountinhibit" then Some (mcountinhibit_ref.(regval_of) (mcountinhibit_ref.(read_from) s)) else if string_dec reg_name "scounteren" then Some (scounteren_ref.(regval_of) (scounteren_ref.(read_from) s)) else if string_dec reg_name "mcounteren" then Some (mcounteren_ref.(regval_of) (mcounteren_ref.(read_from) s)) else if string_dec reg_name "mscratch" then Some (mscratch_ref.(regval_of) (mscratch_ref.(read_from) s)) else @@ -14206,6 +2851,42 @@ Definition set_regval (reg_name : string) (v : register_value) (s : regstate) : if string_dec reg_name "htif_done" then option_map (fun v => htif_done_ref.(write_to) v s) (htif_done_ref.(of_regval) v) else if string_dec reg_name "htif_tohost" then option_map (fun v => htif_tohost_ref.(write_to) v s) (htif_tohost_ref.(of_regval) v) else if string_dec reg_name "mtimecmp" then option_map (fun v => mtimecmp_ref.(write_to) v s) (mtimecmp_ref.(of_regval) v) else + if string_dec reg_name "fcsr" then option_map (fun v => fcsr_ref.(write_to) v s) (fcsr_ref.(of_regval) v) else + if string_dec reg_name "f31" then option_map (fun v => f31_ref.(write_to) v s) (f31_ref.(of_regval) v) else + if string_dec reg_name "f30" then option_map (fun v => f30_ref.(write_to) v s) (f30_ref.(of_regval) v) else + if string_dec reg_name "f29" then option_map (fun v => f29_ref.(write_to) v s) (f29_ref.(of_regval) v) else + if string_dec reg_name "f28" then option_map (fun v => f28_ref.(write_to) v s) (f28_ref.(of_regval) v) else + if string_dec reg_name "f27" then option_map (fun v => f27_ref.(write_to) v s) (f27_ref.(of_regval) v) else + if string_dec reg_name "f26" then option_map (fun v => f26_ref.(write_to) v s) (f26_ref.(of_regval) v) else + if string_dec reg_name "f25" then option_map (fun v => f25_ref.(write_to) v s) (f25_ref.(of_regval) v) else + if string_dec reg_name "f24" then option_map (fun v => f24_ref.(write_to) v s) (f24_ref.(of_regval) v) else + if string_dec reg_name "f23" then option_map (fun v => f23_ref.(write_to) v s) (f23_ref.(of_regval) v) else + if string_dec reg_name "f22" then option_map (fun v => f22_ref.(write_to) v s) (f22_ref.(of_regval) v) else + if string_dec reg_name "f21" then option_map (fun v => f21_ref.(write_to) v s) (f21_ref.(of_regval) v) else + if string_dec reg_name "f20" then option_map (fun v => f20_ref.(write_to) v s) (f20_ref.(of_regval) v) else + if string_dec reg_name "f19" then option_map (fun v => f19_ref.(write_to) v s) (f19_ref.(of_regval) v) else + if string_dec reg_name "f18" then option_map (fun v => f18_ref.(write_to) v s) (f18_ref.(of_regval) v) else + if string_dec reg_name "f17" then option_map (fun v => f17_ref.(write_to) v s) (f17_ref.(of_regval) v) else + if string_dec reg_name "f16" then option_map (fun v => f16_ref.(write_to) v s) (f16_ref.(of_regval) v) else + if string_dec reg_name "f15" then option_map (fun v => f15_ref.(write_to) v s) (f15_ref.(of_regval) v) else + if string_dec reg_name "f14" then option_map (fun v => f14_ref.(write_to) v s) (f14_ref.(of_regval) v) else + if string_dec reg_name "f13" then option_map (fun v => f13_ref.(write_to) v s) (f13_ref.(of_regval) v) else + if string_dec reg_name "f12" then option_map (fun v => f12_ref.(write_to) v s) (f12_ref.(of_regval) v) else + if string_dec reg_name "f11" then option_map (fun v => f11_ref.(write_to) v s) (f11_ref.(of_regval) v) else + if string_dec reg_name "f10" then option_map (fun v => f10_ref.(write_to) v s) (f10_ref.(of_regval) v) else + if string_dec reg_name "f9" then option_map (fun v => f9_ref.(write_to) v s) (f9_ref.(of_regval) v) else + if string_dec reg_name "f8" then option_map (fun v => f8_ref.(write_to) v s) (f8_ref.(of_regval) v) else + if string_dec reg_name "f7" then option_map (fun v => f7_ref.(write_to) v s) (f7_ref.(of_regval) v) else + if string_dec reg_name "f6" then option_map (fun v => f6_ref.(write_to) v s) (f6_ref.(of_regval) v) else + if string_dec reg_name "f5" then option_map (fun v => f5_ref.(write_to) v s) (f5_ref.(of_regval) v) else + if string_dec reg_name "f4" then option_map (fun v => f4_ref.(write_to) v s) (f4_ref.(of_regval) v) else + if string_dec reg_name "f3" then option_map (fun v => f3_ref.(write_to) v s) (f3_ref.(of_regval) v) else + if string_dec reg_name "f2" then option_map (fun v => f2_ref.(write_to) v s) (f2_ref.(of_regval) v) else + if string_dec reg_name "f1" then option_map (fun v => f1_ref.(write_to) v s) (f1_ref.(of_regval) v) else + if string_dec reg_name "f0" then option_map (fun v => f0_ref.(write_to) v s) (f0_ref.(of_regval) v) else + if string_dec reg_name "fs" then option_map (fun v => fs_ref.(write_to) v s) (fs_ref.(of_regval) v) else + if string_dec reg_name "float_fflags" then option_map (fun v => float_fflags_ref.(write_to) v s) (float_fflags_ref.(of_regval) v) else + if string_dec reg_name "float_result" then option_map (fun v => float_result_ref.(write_to) v s) (float_result_ref.(of_regval) v) else if string_dec reg_name "utval" then option_map (fun v => utval_ref.(write_to) v s) (utval_ref.(of_regval) v) else if string_dec reg_name "ucause" then option_map (fun v => ucause_ref.(write_to) v s) (ucause_ref.(of_regval) v) else if string_dec reg_name "uepc" then option_map (fun v => uepc_ref.(write_to) v s) (uepc_ref.(of_regval) v) else @@ -14259,6 +2940,7 @@ Definition set_regval (reg_name : string) (v : register_value) (s : regstate) : if string_dec reg_name "minstret" then option_map (fun v => minstret_ref.(write_to) v s) (minstret_ref.(of_regval) v) else if string_dec reg_name "mtime" then option_map (fun v => mtime_ref.(write_to) v s) (mtime_ref.(of_regval) v) else if string_dec reg_name "mcycle" then option_map (fun v => mcycle_ref.(write_to) v s) (mcycle_ref.(of_regval) v) else + if string_dec reg_name "mcountinhibit" then option_map (fun v => mcountinhibit_ref.(write_to) v s) (mcountinhibit_ref.(of_regval) v) else if string_dec reg_name "scounteren" then option_map (fun v => scounteren_ref.(write_to) v s) (scounteren_ref.(of_regval) v) else if string_dec reg_name "mcounteren" then option_map (fun v => mcounteren_ref.(write_to) v s) (mcounteren_ref.(of_regval) v) else if string_dec reg_name "mscratch" then option_map (fun v => mscratch_ref.(write_to) v s) (mscratch_ref.(of_regval) v) else diff --git a/prover_snapshots/coq/build b/prover_snapshots/coq/build index f8a1c2f..89d7601 100755 --- a/prover_snapshots/coq/build +++ b/prover_snapshots/coq/build @@ -5,23 +5,25 @@ if [ ! -d RV64 ]; then exit 1 fi -if [ ! -d ../bbv ]; then - echo 'Check out a copy of https://github.com/mit-plv/bbv in the parent directory and build it.' - exit 1 +if [ -v BBV_DIR ]; then + BBV_OPT=-Q "$BBV_DIR" fi set -ex cd lib/sail make cd ../../RV32 -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_extras.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_types.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_extras.v +coqc $BBV_OPT -Q ../lib/sail Sail mem_metadata.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_types.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv.v cd ../RV64 -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_extras.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_types.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_extras.v +coqc $BBV_OPT -Q ../lib/sail Sail mem_metadata.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_types.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv.v cd ../duopod -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_extras.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_duopod_types.v -coqc -R ../../bbv/theories bbv -R ../lib/sail Sail riscv_duopod.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_extras.v +coqc $BBV_OPT -Q ../lib/sail Sail mem_metadata.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_duopod_types.v +coqc $BBV_OPT -Q ../lib/sail Sail riscv_duopod.v diff --git a/prover_snapshots/coq/duopod/mem_metadata.v b/prover_snapshots/coq/duopod/mem_metadata.v new file mode 100644 index 0000000..bbfc856 --- /dev/null +++ b/prover_snapshots/coq/duopod/mem_metadata.v @@ -0,0 +1,8 @@ +Require Import Sail.Base. +Open Scope Z. + +Definition write_ram {rv e a} wk (addr : mword a) size (v : mword (8 * size)) (meta : unit) : monad rv bool e := write_mem wk a addr size v. + +Definition read_ram {rv e a} rk (addr : mword a) size (read_tag : bool) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size) * unit) e := + read_mem rk a addr size >>= fun data => + returnm (data, tt). diff --git a/prover_snapshots/coq/duopod/riscv_duopod.v b/prover_snapshots/coq/duopod/riscv_duopod.v index 714bfcf..a274535 100644 --- a/prover_snapshots/coq/duopod/riscv_duopod.v +++ b/prover_snapshots/coq/duopod/riscv_duopod.v @@ -1,1792 +1,440 @@ (*Generated by Sail from riscv_duopod.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Require Import riscv_duopod_types. +Require Import mem_metadata. Require Import riscv_extras. Import ListNotations. Open Scope string. Open Scope bool. -Section Content. +Open Scope Z. -Definition is_none {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => false | None => true end. -Definition is_some {a : Type} (opt : option a) -: bool := - - match opt with | Some (_) => true | None => false end. +Definition is_none {a : Type} (opt : option a) : bool := + match opt with | Some _ => false | None => true end. -Definition eq_unit (_ : unit) (_ : unit) -: {_bool : bool & ArithFact (_bool = true)} := - - build_ex(true). +Definition is_some {a : Type} (opt : option a) : bool := + match opt with | Some _ => true | None => false end. -Definition neq_int (x : Z) (y : Z) -: {_bool : bool & ArithFact (iff (_bool = true) (x <> y))} := - - build_ex(negb (Z.eqb x y)). +Definition eq_unit (_ : unit) (_ : unit) : {_bool : bool & ArithFact (_bool)} := build_ex (true). -Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). +Definition neq_int (x : Z) (y : Z) : {_bool : bool & ArithFact (Bool.eqb (negb (x =? y)) _bool)} := + build_ex (negb (Z.eqb x y)). -Definition __id (x : Z) : {_retval : Z & ArithFact (_retval = x)} := build_ex(x). +Definition neq_bool (x : bool) (y : bool) : bool := negb (Bool.eqb x y). -Definition concat_str_bits {n : Z} (str : string) (x : mword n) -: string := - +Definition __id (x : Z) : {_retval : Z & ArithFact (_retval =? x)} := build_ex (x). + +Definition fdiv_int (n : Z) (m : Z) : Z := + if sumbool_of_bool (andb (Z.ltb n 0) (Z.gtb m 0)) then Z.sub (Z.quot (Z.add n 1) m) 1 + else if sumbool_of_bool (andb (Z.gtb n 0) (Z.ltb m 0)) then Z.sub (Z.quot (Z.sub n 1) m) 1 + else Z.quot n m. + +Definition fmod_int (n : Z) (m : Z) : Z := Z.sub n (Z.mul m (fdiv_int n m)). + +Definition concat_str_bits {n : Z} (str : string) (x : mword n) : string := String.append str (string_of_bits x). -Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). +Definition concat_str_dec (str : string) (x : Z) : string := String.append str (dec_str x). -Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact (len >= 0 /\ v0 >= 0)} +Definition sail_mask {v0 : Z} (len : Z) (v : mword v0) `{ArithFact ((len >=? 0) && (v0 >=? 0))} : mword len := - - if sumbool_of_bool ((Z.leb len (length_mword v))) then vector_truncate v len - else zero_extend v len. + if sumbool_of_bool (Z.leb len (length_mword v)) then vector_truncate v len else zero_extend v len. -Definition sail_ones (n : Z) `{ArithFact (n >= 0)} : mword n := not_vec (zeros n). +Definition sail_ones (n : Z) `{ArithFact (n >=? 0)} : mword n := not_vec (zeros n). -Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >= 0)} -: mword n := - - if sumbool_of_bool ((Z.geb l n)) then shiftl (sail_ones n) i +Definition slice_mask (n : Z) (i : Z) (l : Z) `{ArithFact (n >=? 0)} : mword n := + if sumbool_of_bool (Z.geb l n) then shiftl (sail_ones n) i else - let one : bits n := sail_mask n ((vec_of_bits [B1] : mword 1) : bits 1) in + let one : bits n := sail_mask n ('b"1" : bits 1) in shiftl (sub_vec (shiftl one l) one) i. -Definition read_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 11)} -: read_kind := - - let l__34 := arg_ in - if sumbool_of_bool ((Z.eqb l__34 0)) then Read_plain - else if sumbool_of_bool ((Z.eqb l__34 1)) then Read_reserve - else if sumbool_of_bool ((Z.eqb l__34 2)) then Read_acquire - else if sumbool_of_bool ((Z.eqb l__34 3)) then Read_exclusive - else if sumbool_of_bool ((Z.eqb l__34 4)) then Read_exclusive_acquire - else if sumbool_of_bool ((Z.eqb l__34 5)) then Read_stream - else if sumbool_of_bool ((Z.eqb l__34 6)) then Read_RISCV_acquire - else if sumbool_of_bool ((Z.eqb l__34 7)) then Read_RISCV_strong_acquire - else if sumbool_of_bool ((Z.eqb l__34 8)) then Read_RISCV_reserved - else if sumbool_of_bool ((Z.eqb l__34 9)) then Read_RISCV_reserved_acquire - else if sumbool_of_bool ((Z.eqb l__34 10)) then Read_RISCV_reserved_strong_acquire +Definition read_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 11))} : read_kind := + let l__33 := arg_ in + if sumbool_of_bool (Z.eqb l__33 0) then Read_plain + else if sumbool_of_bool (Z.eqb l__33 1) then Read_reserve + else if sumbool_of_bool (Z.eqb l__33 2) then Read_acquire + else if sumbool_of_bool (Z.eqb l__33 3) then Read_exclusive + else if sumbool_of_bool (Z.eqb l__33 4) then Read_exclusive_acquire + else if sumbool_of_bool (Z.eqb l__33 5) then Read_stream + else if sumbool_of_bool (Z.eqb l__33 6) then Read_RISCV_acquire + else if sumbool_of_bool (Z.eqb l__33 7) then Read_RISCV_strong_acquire + else if sumbool_of_bool (Z.eqb l__33 8) then Read_RISCV_reserved + else if sumbool_of_bool (Z.eqb l__33 9) then Read_RISCV_reserved_acquire + else if sumbool_of_bool (Z.eqb l__33 10) then Read_RISCV_reserved_strong_acquire else Read_X86_locked. -Definition num_of_read_kind (arg_ : read_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 11)} := - - build_ex(match arg_ with - | Read_plain => 0 - | Read_reserve => 1 - | Read_acquire => 2 - | Read_exclusive => 3 - | Read_exclusive_acquire => 4 - | Read_stream => 5 - | Read_RISCV_acquire => 6 - | Read_RISCV_strong_acquire => 7 - | Read_RISCV_reserved => 8 - | Read_RISCV_reserved_acquire => 9 - | Read_RISCV_reserved_strong_acquire => 10 - | Read_X86_locked => 11 - end). - -Definition write_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} -: write_kind := - - let l__24 := arg_ in - if sumbool_of_bool ((Z.eqb l__24 0)) then Write_plain - else if sumbool_of_bool ((Z.eqb l__24 1)) then Write_conditional - else if sumbool_of_bool ((Z.eqb l__24 2)) then Write_release - else if sumbool_of_bool ((Z.eqb l__24 3)) then Write_exclusive - else if sumbool_of_bool ((Z.eqb l__24 4)) then Write_exclusive_release - else if sumbool_of_bool ((Z.eqb l__24 5)) then Write_RISCV_release - else if sumbool_of_bool ((Z.eqb l__24 6)) then Write_RISCV_strong_release - else if sumbool_of_bool ((Z.eqb l__24 7)) then Write_RISCV_conditional - else if sumbool_of_bool ((Z.eqb l__24 8)) then Write_RISCV_conditional_release - else if sumbool_of_bool ((Z.eqb l__24 9)) then Write_RISCV_conditional_strong_release +Definition num_of_read_kind (arg_ : read_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 11))} := + build_ex ( + match arg_ with + | Read_plain => 0 + | Read_reserve => 1 + | Read_acquire => 2 + | Read_exclusive => 3 + | Read_exclusive_acquire => 4 + | Read_stream => 5 + | Read_RISCV_acquire => 6 + | Read_RISCV_strong_acquire => 7 + | Read_RISCV_reserved => 8 + | Read_RISCV_reserved_acquire => 9 + | Read_RISCV_reserved_strong_acquire => 10 + | Read_X86_locked => 11 + end + ). + +Definition write_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : write_kind := + let l__23 := arg_ in + if sumbool_of_bool (Z.eqb l__23 0) then Write_plain + else if sumbool_of_bool (Z.eqb l__23 1) then Write_conditional + else if sumbool_of_bool (Z.eqb l__23 2) then Write_release + else if sumbool_of_bool (Z.eqb l__23 3) then Write_exclusive + else if sumbool_of_bool (Z.eqb l__23 4) then Write_exclusive_release + else if sumbool_of_bool (Z.eqb l__23 5) then Write_RISCV_release + else if sumbool_of_bool (Z.eqb l__23 6) then Write_RISCV_strong_release + else if sumbool_of_bool (Z.eqb l__23 7) then Write_RISCV_conditional + else if sumbool_of_bool (Z.eqb l__23 8) then Write_RISCV_conditional_release + else if sumbool_of_bool (Z.eqb l__23 9) then Write_RISCV_conditional_strong_release else Write_X86_locked. -Definition num_of_write_kind (arg_ : write_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Write_plain => 0 - | Write_conditional => 1 - | Write_release => 2 - | Write_exclusive => 3 - | Write_exclusive_release => 4 - | Write_RISCV_release => 5 - | Write_RISCV_strong_release => 6 - | Write_RISCV_conditional => 7 - | Write_RISCV_conditional_release => 8 - | Write_RISCV_conditional_strong_release => 9 - | Write_X86_locked => 10 - end). - -Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 3)} +Definition num_of_write_kind (arg_ : write_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Write_plain => 0 + | Write_conditional => 1 + | Write_release => 2 + | Write_exclusive => 3 + | Write_exclusive_release => 4 + | Write_RISCV_release => 5 + | Write_RISCV_strong_release => 6 + | Write_RISCV_conditional => 7 + | Write_RISCV_conditional_release => 8 + | Write_RISCV_conditional_strong_release => 9 + | Write_X86_locked => 10 + end + ). + +Definition a64_barrier_domain_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 3))} : a64_barrier_domain := - - let l__21 := arg_ in - if sumbool_of_bool ((Z.eqb l__21 0)) then A64_FullShare - else if sumbool_of_bool ((Z.eqb l__21 1)) then A64_InnerShare - else if sumbool_of_bool ((Z.eqb l__21 2)) then A64_OuterShare + let l__20 := arg_ in + if sumbool_of_bool (Z.eqb l__20 0) then A64_FullShare + else if sumbool_of_bool (Z.eqb l__20 1) then A64_InnerShare + else if sumbool_of_bool (Z.eqb l__20 2) then A64_OuterShare else A64_NonShare. -Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) -: {e : Z & ArithFact (0 <= e /\ e <= 3)} := - - build_ex(match arg_ with - | A64_FullShare => 0 - | A64_InnerShare => 1 - | A64_OuterShare => 2 - | A64_NonShare => 3 - end). - -Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} +Definition num_of_a64_barrier_domain (arg_ : a64_barrier_domain) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 3))} := + build_ex ( + match arg_ with + | A64_FullShare => 0 + | A64_InnerShare => 1 + | A64_OuterShare => 2 + | A64_NonShare => 3 + end + ). + +Definition a64_barrier_type_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : a64_barrier_type := - - let l__19 := arg_ in - if sumbool_of_bool ((Z.eqb l__19 0)) then A64_barrier_all - else if sumbool_of_bool ((Z.eqb l__19 1)) then A64_barrier_LD + let l__18 := arg_ in + if sumbool_of_bool (Z.eqb l__18 0) then A64_barrier_all + else if sumbool_of_bool (Z.eqb l__18 1) then A64_barrier_LD else A64_barrier_ST. -Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). - -Definition trans_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 2)} -: trans_kind := - - let l__17 := arg_ in - if sumbool_of_bool ((Z.eqb l__17 0)) then Transaction_start - else if sumbool_of_bool ((Z.eqb l__17 1)) then Transaction_commit +Definition num_of_a64_barrier_type (arg_ : a64_barrier_type) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex (match arg_ with | A64_barrier_all => 0 | A64_barrier_LD => 1 | A64_barrier_ST => 2 end). + +Definition trans_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 2))} : trans_kind := + let l__16 := arg_ in + if sumbool_of_bool (Z.eqb l__16 0) then Transaction_start + else if sumbool_of_bool (Z.eqb l__16 1) then Transaction_commit else Transaction_abort. -Definition num_of_trans_kind (arg_ : trans_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 2)} := - - build_ex(match arg_ with - | Transaction_start => 0 - | Transaction_commit => 1 - | Transaction_abort => 2 - end). +Definition num_of_trans_kind (arg_ : trans_kind) : {e : Z & ArithFact ((0 <=? e) && (e <=? 2))} := + build_ex ( + match arg_ with + | Transaction_start => 0 + | Transaction_commit => 1 + | Transaction_abort => 2 + end + ). -Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 10)} +Definition cache_op_kind_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 10))} : cache_op_kind := - - let l__7 := arg_ in - if sumbool_of_bool ((Z.eqb l__7 0)) then Cache_op_D_IVAC - else if sumbool_of_bool ((Z.eqb l__7 1)) then Cache_op_D_ISW - else if sumbool_of_bool ((Z.eqb l__7 2)) then Cache_op_D_CSW - else if sumbool_of_bool ((Z.eqb l__7 3)) then Cache_op_D_CISW - else if sumbool_of_bool ((Z.eqb l__7 4)) then Cache_op_D_ZVA - else if sumbool_of_bool ((Z.eqb l__7 5)) then Cache_op_D_CVAC - else if sumbool_of_bool ((Z.eqb l__7 6)) then Cache_op_D_CVAU - else if sumbool_of_bool ((Z.eqb l__7 7)) then Cache_op_D_CIVAC - else if sumbool_of_bool ((Z.eqb l__7 8)) then Cache_op_I_IALLUIS - else if sumbool_of_bool ((Z.eqb l__7 9)) then Cache_op_I_IALLU + let l__6 := arg_ in + if sumbool_of_bool (Z.eqb l__6 0) then Cache_op_D_IVAC + else if sumbool_of_bool (Z.eqb l__6 1) then Cache_op_D_ISW + else if sumbool_of_bool (Z.eqb l__6 2) then Cache_op_D_CSW + else if sumbool_of_bool (Z.eqb l__6 3) then Cache_op_D_CISW + else if sumbool_of_bool (Z.eqb l__6 4) then Cache_op_D_ZVA + else if sumbool_of_bool (Z.eqb l__6 5) then Cache_op_D_CVAC + else if sumbool_of_bool (Z.eqb l__6 6) then Cache_op_D_CVAU + else if sumbool_of_bool (Z.eqb l__6 7) then Cache_op_D_CIVAC + else if sumbool_of_bool (Z.eqb l__6 8) then Cache_op_I_IALLUIS + else if sumbool_of_bool (Z.eqb l__6 9) then Cache_op_I_IALLU else Cache_op_I_IVAU. -Definition num_of_cache_op_kind (arg_ : cache_op_kind) -: {e : Z & ArithFact (0 <= e /\ e <= 10)} := - - build_ex(match arg_ with - | Cache_op_D_IVAC => 0 - | Cache_op_D_ISW => 1 - | Cache_op_D_CSW => 2 - | Cache_op_D_CISW => 3 - | Cache_op_D_ZVA => 4 - | Cache_op_D_CVAC => 5 - | Cache_op_D_CVAU => 6 - | Cache_op_D_CIVAC => 7 - | Cache_op_I_IALLUIS => 8 - | Cache_op_I_IALLU => 9 - | Cache_op_I_IVAU => 10 - end). - -Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). - - - -Definition cast_unit_vec (b : bitU) -: M (mword 1) := - - (match b with - | B0 => returnm ((vec_of_bits [B0] : mword 1) : mword 1) - | B1 => returnm ((vec_of_bits [B1] : mword 1) : mword 1) - | _ => exit tt : M (mword 1) - end) - : M (mword 1). +Definition num_of_cache_op_kind (arg_ : cache_op_kind) +: {e : Z & ArithFact ((0 <=? e) && (e <=? 10))} := + build_ex ( + match arg_ with + | Cache_op_D_IVAC => 0 + | Cache_op_D_ISW => 1 + | Cache_op_D_CSW => 2 + | Cache_op_D_CISW => 3 + | Cache_op_D_ZVA => 4 + | Cache_op_D_CVAC => 5 + | Cache_op_D_CVAU => 6 + | Cache_op_D_CIVAC => 7 + | Cache_op_I_IALLUIS => 8 + | Cache_op_I_IALLU => 9 + | Cache_op_I_IVAU => 10 + end + ). -Definition get_config_print_instr '(tt : unit) : bool := false. +Definition not_bit (b : bitU) : bitU := if eq_bit b B1 then B0 else B1. -Definition get_config_print_reg '(tt : unit) : bool := false. +Definition neq_vec {n : Z} (x : mword n) (y : mword n) : bool := negb (eq_vec x y). -Definition get_config_print_mem '(tt : unit) : bool := false. -Definition get_config_print_platform '(tt : unit) : bool := false. -Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := sign_extend v m. +Definition string_of_bit (b : bitU) : M (string) := + (match b with | B0 => returnm "0b0" | B1 => returnm "0b1" | _ => exit tt : M (string) end) + : M (string). -Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >= n)} : mword m := zero_extend v m. +Definition get_config_print_instr '(tt : unit) : bool := false. -Definition zeros_implicit (n : Z) `{ArithFact (n >= 0)} : mword n := zeros n. +Definition get_config_print_reg '(tt : unit) : bool := false. -Definition zeros (n : Z) `{ArithFact (n >= 0)} -: mword n := - - autocast (replicate_bits (vec_of_bits [B0] : mword 1) n). +Definition get_config_print_mem '(tt : unit) : bool := false. -Definition ones (n : Z) `{ArithFact (n >= 0)} : mword n := sail_ones n. +Definition get_config_print_platform '(tt : unit) : bool := false. -Definition bool_to_bits (x : bool) -: mword 1 := - - if sumbool_of_bool (x) then (vec_of_bits [B1] : mword 1) - else (vec_of_bits [B0] : mword 1). +Definition EXTS {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := sign_extend v m. -Definition bit_to_bool (b : bitU) -: M (bool) := - - (match b with - | B1 => returnm (projT1 (build_ex true : {_bool : bool & ArithFact (_bool = true)})) - | B0 => returnm (projT1 (build_ex false : {_bool : bool & ArithFact (not (_bool = true))})) - | _ => exit tt : M (bool) - end) +Definition EXTZ {n : Z} (m : Z) (v : mword n) `{ArithFact (m >=? n)} : mword m := zero_extend v m. + +Definition zeros_implicit (n : Z) `{ArithFact (n >=? 0)} : mword n := zeros n. + +Definition zeros (n : Z) `{ArithFact (n >=? 0)} : mword n := + autocast (replicate_bits ('b"0" : mword 1) n). + +Definition ones (n : Z) `{ArithFact (n >=? 0)} : mword n := sail_ones n. + +Definition bool_to_bits (x : bool) : mword 1 := + if sumbool_of_bool x then 'b"1" : mword 1 else 'b"0" : mword 1. + +Definition bit_to_bool (b : bitU) : M (bool) := + (match b with | B1 => returnm true | B0 => returnm false | _ => exit tt : M (bool) end) : M (bool). -Definition to_bits (l : Z) (n : Z) `{ArithFact (l >= 0)} : mword l := get_slice_int l n 0. +Definition to_bits (l : Z) (n : Z) `{ArithFact (l >=? 0)} : mword l := get_slice_int l n 0. -Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zI_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.ltb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n > 0)} -: bool := - +Definition zopz0zKzJ_s {n : Z} (x : mword n) (y : mword n) `{ArithFact (n >? 0)} : bool := Z.geb (projT1 (sint x)) (projT1 (sint y)). -Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zI_u {n : Z} (x : mword n) (y : mword n) : bool := Z.ltb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zKzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.geb (projT1 (uint x)) (projT1 (uint y)). -Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) -: bool := - +Definition zopz0zIzJ_u {n : Z} (x : mword n) (y : mword n) : bool := Z.leb (projT1 (uint x)) (projT1 (uint y)). -Definition shift_right_arith64 (v : mword 64) (shift : mword 6) -: mword 64 := - +Definition shift_right_arith64 (v : mword 64) (shift : mword 6) : mword 64 := let v128 : bits 128 := EXTS 128 v in subrange_vec_dec (shift_bits_right v128 shift) 63 0. -Definition shift_right_arith32 (v : mword 32) (shift : mword 5) -: mword 32 := - +Definition shift_right_arith32 (v : mword 32) (shift : mword 5) : mword 32 := let v64 : bits 64 := EXTS 64 v in subrange_vec_dec (shift_bits_right v64 shift) 31 0. -Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) -{struct _acc} : M ({n : Z & ArithFact (n >= 0)}) := - +Axiom spc_forwards_matches : forall (_ : unit) , bool. + +Axiom spc_backwards_matches : forall (_ : string) , bool. + +Axiom opt_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom opt_spc_backwards_matches : forall (_ : string) , bool. + +Axiom def_spc_forwards_matches : forall (_ : unit) , bool. + +Axiom def_spc_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_forwards : forall {n : Z} (_ : (Z * mword n)) , string. + +Axiom hex_bits_backwards : forall {n : Z} (_ : string) , (Z * mword n). + +Axiom hex_bits_forwards_matches : forall {n : Z} (_ : (Z * mword n)) , bool. + +Axiom hex_bits_backwards_matches : forall (_ : string) , bool. + +Axiom hex_bits_matches_prefix : forall +{n : Z} +(_ : string) +, +option (((Z * mword n) * {n : Z & ArithFact (n >=? 0)})). + +Fixpoint _rec_n_leading_spaces (s : string) (_reclimit : Z) (_acc : Acc (Zwf 0) _reclimit) +{struct _acc} : M ({n : Z & ArithFact (n >=? 0)}). +exact ( assert_exp' (Z.geb _reclimit 0) "recursion limit reached" >>= fun _ => let p0_ := s in - (if ((generic_eq p0_ "")) then returnm (build_ex (0 : Z)) + (if generic_eq p0_ "" then returnm (build_ex 0) else let p0_ := string_take s 1 in - (if ((generic_eq p0_ " ")) then - (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= + (if generic_eq p0_ " " then + (_rec_n_leading_spaces (string_drop s 1) (Z.sub _reclimit 1) (_limit_reduces _acc)) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => - returnm (build_ex - (projT1 - (build_ex - (Z.add 1 w__0) - : {_atom : Z & ArithFact (exists ex4231_ , _atom = (1 + ex4231_) /\ 0 <= ex4231_)}))) - else returnm (build_ex (0 : Z))) - : M ({n : Z & ArithFact (n >= 0)})) - : M ({n : Z & ArithFact (n >= 0)}). - -Definition n_leading_spaces (s : string) -: M ({n : Z & ArithFact (n >= 0)}) := - + returnm (build_ex (Z.add 1 w__0)) + else returnm (build_ex 0)) + : M ({n : Z & ArithFact (n >=? 0)})) + : M ({n : Z & ArithFact (n >=? 0)}) +). +Defined. + + +Definition n_leading_spaces (s : string) : M ({n : Z & ArithFact (n >=? 0)}) := (_rec_n_leading_spaces s ((projT1 (string_length s)) : Z) (Zwf_guarded _)) - : M ({n : Z & ArithFact (n >= 0)}). + : M ({n : Z & ArithFact (n >=? 0)}). -Definition spc_forwards '(tt : unit) : string := " ". +Definition spc_forwards '(tt : unit) : string := " ". -Definition spc_backwards (s : string) : unit := tt. +Definition spc_backwards (s : string) : unit := tt. -Definition spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - +Definition spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := (n_leading_spaces s) >>= fun '(existT _ n _) => - let l__6 := n in - returnm ((if sumbool_of_bool ((Z.eqb l__6 0)) then None - else Some ((tt, build_ex n))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). - -Definition opt_spc_forwards '(tt : unit) : string := "". - -Definition opt_spc_backwards (s : string) : unit := tt. - -Definition opt_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >= 0)}) => - returnm ((Some - ((tt, build_ex - w__0))) - : option ((unit * {n : Z & ArithFact (n >= 0)}))). - -Definition def_spc_forwards '(tt : unit) : string := " ". - -Definition def_spc_backwards (s : string) : unit := tt. - -Definition def_spc_matches_prefix (s : string) -: M (option ((unit * {n : Z & ArithFact (n >= 0)}))) := - - (opt_spc_matches_prefix s) - : M (option ((unit * {n : Z & ArithFact (n >= 0)}))). - -Definition hex_bits_1_forwards_matches (bv : mword 1) : bool := true. - -Definition hex_bits_1_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_1_matches_prefix s) with - | Some ((g__79, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_1_backwards (s : string) -: M (mword 1) := - - (match (hex_bits_1_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 1) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 49:2 - 51:3" >>= fun _ => - exit tt) - : M (mword 1) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 49:2 - 51:3" >>= fun _ => - exit tt - end) - : M (mword 1). - -Definition hex_bits_2_forwards_matches (bv : mword 2) : bool := true. - -Definition hex_bits_2_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_2_matches_prefix s) with - | Some ((g__78, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_2_backwards (s : string) -: M (mword 2) := - - (match (hex_bits_2_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 2) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 68:2 - 70:3" >>= fun _ => - exit tt) - : M (mword 2) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 68:2 - 70:3" >>= fun _ => - exit tt - end) - : M (mword 2). - -Definition hex_bits_3_forwards_matches (bv : mword 3) : bool := true. - -Definition hex_bits_3_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_3_matches_prefix s) with - | Some ((g__77, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_3_backwards (s : string) -: M (mword 3) := - - (match (hex_bits_3_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 3) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 87:2 - 89:3" >>= fun _ => - exit tt) - : M (mword 3) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 87:2 - 89:3" >>= fun _ => - exit tt - end) - : M (mword 3). - -Definition hex_bits_4_forwards_matches (bv : mword 4) : bool := true. - -Definition hex_bits_4_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_4_matches_prefix s) with - | Some ((g__76, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_4_backwards (s : string) -: M (mword 4) := - - (match (hex_bits_4_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 4) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 106:2 - 108:3" >>= fun _ => - exit tt) - : M (mword 4) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 106:2 - 108:3" >>= fun _ => - exit tt - end) - : M (mword 4). - -Definition hex_bits_5_forwards_matches (bv : mword 5) : bool := true. - -Definition hex_bits_5_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_5_matches_prefix s) with - | Some ((g__75, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_5_backwards (s : string) -: M (mword 5) := - - (match (hex_bits_5_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 5) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 125:2 - 127:3" >>= fun _ => - exit tt) - : M (mword 5) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 125:2 - 127:3" >>= fun _ => - exit tt - end) - : M (mword 5). - -Definition hex_bits_6_forwards_matches (bv : mword 6) : bool := true. - -Definition hex_bits_6_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_6_matches_prefix s) with - | Some ((g__74, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_6_backwards (s : string) -: M (mword 6) := - - (match (hex_bits_6_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 6) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 144:2 - 146:3" >>= fun _ => - exit tt) - : M (mword 6) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 144:2 - 146:3" >>= fun _ => - exit tt - end) - : M (mword 6). - -Definition hex_bits_7_forwards_matches (bv : mword 7) : bool := true. - -Definition hex_bits_7_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_7_matches_prefix s) with - | Some ((g__73, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_7_backwards (s : string) -: M (mword 7) := - - (match (hex_bits_7_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 7) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 163:2 - 165:3" >>= fun _ => - exit tt) - : M (mword 7) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 163:2 - 165:3" >>= fun _ => - exit tt - end) - : M (mword 7). - -Definition hex_bits_8_forwards_matches (bv : mword 8) : bool := true. - -Definition hex_bits_8_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_8_matches_prefix s) with - | Some ((g__72, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_8_backwards (s : string) -: M (mword 8) := - - (match (hex_bits_8_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 8) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 182:2 - 184:3" >>= fun _ => - exit tt) - : M (mword 8) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 182:2 - 184:3" >>= fun _ => - exit tt - end) - : M (mword 8). - -Definition hex_bits_9_forwards_matches (bv : mword 9) : bool := true. - -Definition hex_bits_9_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_9_matches_prefix s) with - | Some ((g__71, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_9_backwards (s : string) -: M (mword 9) := - - (match (hex_bits_9_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 9) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 201:2 - 203:3" >>= fun _ => - exit tt) - : M (mword 9) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 201:2 - 203:3" >>= fun _ => - exit tt - end) - : M (mword 9). - -Definition hex_bits_10_forwards_matches (bv : mword 10) : bool := true. - -Definition hex_bits_10_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_10_matches_prefix s) with - | Some ((g__70, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_10_backwards (s : string) -: M (mword 10) := - - (match (hex_bits_10_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 10) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 220:2 - 222:3" >>= fun _ => - exit tt) - : M (mword 10) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 220:2 - 222:3" >>= fun _ => - exit tt - end) - : M (mword 10). - -Definition hex_bits_11_forwards_matches (bv : mword 11) : bool := true. - -Definition hex_bits_11_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_11_matches_prefix s) with - | Some ((g__69, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_11_backwards (s : string) -: M (mword 11) := - - (match (hex_bits_11_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 11) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 239:2 - 241:3" >>= fun _ => - exit tt) - : M (mword 11) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 239:2 - 241:3" >>= fun _ => - exit tt - end) - : M (mword 11). - -Definition hex_bits_12_forwards_matches (bv : mword 12) : bool := true. - -Definition hex_bits_12_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_12_matches_prefix s) with - | Some ((g__68, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_12_backwards (s : string) -: M (mword 12) := - - (match (hex_bits_12_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 12) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => - exit tt) - : M (mword 12) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 258:2 - 260:3" >>= fun _ => - exit tt - end) - : M (mword 12). - -Definition hex_bits_13_forwards_matches (bv : mword 13) : bool := true. - -Definition hex_bits_13_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_13_matches_prefix s) with - | Some ((g__67, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_13_backwards (s : string) -: M (mword 13) := - - (match (hex_bits_13_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 13) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => - exit tt) - : M (mword 13) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 277:2 - 279:3" >>= fun _ => - exit tt - end) - : M (mword 13). - -Definition hex_bits_14_forwards_matches (bv : mword 14) : bool := true. - -Definition hex_bits_14_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_14_matches_prefix s) with - | Some ((g__66, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_14_backwards (s : string) -: M (mword 14) := - - (match (hex_bits_14_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 14) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => - exit tt) - : M (mword 14) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 296:2 - 298:3" >>= fun _ => - exit tt - end) - : M (mword 14). - -Definition hex_bits_15_forwards_matches (bv : mword 15) : bool := true. - -Definition hex_bits_15_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_15_matches_prefix s) with - | Some ((g__65, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_15_backwards (s : string) -: M (mword 15) := - - (match (hex_bits_15_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 15) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => - exit tt) - : M (mword 15) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 315:2 - 317:3" >>= fun _ => - exit tt - end) - : M (mword 15). - -Definition hex_bits_16_forwards_matches (bv : mword 16) : bool := true. - -Definition hex_bits_16_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_16_matches_prefix s) with - | Some ((g__64, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_16_backwards (s : string) -: M (mword 16) := - - (match (hex_bits_16_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 16) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => - exit tt) - : M (mword 16) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 334:2 - 336:3" >>= fun _ => - exit tt - end) - : M (mword 16). - -Definition hex_bits_17_forwards_matches (bv : mword 17) : bool := true. - -Definition hex_bits_17_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_17_matches_prefix s) with - | Some ((g__63, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_17_backwards (s : string) -: M (mword 17) := - - (match (hex_bits_17_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 17) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => - exit tt) - : M (mword 17) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 353:2 - 355:3" >>= fun _ => - exit tt - end) - : M (mword 17). - -Definition hex_bits_18_forwards_matches (bv : mword 18) : bool := true. - -Definition hex_bits_18_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_18_matches_prefix s) with - | Some ((g__62, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_18_backwards (s : string) -: M (mword 18) := - - (match (hex_bits_18_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 18) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => - exit tt) - : M (mword 18) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 372:2 - 374:3" >>= fun _ => - exit tt - end) - : M (mword 18). - -Definition hex_bits_19_forwards_matches (bv : mword 19) : bool := true. - -Definition hex_bits_19_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_19_matches_prefix s) with - | Some ((g__61, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_19_backwards (s : string) -: M (mword 19) := - - (match (hex_bits_19_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 19) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => - exit tt) - : M (mword 19) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 391:2 - 393:3" >>= fun _ => - exit tt - end) - : M (mword 19). - -Definition hex_bits_20_forwards_matches (bv : mword 20) : bool := true. - -Definition hex_bits_20_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_20_matches_prefix s) with - | Some ((g__60, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_20_backwards (s : string) -: M (mword 20) := - - (match (hex_bits_20_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 20) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => - exit tt) - : M (mword 20) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 410:2 - 412:3" >>= fun _ => - exit tt - end) - : M (mword 20). - -Definition hex_bits_21_forwards_matches (bv : mword 21) : bool := true. - -Definition hex_bits_21_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_21_matches_prefix s) with - | Some ((g__59, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_21_backwards (s : string) -: M (mword 21) := - - (match (hex_bits_21_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 21) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => - exit tt) - : M (mword 21) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 429:2 - 431:3" >>= fun _ => - exit tt - end) - : M (mword 21). - -Definition hex_bits_22_forwards_matches (bv : mword 22) : bool := true. - -Definition hex_bits_22_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_22_matches_prefix s) with - | Some ((g__58, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_22_backwards (s : string) -: M (mword 22) := - - (match (hex_bits_22_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 22) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => - exit tt) - : M (mword 22) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 448:2 - 450:3" >>= fun _ => - exit tt - end) - : M (mword 22). - -Definition hex_bits_23_forwards_matches (bv : mword 23) : bool := true. - -Definition hex_bits_23_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_23_matches_prefix s) with - | Some ((g__57, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_23_backwards (s : string) -: M (mword 23) := - - (match (hex_bits_23_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 23) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => - exit tt) - : M (mword 23) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 467:2 - 469:3" >>= fun _ => - exit tt - end) - : M (mword 23). - -Definition hex_bits_24_forwards_matches (bv : mword 24) : bool := true. - -Definition hex_bits_24_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_24_matches_prefix s) with - | Some ((g__56, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_24_backwards (s : string) -: M (mword 24) := - - (match (hex_bits_24_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 24) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => - exit tt) - : M (mword 24) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 486:2 - 488:3" >>= fun _ => - exit tt - end) - : M (mword 24). - -Definition hex_bits_25_forwards_matches (bv : mword 25) : bool := true. - -Definition hex_bits_25_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_25_matches_prefix s) with - | Some ((g__55, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_25_backwards (s : string) -: M (mword 25) := - - (match (hex_bits_25_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 25) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => - exit tt) - : M (mword 25) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 505:2 - 507:3" >>= fun _ => - exit tt - end) - : M (mword 25). - -Definition hex_bits_26_forwards_matches (bv : mword 26) : bool := true. - -Definition hex_bits_26_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_26_matches_prefix s) with - | Some ((g__54, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_26_backwards (s : string) -: M (mword 26) := - - (match (hex_bits_26_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 26) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => - exit tt) - : M (mword 26) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 524:2 - 526:3" >>= fun _ => - exit tt - end) - : M (mword 26). - -Definition hex_bits_27_forwards_matches (bv : mword 27) : bool := true. - -Definition hex_bits_27_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_27_matches_prefix s) with - | Some ((g__53, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_27_backwards (s : string) -: M (mword 27) := - - (match (hex_bits_27_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 27) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => - exit tt) - : M (mword 27) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 543:2 - 545:3" >>= fun _ => - exit tt - end) - : M (mword 27). - -Definition hex_bits_28_forwards_matches (bv : mword 28) : bool := true. - -Definition hex_bits_28_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_28_matches_prefix s) with - | Some ((g__52, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_28_backwards (s : string) -: M (mword 28) := - - (match (hex_bits_28_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 28) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => - exit tt) - : M (mword 28) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 562:2 - 564:3" >>= fun _ => - exit tt - end) - : M (mword 28). - -Definition hex_bits_29_forwards_matches (bv : mword 29) : bool := true. - -Definition hex_bits_29_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_29_matches_prefix s) with - | Some ((g__51, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_29_backwards (s : string) -: M (mword 29) := - - (match (hex_bits_29_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 29) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => - exit tt) - : M (mword 29) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 581:2 - 583:3" >>= fun _ => - exit tt - end) - : M (mword 29). - -Definition hex_bits_30_forwards_matches (bv : mword 30) : bool := true. - -Definition hex_bits_30_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_30_matches_prefix s) with - | Some ((g__50, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_30_backwards (s : string) -: M (mword 30) := - - (match (hex_bits_30_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 30) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => - exit tt) - : M (mword 30) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 600:2 - 602:3" >>= fun _ => - exit tt - end) - : M (mword 30). - -Definition hex_bits_31_forwards_matches (bv : mword 31) : bool := true. - -Definition hex_bits_31_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_31_matches_prefix s) with - | Some ((g__49, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_31_backwards (s : string) -: M (mword 31) := - - (match (hex_bits_31_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 31) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => - exit tt) - : M (mword 31) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 619:2 - 621:3" >>= fun _ => - exit tt - end) - : M (mword 31). - -Definition hex_bits_32_forwards_matches (bv : mword 32) : bool := true. - -Definition hex_bits_32_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_32_matches_prefix s) with - | Some ((g__48, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_32_backwards (s : string) -: M (mword 32) := - - (match (hex_bits_32_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 32) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => - exit tt) - : M (mword 32) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 638:2 - 640:3" >>= fun _ => - exit tt - end) - : M (mword 32). - -Definition hex_bits_33_forwards_matches (bv : mword 33) : bool := true. - -Definition hex_bits_33_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_33_matches_prefix s) with - | Some ((g__47, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_33_backwards (s : string) -: M (mword 33) := - - (match (hex_bits_33_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 33) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => - exit tt) - : M (mword 33) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 657:2 - 659:3" >>= fun _ => - exit tt - end) - : M (mword 33). - -Definition hex_bits_48_forwards_matches (bv : mword 48) : bool := true. - -Definition hex_bits_48_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_48_matches_prefix s) with - | Some ((g__46, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_48_backwards (s : string) -: M (mword 48) := - - (match (hex_bits_48_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 48) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => - exit tt) - : M (mword 48) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 676:2 - 678:3" >>= fun _ => - exit tt - end) - : M (mword 48). - -Definition hex_bits_64_forwards_matches (bv : mword 64) : bool := true. - -Definition hex_bits_64_backwards_matches (s : string) -: bool := - - match s with - | s => - if ((match (hex_bits_64_matches_prefix s) with - | Some ((g__45, existT _ n _)) => - if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then true else false - | _ => false - end)) then - true - else false - end. - -Definition hex_bits_64_backwards (s : string) -: M (mword 64) := - - (match (hex_bits_64_matches_prefix s) with - | Some ((bv, existT _ n _)) => - (if sumbool_of_bool ((Z.eqb n (projT1 (string_length s)))) then returnm (bv : mword 64) - else - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => - exit tt) - : M (mword 64) - | _ => - assert_exp' false "Pattern match failure at model/prelude_mapping.sail 695:2 - 697:3" >>= fun _ => - exit tt - end) - : M (mword 64). + let l__5 := n in + returnm (if sumbool_of_bool (Z.eqb l__5 0) then None else Some (tt, build_ex n)). -Definition default_meta : mem_meta := tt. -Hint Unfold default_meta : sail. -Definition __WriteRAM_Meta (addr : mword 64) (width : Z) (meta : unit) -: M (unit) := - - returnm (tt - : unit). - -Definition __ReadRAM_Meta (addr : mword 64) (width : Z) : M (unit) := returnm (tt : unit). - -Definition write_ram -(wk : write_kind) (addr : mword 64) (width : Z) (data : mword (8 * width)) (meta : unit) -`{ArithFact (0 < width /\ width <= 16)} -: M (bool) := - - (write_mem wk 64 addr width data) >>= fun ret : bool => - (if sumbool_of_bool (ret) then (__WriteRAM_Meta addr width meta) : M (unit) - else returnm (tt : unit)) >> - returnm (ret - : bool). - -Definition write_ram_ea (wk : write_kind) (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} -: M (unit) := - - (write_mem_ea wk 64 addr width) - : M (unit). +Definition opt_spc_forwards '(tt : unit) : string := "". -Definition read_ram (rk : read_kind) (addr : mword 64) (width : Z) -`{ArithFact (0 < width /\ width <= 16)} -: M (mword (8 * width)) := - - (read_mem rk 64 addr width) - : M (mword (8 * width)). - -Axiom __TraceMemoryWrite : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. - -Axiom __TraceMemoryRead : forall {m : Z} (n : Z) (_ : mword m) (_ : mword (8 * n)) , unit. - -Definition regbits_to_regno (b : mword 5) -: {n : Z & ArithFact (0 <= n /\ n < 32)} := - - build_ex(let 'r := projT1 (uint b) in - r). - -Definition rX (l__5 : Z) `{ArithFact (0 <= l__5 /\ l__5 < 32)} -: M (mword 64) := - - (if sumbool_of_bool ((Z.eqb l__5 0)) then - returnm ((EXTZ 64 (vec_of_bits [B0;B0;B0;B0] : mword 4)) - : mword 64) - else if sumbool_of_bool ((Z.gtb l__5 0)) then - read_reg Xs_ref >>= fun w__0 : vec (mword 64) 32 => - returnm ((vec_access_dec w__0 l__5) - : mword 64) +Definition opt_spc_backwards (s : string) : unit := tt. + +Definition opt_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (n_leading_spaces s) >>= fun '(existT _ w__0 _ : {n : Z & ArithFact (n >=? 0)}) => + returnm (Some (tt, build_ex w__0)). + +Definition def_spc_forwards '(tt : unit) : string := " ". + +Definition def_spc_backwards (s : string) : unit := tt. + +Definition def_spc_matches_prefix (s : string) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))) := + (opt_spc_matches_prefix s) : M (option ((unit * {n : Z & ArithFact (n >=? 0)}))). + +Definition rX (r : mword 5) : M (mword 64) := + let b__0 := r in + (if eq_vec b__0 ('b"00000" : mword 5) then returnm (EXTZ 64 (Ox"0" : mword 4)) else - assert_exp' false "Pattern match failure at model/riscv_duopod.sail 22:0 - 23:27" >>= fun _ => - exit tt) + read_reg Xs_ref >>= fun w__0 : vec (mword 64) 32 => + returnm (vec_access_dec w__0 (projT1 (uint r)))) : M (mword 64). -Definition wX (r : Z) (v : mword 64) `{ArithFact (0 <= r /\ r < 32)} -: M (unit) := - - (if sumbool_of_bool ((projT1 (neq_int r 0))) then +Definition wX (r : mword 5) (v : mword 64) : M (unit) := + (if neq_vec r ('b"00000" : mword 5) then read_reg Xs_ref >>= fun w__0 : vec (mword 64) 32 => - write_reg Xs_ref (vec_update_dec w__0 r v) + write_reg Xs_ref (vec_update_dec w__0 (projT1 (uint r)) v) : M (unit) - else returnm (tt : unit)) + else returnm tt) : M (unit). -Definition read_mem (addr : mword 64) (width : Z) `{ArithFact (width >= 0)} -: M (mword (8 * width)) := - - (MEMr 64 width (EXTZ 64 (vec_of_bits [B0;B0;B0;B0] : mword 4)) addr) - : M (mword (8 * width)). +Definition read_mem (addr : mword 64) (width : Z) `{ArithFact (width >=? 0)} : M (mword (8 * width)) := + (MEMr 64 width (EXTZ 64 (Ox"0" : mword 4)) addr) : M (mword (8 * width)). -Definition iop_of_num (arg_ : Z) `{ArithFact (0 <= arg_ /\ arg_ <= 5)} -: iop := - +Definition iop_of_num (arg_ : Z) `{ArithFact ((0 <=? arg_) && (arg_ <=? 5))} : iop := let l__0 := arg_ in - if sumbool_of_bool ((Z.eqb l__0 0)) then RISCV_ADDI - else if sumbool_of_bool ((Z.eqb l__0 1)) then RISCV_SLTI - else if sumbool_of_bool ((Z.eqb l__0 2)) then RISCV_SLTIU - else if sumbool_of_bool ((Z.eqb l__0 3)) then RISCV_XORI - else if sumbool_of_bool ((Z.eqb l__0 4)) then RISCV_ORI + if sumbool_of_bool (Z.eqb l__0 0) then RISCV_ADDI + else if sumbool_of_bool (Z.eqb l__0 1) then RISCV_SLTI + else if sumbool_of_bool (Z.eqb l__0 2) then RISCV_SLTIU + else if sumbool_of_bool (Z.eqb l__0 3) then RISCV_XORI + else if sumbool_of_bool (Z.eqb l__0 4) then RISCV_ORI else RISCV_ANDI. -Definition num_of_iop (arg_ : iop) -: {e : Z & ArithFact (0 <= e /\ e <= 5)} := - - build_ex(match arg_ with - | RISCV_ADDI => 0 - | RISCV_SLTI => 1 - | RISCV_SLTIU => 2 - | RISCV_XORI => 3 - | RISCV_ORI => 4 - | RISCV_ANDI => 5 - end). - -Definition execute_LOAD (imm : mword 12) (rs1 : mword 5) (rd : mword 5) -: M (unit) := - - (rX (projT1 (regbits_to_regno rs1))) >>= fun w__0 : mword 64 => +Definition num_of_iop (arg_ : iop) : {e : Z & ArithFact ((0 <=? e) && (e <=? 5))} := + build_ex ( + match arg_ with + | RISCV_ADDI => 0 + | RISCV_SLTI => 1 + | RISCV_SLTIU => 2 + | RISCV_XORI => 3 + | RISCV_ORI => 4 + | RISCV_ANDI => 5 + end + ). + +Definition execute_LOAD (imm : mword 12) (rs1 : mword 5) (rd : mword 5) : M (unit) := + (rX rs1) >>= fun w__0 : mword 64 => let addr : xlenbits := add_vec w__0 (EXTS 64 imm) in - (read_mem addr 8) >>= fun result : xlenbits => - (wX (projT1 (regbits_to_regno rd)) result) - : M (unit). + (read_mem addr 8) >>= fun result : xlenbits => (wX rd result) : M (unit). -Definition execute_ITYPE (arg0 : mword 12) (arg1 : mword 5) (arg2 : mword 5) (arg3 : iop) -: M (unit) := - +Definition execute_ITYPE (arg0 : mword 12) (arg1 : mword 5) (arg2 : mword 5) (arg3 : iop) : M (unit) := let merge_var := (arg0, arg1, arg2, arg3) in (match merge_var with | (imm, rs1, rd, RISCV_ADDI) => - (rX (projT1 (regbits_to_regno rs1))) >>= fun rs1_val => + (rX rs1) >>= fun rs1_val => let imm_ext : xlenbits := EXTS 64 imm in let result := add_vec rs1_val imm_ext in - (wX (projT1 (regbits_to_regno rd)) result) + (wX rd result) : M (unit) | _ => exit tt : M (unit) end) : M (unit). -Definition execute (merge_var : ast) -: M (unit) := - +Definition execute (merge_var : ast) : M (unit) := (match merge_var with - | ITYPE ((imm, rs1, rd, arg3)) => (execute_ITYPE imm rs1 rd arg3) : M (unit) - | LOAD ((imm, rs1, rd)) => (execute_LOAD imm rs1 rd) : M (unit) + | ITYPE (imm, rs1, rd, arg3) => (execute_ITYPE imm rs1 rd arg3) : M (unit) + | LOAD (imm, rs1, rd) => (execute_LOAD imm rs1 rd) : M (unit) end) : M (unit). -Definition decode (v__0 : mword 32) -: option ast := - - if ((andb (eq_vec (subrange_vec_dec v__0 14 12) (vec_of_bits [B0;B0;B0] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__0 6 0) - (vec_of_bits [B0;B0;B1;B0;B0;B1;B1] : mword (6 - 0 + 1))))) then +Definition decode (v__0 : mword 32) : option ast := + if andb (eq_vec (subrange_vec_dec v__0 14 12) ('b"000" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__0 6 0) ('b"0010011" : mword (6 - 0 + 1))) then let imm : bits 12 := subrange_vec_dec v__0 31 20 in let rs1 : regbits := subrange_vec_dec v__0 19 15 in let rd : regbits := subrange_vec_dec v__0 11 7 in let imm : bits 12 := subrange_vec_dec v__0 31 20 in - Some - (ITYPE - ((imm, rs1, rd, RISCV_ADDI))) - else if ((andb - (eq_vec (subrange_vec_dec v__0 14 12) (vec_of_bits [B0;B1;B1] : mword (14 - 12 + 1))) - (eq_vec (subrange_vec_dec v__0 6 0) - (vec_of_bits [B0;B0;B0;B0;B0;B1;B1] : mword (6 - 0 + 1))))) then + Some (ITYPE (imm, rs1, rd, RISCV_ADDI)) + else if andb (eq_vec (subrange_vec_dec v__0 14 12) ('b"011" : mword (14 - 12 + 1))) + (eq_vec (subrange_vec_dec v__0 6 0) ('b"0000011" : mword (6 - 0 + 1))) then let imm : bits 12 := subrange_vec_dec v__0 31 20 in let rs1 : regbits := subrange_vec_dec v__0 19 15 in let rd : regbits := subrange_vec_dec v__0 11 7 in let imm : bits 12 := subrange_vec_dec v__0 31 20 in - Some - (LOAD - ((imm, rs1, rd))) + Some (LOAD (imm, rs1, rd)) else None. Definition initial_regstate : regstate := {| Xs := - (vec_of_list_len [(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64); - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64);(vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64)]); - nextPC := - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64); - PC := - (vec_of_bits [B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0;B0; - B0] - : mword 64) |}. + (vec_of_list_len [Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64;Ox"0000000000000000" : mword 64; + Ox"0000000000000000" + : mword 64;Ox"0000000000000000" : mword 64]); + nextPC := (Ox"0000000000000000" : mword 64); + PC := (Ox"0000000000000000" : mword 64) |}. Hint Unfold initial_regstate : sail. -End Content. + diff --git a/prover_snapshots/coq/duopod/riscv_duopod_types.v b/prover_snapshots/coq/duopod/riscv_duopod_types.v index b408f5c..3b8f215 100644 --- a/prover_snapshots/coq/duopod/riscv_duopod_types.v +++ b/prover_snapshots/coq/duopod/riscv_duopod_types.v @@ -1,19 +1,17 @@ (*Generated by Sail from riscv_duopod.*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_string. -Require Import Sail2_real. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state. +Require Import Sail.Base. +Require Import Sail.Real. Import ListNotations. +Open Scope string. +Open Scope bool. +Open Scope Z. + Definition bits (n : Z) : Type := mword n. Inductive regfp := | RFull : string -> regfp - | RSlice : (string * {n : Z & ArithFact (n >= 0)} * {n : Z & ArithFact (n >= 0)}) -> regfp - | RSliceBit : (string * {n : Z & ArithFact (n >= 0)}) -> regfp + | RSlice : (string * {n : Z & ArithFact (n >=? 0)} * {n : Z & ArithFact (n >=? 0)}) -> regfp + | RSliceBit : (string * {n : Z & ArithFact (n >=? 0)}) -> regfp | RField : (string * string) -> regfp. Arguments regfp : clear implicits. @@ -68,13 +66,6 @@ Hint Unfold xlen_bytes : sail. Definition xlenbits : Type := bits 64. -Definition mem_meta : Type := unit. - -Definition max_mem_access : Z := 16. -Hint Unfold max_mem_access : sail. - -Definition regno (n : Z)`{ArithFact (0 <= n /\ n < 32)} : Type := Z. - Definition regbits : Type := bits 5. Inductive iop := RISCV_ADDI | RISCV_SLTI | RISCV_SLTIU | RISCV_XORI | RISCV_ORI | RISCV_ANDI. @@ -88,7 +79,7 @@ Inductive ast := Arguments ast : clear implicits. Inductive register_value := - | Regval_vector : (Z * bool * list register_value) -> register_value + | Regval_vector : list register_value -> register_value | Regval_list : list register_value -> register_value | Regval_option : option register_value -> register_value | Regval_bit : bitU -> register_value @@ -97,38 +88,33 @@ Arguments register_value : clear implicits. Record regstate := { Xs : vec (mword 64) 32; nextPC : mword 64; PC : mword 64; }. Arguments regstate : clear implicits. -Notation "{[ r 'with' 'Xs' := e ]}" := {| Xs := e; nextPC := nextPC r; PC := PC r |}. -Notation "{[ r 'with' 'nextPC' := e ]}" := {| nextPC := e; Xs := Xs r; PC := PC r |}. -Notation "{[ r 'with' 'PC' := e ]}" := {| PC := e; Xs := Xs r; nextPC := nextPC r |}. +Notation "{[ r 'with' 'Xs' := e ]}" := + match r with Build_regstate _ f1 f2 => Build_regstate e f1 f2 end. +Notation "{[ r 'with' 'nextPC' := e ]}" := + match r with Build_regstate f0 _ f2 => Build_regstate f0 e f2 end. +Notation "{[ r 'with' 'PC' := e ]}" := + match r with Build_regstate f0 f1 _ => Build_regstate f0 f1 e end. -Definition bit_of_regval (merge_var : register_value) -: option bitU := - - match merge_var with | Regval_bit (v) => Some (v) | _ => None end. +Definition bit_of_regval (merge_var : register_value) : option bitU := + match merge_var with | Regval_bit v => Some v | _ => None end. -Definition regval_of_bit (v : bitU) : register_value := Regval_bit (v). +Definition regval_of_bit (v : bitU) : register_value := Regval_bit v. -Definition bitvector_64_dec_of_regval (merge_var : register_value) -: option (mword 64) := - - match merge_var with | Regval_bitvector_64_dec (v) => Some (v) | _ => None end. +Definition bitvector_64_dec_of_regval (merge_var : register_value) : option (mword 64) := + match merge_var with | Regval_bitvector_64_dec v => Some v | _ => None end. -Definition regval_of_bitvector_64_dec (v : mword 64) -: register_value := - - Regval_bitvector_64_dec - (v). +Definition regval_of_bitvector_64_dec (v : mword 64) : register_value := Regval_bitvector_64_dec v. Definition vector_of_regval {a} n (of_regval : register_value -> option a) (rv : register_value) : option (vec a n) := match rv with - | Regval_vector (n', _, v) => if n =? n' then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None + | Regval_vector v => if n =? length_list v then map_bind (vec_of_list n) (just_list (List.map of_regval v)) else None | _ => None end. -Definition regval_of_vector {a} (regval_of : a -> register_value) (size : Z) (is_inc : bool) (xs : vec a size) : register_value := Regval_vector (size, is_inc, List.map regval_of (list_of_vec xs)). +Definition regval_of_vector {a size} (regval_of : a -> register_value) (xs : vec a size) : register_value := Regval_vector (List.map regval_of (list_of_vec xs)). Definition list_of_regval {a} (of_regval : register_value -> option a) (rv : register_value) : option (list a) := match rv with | Regval_list v => just_list (List.map of_regval v) @@ -150,7 +136,7 @@ Definition Xs_ref := {| read_from := (fun s => s.(Xs)); write_to := (fun v s => ({[ s with Xs := v ]})); of_regval := (fun v => vector_of_regval 32 (fun v => bitvector_64_dec_of_regval v) v); - regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_64_dec v) 32 false v) |}. + regval_of := (fun v => regval_of_vector (fun v => regval_of_bitvector_64_dec v) v) |}. Definition nextPC_ref := {| name := "nextPC"; diff --git a/prover_snapshots/coq/duopod/riscv_extras.v b/prover_snapshots/coq/duopod/riscv_extras.v index 84f6761..02d5609 100644 --- a/prover_snapshots/coq/duopod/riscv_extras.v +++ b/prover_snapshots/coq/duopod/riscv_extras.v @@ -1,13 +1,8 @@ -Require Import Sail2_instr_kinds. -Require Import Sail2_values. -Require Import Sail2_operators_mwords. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. +Require Import Sail.Base. Require Import String. Require Import List. Import List.ListNotations. - -Axiom real : Type. +Open Scope Z. Definition MEM_fence_rw_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_rw_rw tt). Definition MEM_fence_r_rw {rv e} (_:unit) : monad rv unit e := barrier (Barrier_RISCV_r_rw tt). @@ -45,12 +40,12 @@ val MEMr_reserved_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => inte val MEMr_reserved_strong_acquire : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> monad 'rv (bitvector 'b) 'e *) -Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. -Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. -Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. -Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. -Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. -Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >= 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. +Definition MEMr {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_plain addrsize addr size. +Definition MEMr_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_acquire addrsize addr size. +Definition MEMr_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_strong_acquire addrsize addr size. +Definition MEMr_reserved {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved addrsize addr size. +Definition MEMr_reserved_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_acquire addrsize addr size. +Definition MEMr_reserved_strong_acquire {rv e} addrsize size (hexRAM addr : mword addrsize) `{ArithFact (size >=? 0)} : monad rv (mword (8 * size)) e := read_mem Read_RISCV_reserved_strong_acquire addrsize addr size. (* val MEMw : forall 'rv 'a 'b 'e. Size 'a, Size 'b => integer -> integer -> bitvector 'a -> bitvector 'a -> bitvector 'b -> monad 'rv bool 'e @@ -87,14 +82,14 @@ Definition undefined_string {rv e} (_:unit) : monad rv string e := returnm ""%st Definition undefined_unit {rv e} (_:unit) : monad rv unit e := returnm tt. Definition undefined_int {rv e} (_:unit) : monad rv Z e := returnm (0:ii). (*val undefined_vector : forall 'rv 'a 'e. integer -> 'a -> monad 'rv (list 'a) 'e*) -Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >= 0)} : monad rv (vec a len) e := returnm (vec_init u len). +Definition undefined_vector {rv a e} len (u : a) `{ArithFact (len >=? 0)} : monad rv (vec a len) e := returnm (vec_init u len). (*val undefined_bitvector : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) -Definition undefined_bitvector {rv e} len `{ArithFact (len >= 0)} : monad rv (mword len) e := returnm (mword_of_int 0). +Definition undefined_bitvector {rv e} len `{ArithFact (len >=? 0)} : monad rv (mword len) e := returnm (mword_of_int 0). (*val undefined_bits : forall 'rv 'a 'e. Bitvector 'a => integer -> monad 'rv 'a 'e*) Definition undefined_bits {rv e} := @undefined_bitvector rv e. Definition undefined_bit {rv e} (_:unit) : monad rv bitU e := returnm BU. (*Definition undefined_real {rv e} (_:unit) : monad rv real e := returnm (realFromFrac 0 1).*) -Definition undefined_range {rv e} i j `{ArithFact (i <= j)} : monad rv {z : Z & ArithFact (i <= z /\ z <= j)} e := returnm (build_ex i). +Definition undefined_range {rv e} i j `{ArithFact (i <=? j)} : monad rv {z : Z & ArithFact (i <=? z <=? j)} e := returnm (build_ex i). Definition undefined_atom {rv e} i : monad rv Z e := returnm i. Definition undefined_nat {rv e} (_:unit) : monad rv Z e := returnm (0:ii). @@ -119,10 +114,12 @@ Definition eq_bit (x : bitU) (y : bitU) : bool := end. Require Import Zeuclid. -Definition euclid_modulo (m n : Z) `{ArithFact (n > 0)} : {z : Z & ArithFact (0 <= z <= n-1)}. +Definition euclid_modulo (m n : Z) `{ArithFact (n >? 0)} : {z : Z & ArithFact (0 <=? z <=? n-1)}. apply existT with (x := ZEuclid.modulo m n). constructor. destruct H. +unbool_comparisons. +unbool_comparisons_goal. assert (Z.abs n = n). { rewrite Z.abs_eq; auto with zarith. } rewrite <- H at 3. lapply (ZEuclid.mod_always_pos m n); omega. @@ -143,6 +140,7 @@ Definition string_of_int z := DecimalString.NilZero.string_of_int (Z.to_int z). Axiom sys_enable_writable_misa : unit -> bool. Axiom sys_enable_rvc : unit -> bool. +Axiom sys_enable_fdext : unit -> bool. (* The constraint solver can do this itself, but a Coq bug puts anonymous_subproof into the term instead of an actual subproof. *) diff --git a/prover_snapshots/coq/lib/sail/Base.v b/prover_snapshots/coq/lib/sail/Base.v new file mode 100644 index 0000000..1807d15 --- /dev/null +++ b/prover_snapshots/coq/lib/sail/Base.v @@ -0,0 +1,7 @@ +Require Export Sail.Instr_kinds. +Require Export Sail.Values. +Require Export Sail.String. +Require Export Sail.Operators_mwords. +Require Export Sail.Prompt_monad. +Require Export Sail.Prompt. +Require Export Sail.State. diff --git a/prover_snapshots/coq/lib/sail/Hoare.v b/prover_snapshots/coq/lib/sail/Hoare.v index d23ff32..b883b7a 100644 --- a/prover_snapshots/coq/lib/sail/Hoare.v +++ b/prover_snapshots/coq/lib/sail/Hoare.v @@ -1,6 +1,6 @@ -Require Import String ZArith. -Require Import Sail2_state_monad Sail2_prompt Sail2_state Sail2_state_monad_lemmas. -Require Import Sail2_state_lemmas. +Require Import String ZArith Setoid Morphisms Equivalence. +Require Import Sail.State_monad Sail.Prompt Sail.State Sail.State_monad_lemmas. +Require Import Sail.State_lemmas. (*adhoc_overloading Monad_Syntax.bind State_monad.bindS*) @@ -103,6 +103,16 @@ eapply PrePost_bindS with (R := fun _ => R). * apply M. Qed. +Lemma PrePost_seqS Regs B E (m : monadS Regs unit E) (m' : monadS Regs B E) P Q R : + PrePost R m' Q -> + PrePost P m (fun r => match r with Value a => R | Ex e => Q (Ex e) end) -> + PrePost P (seqS m m') Q. +intros F M. +eapply PrePost_bindS with (R := fun _ => R). +* intros. destruct a. apply F. +* apply M. +Qed. + Lemma PrePost_readS (*[intro, PrePost_atomI]:*) Regs A E (P : result A E -> predS Regs) f : PrePost (fun s => P (Value (f s)) s) (readS f) P. unfold PrePost, readS, returnS. @@ -182,6 +192,34 @@ eapply PrePost_bindS. apply PrePost_returnS. Qed. +Lemma PrePost_and_boolSP (*[PrePost_compositeI]:*) Regs E PP QQ RR H + (l : monadS Regs {b : bool & Sail.Values.ArithFactP (PP b)} E) + (r : monadS Regs {b : bool & Sail.Values.ArithFactP (QQ b)} E) + P (Q : result {b : bool & Sail.Values.ArithFactP (RR b)} E -> predS Regs) R : + (forall p, + PrePost R r + (fun r => + match r with + | Value (existT _ r q) => Q (Value (existT _ r (and_bool_full_proof p q H))) + | Ex e => Q (Ex e) end)) -> + PrePost P l + (fun r => match r with + | Value (existT _ true _) => R + | Value (existT _ false p) => Q (Value (existT _ _ (and_bool_left_proof p H))) + | Ex e => Q (Ex e) end) -> + PrePost P (@and_boolSP _ _ PP QQ RR l r H) Q. +intros Hr Hl. +unfold and_boolSP. +eapply (PrePost_bindS _ _ _ _ _ _ _ _ _ _ Hl). +Unshelve. +intros s [[|] p] s' IN. +* eapply PrePost_bindS. 2: apply Hr. + clear s s' IN. + intros s [b q] s' IN. + apply PrePost_returnS. +* apply PrePost_returnS. +Qed. + Lemma PrePost_or_boolS (*[PrePost_compositeI]:*) Regs E (l r : monadS Regs bool E) P Q R : PrePost R r Q -> PrePost P l (fun r => match r with Value false => R | _ => Q r end) -> @@ -198,6 +236,34 @@ eapply PrePost_bindS. intros [[|] | ] s H; auto. Qed. +Lemma PrePost_or_boolSP (*[PrePost_compositeI]:*) Regs E PP QQ RR H + (l : monadS Regs {b : bool & Sail.Values.ArithFactP (PP b)} E) + (r : monadS Regs {b : bool & Sail.Values.ArithFactP (QQ b)} E) + P (Q : result {b : bool & Sail.Values.ArithFactP (RR b)} E -> predS Regs) R : + (forall p, + PrePost R r + (fun r => + match r with + | Value (existT _ r q) => Q (Value (existT _ r (or_bool_full_proof p q H))) + | Ex e => Q (Ex e) end)) -> + PrePost P l + (fun r => match r with + | Value (existT _ false _) => R + | Value (existT _ true p) => Q (Value (existT _ _ (or_bool_left_proof p H))) + | Ex e => Q (Ex e) end) -> + PrePost P (@or_boolSP _ _ PP QQ RR l r H) Q. +intros Hr Hl. +unfold or_boolSP. +eapply (PrePost_bindS _ _ _ _ _ _ _ _ _ _ Hl). +Unshelve. +intros s [[|] p] s' IN. +* apply PrePost_returnS. +* eapply PrePost_bindS. 2: apply Hr. + clear s s' IN. + intros s [b q] s' IN. + apply PrePost_returnS. +Qed. + Lemma PrePost_failS (*[intro, PrePost_atomI]:*) Regs A E msg (Q : result A E -> predS Regs) : PrePost (Q (Ex (Failure msg))) (failS msg) Q. intros s Pre r s' [[= <- <-] | []]. @@ -395,15 +461,17 @@ intros. apply (H (Value a)); auto. intros. apply (H (Ex e)); auto. Qed. -Lemma PrePostE_returnS (*[PrePostE_atomI, intro, simp]:*) Regs A E P (x : A) (Q : ex E -> predS Regs) : - PrePostE (P x) (returnS x) P Q. +Lemma PrePostE_returnS (*[PrePostE_atomI, intro, simp]:*) Regs A Ety Q (x : A) (E : ex Ety -> predS Regs) : + PrePostE (Q x) (returnS x) Q E. unfold PrePostE, PrePost. intros s Pre r s' [[= <- <-] | []]. assumption. Qed. +(* Unlike the Isabelle library, avoid the overhead of remembering that [a] came + from [m]. *) Lemma PrePostE_bindS (*[intro, PrePostE_compositeI]:*) Regs A B Ety P m (f : A -> monadS Regs B Ety) Q R E : - (forall s a s', List.In (Value a, s') (m s) -> PrePostE (R a) (f a) Q E) -> + (forall a, PrePostE (R a) (f a) Q E) -> PrePostE P m R E -> PrePostE P (bindS m f) Q E. intros. @@ -425,7 +493,14 @@ Lemma PrePostE_bindS_unit Regs A Ety (P : predS Regs) (m : monadS Regs unit Ety) apply PrePost_bindS_unit. Qed. -Lemma PrePostE_readS (*[PrePostE_atomI, intro]:*) Regs A Ety (P : predS Regs) f (Q : result A Ety -> predS Regs) E : +Lemma PrePostE_seqS Regs A Ety (P : predS Regs) (m : monadS Regs unit Ety) (m' : monadS Regs A Ety) Q R E : + PrePostE R m' Q E -> + PrePostE P m (fun _ => R) E -> + PrePostE P (seqS m m') Q E. +apply PrePost_seqS. +Qed. + +Lemma PrePostE_readS (*[PrePostE_atomI, intro]:*) Regs A Ety f (Q : A -> predS Regs) E : PrePostE (Ety := Ety) (fun s => Q (f s) s) (readS f) Q E. unfold PrePostE, PrePost, readS. intros s Pre [a | e] s' [[= <- <-] | []]. @@ -441,10 +516,30 @@ Qed. Lemma PrePostE_if_branch (*[PrePostE_compositeI]:*) Regs A Ety (b : bool) (f g : monadS Regs A Ety) Pf Pg Q E : (b = true -> PrePostE Pf f Q E) -> (b = false -> PrePostE Pg g Q E) -> - PrePostE (if b then Pf else Pg) (if b then f else g) Q E. + PrePostE (fun s => if b then Pf s else Pg s) (if b then f else g) Q E. destruct b; auto. Qed. +Lemma PrePostE_if_sum_branch (*[PrePostE_compositeI]:*) Regs A Ety X Y (b : sumbool X Y) (f g : monadS Regs A Ety) Pf Pg Q E : + (forall H : X, b = left H -> PrePostE Pf f Q E) -> + (forall H : Y, b = right H -> PrePostE Pg g Q E) -> + PrePostE (fun s => if b then Pf s else Pg s) (if b then f else g) Q E. +intros HX HY. +destruct b as [H | H]. +* apply (HX H). reflexivity. +* apply (HY H). reflexivity. +Qed. + +Lemma PrePostE_match_sum_branch (*[PrePostE_compositeI]:*) Regs A Ety X Y (b : sumbool X Y) (f : X -> monadS Regs A Ety) (g : Y -> monadS Regs A Ety) Pf Pg Q E : + (forall H : X, b = left H -> PrePostE (Pf H) (f H) Q E) -> + (forall H : Y, b = right H -> PrePostE (Pg H) (g H) Q E) -> + PrePostE (fun s => match b with left H => Pf H s | right H => Pg H s end) (match b with left H => f H | right H => g H end) Q E. +intros HX HY. +destruct b as [H | H]. +* apply (HX H). reflexivity. +* apply (HY H). reflexivity. +Qed. + Lemma PrePostE_if Regs A Ety (b : bool) (f g : monadS Regs A Ety) P Q E : (b = true -> PrePostE P f Q E) -> (b = false -> PrePostE P g Q E) -> @@ -494,32 +589,84 @@ Qed. Lemma PrePostE_and_boolS (*[PrePostE_compositeI]:*) Regs Ety (l r : monadS Regs bool Ety) P Q R E : PrePostE R r Q E -> - PrePostE P l (fun r => if r then R else Q false) E -> + PrePostE P l (fun r s => if r then R s else Q false s) E -> PrePostE P (and_boolS l r) Q E. intros Hr Hl. unfold and_boolS. eapply PrePostE_bindS. * intros. - instantiate (1 := fun a => if a then R else Q false). + instantiate (1 := fun a s => if a then R s else Q false s). destruct a; eauto. apply PrePostE_returnS. * assumption. Qed. +(* In the first hypothesis I originally had + fun '(exist _ r _) s => ... + which is really + fun r0 => let '(exist _ r _) := r0 in fun s => + and prevents the reduction of the function application. *) + +Lemma PrePostE_and_boolSP (*[PrePost_compositeI]:*) Regs Ety PP QQ RR H + (l : monadS Regs {b : bool & Sail.Values.ArithFactP (PP b)} Ety) + (r : monadS Regs {b : bool & Sail.Values.ArithFactP (QQ b)} Ety) + P (Q : {b : bool & Sail.Values.ArithFactP (RR b)} -> predS Regs) E R : + PrePostE R r (fun r s => forall pf, Q (existT _ (projT1 r) pf) s) E -> + PrePostE P l + (fun r s => match r with + | existT _ true _ => R s + | existT _ false _ => (forall pf, Q (existT _ false pf) s) + end) E -> + PrePostE P (@and_boolSP _ _ PP QQ RR l r H) Q E. +intros Hr Hl. +unfold and_boolSP. +refine (PrePostE_bindS _ _ _ _ _ _ _ _ _ _ _ Hl). +intros [[|] p]. +* eapply PrePostE_bindS. 2: apply Hr. + intros [b q]. + eapply PrePostE_strengthen_pre. apply PrePostE_returnS. + intros s1 HQ. apply HQ. +* eapply PrePostE_strengthen_pre. apply PrePostE_returnS. + intros s1 HQ. apply HQ. +Qed. + Lemma PrePostE_or_boolS (*[PrePostE_compositeI]:*) Regs Ety (l r : monadS Regs bool Ety) P Q R E : PrePostE R r Q E -> - PrePostE P l (fun r => if r then Q true else R) E -> + PrePostE P l (fun r s => if r then Q true s else R s) E -> PrePostE P (or_boolS l r) Q E. intros Hr Hl. unfold or_boolS. eapply PrePostE_bindS. * intros. - instantiate (1 := fun a => if a then Q true else R). + instantiate (1 := fun a s => if a then Q true s else R s). destruct a; eauto. apply PrePostE_returnS. * assumption. Qed. +Lemma PrePostE_or_boolSP (*[PrePost_compositeI]:*) Regs Ety PP QQ RR H + (l : monadS Regs {b : bool & Sail.Values.ArithFactP (PP b)} Ety) + (r : monadS Regs {b : bool & Sail.Values.ArithFactP (QQ b)} Ety) + P (Q : {b : bool & Sail.Values.ArithFactP (RR b)} -> predS Regs) E R : + PrePostE R r (fun r s => forall pf, Q (existT _ (projT1 r) pf) s) E -> + PrePostE P l + (fun r s => match r with + | existT _ false _ => R s + | existT _ true _ => (forall pf, Q (existT _ true pf) s) + end) E -> + PrePostE P (@or_boolSP _ _ PP QQ RR l r H) Q E. +intros Hr Hl. +unfold or_boolSP. +refine (PrePostE_bindS _ _ _ _ _ _ _ _ _ _ _ Hl). +intros [[|] p]. +* eapply PrePostE_strengthen_pre. apply PrePostE_returnS. + intros s1 HQ. apply HQ. +* eapply PrePostE_bindS. 2: apply Hr. + intros [b q]. + eapply PrePostE_strengthen_pre. apply PrePostE_returnS. + intros s1 HQ. apply HQ. +Qed. + Lemma PrePostE_failS (*[PrePostE_atomI, intro]:*) Regs A Ety msg (Q : A -> predS Regs) (E : ex Ety -> predS Regs) : PrePostE (E (Failure msg)) (failS msg) Q E. unfold PrePostE, PrePost, failS. @@ -528,11 +675,20 @@ assumption. Qed. Lemma PrePostE_assert_expS (*[PrePostE_atomI, intro]:*) Regs Ety (c : bool) m P (Q : ex Ety -> predS Regs) : - PrePostE (if c then P tt else Q (Failure m)) (assert_expS c m) P Q. + PrePostE (fun s => if c then P tt s else Q (Failure m) s) (assert_expS c m) P Q. unfold assert_expS. destruct c; auto using PrePostE_returnS, PrePostE_failS. Qed. +Lemma PrePostE_assert_expS' (*[PrePostE_atomI, intro]:*) Regs Ety (c : bool) m (P : c = true -> predS Regs) (Q : ex Ety -> predS Regs) : + PrePostE (fun s => if c then (forall pf, P pf s) else Q (Failure m) s) (assert_expS' c m) P Q. +unfold assert_expS'. +destruct c. +* eapply PrePostE_strengthen_pre. eapply PrePostE_returnS. + auto. +* auto using PrePostE_failS. +Qed. + Lemma PrePostE_maybe_failS (*[PrePostE_atomI]:*) Regs A Ety msg v (Q : A -> predS Regs) (E : ex Ety -> predS Regs) : PrePostE (fun s => match v with Some v => Q v s | None => E (Failure msg) s end) (maybe_failS msg v) Q E. unfold maybe_failS. @@ -601,7 +757,7 @@ auto using PrePostE_throwS. Qed. Lemma PrePostE_foreachS_Cons Regs A Vars Ety (x : A) xs vars body (Q : Vars -> predS Regs) (E : ex Ety -> predS Regs) : - (forall s vars' s', List.In (Value vars', s') (body x vars s) -> PrePostE (Q vars') (foreachS xs vars' body) Q E) -> + (forall vars', PrePostE (Q vars') (foreachS xs vars' body) Q E) -> PrePostE (Q vars) (body x vars) Q E -> PrePostE (Q vars) (foreachS (x :: xs) vars body) Q E. intros. @@ -618,6 +774,43 @@ apply PrePost_foreachS_invariant with (Q := fun v => match v with Value a => Q a auto. Qed. +Lemma PrePostE_foreach_ZS_up_invariant Regs Vars Ety from to step (H : Sail.Values.ArithFact (0 <? step)%Z) vars body (Q : Vars -> predS Regs) (E : ex Ety -> predS Regs) : + (forall i range vars, PrePostE (Q vars) (body i range vars) Q E) -> + PrePostE (Q vars) (foreach_ZS_up from to step vars body) Q E. +intro INV. +unfold foreach_ZS_up. +match goal with +| |- context[@foreach_ZS_up' _ _ _ _ _ _ _ _ _ ?pf _ _] => generalize pf +end. +generalize 0%Z at 2 3 as off. +revert vars. +induction (S (Z.abs_nat (from - to))); intros. +* simpl. destruct (Sumbool.sumbool_of_bool (from + off <=? to)%Z); apply PrePostE_returnS. +* simpl. destruct (Sumbool.sumbool_of_bool (from + off <=? to)%Z). + + eapply PrePostE_bindS. + - intro. apply IHn. + - apply INV. + + apply PrePostE_returnS. +Qed. + +Lemma PrePostE_foreach_ZS_down_invariant Regs Vars Ety from to step (H : Sail.Values.ArithFact (0 <? step)%Z) vars body (Q : Vars -> predS Regs) (E : ex Ety -> predS Regs) : + (forall i range vars, PrePostE (Q vars) (body i range vars) Q E) -> + PrePostE (Q vars) (foreach_ZS_down from to step vars body) Q E. +intro INV. +unfold foreach_ZS_down. +match goal with +| |- context[@foreach_ZS_down' _ _ _ _ _ _ _ _ _ ?pf _ _] => generalize pf +end. +generalize 0%Z at 1 3 as off. +revert vars. +induction (S (Z.abs_nat (from - to))); intros. +* simpl. destruct (Sumbool.sumbool_of_bool (to <=? from + off)%Z); apply PrePostE_returnS. +* simpl. destruct (Sumbool.sumbool_of_bool (to <=? from + off)%Z). + + eapply PrePostE_bindS. + - intro. apply IHn. + - apply INV. + + apply PrePostE_returnS. +Qed. Lemma PrePostE_use_pre Regs A Ety m (P : predS Regs) (Q : A -> predS Regs) (E : ex Ety -> predS Regs) : (forall s, P s -> PrePostE P m Q E) -> @@ -645,12 +838,12 @@ apply PrePostE_use_pre. intros s0 Pre0. assert (measure vars >= 0) as Hlimit_0 by eauto. clear s0 Pre0. remember (measure vars) as limit eqn: Heqlimit in Hlimit_0 |- *. assert (measure vars <= limit) as Hlimit by omega. clear Heqlimit. -generalize (Sail2_prompt.Zwf_guarded limit). +generalize (Sail.Prompt.Zwf_guarded limit). revert vars Hlimit. apply Wf_Z.natlike_ind with (x := limit). * intros vars Hmeasure_limit [acc]. simpl. eapply PrePostE_bindS; [ | apply Hbody ]. - intros s vars' s' IN. + intros vars'. eapply PrePostE_bindS with (R := (fun c s' => (Inv Q vars' s' /\ (c = true -> Q vars' s')) /\ measure vars' < measure vars)). 2: { apply PrePostE_weaken_Epost with (E := (fun e s' => E e s' /\ measure vars' < measure vars)). 2: tauto. @@ -669,7 +862,7 @@ apply Wf_Z.natlike_ind with (x := limit). simpl. destruct (Z_ge_dec _ _); try omega. eapply PrePostE_bindS; [ | apply Hbody]. - intros s vars' s' IN. + intros vars'. eapply PrePostE_bindS with (R := (fun c s' => (Inv Q vars' s' /\ (c = true -> Q vars' s')) /\ measure vars' < measure vars)). 2: { apply PrePostE_weaken_Epost with (E := (fun e s' => E e s' /\ measure vars' < measure vars)). 2: tauto. @@ -700,7 +893,7 @@ Lemma PrePostE_untilST_pure_cond Regs Vars Ety vars measure cond (body : Vars -> intros Hbody Hmeasure. apply PrePostE_untilST with (Inv' := fun Q vars s => Inv Q vars s /\ (cond vars = true -> Q vars s)). * intro. - apply PrePostE_returnS with (P := fun c s' => Inv Q vars0 s' /\ (c = true -> Q vars0 s')). + apply PrePostE_returnS with (Q := fun c s' => Inv Q vars0 s' /\ (c = true -> Q vars0 s')). * intro. eapply PrePost_weaken_post; [ apply Hbody | ]. simpl. intros [a |e]; eauto. tauto. @@ -740,6 +933,14 @@ apply PrePostE_chooseS. simpl. intros. destruct x; auto. Qed. +Lemma PrePostE_choose_boolS_ignore Regs Ety unit_val (Q : predS Regs) (E : ex Ety -> predS Regs) : + PrePostE Q (choose_boolS unit_val) (fun _ => Q) E. +unfold choose_boolS, seqS. +eapply PrePostE_strengthen_pre. +apply PrePostE_chooseS. +simpl. intros. destruct x; auto. +Qed. + Lemma PrePostE_bool_of_bitU_nondetS_any Regs Ety b (Q : bool -> predS Regs) (E : ex Ety -> predS Regs) : PrePostE (fun s => forall b, Q b s) (bool_of_bitU_nondetS b) Q E. unfold bool_of_bitU_nondetS, undefined_boolS. @@ -763,7 +964,7 @@ unfold choose_boolsS, genlistS. apply PrePostE_weaken_post with (B := fun _ s => forall bs, Q bs s). * apply PrePostE_foreachS_invariant with (Q := fun _ s => forall bs, Q bs s). intros. apply PrePostE_bindS with (R := fun _ s => forall bs, Q bs s). - + intros. apply PrePostE_returnS with (P := fun _ s => forall bs, Q bs s). + + intros. apply PrePostE_returnS with (Q := fun _ s => forall bs, Q bs s). + eapply PrePostE_strengthen_pre. apply PrePostE_choose_boolS_any. intuition. @@ -799,7 +1000,7 @@ unfold internal_pickS. intro notnil. eapply PrePostE_bindS with (R := fun _ s => forall x, List.In x xs -> Q x s). * intros. - destruct (nth_error_modulo (Sail2_values.nat_of_bools a) notnil) as (x & IN & nth). + destruct (nth_error_modulo (Sail.Values.nat_of_bools a) notnil) as (x & IN & nth). rewrite nth. eapply PrePostE_strengthen_pre. apply PrePostE_returnS. @@ -808,3 +1009,175 @@ eapply PrePostE_bindS with (R := fun _ s => forall x, List.In x xs -> Q x s). apply PrePostE_choose_boolsS_any. intuition. Qed. + +Lemma PrePostE_internal_pick_ignore Regs A Ety (xs : list A) (Q : predS Regs) (E : ex Ety -> predS Regs) : + xs <> nil -> + PrePostE Q (internal_pickS xs) (fun _ => Q) E. +intro H. +eapply PrePostE_strengthen_pre. +apply PrePostE_internal_pick; auto. +simpl. intros. auto. +Qed. + +Lemma PrePostE_undefined_word_natS_any Regs Ety n (Q : Word.word n -> predS Regs) (E : ex Ety -> predS Regs) : + PrePostE (fun s => forall w, Q w s) (undefined_word_natS n) Q E. +induction n. +* simpl. + eapply PrePostE_strengthen_pre. + apply PrePostE_returnS. + auto. +* simpl. + eapply PrePostE_strengthen_pre. + eapply PrePostE_bindS; intros. + eapply PrePostE_bindS; intros. + apply (PrePostE_returnS _ _ _ Q). + apply IHn. + apply PrePostE_choose_boolS_any. + simpl. auto. +Qed. + +Local Open Scope Z. + +Lemma PrePostE_undefined_bitvectorS_any Regs Ety n `{Sail.Values.ArithFact (n >=? 0)} (Q : Sail.Values.mword n -> predS Regs) (E : ex Ety -> predS Regs) : + PrePostE (fun s => forall w, Q w s) (undefined_bitvectorS n) Q E. +unfold undefined_bitvectorS. +eapply PrePostE_strengthen_pre. +eapply PrePostE_bindS; intros. +apply (PrePostE_returnS _ _ _ Q). +apply PrePostE_undefined_word_natS_any. +simpl. +auto. +Qed. + +Lemma PrePostE_undefined_bitvectorS_ignore Regs Ety n `{Sail.Values.ArithFact (n >=? 0)} (Q : predS Regs) (E : ex Ety -> predS Regs) : + PrePostE Q (undefined_bitvectorS n) (fun _ => Q) E. +eapply PrePostE_strengthen_pre. +apply PrePostE_undefined_bitvectorS_any; auto. +simpl; auto. +Qed. + +Lemma PrePostE_build_trivial_exS Regs (T:Type) Ety (m : monadS Regs T Ety) P (Q : {T & Sail.Values.ArithFact true} -> predS Regs) E : + PrePostE P m (fun v => Q (existT _ v (Sail.Values.Build_ArithFactP _ eq_refl))) E -> + PrePostE P (build_trivial_exS m) Q E. +intro H. +unfold build_trivial_exS. +eapply PrePostE_bindS; intros. +* apply (PrePostE_returnS _ _ _ Q). +* apply H. +Qed. + +(* Setoid rewriting *) + +Local Open Scope equiv_scope. + +Add Parametric Morphism {Regs A Ety} : (@PrePost Regs A Ety) + with signature eq ==> equiv ==> eq ==> iff + as PrePost_morphism. +intros. +unfold PrePost. +split; intros H' s. +* rewrite <- (H s). apply H'. +* rewrite -> (H s). apply H'. +Qed. + +Add Parametric Morphism {Regs A Ety} : (@PrePostE Regs A Ety) + with signature eq ==> equiv ==> eq ==> eq ==> iff + as PrePostE_morphism. +intros. +unfold PrePostE. +rewrite H. +reflexivity. +Qed. + +(* Applying rewrites in a Hoare quadruple. For example, [PrePostE_rewrite liftState] + will push liftState through all of the monad operations. *) + +Lemma PrePostE_code_rw {Regs A Ety} P {Q : A -> predS Regs} {E : ex Ety -> predS Regs} {m m'} : + m === m' -> + PrePostE P m' Q E -> + PrePostE P m Q E. +intro H. +rewrite H. +auto. +Qed. + +Ltac PrePostE_rewrite db := (eapply PrePostE_code_rw; [ statecong db | ]). +Tactic Notation "PrePostE_rewrite" ident(db) := PrePostE_rewrite db. + +(* Attempt to do a weakest precondition calculation step. Assumes that goal has + a metavariable for the precondition. *) + +Create HintDb PrePostE_specs. + +Ltac PrePostE_step := + match goal with + | |- PrePostE _ (bindS _ (fun _ => ?f)) _ _ => eapply PrePostE_bindS_ignore + | |- PrePostE _ (bindS _ _) _ _ => eapply PrePostE_bindS; intros + | |- PrePostE _ (seqS _ _) _ _ => eapply PrePostE_seqS; intros + (* The precondition will often have the form (?R x), and Coq's higher-order + unification will try to unify x and a if we don't explicitly tell it to + use Q to form the precondition to unify with P. *) + | |- PrePostE _ (returnS ?a) ?ppeQ _ => apply PrePostE_returnS with (Q := ppeQ) + | |- PrePostE _ (if _ then _ else _) _ _ => + first + [ eapply PrePostE_if_branch; intros + | eapply PrePostE_if_sum_branch; intros + ] + | |- PrePostE _ (match _ with left _ => _ | right _ => _ end) _ _ => + eapply PrePostE_match_sum_branch; intros + | |- PrePostE _ (readS _) ?ppeQ ?ppeE => apply PrePostE_readS with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (assert_expS _ _) _ _ => apply PrePostE_assert_expS + | |- PrePostE _ (assert_expS' _ _) _ _ => apply PrePostE_assert_expS' + | |- PrePostE _ (maybe_failS _ _) _ _ => apply PrePostE_maybe_failS + | |- PrePostE _ (exitS _) _ ?E => apply (PrePostE_exitS _ _ _ _ _ E) + | |- PrePostE _ (and_boolS _ _) _ _ => eapply PrePostE_and_boolS + | |- PrePostE _ (or_boolS _ _) _ _ => eapply PrePostE_or_boolS + | |- PrePostE _ (and_boolSP _ _) _ _ => eapply PrePostE_and_boolSP; intros + | |- PrePostE _ (or_boolSP _ _) _ _ => eapply PrePostE_or_boolSP; intros + | |- PrePostE _ (choose_boolS _) (fun _ => ?ppeQ) ?ppeE => + apply PrePostE_choose_boolS_ignore with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (choose_boolS _) ?ppeQ ?ppeE => + apply PrePostE_choose_boolS_any with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (undefined_boolS _) (fun _ => ?ppeQ) ?ppeE => + apply PrePostE_choose_boolS_ignore with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (undefined_boolS _) ?ppeQ ?ppeE => + apply PrePostE_choose_boolS_any with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (internal_pickS _) (fun _ => ?ppeQ) ?ppeE => + eapply PrePostE_internal_pick_ignore with (Q := ppeQ) (E := ppeE); intros + | |- PrePostE _ (internal_pickS _) ?ppeQ ?ppeE => + eapply PrePostE_internal_pick with (Q := ppeQ) (E := ppeE); intros + | |- PrePostE _ (undefined_bitvectorS _) (fun _ => ?ppeQ) ?ppeE => + apply PrePostE_undefined_bitvectorS_ignore with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (undefined_bitvectorS _) ?ppeQ ?ppeE => + apply PrePostE_undefined_bitvectorS_any with (Q := ppeQ) (E := ppeE) + | |- PrePostE _ (build_trivial_exS _) _ _ => eapply PrePostE_build_trivial_exS; intros + | |- PrePostE _ (liftRS _) ?ppeQ ?ppeE => + apply PrePostE_liftRS with (Q := ppeQ) (E := ppeE); intros + | |- PrePostE _ (let '(_,_) := ?x in _) _ _ => + is_var x; + let PAIR := fresh "PAIR" in + assert (PAIR : x = (fst x, snd x)) by (destruct x; reflexivity); + rewrite PAIR at - 1; + clear PAIR + | |- PrePostE _ (let '(existT _ _ _) := ?x in _) _ _ => + is_var x; + let PAIR := fresh "PAIR" in + assert (PAIR : x = existT _ (projT1 x) (projT2 x)) by (destruct x; reflexivity); + rewrite PAIR at - 1; + clear PAIR + (* Applying specifications from the hintdb. For performance, + * don't use hypotheses from the context (if we need to and it's + not good enough, consider using a separate hintdb) + + * use auto rather than eauto - when eauto is applied to a goal + with an evar Coq falls back to trying all of the specs rather + than picking out one which matches (at least, with 8.9). + *) + | |- PrePostE ?pre _ _ _ => + clear; + solve [ tryif is_evar pre then auto with nocore PrePostE_specs + else (eapply PrePostE_strengthen_pre; + [ auto with nocore PrePostE_specs + | exact (fun s p => p) ]) + ] + end. diff --git a/prover_snapshots/coq/lib/sail/Sail2_impl_base.v b/prover_snapshots/coq/lib/sail/Impl_base.v index 464c290..b5a2dd5 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_impl_base.v +++ b/prover_snapshots/coq/lib/sail/Impl_base.v @@ -48,7 +48,7 @@ (* SUCH DAMAGE. *) (*========================================================================*) -Require Import Sail2_instr_kinds. +Require Import Sail.Instr_kinds. (* class ( EnumerationType 'a ) diff --git a/prover_snapshots/coq/lib/sail/Sail2_instr_kinds.v b/prover_snapshots/coq/lib/sail/Instr_kinds.v index d03d5e6..d03d5e6 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_instr_kinds.v +++ b/prover_snapshots/coq/lib/sail/Instr_kinds.v diff --git a/prover_snapshots/coq/lib/sail/Makefile b/prover_snapshots/coq/lib/sail/Makefile index fa453d9..1b6435e 100644 --- a/prover_snapshots/coq/lib/sail/Makefile +++ b/prover_snapshots/coq/lib/sail/Makefile @@ -1,26 +1,40 @@ -BBV_DIR?=../../../bbv +HAVE_OPAM_BBV=$(shell if opam config var coq-bbv:share >/dev/null 2>/dev/null; then echo yes; else echo no; fi) -CORESRC=Sail2_prompt_monad.v Sail2_prompt.v Sail2_impl_base.v Sail2_instr_kinds.v Sail2_operators_bitlists.v Sail2_operators_mwords.v Sail2_operators.v Sail2_values.v Sail2_state_monad.v Sail2_state.v Sail2_state_lifting.v Sail2_string.v Sail2_real.v -PROOFSRC=Sail2_state_monad_lemmas.v Sail2_state_lemmas.v Hoare.v +ifeq ($(HAVE_OPAM_BBV),no) +BBV_DIR?=../../../bbv/src/bbv +endif + +CORESRC=Prompt_monad.v Prompt.v Impl_base.v Instr_kinds.v Operators_bitlists.v Operators_mwords.v Operators.v Values.v State_monad.v State.v State_lifting.v String.v Real.v Base.v +PROOFSRC=Values_lemmas.v State_monad_lemmas.v State_lemmas.v Hoare.v SRC=$(CORESRC) $(PROOFSRC) -COQ_LIBS = -R . Sail -R "$(BBV_DIR)/theories" bbv +ifdef BBV_DIR +COQ_LIBS = -Q . Sail -Q "$(BBV_DIR)" bbv +else +COQ_LIBS = -Q . Sail +endif TARGETS=$(SRC:.v=.vo) -.PHONY: all clean *.ide +.PHONY: all clean install all: $(TARGETS) clean: rm -f -- $(TARGETS) $(TARGETS:.vo=.glob) $(TARGETS:%.vo=.%.aux) deps -%.vo: %.v +$(TARGETS): %.vo: %.v coqc $(COQ_LIBS) $< -%.ide: %.v - coqide $(COQ_LIBS) $< - deps: $(SRC) coqdep $(COQ_LIBS) $(SRC) > deps -include deps + +COQLIB = $(shell coqc -where) +DESTDIR ?= +INSTALLDIR = $(DESTDIR)/$(COQLIB)/user-contrib/Sail + +install: $(TARGETS) + test -d "$(DESTDIR)/$(COQLIB)/user-contrib" || echo Coq library directory "$(DESTDIR)/$(COQLIB)/user-contrib" not present + install -d -- "$(INSTALLDIR)" + install -m 644 -- $(SRC) $(TARGETS) $(TARGETS:.vo=.glob) "$(INSTALLDIR)" diff --git a/prover_snapshots/coq/lib/sail/Sail2_operators.v b/prover_snapshots/coq/lib/sail/Operators.v index ab02c4a..2f12eac 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_operators.v +++ b/prover_snapshots/coq/lib/sail/Operators.v @@ -1,6 +1,7 @@ -Require Import Sail2_values. +Require Import Sail.Values. Require List. Import List.ListNotations. +Local Open Scope Z. (*** Bit vector operations *) diff --git a/prover_snapshots/coq/lib/sail/Sail2_operators_bitlists.v b/prover_snapshots/coq/lib/sail/Operators_bitlists.v index dbd8215..85a01bf 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_operators_bitlists.v +++ b/prover_snapshots/coq/lib/sail/Operators_bitlists.v @@ -1,5 +1,5 @@ -Require Import Sail2_values. -Require Import Sail2_operators. +Require Import Sail.Values. +Require Import Sail.Operators. (* diff --git a/prover_snapshots/coq/lib/sail/Sail2_operators_mwords.v b/prover_snapshots/coq/lib/sail/Operators_mwords.v index 697bc4a..ccb3b1d 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_operators_mwords.v +++ b/prover_snapshots/coq/lib/sail/Operators_mwords.v @@ -1,13 +1,14 @@ -Require Import Sail2_values. -Require Import Sail2_operators. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. +Require Import Sail.Values. +Require Import Sail.Operators. +Require Import Sail.Prompt_monad. +Require Import Sail.Prompt. Require Import bbv.Word. Require bbv.BinNotation. Require Import Arith. Require Import ZArith. Require Import Omega. Require Import Eqdep_dec. +Local Open Scope Z. Fixpoint cast_positive (T : positive -> Type) (p q : positive) : T p -> p = q -> T q. refine ( @@ -43,11 +44,17 @@ destruct m. * simpl. rewrite cast_positive_refl. reflexivity. Qed. -Definition autocast {T : Z -> Type} {m n} (x : T m) `{H:ArithFact (m = n)} : T n := - cast_T x (use_ArithFact H). +Definition autocast {T : Z -> Type} {m n} (x : T m) `{H:ArithFact (m =? n)} : T n. +refine (cast_T x _). +apply Z.eqb_eq. +apply (use_ArithFact H). +Defined. -Definition autocast_m {rv e m n} (x : monad rv (mword m) e) `{H:ArithFact (m = n)} : monad rv (mword n) e := - x >>= fun x => returnm (cast_T x (use_ArithFact H)). +Definition autocast_m {rv e m n} (x : monad rv (mword m) e) `{H:ArithFact (m =? n)} : monad rv (mword n) e. +refine (x >>= fun x => returnm (cast_T x _)). +apply Z.eqb_eq. +apply (use_ArithFact H). +Defined. Definition cast_word {m n} (x : Word.word m) (eq : m = n) : Word.word n := DepEqNat.nat_cast _ eq x. @@ -94,9 +101,10 @@ Definition update_vec_inc {a} (w : mword a) i b : mword a := (*val update_vec_dec : forall 'a. Size 'a => mword 'a -> integer -> bitU -> mword 'a*) Definition update_vec_dec {a} (w : mword a) i b : mword a := opt_def w (update_mword_dec w i b). -Lemma subrange_lemma0 {n m o} `{ArithFact (0 <= o)} `{ArithFact (o <= m < n)} : (Z.to_nat o <= Z.to_nat m < Z.to_nat n)%nat. +Lemma subrange_lemma0 {n m o} `{ArithFact (0 <=? o)} `{ArithFact (o <=? m <? n)} : (Z.to_nat o <= Z.to_nat m < Z.to_nat n)%nat. intros. unwrap_ArithFacts. +unbool_comparisons. split. + apply Z2Nat.inj_le; omega. + apply Z2Nat.inj_lt; omega. @@ -107,9 +115,10 @@ Qed. Lemma subrange_lemma2 {n m o} : (o <= m < n -> m+1 = o+(m-o+1))%nat. omega. Qed. -Lemma subrange_lemma3 {n m o} `{ArithFact (0 <= o)} `{ArithFact (o <= m < n)} : +Lemma subrange_lemma3 {m o} `{ArithFact (0 <=? o)} `{ArithFact (o <=? m)} : Z.of_nat (Z.to_nat m - Z.to_nat o + 1)%nat = m - o + 1. unwrap_ArithFacts. +unbool_comparisons. rewrite Nat2Z.inj_add. rewrite Nat2Z.inj_sub. repeat rewrite Z2Nat.id; try omega. @@ -117,7 +126,7 @@ reflexivity. apply Z2Nat.inj_le; omega. Qed. -Definition subrange_vec_dec {n} (v : mword n) m o `{ArithFact (0 <= o)} `{ArithFact (o <= m < n)} : mword (m - o + 1) := +Definition subrange_vec_dec {n} (v : mword n) m o `{ArithFact (0 <=? o)} `{ArithFact (o <=? m <? n)} : mword (m - o + 1) := let n := Z.to_nat n in let m := Z.to_nat m in let o := Z.to_nat o in @@ -127,19 +136,55 @@ Definition subrange_vec_dec {n} (v : mword n) m o `{ArithFact (0 <= o)} `{ArithF (cast_word (split1 (m+1) (n-(m+1)) (cast_word w (subrange_lemma1 prf))) (subrange_lemma2 prf))) subrange_lemma3. -Definition subrange_vec_inc {n} (v : mword n) m o `{ArithFact (0 <= m)} `{ArithFact (m <= o < n)} : mword (o - m + 1) := autocast (subrange_vec_dec v (n-1-m) (n-1-o)). +Definition subrange_vec_inc {n} (v : mword n) m o `{ArithFact (0 <=? m)} `{ArithFact (m <=? o <? n)} : mword (o - m + 1) := autocast (subrange_vec_dec v (n-1-m) (n-1-o)). (* TODO: get rid of bogus default *) -Parameter dummy_vector : forall {n} `{ArithFact (n >= 0)}, mword n. +Parameter dummy_vector : forall {n} `{ArithFact (n >=? 0)}, mword n. (*val update_subrange_vec_inc : forall 'a 'b. Size 'a, Size 'b => mword 'a -> integer -> integer -> mword 'b -> mword 'a*) -Definition update_subrange_vec_inc {a b} (v : mword a) i j (w : mword b) : mword a := +Definition update_subrange_vec_inc_unchecked {a b} (v : mword a) i j (w : mword b) : mword a := opt_def dummy_vector (of_bits (update_subrange_bv_inc v i j w)). (*val update_subrange_vec_dec : forall 'a 'b. Size 'a, Size 'b => mword 'a -> integer -> integer -> mword 'b -> mword 'a*) -Definition update_subrange_vec_dec {a b} (v : mword a) i j (w : mword b) : mword a := +Definition update_subrange_vec_dec_unchecked {a b} (v : mword a) i j (w : mword b) : mword a := opt_def dummy_vector (of_bits (update_subrange_bv_dec v i j w)). +Lemma update_subrange_vec_dec_pf {o m n} : +ArithFact (0 <=? o) -> +ArithFact (o <=? m <? n) -> +Z.of_nat (Z.to_nat o + (Z.to_nat (m - o + 1) + (Z.to_nat n - (Z.to_nat m + 1)))) = n. +intros [H1] [H2]. +unbool_comparisons. +rewrite <- subrange_lemma3. +rewrite !Nat2Z.inj_add. +rewrite !Nat2Z.inj_sub. +rewrite Nat2Z.inj_add. +repeat rewrite Z2Nat.id; try omega. +rewrite Nat.add_1_r. +apply Z2Nat.inj_lt; omega. +apply Z2Nat.inj_le; omega. +Qed. + +Definition update_subrange_vec_dec {n} (v : mword n) m o `{ArithFact (0 <=? o)} `{ArithFact (o <=? m <? n)} (w : mword (m - o + 1)) : mword n. +refine ( + let n := Z.to_nat n in + let m := Z.to_nat m in + let o := Z.to_nat o in + let prf : (o <= m < n)%nat := subrange_lemma0 in + let v' := get_word v in + let w' := get_word w in + let x := + split1 o (m-o+1) + (cast_word (split1 (m+1) (n-(m+1)) (cast_word v' (subrange_lemma1 prf))) + (subrange_lemma2 prf)) in + let y := + split2 (m+1) (n-(m+1)) (cast_word v' (subrange_lemma1 prf)) in + let z := combine x (combine w' y) in + cast_to_mword z (update_subrange_vec_dec_pf _ _)). +Defined. + +Definition update_subrange_vec_inc {n} (v : mword n) m o `{ArithFact (0 <=? m)} `{ArithFact (m <=? o <? n)} (w : mword (o - m + 1)) : mword n := update_subrange_vec_dec v (n-1-m) (n-1-o) (autocast w). + Lemma mword_nonneg {a} : mword a -> a >= 0. destruct a; auto using Z.le_ge, Zle_0_pos with zarith. @@ -147,9 +192,10 @@ destruct 1. Qed. (*val extz_vec : forall 'a 'b. Size 'a, Size 'b => integer -> mword 'a -> mword 'b*) -Definition extz_vec {a b} `{ArithFact (b >= a)} (n : Z) (v : mword a) : mword b. +Definition extz_vec {a b} `{ArithFact (b >=? a)} (n : Z) (v : mword a) : mword b. refine (cast_to_mword (Word.zext (get_word v) (Z.to_nat (b - a))) _). unwrap_ArithFacts. +unbool_comparisons. assert (a >= 0). { apply mword_nonneg. assumption. } rewrite <- Z2Nat.inj_add; try omega. rewrite Zplus_minus. @@ -158,9 +204,10 @@ auto with zarith. Defined. (*val exts_vec : forall 'a 'b. Size 'a, Size 'b => integer -> mword 'a -> mword 'b*) -Definition exts_vec {a b} `{ArithFact (b >= a)} (n : Z) (v : mword a) : mword b. +Definition exts_vec {a b} `{ArithFact (b >=? a)} (n : Z) (v : mword a) : mword b. refine (cast_to_mword (Word.sext (get_word v) (Z.to_nat (b - a))) _). unwrap_ArithFacts. +unbool_comparisons. assert (a >= 0). { apply mword_nonneg. assumption. } rewrite <- Z2Nat.inj_add; try omega. rewrite Zplus_minus. @@ -168,13 +215,14 @@ apply Z2Nat.id. auto with zarith. Defined. -Definition zero_extend {a} (v : mword a) (n : Z) `{ArithFact (n >= a)} : mword n := extz_vec n v. +Definition zero_extend {a} (v : mword a) (n : Z) `{ArithFact (n >=? a)} : mword n := extz_vec n v. -Definition sign_extend {a} (v : mword a) (n : Z) `{ArithFact (n >= a)} : mword n := exts_vec n v. +Definition sign_extend {a} (v : mword a) (n : Z) `{ArithFact (n >=? a)} : mword n := exts_vec n v. -Definition zeros (n : Z) `{ArithFact (n >= 0)} : mword n. +Definition zeros (n : Z) `{ArithFact (n >=? 0)} : mword n. refine (cast_to_mword (Word.wzero (Z.to_nat n)) _). unwrap_ArithFacts. +unbool_comparisons. apply Z2Nat.id. auto with zarith. Defined. @@ -192,11 +240,17 @@ assert ((Z.to_nat m <= Z.to_nat n)%nat). omega. Qed. -Definition vector_truncate {n} (v : mword n) (m : Z) `{ArithFact (m >= 0)} `{ArithFact (m <= n)} : mword m := - cast_to_mword (Word.split1 _ _ (cast_word (get_word v) (ltac:(unwrap_ArithFacts; apply truncate_eq; auto) : Z.to_nat n = Z.to_nat m + (Z.to_nat n - Z.to_nat m))%nat)) (ltac:(unwrap_ArithFacts; apply Z2Nat.id; omega) : Z.of_nat (Z.to_nat m) = m). +Definition vector_truncate {n} (v : mword n) (m : Z) `{ArithFact (m >=? 0)} `{ArithFact (m <=? n)} : mword m. +refine (cast_to_mword (Word.split1 _ _ (cast_word (get_word v) (_ : Z.to_nat n = Z.to_nat m + (Z.to_nat n - Z.to_nat m))%nat)) (_ : Z.of_nat (Z.to_nat m) = m)). +abstract (unwrap_ArithFacts; unbool_comparisons; apply truncate_eq; auto with zarith). +abstract (unwrap_ArithFacts; unbool_comparisons; apply Z2Nat.id; omega). +Defined. -Definition vector_truncateLSB {n} (v : mword n) (m : Z) `{ArithFact (m >= 0)} `{ArithFact (m <= n)} : mword m := - cast_to_mword (Word.split2 _ _ (cast_word (get_word v) (ltac:(unwrap_ArithFacts; apply truncateLSB_eq; auto) : Z.to_nat n = (Z.to_nat n - Z.to_nat m) + Z.to_nat m)%nat)) (ltac:(unwrap_ArithFacts; apply Z2Nat.id; omega) : Z.of_nat (Z.to_nat m) = m). +Definition vector_truncateLSB {n} (v : mword n) (m : Z) `{ArithFact (m >=? 0)} `{ArithFact (m <=? n)} : mword m. +refine (cast_to_mword (Word.split2 _ _ (cast_word (get_word v) (_ : Z.to_nat n = (Z.to_nat n - Z.to_nat m) + Z.to_nat m)%nat)) (_ : Z.of_nat (Z.to_nat m) = m)). +abstract (unwrap_ArithFacts; unbool_comparisons; apply truncateLSB_eq; auto with zarith). +abstract (unwrap_ArithFacts; unbool_comparisons; apply Z2Nat.id; omega). +Defined. Lemma concat_eq {a b} : a >= 0 -> b >= 0 -> Z.of_nat (Z.to_nat b + Z.to_nat a)%nat = a + b. intros. @@ -235,13 +289,18 @@ induction n. reflexivity. Qed. -Program Definition uint {a} (x : mword a) : {z : Z & ArithFact (0 <= z /\ z <= 2 ^ a - 1)} := - existT _ (Z.of_N (Word.wordToN (get_word x))) _. +Definition uint_plain {a} (x : mword a) : Z := + Z.of_N (Word.wordToN (get_word x)). + +Program Definition uint {a} (x : mword a) : {z : Z & ArithFact (0 <=? z <=? 2 ^ a - 1)} := + existT _ (uint_plain x) _. Next Obligation. constructor. +apply Bool.andb_true_iff. constructor. -* apply N2Z.is_nonneg. -* assert (2 ^ a - 1 = Z.of_N (2 ^ (Z.to_N a) - 1)). { +* apply Z.leb_le. apply N2Z.is_nonneg. +* apply Z.leb_le. + assert (2 ^ a - 1 = Z.of_N (2 ^ (Z.to_N a) - 1)). { rewrite N2Z.inj_sub. * rewrite N2Z.inj_pow. rewrite Z2N.id; auto. @@ -268,12 +327,18 @@ induction n. rewrite Z.pow_succ_r; auto with zarith. Qed. -Program Definition sint {a} `{ArithFact (a > 0)} (x : mword a) : {z : Z & ArithFact (-(2^(a-1)) <= z /\ z <= 2 ^ (a-1) - 1)} := - existT _ (Word.wordToZ (get_word x)) _. +Definition sint_plain {a} (x : mword a) : Z := + Word.wordToZ (get_word x). + +Program Definition sint {a} `{ArithFact (a >? 0)} (x : mword a) : {z : Z & ArithFact (-(2^(a-1)) <=? z <=? 2 ^ (a-1) - 1)} := + existT _ (sint_plain x) _. Next Obligation. +unfold sint_plain. destruct H. +unbool_comparisons. destruct a; try inversion fact. constructor. +unbool_comparisons_goal. generalize (get_word x). rewrite <- positive_nat_Z. destruct (Pos2Nat.is_succ p) as [n eq]. @@ -291,10 +356,10 @@ rewrite <- Z.lt_le_pred. auto. Defined. -Definition sint0 {a} `{ArithFact (a >= 0)} (x : mword a) : Z := +Definition sint0 {a} `{ArithFact (a >=? 0)} (x : mword a) : Z := if sumbool_of_bool (Z.eqb a 0) then 0 else projT1 (sint x). -Lemma length_list_pos : forall {A} {l:list A}, length_list l >= 0. +Lemma length_list_pos : forall {A} {l:list A}, 0 <= Z.of_nat (List.length l). unfold length_list. auto with zarith. Qed. @@ -334,9 +399,9 @@ val smult_vec : forall 'a 'b. Size 'a, Size 'b => mword 'a -> mword 'a -> mword Definition add_vec {n} : mword n -> mword n -> mword n := word_binop Word.wplus. (*Definition sadd_vec {n} : mword n -> mword n -> mword n := sadd_bv w.*) Definition sub_vec {n} : mword n -> mword n -> mword n := word_binop Word.wminus. -Definition mult_vec {n m} `{ArithFact (m >= n)} (l : mword n) (r : mword n) : mword m := +Definition mult_vec {n m} `{ArithFact (m >=? n)} (l : mword n) (r : mword n) : mword m := word_binop Word.wmult (zero_extend l _) (zero_extend r _). -Definition mults_vec {n m} `{ArithFact (m >= n)} (l : mword n) (r : mword n) : mword m := +Definition mults_vec {n m} `{ArithFact (m >=? n)} (l : mword n) (r : mword n) : mword m := word_binop Word.wmult (sign_extend l _) (sign_extend r _). (*val add_vec_int : forall 'a. Size 'a => mword 'a -> integer -> mword 'a @@ -421,14 +486,14 @@ match n with | O => Word.WO | S m => Word.combine w (replicate_bits_aux w m) end. -Lemma replicate_ok {n a} `{ArithFact (n >= 0)} `{ArithFact (a >= 0)} : +Lemma replicate_ok {n a} `{ArithFact (n >=? 0)} `{ArithFact (a >=? 0)} : Z.of_nat (Z.to_nat n * Z.to_nat a) = a * n. -destruct H. destruct H0. +destruct H. destruct H0. unbool_comparisons. rewrite <- Z2Nat.id; auto with zarith. rewrite Z2Nat.inj_mul; auto with zarith. rewrite Nat.mul_comm. reflexivity. Qed. -Definition replicate_bits {a} (w : mword a) (n : Z) `{ArithFact (n >= 0)} : mword (a * n) := +Definition replicate_bits {a} (w : mword a) (n : Z) `{ArithFact (n >=? 0)} : mword (a * n) := cast_to_mword (replicate_bits_aux (get_word w) (Z.to_nat n)) replicate_ok. (*val duplicate : forall 'a. Size 'a => bitU -> integer -> mword 'a @@ -456,6 +521,28 @@ Definition ugteq_vec := ugteq_bv. Definition sgteq_vec := sgteq_bv. *) +Lemma eq_vec_true_iff {n} (v w : mword n) : + eq_vec v w = true <-> v = w. +unfold eq_vec. +destruct n. +* simpl in v,w. shatter_word v. shatter_word w. + compute. intuition. +* simpl in *. destruct (weq v w). + + subst. rewrite weqb_eq; tauto. + + rewrite weqb_ne; auto. intuition. +* destruct v. +Qed. + +Lemma eq_vec_false_iff {n} (v w : mword n) : + eq_vec v w = false <-> v <> w. +specialize (eq_vec_true_iff v w). +destruct (eq_vec v w). +intuition. +intros [H1 H2]. +split. +* intros _ EQ. intuition. +* auto. +Qed. Definition eq_vec_dec {n} : forall (x y : mword n), {x = y} + {x <> y}. refine (match n with @@ -485,10 +572,10 @@ Qed. Definition reverse_endianness {n} (bits : mword n) := with_word (P := id) reverse_endianness_word bits. -Definition get_slice_int {a} `{ArithFact (a >= 0)} : Z -> Z -> Z -> mword a := get_slice_int_bv. +Definition get_slice_int {a} `{ArithFact (a >=? 0)} : Z -> Z -> Z -> mword a := get_slice_int_bv. Definition set_slice n m (v : mword n) x (w : mword m) : mword n := - update_subrange_vec_dec v (x + m - 1) x w. + update_subrange_vec_dec_unchecked v (x + m - 1) x w. Definition set_slice_int len n lo (v : mword len) : Z := let hi := lo + len - 1 in @@ -496,11 +583,11 @@ Definition set_slice_int len n lo (v : mword len) : Z := avoid one here. *) if sumbool_of_bool (Z.gtb hi 0) then let bs : mword (hi + 1) := mword_of_int n in - (int_of_mword true (update_subrange_vec_dec bs hi lo v)) + (int_of_mword true (update_subrange_vec_dec_unchecked bs hi lo v)) else n. (* Variant of bitvector slicing for the ARM model with few constraints *) -Definition slice {m} (v : mword m) lo len `{ArithFact (0 <= len)} : mword len := +Definition slice {m} (v : mword m) lo len `{ArithFact (0 <=? len)} : mword len := if sumbool_of_bool (orb (len =? 0) (lo <? 0)) then zeros len else @@ -510,7 +597,6 @@ Definition slice {m} (v : mword m) lo len `{ArithFact (0 <= len)} : mword len := else zeros len else autocast (subrange_vec_dec v (lo + len - 1) lo). -(* Lemma slice_is_ok m (v : mword m) lo len (H1 : 0 <= lo) (H2 : 0 < len) (H3: lo + len < m) : slice v lo len = autocast (subrange_vec_dec v (lo + len - 1) lo). @@ -523,20 +609,20 @@ destruct (sumbool_of_bool _). + exfalso. unbool_comparisons. omega. - + f_equal. - f_equal. -*) + + repeat replace_ArithFact_proof. + reflexivity. +Qed. Import ListNotations. -Definition count_leading_zeros {N : Z} (x : mword N) `{ArithFact (N >= 1)} -: {n : Z & ArithFact (0 <= n /\ n <= N)} := - let r : {n : Z & ArithFact (0 <= n /\ n <= N)} := build_ex N in +Definition count_leading_zeros {N : Z} (x : mword N) `{ArithFact (N >=? 1)} +: {n : Z & ArithFact (0 <=? n <=? N)} := + let r : {n : Z & ArithFact (0 <=? n <=? N)} := build_ex N in foreach_Z_up 0 (N - 1) 1 r (fun i _ r => (if ((eq_vec (vec_of_bits [access_vec_dec x i] : mword 1) (vec_of_bits [B1] : mword 1))) then build_ex (Z.sub (Z.sub (length_mword x) i) 1) - : {n : Z & ArithFact (0 <= n /\ n <= N)} + : {n : Z & ArithFact (0 <=? n <=? N)} else r)) . diff --git a/prover_snapshots/coq/lib/sail/Sail2_prompt.v b/prover_snapshots/coq/lib/sail/Prompt.v index 79bf87e..718b2f4 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_prompt.v +++ b/prover_snapshots/coq/lib/sail/Prompt.v @@ -1,9 +1,9 @@ -(*Require Import Sail_impl_base*) -Require Import Sail2_values. -Require Import Sail2_prompt_monad. +Require Import Sail.Values. +Require Import Sail.Prompt_monad. Require Export ZArith.Zwf. Require Import List. Import ListNotations. +Local Open Scope Z. (* val iter_aux : forall 'rv 'a 'e. integer -> (integer -> 'a -> monad 'rv unit 'e) -> list 'a -> monad 'rv unit 'e @@ -30,25 +30,29 @@ match l with foreachM xs vars body end. -Fixpoint foreach_ZM_up' {rv e Vars} from to step off n `{ArithFact (0 < step)} `{ArithFact (0 <= off)} (vars : Vars) (body : forall (z : Z) `(ArithFact (from <= z <= to)), Vars -> monad rv Vars e) {struct n} : monad rv Vars e := +Fixpoint foreach_ZM_up' {rv e Vars} (from to step off : Z) (n : nat) `{ArithFact (0 <? step)} `{ArithFact (0 <=? off)} (vars : Vars) (body : forall (z : Z) `(ArithFact (from <=? z <=? to)), Vars -> monad rv Vars e) {struct n} : monad rv Vars e. +exact ( if sumbool_of_bool (from + off <=? to) then match n with | O => returnm vars - | S n => body (from + off) _ vars >>= fun vars => foreach_ZM_up' from to step (off + step) n vars body + | S n => body (from + off) _ vars >>= fun vars => foreach_ZM_up' rv e Vars from to step (off + step) n _ _ vars body end - else returnm vars. + else returnm vars). +Defined. -Fixpoint foreach_ZM_down' {rv e Vars} from to step off n `{ArithFact (0 < step)} `{ArithFact (off <= 0)} (vars : Vars) (body : forall (z : Z) `(ArithFact (to <= z <= from)), Vars -> monad rv Vars e) {struct n} : monad rv Vars e := +Fixpoint foreach_ZM_down' {rv e Vars} (from to step off : Z) (n : nat) `{ArithFact (0 <? step)} `{ArithFact (off <=? 0)} (vars : Vars) (body : forall (z : Z) `(ArithFact (to <=? z <=? from)), Vars -> monad rv Vars e) {struct n} : monad rv Vars e. +exact ( if sumbool_of_bool (to <=? from + off) then match n with | O => returnm vars - | S n => body (from + off) _ vars >>= fun vars => foreach_ZM_down' from to step (off - step) n vars body + | S n => body (from + off) _ vars >>= fun vars => foreach_ZM_down' _ _ _ from to step (off - step) n _ _ vars body end - else returnm vars. + else returnm vars). +Defined. -Definition foreach_ZM_up {rv e Vars} from to step vars body `{ArithFact (0 < step)} := +Definition foreach_ZM_up {rv e Vars} from to step vars body `{ArithFact (0 <? step)} := foreach_ZM_up' (rv := rv) (e := e) (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. -Definition foreach_ZM_down {rv e Vars} from to step vars body `{ArithFact (0 < step)} := +Definition foreach_ZM_down {rv e Vars} from to step vars body `{ArithFact (0 <? step)} := foreach_ZM_down' (rv := rv) (e := e) (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. (*declare {isabelle} termination_argument foreachM = automatic*) @@ -61,37 +65,74 @@ Definition genlistM {A RV E} (f : nat -> monad RV A E) (n : nat) : monad RV (lis Definition and_boolM {rv E} (l : monad rv bool E) (r : monad rv bool E) : monad rv bool E := l >>= (fun l => if l then r else returnm false). -Definition and_boolMP {rv E} {P Q R:bool->Prop} (x : monad rv {b:bool & ArithFact (P b)} E) (y : monad rv {b:bool & ArithFact (Q b)} E) - `{H:ArithFact (forall l r, P l -> (l = true -> Q r) -> R (andb l r))} - : monad rv {b:bool & ArithFact (R b)} E. -refine ( - x >>= fun '(existT _ x (Build_ArithFact _ p)) => (if x return P x -> _ then - fun p => y >>= fun '(existT _ y _) => returnm (existT _ y _) - else fun p => returnm (existT _ false _)) p -). -* constructor. destruct H. destruct a0. change y with (andb true y). auto. -* constructor. destruct H. change false with (andb false false). apply fact. - assumption. - congruence. -Defined. +(* We introduce explicit definitions for these proofs so that they can be used in + the state monad and program logic rules. They are not currently used in the proof + rules because it was more convenient to quantify over them instead. *) +Definition and_bool_left_proof {P Q R:bool -> Prop} : + ArithFactP (P false) -> + (forall l r, ArithFactP (P l -> ((l = true -> (Q r)) -> (R (andb l r))))) -> + ArithFactP (R false). +intros [p] [h]. +constructor. +change false with (andb false false). +apply h; auto. +congruence. +Qed. + +Definition and_bool_full_proof {P Q R:bool -> Prop} {r} : + ArithFactP (P true) -> + ArithFactP (Q r) -> + (forall l r, ArithFactP ((P l) -> ((l = true -> (Q r)) -> (R (andb l r))))) -> + ArithFactP (R r). +intros [p] [q] [h]. +constructor. +change r with (andb true r). +apply h; auto. +Qed. + +Definition and_boolMP {rv E} {P Q R:bool->Prop} (x : monad rv {b:bool & ArithFactP (P b)} E) (y : monad rv {b:bool & ArithFactP (Q b)} E) + `{H:forall l r, ArithFactP ((P l) -> ((l = true -> (Q r)) -> (R (andb l r))))} + : monad rv {b:bool & ArithFactP (R b)} E := + x >>= fun '(existT _ x p) => (if x return ArithFactP (P x) -> _ then + fun p => y >>= fun '(existT _ y q) => returnm (existT _ y (and_bool_full_proof p q H)) + else fun p => returnm (existT _ false (and_bool_left_proof p H))) p. (*val or_boolM : forall 'rv 'e. monad 'rv bool 'e -> monad 'rv bool 'e -> monad 'rv bool 'e*) Definition or_boolM {rv E} (l : monad rv bool E) (r : monad rv bool E) : monad rv bool E := l >>= (fun l => if l then returnm true else r). -Definition or_boolMP {rv E} {P Q R:bool -> Prop} (l : monad rv {b : bool & ArithFact (P b)} E) (r : monad rv {b : bool & ArithFact (Q b)} E) - `{ArithFact (forall l r, P l -> (l = false -> Q r) -> R (orb l r))} - : monad rv {b : bool & ArithFact (R b)} E. -refine ( - l >>= fun '(existT _ l (Build_ArithFact _ p)) => - (if l return P l -> _ then fun p => returnm (existT _ true _) - else fun p => r >>= fun '(existT _ r _) => returnm (existT _ r _)) p -). -* constructor. destruct H. change true with (orb true true). apply fact. assumption. congruence. -* constructor. destruct H. destruct a0. change r with (orb false r). auto. -Defined. -Definition build_trivial_ex {rv E} {T:Type} (x:monad rv T E) : monad rv {x : T & ArithFact True} E := - x >>= fun x => returnm (existT _ x (Build_ArithFact _ I)). + +Definition or_bool_left_proof {P Q R:bool -> Prop} : + ArithFactP (P true) -> + (forall l r, ArithFactP ((P l) -> (((l = false) -> (Q r)) -> (R (orb l r))))) -> + ArithFactP (R true). +intros [p] [h]. +constructor. +change true with (orb true false). +apply h; auto. +congruence. +Qed. + +Definition or_bool_full_proof {P Q R:bool -> Prop} {r} : + ArithFactP (P false) -> + ArithFactP (Q r) -> + (forall l r, ArithFactP ((P l) -> (((l = false) -> (Q r)) -> (R (orb l r))))) -> + ArithFactP (R r). +intros [p] [q] [h]. +constructor. +change r with (orb false r). +apply h; auto. +Qed. + +Definition or_boolMP {rv E} {P Q R:bool -> Prop} (l : monad rv {b : bool & ArithFactP (P b)} E) (r : monad rv {b : bool & ArithFactP (Q b)} E) + `{forall l r, ArithFactP ((P l) -> (((l = false) -> (Q r)) -> (R (orb l r))))} + : monad rv {b : bool & ArithFactP (R b)} E := + l >>= fun '(existT _ l p) => + (if l return ArithFactP (P l) -> _ then fun p => returnm (existT _ true (or_bool_left_proof p H)) + else fun p => r >>= fun '(existT _ r q) => returnm (existT _ r (or_bool_full_proof p q H))) p. + +Definition build_trivial_ex {rv E} {T:Type} (x:monad rv T E) : monad rv {x : T & ArithFact true} E := + x >>= fun x => returnm (existT _ x (Build_ArithFactP _ eq_refl)). (*val bool_of_bitU_fail : forall 'rv 'e. bitU -> monad 'rv bool 'e*) Definition bool_of_bitU_fail {rv E} (b : bitU) : monad rv bool E := @@ -101,19 +142,32 @@ match b with | BU => Fail "bool_of_bitU" end. -(*val bool_of_bitU_oracle : forall 'rv 'e. bitU -> monad 'rv bool 'e*) -Definition bool_of_bitU_oracle {rv E} (b : bitU) : monad rv bool E := +Definition bool_of_bitU_nondet {rv E} (b : bitU) : monad rv bool E := match b with | B0 => returnm false | B1 => returnm true - | BU => undefined_bool tt + | BU => choose_bool "bool_of_bitU" end. +Definition bools_of_bits_nondet {rv E} (bits : list bitU) : monad rv (list bool) E := + foreachM bits [] + (fun b bools => + bool_of_bitU_nondet b >>= fun b => + returnm (bools ++ [b])). + +Definition of_bits_nondet {rv A E} `{Bitvector A} (bits : list bitU) : monad rv A E := + bools_of_bits_nondet bits >>= fun bs => + returnm (of_bools bs). + +Definition of_bits_fail {rv A E} `{Bitvector A} (bits : list bitU) : monad rv A E := + maybe_fail "of_bits" (of_bits bits). + (* For termination of recursive functions. We don't name assertions, so use the type class mechanism to find it. *) -Definition _limit_reduces {_limit} (_acc:Acc (Zwf 0) _limit) `{ArithFact (_limit >= 0)} : Acc (Zwf 0) (_limit - 1). +Definition _limit_reduces {_limit} (_acc:Acc (Zwf 0) _limit) `{ArithFact (_limit >=? 0)} : Acc (Zwf 0) (_limit - 1). refine (Acc_inv _acc _). destruct H. +unbool_comparisons. red. omega. Defined. @@ -141,13 +195,15 @@ Definition Zwf_guarded (z:Z) : Acc (Zwf 0) z := (*val whileM : forall 'rv 'vars 'e. 'vars -> ('vars -> monad 'rv bool 'e) -> ('vars -> monad 'rv 'vars 'e) -> monad 'rv 'vars 'e*) -Fixpoint whileMT' {RV Vars E} limit (vars : Vars) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) (acc : Acc (Zwf 0) limit) : monad RV Vars E := +Fixpoint whileMT' {RV Vars E} limit (vars : Vars) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) (acc : Acc (Zwf 0) limit) : monad RV Vars E. +exact ( if Z_ge_dec limit 0 then cond vars >>= fun cond_val => if cond_val then - body vars >>= fun vars => whileMT' (limit - 1) vars cond body (_limit_reduces acc) + body vars >>= fun vars => whileMT' _ _ _ (limit - 1) vars cond body (_limit_reduces acc) else returnm vars - else Fail "Termination limit reached". + else Fail "Termination limit reached"). +Defined. Definition whileMT {RV Vars E} (vars : Vars) (measure : Vars -> Z) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) : monad RV Vars E := let limit := measure vars in @@ -155,12 +211,14 @@ Definition whileMT {RV Vars E} (vars : Vars) (measure : Vars -> Z) (cond : Vars (*val untilM : forall 'rv 'vars 'e. 'vars -> ('vars -> monad 'rv bool 'e) -> ('vars -> monad 'rv 'vars 'e) -> monad 'rv 'vars 'e*) -Fixpoint untilMT' {RV Vars E} limit (vars : Vars) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) (acc : Acc (Zwf 0) limit) : monad RV Vars E := +Fixpoint untilMT' {RV Vars E} limit (vars : Vars) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) (acc : Acc (Zwf 0) limit) : monad RV Vars E. +exact ( if Z_ge_dec limit 0 then body vars >>= fun vars => cond vars >>= fun cond_val => - if cond_val then returnm vars else untilMT' (limit - 1) vars cond body (_limit_reduces acc) - else Fail "Termination limit reached". + if cond_val then returnm vars else untilMT' _ _ _ (limit - 1) vars cond body (_limit_reduces acc) + else Fail "Termination limit reached"). +Defined. Definition untilMT {RV Vars E} (vars : Vars) (measure : Vars -> Z) (cond : Vars -> monad RV bool E) (body : Vars -> monad RV Vars E) : monad RV Vars E := let limit := measure vars in @@ -212,18 +270,18 @@ Fixpoint undefined_word_nat {rv e} n : monad rv (Word.word n) e := returnm (Word.WS b t) end. -Definition undefined_bitvector {rv e} n `{ArithFact (n >= 0)} : monad rv (mword n) e := +Definition undefined_bitvector {rv e} n `{ArithFact (n >=? 0)} : monad rv (mword n) e := undefined_word_nat (Z.to_nat n) >>= fun w => returnm (word_to_mword w). (* If we need to build an existential after a monadic operation, assume that we can do it entirely from the type. *) -Definition build_ex_m {rv e} {T:Type} (x:monad rv T e) {P:T -> Prop} `{H:forall x, ArithFact (P x)} : monad rv {x : T & ArithFact (P x)} e := +Definition build_ex_m {rv e} {T:Type} (x:monad rv T e) {P:T -> Prop} `{H:forall x, ArithFactP (P x)} : monad rv {x : T & ArithFactP (P x)} e := x >>= fun y => returnm (existT _ y (H y)). Definition projT1_m {rv e} {T:Type} {P:T -> Prop} (x: monad rv {x : T & P x} e) : monad rv T e := x >>= fun y => returnm (projT1 y). -Definition derive_m {rv e} {T:Type} {P Q:T -> Prop} (x : monad rv {x : T & P x} e) `{forall x, ArithFact (P x) -> ArithFact (Q x)} : monad rv {x : T & (ArithFact (Q x))} e := +Definition derive_m {rv e} {T:Type} {P Q:T -> Prop} (x : monad rv {x : T & ArithFactP (P x)} e) `{forall x, ArithFactP (P x) -> ArithFactP (Q x)} : monad rv {x : T & (ArithFactP (Q x))} e := x >>= fun y => returnm (build_ex (projT1 y)). diff --git a/prover_snapshots/coq/lib/sail/Sail2_prompt_monad.v b/prover_snapshots/coq/lib/sail/Prompt_monad.v index b26a2ff..ddd40cd 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_prompt_monad.v +++ b/prover_snapshots/coq/lib/sail/Prompt_monad.v @@ -1,9 +1,10 @@ Require Import String. (*Require Import Sail_impl_base*) -Require Import Sail2_instr_kinds. -Require Import Sail2_values. +Require Import Sail.Instr_kinds. +Require Import Sail.Values. Require bbv.Word. Import ListNotations. +Local Open Scope Z. Definition register_name := string. Definition address := list bitU. @@ -189,7 +190,7 @@ Definition read_memt_bytes {rv A E} rk (addr : mword A) sz : monad rv (list memo Read_memt rk (Word.wordToNat (get_word addr)) (Z.to_nat sz) returnm. (*val read_memt : forall 'rv 'a 'b 'e. Bitvector 'a, Bitvector 'b => read_kind -> 'a -> integer -> monad 'rv ('b * bitU) 'e*) -Definition read_memt {rv A B E} `{ArithFact (B >= 0)} rk (addr : mword A) sz : monad rv (mword B * bitU) E := +Definition read_memt {rv A B E} `{ArithFact (B >=? 0)} rk (addr : mword A) sz : monad rv (mword B * bitU) E := bind (read_memt_bytes rk addr sz) (fun '(bytes, tag) => @@ -203,7 +204,7 @@ Definition read_mem_bytes {rv A E} rk (addr : mword A) sz : monad rv (list memor Read_mem rk (Word.wordToNat (get_word addr)) (Z.to_nat sz) returnm. (*val read_mem : forall 'rv 'a 'b 'e. Bitvector 'a, Bitvector 'b => read_kind -> 'a -> integer -> monad 'rv 'b 'e*) -Definition read_mem {rv A B E} `{ArithFact (B >= 0)} rk (addrsz : Z) (addr : mword A) sz : monad rv (mword B) E := +Definition read_mem {rv A B E} `{ArithFact (B >=? 0)} rk (addrsz : Z) (addr : mword A) sz : monad rv (mword B) E := bind (read_mem_bytes rk addr sz) (fun bytes => diff --git a/prover_snapshots/coq/lib/sail/Real.v b/prover_snapshots/coq/lib/sail/Real.v new file mode 100644 index 0000000..a2da0e7 --- /dev/null +++ b/prover_snapshots/coq/lib/sail/Real.v @@ -0,0 +1,108 @@ +Require Export Rbase. +Require Import Reals. +Require Export ROrderedType. +Require Import Sail.Values. +Local Open Scope Z. + +(* "Decidable" in a classical sense... *) +Instance Decidable_eq_real : forall (x y : R), Decidable (x = y) := + Decidable_eq_from_dec Req_dec. + +Definition realFromFrac (num denom : Z) : R := Rdiv (IZR num) (IZR denom). + +Definition neg_real := Ropp. +Definition mult_real := Rmult. +Definition sub_real := Rminus. +Definition add_real := Rplus. +Definition div_real := Rdiv. +Definition sqrt_real := sqrt. +Definition abs_real := Rabs. + +(* Use flocq definitions, but without making the whole library a dependency. *) +Definition round_down (x : R) := (up x - 1)%Z. +Definition round_up (x : R) := (- round_down (- x))%Z. + +Definition to_real := IZR. + +Definition eq_real := Reqb. +Definition gteq_real (x y : R) : bool := if Rge_dec x y then true else false. +Definition lteq_real (x y : R) : bool := if Rle_dec x y then true else false. +Definition gt_real (x y : R) : bool := if Rgt_dec x y then true else false. +Definition lt_real (x y : R) : bool := if Rlt_dec x y then true else false. + +(* Export select definitions from outside of Rbase *) +Definition pow_real := powerRZ. + +Definition print_real (_ : string) (_ : R) : unit := tt. +Definition prerr_real (_ : string) (_ : R) : unit := tt. + + + + +Lemma IZRdiv m n : + 0 < m -> 0 < n -> + (IZR (m / n) <= IZR m / IZR n)%R. +intros. +apply Rmult_le_reg_l with (r := IZR n). +auto using IZR_lt. +unfold Rdiv. +rewrite <- Rmult_assoc. +rewrite Rinv_r_simpl_m. +rewrite <- mult_IZR. +apply IZR_le. +apply Z.mul_div_le. +assumption. +discrR. +omega. +Qed. + +(* One annoying use of reals in the ARM spec I've been looking at. *) +Lemma round_up_div m n : + 0 < m -> 0 < n -> + round_up (div_real (to_real m) (to_real n)) = (m + n - 1) / n. +intros. +unfold round_up, round_down, div_real, to_real. +apply Z.eq_opp_l. +apply Z.sub_move_r. +symmetry. +apply up_tech. + +rewrite Ropp_Ropp_IZR. +apply Ropp_le_contravar. +apply Rmult_le_reg_l with (r := IZR n). +auto using IZR_lt. +unfold Rdiv. +rewrite <- Rmult_assoc. +rewrite Rinv_r_simpl_m. +rewrite <- mult_IZR. +apply IZR_le. +assert (diveq : n*((m+n-1)/n) = (m+n-1) - (m+n-1) mod n). +apply Zplus_minus_eq. +rewrite (Z.add_comm ((m+n-1) mod n)). +apply Z.div_mod. +omega. +rewrite diveq. +assert (modmax : (m+n-1) mod n < n). +specialize (Z.mod_pos_bound (m+n-1) n). intuition. +omega. + +discrR; omega. + +rewrite <- Z.opp_sub_distr. +rewrite Ropp_Ropp_IZR. +apply Ropp_lt_contravar. +apply Rmult_lt_reg_l with (r := IZR n). +auto using IZR_lt. +unfold Rdiv. +rewrite <- Rmult_assoc. +rewrite Rinv_r_simpl_m. +2: { discrR. omega. } +rewrite <- mult_IZR. +apply IZR_lt. +rewrite Z.mul_sub_distr_l. +apply Z.le_lt_trans with (m := m+n-1-n*1). +apply Z.sub_le_mono_r. +apply Z.mul_div_le. +assumption. +omega. +Qed. diff --git a/prover_snapshots/coq/lib/sail/Sail2_real.v b/prover_snapshots/coq/lib/sail/Sail2_real.v deleted file mode 100644 index 494e36d..0000000 --- a/prover_snapshots/coq/lib/sail/Sail2_real.v +++ /dev/null @@ -1,36 +0,0 @@ -Require Export Rbase. -Require Import Reals. -Require Export ROrderedType. -Require Import Sail2_values. - -(* "Decidable" in a classical sense... *) -Instance Decidable_eq_real : forall (x y : R), Decidable (x = y) := - Decidable_eq_from_dec Req_dec. - -Definition realFromFrac (num denom : Z) : R := Rdiv (IZR num) (IZR denom). - -Definition neg_real := Ropp. -Definition mult_real := Rmult. -Definition sub_real := Rminus. -Definition add_real := Rplus. -Definition div_real := Rdiv. -Definition sqrt_real := sqrt. -Definition abs_real := Rabs. - -(* Use flocq definitions, but without making the whole library a dependency. *) -Definition round_down (x : R) := (up x - 1)%Z. -Definition round_up (x : R) := (- round_down (- x))%Z. - -Definition to_real := IZR. - -Definition eq_real := Reqb. -Definition gteq_real (x y : R) : bool := if Rge_dec x y then true else false. -Definition lteq_real (x y : R) : bool := if Rle_dec x y then true else false. -Definition gt_real (x y : R) : bool := if Rgt_dec x y then true else false. -Definition lt_real (x y : R) : bool := if Rlt_dec x y then true else false. - -(* Export select definitions from outside of Rbase *) -Definition pow_real := powerRZ. - -Definition print_real (_ : string) (_ : R) : unit := tt. -Definition prerr_real (_ : string) (_ : R) : unit := tt. diff --git a/prover_snapshots/coq/lib/sail/Sail2_state.v b/prover_snapshots/coq/lib/sail/State.v index dc635cb..a0b2113 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_state.v +++ b/prover_snapshots/coq/lib/sail/State.v @@ -1,9 +1,9 @@ -(*Require Import Sail_impl_base*) -Require Import Sail2_values. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state_monad. +Require Import Sail.Values. +Require Import Sail.Prompt_monad. +Require Import Sail.Prompt. +Require Import Sail.State_monad. Import ListNotations. +Local Open Scope Z. (*val iterS_aux : forall 'rv 'a 'e. integer -> (integer -> 'a -> monadS 'rv unit 'e) -> list 'a -> monadS 'rv unit 'e*) Fixpoint iterS_aux {RV A E} i (f : Z -> A -> monadS RV unit E) (xs : list A) := @@ -30,6 +30,33 @@ Fixpoint foreachS {A RV Vars E} (xs : list A) (vars : Vars) (body : A -> Vars -> foreachS xs vars body end. +Fixpoint foreach_ZS_up' {rv e Vars} (from to step off : Z) (n : nat) `{ArithFact (0 <? step)} `{ArithFact (0 <=? off)} (vars : Vars) (body : forall (z : Z) `(ArithFact (from <=? z <=? to)), Vars -> monadS rv Vars e) {struct n} : monadS rv Vars e. +exact ( + match sumbool_of_bool (from + off <=? to) with left LE => + match n with + | O => returnS vars + | S n => body (from + off) _ vars >>$= fun vars => foreach_ZS_up' rv e Vars from to step (off + step) n _ _ vars body + end + | right _ => returnS vars + end). +Defined. + +Fixpoint foreach_ZS_down' {rv e Vars} (from to step off : Z) (n : nat) `{ArithFact (0 <? step)} `{ArithFact (off <=? 0)} (vars : Vars) (body : forall (z : Z) `(ArithFact (to <=? z <=? from)), Vars -> monadS rv Vars e) {struct n} : monadS rv Vars e. +exact ( + match sumbool_of_bool (to <=? from + off) with left LE => + match n with + | O => returnS vars + | S n => body (from + off) _ vars >>$= fun vars => foreach_ZS_down' _ _ _ from to step (off - step) n _ _ vars body + end + | right _ => returnS vars + end). +Defined. + +Definition foreach_ZS_up {rv e Vars} from to step vars body `{ArithFact (0 <? step)} := + foreach_ZS_up' (rv := rv) (e := e) (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. +Definition foreach_ZS_down {rv e Vars} from to step vars body `{ArithFact (0 <? step)} := + foreach_ZS_down' (rv := rv) (e := e) (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. + (*val genlistS : forall 'a 'rv 'e. (nat -> monadS 'rv 'a 'e) -> nat -> monadS 'rv (list 'a) 'e*) Definition genlistS {A RV E} (f : nat -> monadS RV A E) n : monadS RV (list A) E := let indices := List.seq 0 n in @@ -43,30 +70,22 @@ Definition and_boolS {RV E} (l r : monadS RV bool E) : monadS RV bool E := Definition or_boolS {RV E} (l r : monadS RV bool E) : monadS RV bool E := l >>$= (fun l => if l then returnS true else r). -Definition and_boolSP {rv E} {P Q R:bool->Prop} (x : monadS rv {b:bool & ArithFact (P b)} E) (y : monadS rv {b:bool & ArithFact (Q b)} E) - `{H:ArithFact (forall l r, P l -> (l = true -> Q r) -> R (andb l r))} - : monadS rv {b:bool & ArithFact (R b)} E. -refine ( - x >>$= fun '(existT _ x (Build_ArithFact _ p)) => (if x return P x -> _ then - fun p => y >>$= fun '(existT _ y _) => returnS (existT _ y _) - else fun p => returnS (existT _ false _)) p -). -* constructor. destruct H. destruct a0. change y with (andb true y). auto. -* constructor. destruct H. change false with (andb false false). apply fact. - assumption. - congruence. -Defined. -Definition or_boolSP {rv E} {P Q R:bool -> Prop} (l : monadS rv {b : bool & ArithFact (P b)} E) (r : monadS rv {b : bool & ArithFact (Q b)} E) - `{ArithFact (forall l r, P l -> (l = false -> Q r) -> R (orb l r))} - : monadS rv {b : bool & ArithFact (R b)} E. -refine ( - l >>$= fun '(existT _ l (Build_ArithFact _ p)) => - (if l return P l -> _ then fun p => returnS (existT _ true _) - else fun p => r >>$= fun '(existT _ r _) => returnS (existT _ r _)) p -). -* constructor. destruct H. change true with (orb true true). apply fact. assumption. congruence. -* constructor. destruct H. destruct a0. change r with (orb false r). auto. -Defined. +Definition and_boolSP {rv E} {P Q R:bool->Prop} (x : monadS rv {b:bool & ArithFactP (P b)} E) (y : monadS rv {b:bool & ArithFactP (Q b)} E) + `{H:forall l r, ArithFactP ((P l) -> ((l = true -> (Q r)) -> (R (andb l r))))} + : monadS rv {b:bool & ArithFactP (R b)} E := + x >>$= fun '(existT _ x p) => (if x return ArithFactP (P x) -> _ then + fun p => y >>$= fun '(existT _ y q) => returnS (existT _ y (and_bool_full_proof p q H)) + else fun p => returnS (existT _ false (and_bool_left_proof p H))) p. + +Definition or_boolSP {rv E} {P Q R:bool -> Prop} (l : monadS rv {b : bool & ArithFactP (P b)} E) (r : monadS rv {b : bool & ArithFactP (Q b)} E) + `{forall l r, ArithFactP ((P l) -> (((l = false) -> (Q r)) -> (R (orb l r))))} + : monadS rv {b : bool & ArithFactP (R b)} E := + l >>$= fun '(existT _ l p) => + (if l return ArithFactP (P l) -> _ then fun p => returnS (existT _ true (or_bool_left_proof p H)) + else fun p => r >>$= fun '(existT _ r q) => returnS (existT _ r (or_bool_full_proof p q H))) p. + +Definition build_trivial_exS {rv E} {T:Type} (x : monadS rv T E) : monadS rv {x : T & ArithFact true} E := + x >>$= fun x => returnS (existT _ x (Build_ArithFactP _ eq_refl)). (*val bool_of_bitU_fail : forall 'rv 'e. bitU -> monadS 'rv bool 'e*) Definition bool_of_bitU_fail {RV E} (b : bitU) : monadS RV bool E := @@ -92,12 +111,12 @@ Definition bools_of_bits_nondetS {RV E} bits : monadS RV (list bool) E := returnS (bools ++ [b]))). (*val of_bits_nondetS : forall 'rv 'a 'e. Bitvector 'a => list bitU -> monadS 'rv 'a 'e*) -Definition of_bits_nondetS {RV A E} bits `{ArithFact (A >= 0)} : monadS RV (mword A) E := +Definition of_bits_nondetS {RV A E} bits `{ArithFact (A >=? 0)} : monadS RV (mword A) E := bools_of_bits_nondetS bits >>$= (fun bs => returnS (of_bools bs)). (*val of_bits_failS : forall 'rv 'a 'e. Bitvector 'a => list bitU -> monadS 'rv 'a 'e*) -Definition of_bits_failS {RV A E} bits `{ArithFact (A >= 0)} : monadS RV (mword A) E := +Definition of_bits_failS {RV A E} bits `{ArithFact (A >=? 0)} : monadS RV (mword A) E := maybe_failS "of_bits" (of_bits bits). (*val mword_nondetS : forall 'rv 'a 'e. Size 'a => unit -> monadS 'rv (mword 'a) 'e @@ -122,13 +141,15 @@ let rec untilS vars cond body s = if cond_val then returnS vars s'' else untilS vars cond body s'')) s')) s *) -Fixpoint whileST' {RV Vars E} limit (vars : Vars) (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) (acc : Acc (Zwf 0) limit) : monadS RV Vars E := +Fixpoint whileST' {RV Vars E} limit (vars : Vars) (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) (acc : Acc (Zwf 0) limit) : monadS RV Vars E. +exact ( if Z_ge_dec limit 0 then cond vars >>$= fun cond_val => if cond_val then - body vars >>$= fun vars => whileST' (limit - 1) vars cond body (_limit_reduces acc) + body vars >>$= fun vars => whileST' _ _ _ (limit - 1) vars cond body (_limit_reduces acc) else returnS vars - else failS "Termination limit reached". + else failS "Termination limit reached"). +Defined. Definition whileST {RV Vars E} (vars : Vars) measure (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) : monadS RV Vars E := let limit := measure vars in @@ -136,12 +157,14 @@ Definition whileST {RV Vars E} (vars : Vars) measure (cond : Vars -> monadS RV b (*val untilM : forall 'rv 'vars 'e. 'vars -> ('vars -> monad 'rv bool 'e) -> ('vars -> monad 'rv 'vars 'e) -> monad 'rv 'vars 'e*) -Fixpoint untilST' {RV Vars E} limit (vars : Vars) (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) (acc : Acc (Zwf 0) limit) : monadS RV Vars E := +Fixpoint untilST' {RV Vars E} limit (vars : Vars) (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) (acc : Acc (Zwf 0) limit) : monadS RV Vars E. +exact ( if Z_ge_dec limit 0 then body vars >>$= fun vars => cond vars >>$= fun cond_val => - if cond_val then returnS vars else untilST' (limit - 1) vars cond body (_limit_reduces acc) - else failS "Termination limit reached". + if cond_val then returnS vars else untilST' _ _ _ (limit - 1) vars cond body (_limit_reduces acc) + else failS "Termination limit reached"). +Defined. Definition untilST {RV Vars E} (vars : Vars) measure (cond : Vars -> monadS RV bool E) (body : Vars -> monadS RV Vars E) : monadS RV Vars E := let limit := measure vars in @@ -164,4 +187,17 @@ Definition internal_pickS {RV A E} (xs : list A) : monadS RV A E := | None => failS "choose internal_pick" end. +Fixpoint undefined_word_natS {rv e} n : monadS rv (Word.word n) e := + match n with + | O => returnS Word.WO + | S m => + choose_boolS tt >>$= fun b => + undefined_word_natS m >>$= fun t => + returnS (Word.WS b t) + end. + +Definition undefined_bitvectorS {rv e} n `{ArithFact (n >=? 0)} : monadS rv (mword n) e := + undefined_word_natS (Z.to_nat n) >>$= fun w => + returnS (word_to_mword w). + diff --git a/prover_snapshots/coq/lib/sail/Sail2_state_lemmas.v b/prover_snapshots/coq/lib/sail/State_lemmas.v index c07016d..6a620f2 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_state_lemmas.v +++ b/prover_snapshots/coq/lib/sail/State_lemmas.v @@ -1,27 +1,339 @@ -Require Import Sail2_values Sail2_prompt_monad Sail2_prompt Sail2_state_monad Sail2_state Sail2_state Sail2_state_lifting. -Require Import Sail2_state_monad_lemmas. +Require Import Sail.Values Sail.Prompt_monad Sail.Prompt Sail.State_monad Sail.State Sail.State Sail.State_lifting. +Require Import Sail.State_monad_lemmas. Local Open Scope equiv_scope. +Local Open Scope Z. + +Lemma seqS_cong A RV E (m1 m1' : monadS RV unit E) (m2 m2' : monadS RV A E) : + m1 === m1' -> + m2 === m2' -> + m1 >>$ m2 === m1' >>$ m2'. +unfold seqS. +auto using bindS_cong. +Qed. + +Lemma foreachS_cong {A RV Vars E} xs vars f f' : + (forall a vars, f a vars === f' a vars) -> + @foreachS A RV Vars E xs vars f === foreachS xs vars f'. +intro H. +revert vars. +induction xs. +* reflexivity. +* intros. simpl. + rewrite H. + apply bindS_cong; auto. +Qed. + +Add Parametric Morphism {Regs A Vars E : Type} : (@foreachS A Regs Vars E) + with signature eq ==> eq ==> equiv ==> equiv as foreachS_morphism. +apply foreachS_cong. +Qed. + +Lemma foreach_ZS_up_cong rv e Vars from to step vars body body' H : + (forall a pf vars, body a pf vars === body' a pf vars) -> + @foreach_ZS_up rv e Vars from to step vars body H === foreach_ZS_up from to step vars body'. +intro EQ. +unfold foreach_ZS_up. +match goal with +| |- @foreach_ZS_up' _ _ _ _ _ _ _ _ _ ?pf _ _ === _ => generalize pf +end. +generalize 0 at 2 3 4 as off. +revert vars. +induction (S (Z.abs_nat (from - to))); intros; simpl. +* reflexivity. +* destruct (sumbool_of_bool (from + off <=? to)); auto. + rewrite EQ. + setoid_rewrite IHn. + reflexivity. +Qed. + +Lemma foreach_ZS_down_cong rv e Vars from to step vars body body' H : + (forall a pf vars, body a pf vars === body' a pf vars) -> + @foreach_ZS_down rv e Vars from to step vars body H === foreach_ZS_down from to step vars body'. +intro EQ. +unfold foreach_ZS_down. +match goal with +| |- @foreach_ZS_down' _ _ _ _ _ _ _ _ _ ?pf _ _ === _ => generalize pf +end. +generalize 0 at 1 3 4 as off. +revert vars. +induction (S (Z.abs_nat (from - to))); intros; simpl. +* reflexivity. +* destruct (sumbool_of_bool (to <=? from + off)); auto. + rewrite EQ. + setoid_rewrite IHn. + reflexivity. +Qed. + +Local Opaque _limit_reduces. +Ltac gen_reduces := + match goal with |- context[@_limit_reduces ?a ?b ?c] => generalize (@_limit_reduces a b c) end. + +Lemma whileST_cong {RV Vars E} vars measure cond cond' body body' : + (forall vars, cond vars === cond' vars) -> + (forall vars, body vars === body' vars) -> + @whileST RV Vars E vars measure cond body === whileST vars measure cond' body'. +intros Econd Ebody. +unfold whileST. +generalize (measure vars) as limit. intro. +revert vars. +destruct (Z.le_decidable 0 limit). +* generalize (Zwf_guarded limit) as acc. + apply Wf_Z.natlike_ind with (x := limit). + + intros [acc] *; simpl. + apply bindS_cong; auto. + intros [|]; auto. + apply bindS_cong; auto. + intros. destruct (_limit_reduces _). simpl. + reflexivity. + + clear limit H. + intros limit H IH [acc] vars s. simpl. + destruct (Z_ge_dec _ _); try omega. + apply bindS_cong; auto. + intros [|]; auto. + apply bindS_cong; auto. + intros. + gen_reduces. + replace (Z.succ limit - 1) with limit; try omega. intro acc'. + apply IH. + + assumption. +* intros. simpl. + destruct (Z_ge_dec _ _); try omega. + reflexivity. +Qed. + +Lemma untilST_cong RV Vars E measure vars cond cond' (body body' : Vars -> monadS RV Vars E) : + (forall vars, cond vars === cond' vars) -> + (forall vars, body vars === body' vars) -> + untilST vars measure cond body === untilST vars measure cond' body'. +intros Econd Ebody. +unfold untilST. +generalize (measure vars) as limit. intro. +revert vars. +destruct (Z.le_decidable 0 limit). +* generalize (Zwf_guarded limit) as acc. + apply Wf_Z.natlike_ind with (x := limit). + + intros [acc] * s; simpl. + apply bindS_cong; auto. + intros. apply bindS_cong; auto. + intros [|]; auto. + destruct (_limit_reduces _). simpl. + reflexivity. + + clear limit H. + intros limit H IH [acc] vars s. simpl. + destruct (Z_ge_dec _ _); try omega. + apply bindS_cong; auto. + intros. apply bindS_cong; auto. + intros [|]; auto. + gen_reduces. + replace (Z.succ limit - 1) with limit; try omega. intro acc'. + apply IH. + + assumption. +* intros. simpl. + destruct (Z_ge_dec _ _); try omega. + reflexivity. +Qed. + +Lemma genlistS_cong {A RV E} f f' n : + (forall i, f i === f' i) -> + @genlistS A RV E f n === genlistS f' n. +intro H. +apply foreachS_cong. +intros. rewrite H. +reflexivity. +Qed. + +Add Parametric Morphism {A RV E : Type} : (@genlistS A RV E) + with signature equiv ==> eq ==> equiv as genlistS_morphism. +intros f g EQ n. +apply genlistS_cong. +auto. +Qed. + +Lemma and_boolS_cong {RV E} x x' y y' : + x === x' -> + y === y' -> + @and_boolS RV E x y === and_boolS x' y'. +intros E1 E2. +unfold and_boolS. +apply bindS_cong; auto. +intros [|]; auto. +Qed. + +Lemma and_boolSP_cong {RV E P Q R} H x x' y y' : + x === x' -> + y === y' -> + @and_boolSP RV E P Q R x y H === and_boolSP x' y'. +intros E1 E2. +unfold and_boolSP. +apply bindS_cong; auto. +intros [[|] [pf]]; auto. +apply bindS_cong; auto. +Qed. + +Lemma or_boolS_cong {RV E} x x' y y' : + x === x' -> + y === y' -> + @or_boolS RV E x y === or_boolS x' y'. +intros E1 E2. +unfold or_boolS. +apply bindS_cong; auto. +intros [|]; auto. +Qed. + +Lemma or_boolSP_cong {RV E P Q R} H x x' y y' : + x === x' -> + y === y' -> + @or_boolSP RV E P Q R x y H === or_boolSP x' y'. +intros E1 E2. +unfold or_boolSP. +apply bindS_cong; auto. +intros [[|] [pf]]; auto. +apply bindS_cong; auto. +Qed. + +Lemma build_trivial_exS_cong {RV T E} x x' : + x === x' -> + @build_trivial_exS RV T E x === build_trivial_exS x'. +intros E1. +unfold build_trivial_exS. +apply bindS_cong; auto. +Qed. + +Lemma liftRS_cong {A R Regs E} m m' : + m === m' -> + @liftRS A R Regs E m === liftRS m'. +intros E1. +unfold liftRS. +apply try_catchS_cong; auto. +Qed. (* Monad lifting *) -Lemma liftState_bind Regval Regs A B E {r : Sail2_values.register_accessors Regs Regval} {m : monad Regval A E} {f : A -> monad Regval B E} : +Lemma liftState_bind Regval Regs A B E {r : Sail.Values.register_accessors Regs Regval} {m : monad Regval A E} {f : A -> monad Regval B E} : liftState r (bind m f) === bindS (liftState r m) (fun x => liftState r (f x)). induction m; simpl; autorewrite with state; auto using bindS_cong. Qed. Hint Rewrite liftState_bind : liftState. +Hint Resolve liftState_bind : liftState. + +Lemma liftState_bind0 Regval Regs B E {r : Sail.Values.register_accessors Regs Regval} {m : monad Regval unit E} {m' : monad Regval B E} : + liftState r (bind0 m m') === seqS (liftState r m) (liftState r m'). +induction m; simpl; autorewrite with state; auto using bindS_cong. +Qed. +Hint Rewrite liftState_bind0 : liftState. +Hint Resolve liftState_bind0 : liftState. (* TODO: I want a general tactic for this, but abstracting the hint db out appears to break. This does beta reduction when no rules apply to try and allow more rules to apply (e.g., the application of f to x in the above lemma may introduce a beta redex). *) -Ltac rewrite_liftState := rewrite_strat topdown (choice (progress try hints liftState) progress eval cbn beta). +(*Ltac rewrite_liftState := rewrite_strat topdown (choice (progress try hints liftState) progress eval cbn beta).*) + +(* Set up some rewriting under congruences. We would use + rewrite_strat for this, but there are some issues, such as #10661 + where rewriting under if fails. This is also the reason the hints + above use Resolve as well as Rewrite. These are intended for a + goal of the form `term === ?evar`, e.g., from applying + PrePostE_code_rw in Hoare. *) + +Lemma eq_equiv A R (x y : A) (H : Equivalence R) : + x = y -> @equiv A R H x y. +intro EQ; subst. +auto. +Qed. + +Local Ltac tryrw db := + try (etransitivity; [solve [clear; eauto using eq_equiv with nocore db ] | ]; tryrw db). -Lemma liftState_return Regval Regs A E {r : Sail2_values.register_accessors Regs Regval} {a :A} : +Lemma if_bool_cong A (R : relation A) `{H:Equivalence _ R} (x x' y y' : A) (c : bool) : + x === x' -> + y === y' -> + (if c then x else y) === if c then x' else y'. +intros E1 E2. +destruct c; auto. +Qed. + +Lemma if_sumbool_cong A P Q (R : relation A) `{H:Equivalence _ R} (x x' y y' : A) (c : sumbool P Q) : + x === x' -> + y === y' -> + (if c then x else y) === if c then x' else y'. +intros E1 E2. +destruct c; auto. +Qed. + +Ltac statecong db := + tryrw db; + lazymatch goal with + | |- (_ >>$= _) === _ => eapply bindS_cong; intros; statecong db + | |- (_ >>$ _) === _ => eapply seqS_cong; intros; statecong db + | |- (if ?x then _ else _) === _ => + let ty := type of x in + match ty with + | bool => eapply if_bool_cong; statecong db + | sumbool _ _ => eapply if_sumbool_cong; statecong db (* There's also a dependent case below *) + | _ => apply equiv_reflexive + end + | |- (foreachS _ _ _) === _ => + solve [ eapply foreachS_cong; intros; statecong db ] + | |- (foreach_ZS_up _ _ _ _ _) === _ => + solve [ eapply foreach_ZS_up_cong; intros; statecong db ] + | |- (foreach_ZS_down _ _ _ _ _) === _ => + solve [ eapply foreach_ZS_down_cong; intros; statecong db ] + | |- (genlistS _ _) === _ => + solve [ eapply genlistS_cong; intros; statecong db ] + | |- (whileST _ _ _ _) === _ => + solve [ eapply whileST_cong; intros; statecong db ] + | |- (untilST _ _ _ _) === _ => + solve [ eapply untilST_cong; intros; statecong db ] + | |- (and_boolS _ _) === _ => + solve [ eapply and_boolS_cong; intros; statecong db ] + | |- (or_boolS _ _) === _ => + solve [ eapply or_boolS_cong; intros; statecong db ] + | |- (and_boolSP _ _) === _ => + solve [ eapply and_boolSP_cong; intros; statecong db ] + | |- (or_boolSP _ _) === _ => + solve [ eapply or_boolSP_cong; intros; statecong db ] + | |- (build_trivial_exS _) === _ => + solve [ eapply build_trivial_exS_cong; intros; statecong db ] + | |- (liftRS _) === _ => + solve [ eapply liftRS_cong; intros; statecong db ] + | |- (let '(matchvar1, matchvar2) := ?e1 in _) === _ => + eapply (@equiv_transitive _ _ _ _ (let '(matchvar1,matchvar2) := e1 in _) _); + [ destruct e1; etransitivity; [ statecong db | apply equiv_reflexive ] + | apply equiv_reflexive ] + | |- (let '(existT _ matchvar1 matchvar2) := ?e1 in _) === _ => + eapply (@equiv_transitive _ _ _ _ (let '(existT _ matchvar1 matchvar2) := e1 in _) _); + [ destruct e1; etransitivity; [ statecong db | apply equiv_reflexive ] + | apply equiv_reflexive ] + | |- (match ?e1 with None => _ | Some _ => _ end) === _ => + eapply (@equiv_transitive _ _ _ _ (match e1 with None => _ | Some _ => _ end) _); + [ destruct e1; [> etransitivity; [> statecong db | apply equiv_reflexive ] ..] + | apply equiv_reflexive ] + | |- (match ?e1 with left _ => _ | right _ => _ end) === _ => + eapply (@equiv_transitive _ _ _ _ (match e1 with left _ => _ | right _ => _ end) _); + [ destruct e1; [> etransitivity; [> statecong db | apply equiv_reflexive ] ..] + | apply equiv_reflexive ] + | |- ?X => + solve + [ apply equiv_reflexive + | apply eq_equiv; apply equiv_reflexive + ] + end. +Tactic Notation "statecong" ident(dbs) := statecong dbs. + +Ltac rewrite_liftState := + match goal with + | |- context [liftState ?r ?tm] => + try let H := fresh "H" in (eassert (H:liftState r tm === _); [ statecong liftState | rewrite H; clear H]) + end. + +Lemma liftState_return Regval Regs A E {r : Sail.Values.register_accessors Regs Regval} {a :A} : liftState (E:=E) r (returnm a) = returnS a. reflexivity. Qed. Hint Rewrite liftState_return : liftState. +Hint Resolve liftState_return : liftState. (* Lemma Value_liftState_Run: @@ -37,10 +349,65 @@ Lemma liftState_if_distrib Regs Regval A E {r x y} {c : bool} : @liftState Regs Regval A E r (if c then x else y) = if c then liftState r x else liftState r y. destruct c; reflexivity. Qed. +Hint Resolve liftState_if_distrib : liftState. +(* TODO: try to find a way to make the above hint work when an alias is used for the + monad type. For some reason attempting to give a Resolve hint with a pattern doesn't + work, but an Extern one works: *) +Hint Extern 0 (liftState _ _ = _) => simple apply liftState_if_distrib : liftState. Lemma liftState_if_distrib_sumbool {Regs Regval A E P Q r x y} {c : sumbool P Q} : @liftState Regs Regval A E r (if c then x else y) = if c then liftState r x else liftState r y. destruct c; reflexivity. Qed. +Hint Resolve liftState_if_distrib_sumbool : liftState. +(* As above, but simple apply doesn't seem to work (again, due to unification problems + with the M alias for monad). Be careful about only applying to a suitable goal to + avoid slowing down proofs. *) +Hint Extern 0 (liftState _ ?t = _) => + match t with + | match ?x with _ => _ end => + match type of x with + | sumbool _ _ => apply liftState_if_distrib_sumbool + end + end : liftState. + +Lemma liftState_match_distrib_sumbool {Regs Regval A E P Q r x y} {c : sumbool P Q} : + @liftState Regs Regval A E r (match c with left H => x H | right H => y H end) = match c with left H => liftState r (x H) | right H => liftState r (y H) end. +destruct c; reflexivity. +Qed. +(* As above, but also need to beta reduce H into x and y. *) +Hint Extern 0 (liftState _ ?t = _) => + match t with + | match ?x with _ => _ end => + match type of x with + | sumbool _ _ => etransitivity; [apply liftState_match_distrib_sumbool | cbv beta; reflexivity ] + end + end : liftState. + +Lemma liftState_let_pair Regs RegVal A B C E r (x : B * C) M : + @liftState Regs RegVal A E r (let '(y, z) := x in M y z) = + let '(y, z) := x in liftState r (M y z). +destruct x. +reflexivity. +Qed. +Hint Extern 0 (liftState _ (let '(x,y) := _ in _) = _) => + (rewrite liftState_let_pair; reflexivity) : liftState. + +Lemma liftState_let_Tpair Regs RegVal A B (P : B -> Prop) E r (x : sigT P) M : + @liftState Regs RegVal A E r (let '(existT _ y z) := x in M y z) = + let '(existT _ y z) := x in liftState r (M y z). +destruct x. +reflexivity. +Qed. +Hint Extern 0 (liftState _ (let '(existT _ x y) := _ in _) = _) => + (rewrite liftState_let_Tpair; reflexivity) : liftState. + +Lemma liftState_opt_match Regs RegVal A B E (x : option A) m f r : + @liftState Regs RegVal B E r (match x with None => m | Some v => f v end) = + match x with None => liftState r m | Some v => liftState r (f v) end. +destruct x; reflexivity. +Qed. +Hint Extern 0 (liftState _ (match _ with None => _ | Some _ => _ end) = _) => + (rewrite liftState_opt_match; reflexivity) : liftState. Lemma Value_bindS_iff {Regs A B E} {f : A -> monadS Regs B E} {b m s s''} : List.In (Value b, s'') (bindS m f s) <-> (exists a s', List.In (Value a, s') (m s) /\ List.In (Value b, s'') (f a s')). @@ -72,6 +439,10 @@ Lemma liftState_assert Regs Regval E {r c msg} : @liftState Regval Regs _ E r (assert_exp c msg) = assert_expS c msg. destruct c; reflexivity. Qed. +Lemma liftState_assert' Regs Regval E {r c msg} : + @liftState Regval Regs _ E r (assert_exp' c msg) = assert_expS' c msg. +destruct c; reflexivity. +Qed. Lemma liftState_exit Regs Regval A E r : @liftState Regval Regs A E r (exit tt) = exitS tt. reflexivity. @@ -104,9 +475,7 @@ Qed. Lemma liftState_and_boolM Regs Regval E r x y : @liftState Regs Regval _ E r (and_boolM x y) === and_boolS (liftState r x) (liftState r y). unfold and_boolM, and_boolS. -rewrite liftState_bind. -apply bindS_cong; auto. -intros. rewrite liftState_if_distrib. +rewrite_liftState. reflexivity. Qed. Lemma liftState_and_boolMP Regs Regval E P Q R r x y H : @@ -115,11 +484,11 @@ unfold and_boolMP, and_boolSP. rewrite liftState_bind. apply bindS_cong; auto. intros [[|] [A]]. -* rewrite liftState_bind; +* rewrite liftState_bind. simpl; - apply bindS_cong; auto; - intros [a' A']; - rewrite liftState_return; + apply bindS_cong; auto. + intros [a' A']. + rewrite liftState_return. reflexivity. * rewrite liftState_return. reflexivity. @@ -149,11 +518,30 @@ intros [[|] [A]]. rewrite liftState_return; reflexivity. Qed. -Hint Rewrite liftState_throw liftState_assert liftState_exit liftState_exclResult - liftState_barrier liftState_footprint liftState_choose_bool - liftState_undefined liftState_maybe_fail + +Lemma liftState_build_trivial_ex Regs Regval E T r m : + @liftState Regs Regval _ E r (@build_trivial_ex _ _ T m) === + build_trivial_exS (liftState r m). +unfold build_trivial_ex, build_trivial_exS. +unfold ArithFact. +intro. +rewrite liftState_bind. +reflexivity. +Qed. + +Hint Rewrite liftState_throw liftState_assert liftState_assert' liftState_exit + liftState_exclResult liftState_barrier liftState_footprint + liftState_choose_bool liftState_undefined liftState_maybe_fail liftState_and_boolM liftState_and_boolMP liftState_or_boolM liftState_or_boolMP + liftState_build_trivial_ex + : liftState. +Hint Resolve liftState_throw liftState_assert liftState_assert' liftState_exit + liftState_exclResult liftState_barrier liftState_footprint + liftState_choose_bool liftState_undefined liftState_maybe_fail + liftState_and_boolM liftState_and_boolMP + liftState_or_boolM liftState_or_boolMP + liftState_build_trivial_ex : liftState. Lemma liftState_try_catch Regs Regval A E1 E2 r m h : @@ -167,12 +555,14 @@ solve ]. Qed. Hint Rewrite liftState_try_catch : liftState. +Hint Resolve liftState_try_catch : liftState. Lemma liftState_early_return Regs Regval A R E r x : liftState (Regs := Regs) r (@early_return Regval A R E x) = early_returnS x. reflexivity. Qed. Hint Rewrite liftState_early_return : liftState. +Hint Resolve liftState_early_return : liftState. Lemma liftState_catch_early_return (*[liftState_simp]:*) Regs Regval A E r m : liftState (Regs := Regs) r (@catch_early_return Regval A E m) === catch_early_returnS (liftState r m). @@ -182,6 +572,7 @@ apply try_catchS_cong; auto. intros [a | e] s'; auto. Qed. Hint Rewrite liftState_catch_early_return : liftState. +Hint Resolve liftState_catch_early_return : liftState. Lemma liftState_liftR Regs Regval A R E r m : liftState (Regs := Regs) r (@liftR Regval A R E m) === liftRS (liftState r m). @@ -190,6 +581,7 @@ rewrite_liftState. reflexivity. Qed. Hint Rewrite liftState_liftR : liftState. +Hint Resolve liftState_liftR : liftState. Lemma liftState_try_catchR Regs Regval A R E1 E2 r m h : liftState (Regs := Regs) r (@try_catchR Regval A R E1 E2 m h) === try_catchRS (liftState r m) (fun x => liftState r (h x)). @@ -198,12 +590,15 @@ apply try_catchS_cong; auto. intros [r' | e] s'; auto. Qed. Hint Rewrite liftState_try_catchR : liftState. -(* -Lemma liftState_bool_of_bitU_nondet Regs Regval : - "liftState r (bool_of_bitU_nondet b) = bool_of_bitU_nondetS b" - by (cases b; auto simp: bool_of_bitU_nondet_def bool_of_bitU_nondetS_def liftState_simp) +Hint Resolve liftState_try_catchR : liftState. + +Lemma liftState_bool_of_bitU_nondet Regs Regval E r b : + liftState (Regs := Regs) r (@bool_of_bitU_nondet Regval E b) = bool_of_bitU_nondetS b. +destruct b; simpl; try reflexivity. +Qed. Hint Rewrite liftState_bool_of_bitU_nondet : liftState. -*) +Hint Resolve liftState_bool_of_bitU_nondet : liftState. + Lemma liftState_read_memt Regs Regval A B E H rk a sz r : liftState (Regs := Regs) r (@read_memt Regval A B E H rk a sz) === read_memtS rk a sz. unfold read_memt, read_memt_bytes, read_memtS, maybe_failS. simpl. @@ -212,6 +607,7 @@ intros [byte bit]. destruct (option_map _); auto. Qed. Hint Rewrite liftState_read_memt : liftState. +Hint Resolve liftState_read_memt : liftState. Lemma liftState_read_mem Regs Regval A B E H rk asz a sz r : liftState (Regs := Regs) r (@read_mem Regval A B E H rk asz a sz) === read_memS rk a sz. @@ -226,26 +622,30 @@ rewrite bindS_returnS_left. rewrite_liftState. destruct (option_map _); auto. Qed. Hint Rewrite liftState_read_mem : liftState. +Hint Resolve liftState_read_mem : liftState. Lemma liftState_write_mem_ea Regs Regval A E rk asz a sz r : liftState (Regs := Regs) r (@write_mem_ea Regval A E rk asz a sz) = returnS tt. reflexivity. Qed. Hint Rewrite liftState_write_mem_ea : liftState. +Hint Resolve liftState_write_mem_ea : liftState. Lemma liftState_write_memt Regs Regval A B E wk addr sz v t r : liftState (Regs := Regs) r (@write_memt Regval A B E wk addr sz v t) = write_memtS wk addr sz v t. unfold write_memt, write_memtS. -destruct (Sail2_values.mem_bytes_of_bits v); auto. +destruct (Sail.Values.mem_bytes_of_bits v); auto. Qed. Hint Rewrite liftState_write_memt : liftState. +Hint Resolve liftState_write_memt : liftState. Lemma liftState_write_mem Regs Regval A B E wk addrsize addr sz v r : liftState (Regs := Regs) r (@write_mem Regval A B E wk addrsize addr sz v) = write_memS wk addr sz v. unfold write_mem, write_memS, write_memtS. -destruct (Sail2_values.mem_bytes_of_bits v); simpl; auto. +destruct (Sail.Values.mem_bytes_of_bits v); simpl; auto. Qed. Hint Rewrite liftState_write_mem : liftState. +Hint Resolve liftState_write_mem : liftState. Lemma bindS_rw_left Regs A B E m1 m2 (f : A -> monadS Regs B E) s : m1 s = m2 s -> @@ -269,6 +669,19 @@ rewrite H. reflexivity. Qed. +(* Generic tactic to apply liftState to register reads, so that we don't have to + generate lots of model-specific lemmas. This takes advantage of the fact that + if you fix the register then the lemma above is trivial by convertability. *) + +Ltac lift_read_reg := + match goal with + | |- context [liftState ?r (@read_reg ?s ?rv ?a ?e ?ref)] => + let f := eval simpl in (fun x => (read_from ref) (ss_regstate x)) in + change (liftState r (@read_reg s rv a e ref)) with (@readS s a e f) + end. + +Hint Extern 1 (liftState _ (read_reg _) === _) => lift_read_reg; reflexivity : liftState. + Lemma liftState_write_reg_updateS Regs Regval A E get_regval' set_regval' reg (v : A) : (forall s, set_regval' (name reg) (regval_of reg v) s = Some (write_to reg v s)) -> liftState (Regs := Regs) (Regval := Regval) (E := E) (get_regval', set_regval') (write_reg reg v) === updateS (fun s => {| ss_regstate := (write_to reg v s.(ss_regstate)); ss_memstate := s.(ss_memstate); ss_tagstate := s.(ss_tagstate) |}). @@ -290,6 +703,7 @@ Lemma liftState_iter_aux Regs Regval A E : by (induction i "\<lambda>i x. liftState r (f i x)" xs rule: iterS_aux.induct) (auto simp: liftState_simp cong: bindS_cong) Hint Rewrite liftState_iter_aux : liftState. +Hint Resolve liftState_iter_aux : liftState. lemma liftState_iteri[liftState_simp]: "liftState r (iteri f xs) = iteriS (\<lambda>i x. liftState r (f i x)) xs" @@ -309,26 +723,53 @@ induction xs as [ | h t]. apply bindS_cong; auto. Qed. Hint Rewrite liftState_foreachM : liftState. - -Lemma foreachS_cong {A RV Vars E} xs vars f f' : - (forall a vars, f a vars === f' a vars) -> - @foreachS A RV Vars E xs vars f === foreachS xs vars f'. -intro H. +Hint Resolve liftState_foreachM : liftState. + +Lemma liftState_foreach_ZM_up Regs Regval Vars E from to step vars body H r : + liftState (Regs := Regs) r + (@foreach_ZM_up Regval E Vars from to step vars body H) === + foreach_ZS_up from to step vars (fun z H' a => liftState r (body z H' a)). +unfold foreach_ZM_up, foreach_ZS_up. +match goal with +| |- liftState _ (@foreach_ZM_up' _ _ _ _ _ _ _ _ _ ?pf _ _) === _ => generalize pf +end. +generalize 0 at 2 3 4 as off. revert vars. -induction xs. -* reflexivity. -* intros. simpl. - rewrite H. - apply bindS_cong; auto. +induction (S (Z.abs_nat (from - to))); intros. +* simpl. + rewrite_liftState. + reflexivity. +* simpl. + rewrite_liftState. + destruct (sumbool_of_bool (from + off <=? to)); auto. + repeat replace_ArithFact_proof. + reflexivity. Qed. - -Add Parametric Morphism {Regs A Vars E : Type} : (@foreachS A Regs Vars E) - with signature eq ==> eq ==> equiv ==> equiv as foreachS_morphism. -apply foreachS_cong. +Hint Rewrite liftState_foreach_ZM_up : liftState. +Hint Resolve liftState_foreach_ZM_up : liftState. + +Lemma liftState_foreach_ZM_down Regs Regval Vars E from to step vars body H r : + liftState (Regs := Regs) r + (@foreach_ZM_down Regval E Vars from to step vars body H) === + foreach_ZS_down from to step vars (fun z H' a => liftState r (body z H' a)). +unfold foreach_ZM_down, foreach_ZS_down. +match goal with +| |- liftState _ (@foreach_ZM_down' _ _ _ _ _ _ _ _ _ ?pf _ _) === _ => generalize pf +end. +generalize 0 at 1 3 4 as off. +revert vars. +induction (S (Z.abs_nat (from - to))); intros. +* simpl. + rewrite_liftState. + reflexivity. +* simpl. + rewrite_liftState. + destruct (sumbool_of_bool (to <=? from + off)); auto. + repeat replace_ArithFact_proof. + reflexivity. Qed. - -(*Tactic Notation "sail_rewrite" ident(hintdb) := rewrite_strat topdown (choice (hints hintdb) progress eval cbn beta). -Ltac sail_rewrite hintdb := rewrite_strat topdown (choice (hints hintdb) progress eval cbn beta).*) +Hint Rewrite liftState_foreach_ZM_down : liftState. +Hint Resolve liftState_foreach_ZM_down : liftState. Lemma liftState_genlistM Regs Regval A E r f n : liftState (Regs := Regs) r (@genlistM A Regval E f n) === genlistS (fun x => liftState r (f x)) n. @@ -337,16 +778,7 @@ rewrite_liftState. reflexivity. Qed. Hint Rewrite liftState_genlistM : liftState. - -Add Parametric Morphism {A RV E : Type} : (@genlistS A RV E) - with signature equiv ==> eq ==> equiv as genlistS_morphism. -intros f g EQ n. -unfold genlistS. -apply foreachS_cong. -intros m vars. -rewrite EQ. -reflexivity. -Qed. +Hint Resolve liftState_genlistM : liftState. Lemma liftState_choose_bools Regs Regval E descr n r : liftState (Regs := Regs) r (@choose_bools Regval E descr n) === choose_boolsS n. @@ -355,25 +787,48 @@ rewrite_liftState. reflexivity. Qed. Hint Rewrite liftState_choose_bools : liftState. +Hint Resolve liftState_choose_bools : liftState. -(* -Lemma liftState_bools_of_bits_nondet[liftState_simp]: - "liftState r (bools_of_bits_nondet bs) = bools_of_bits_nondetS bs" - unfolding bools_of_bits_nondet_def bools_of_bits_nondetS_def - by (auto simp: liftState_simp comp_def) -Hint Rewrite liftState_choose_bools : liftState. -*) +Lemma liftState_bools_of_bits_nondet Regs Regval E r bs : + liftState (Regs := Regs) r (@bools_of_bits_nondet Regval E bs) === bools_of_bits_nondetS bs. +unfold bools_of_bits_nondet, bools_of_bits_nondetS. +rewrite_liftState. +reflexivity. +Qed. +Hint Rewrite liftState_bools_of_bits_nondet : liftState. +Hint Resolve liftState_bools_of_bits_nondet : liftState. Lemma liftState_internal_pick Regs Regval A E r (xs : list A) : liftState (Regs := Regs) (Regval := Regval) (E := E) r (internal_pick xs) === internal_pickS xs. unfold internal_pick, internal_pickS. unfold choose. rewrite_liftState. -apply bindS_cong; auto. -intros. -destruct (nth_error _ _); auto. +reflexivity. Qed. Hint Rewrite liftState_internal_pick : liftState. +Hint Resolve liftState_internal_pick : liftState. + +Lemma liftState_undefined_word_nat Regs Regval E r n : + liftState (Regs := Regs) (Regval := Regval) (E := E) r (undefined_word_nat n) === undefined_word_natS n. +induction n. +* reflexivity. +* simpl. + apply bindS_cong; auto. + intro. + rewrite_liftState. + apply bindS_cong; auto. +Qed. +Hint Rewrite liftState_undefined_word_nat : liftState. +Hint Resolve liftState_undefined_word_nat : liftState. + +Lemma liftState_undefined_bitvector Regs Regval E r n `{ArithFact (n >=? 0)} : + liftState (Regs := Regs) (Regval := Regval) (E := E) r (undefined_bitvector n) === undefined_bitvectorS n. +unfold undefined_bitvector, undefined_bitvectorS. +rewrite_liftState. +reflexivity. +Qed. +Hint Rewrite liftState_undefined_bitvector : liftState. +Hint Resolve liftState_undefined_bitvector : liftState. Lemma liftRS_returnS (*[simp]:*) A R Regs E x : @liftRS A R Regs E (returnS x) = returnS x. @@ -492,12 +947,6 @@ proof (use assms in \<open>induction vars "liftState r \<circ> cond" "liftState qed *) -Local Opaque _limit_reduces. -Ltac gen_reduces := - match goal with |- context[@_limit_reduces ?a ?b ?c] => generalize (@_limit_reduces a b c) end. - -(* TODO: rewrite_liftState is performing really badly here. We could add liftState_if_distrib - to the hint db, but then it starts failing in a way that causes the whole rewriting to fail. *) Lemma liftState_whileM RV Vars E r measure vars cond (body : Vars -> monad RV Vars E) : liftState (Regs := RV) r (whileMT vars measure cond body) === whileST vars measure (fun vars => liftState r (cond vars)) (fun vars => liftState r (body vars)). @@ -505,34 +954,33 @@ unfold whileMT, whileST. generalize (measure vars) as limit. intro. revert vars. destruct (Z.le_decidable 0 limit). -* generalize (Zwf_guarded limit) as acc. +* generalize (Zwf_guarded limit) at 1 as acc1. + generalize (Zwf_guarded limit) at 1 as acc2. apply Wf_Z.natlike_ind with (x := limit). - + intros [acc] *; simpl. - match goal with |- context [Build_ArithFact _ ?prf] => generalize prf; intros ?Proof end. + + intros [acc1] [acc2] *; simpl. rewrite_liftState. - setoid_rewrite liftState_if_distrib. apply bindS_cong; auto. - destruct a; rewrite_liftState; auto. + intros [|]; auto. apply bindS_cong; auto. - intros. destruct (_limit_reduces _). simpl. + intros. repeat destruct (_limit_reduces _). simpl. reflexivity. + clear limit H. - intros limit H IH [acc] vars s. simpl. + intros limit H IH [acc1] [acc2] vars s. simpl. destruct (Z_ge_dec _ _); try omega. - autorewrite with liftState. - apply bindS_ext_cong; auto. - intros. rewrite liftState_if_distrib. - destruct a; autorewrite with liftState; auto. - apply bindS_ext_cong; auto. + rewrite_liftState. + apply bindS_cong; auto. + intros [|]; auto. + apply bindS_cong; auto. intros. - gen_reduces. - replace (Z.succ limit - 1) with limit; try omega. intro acc'. + repeat gen_reduces. + replace (Z.succ limit - 1) with limit; try omega. intros acc1' acc2'. apply IH. + assumption. * intros. simpl. destruct (Z_ge_dec _ _); try omega. reflexivity. Qed. +Hint Resolve liftState_whileM : liftState. (* lemma untilM_dom_step: @@ -579,35 +1027,32 @@ unfold untilMT, untilST. generalize (measure vars) as limit. intro. revert vars. destruct (Z.le_decidable 0 limit). -* generalize (Zwf_guarded limit) as acc. +* generalize (Zwf_guarded limit) at 1 as acc1. + generalize (Zwf_guarded limit) at 1 as acc2. apply Wf_Z.natlike_ind with (x := limit). - + intros [acc] * s; simpl. -(* TODO rewrite_liftState.*) -autorewrite with liftState. - apply bindS_ext_cong; auto. - intros. autorewrite with liftState. - apply bindS_ext_cong; auto. - intros. rewrite liftState_if_distrib. - destruct a0; auto. - destruct (_limit_reduces _). simpl. + + intros [acc1] [acc2] * s; simpl. + rewrite_liftState. + apply bindS_cong; auto. + intros. apply bindS_cong; auto. + intros [|]; auto. + repeat destruct (_limit_reduces _). simpl. reflexivity. + clear limit H. - intros limit H IH [acc] vars s. simpl. + intros limit H IH [acc1] [acc2] vars s. simpl. destruct (Z_ge_dec _ _); try omega. - autorewrite with liftState. - apply bindS_ext_cong; auto. - intros. autorewrite with liftState; auto. - apply bindS_ext_cong; auto. - intros. rewrite liftState_if_distrib. - destruct a0; autorewrite with liftState; auto. - gen_reduces. - replace (Z.succ limit - 1) with limit; try omega. intro acc'. + rewrite_liftState. + apply bindS_cong; auto. + intros. apply bindS_cong; auto. + intros [|]; auto. + repeat gen_reduces. + replace (Z.succ limit - 1) with limit; try omega. intros acc1' acc2'. apply IH. + assumption. * intros. simpl. destruct (Z_ge_dec _ _); try omega. reflexivity. Qed. +Hint Resolve liftState_untilM : liftState. (* @@ -816,4 +1261,4 @@ lemma get_mem_bytes_tagged_tagstate: by (auto simp: get_mem_bytes_def foldl_and_bit_eq_iff Let_def split: option.splits) end -*)
\ No newline at end of file +*) diff --git a/prover_snapshots/coq/lib/sail/Sail2_state_lifting.v b/prover_snapshots/coq/lib/sail/State_lifting.v index 1544c3c..8342b04 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_state_lifting.v +++ b/prover_snapshots/coq/lib/sail/State_lifting.v @@ -1,7 +1,7 @@ -Require Import Sail2_values. -Require Import Sail2_prompt_monad. -Require Import Sail2_prompt. -Require Import Sail2_state_monad. +Require Import Sail.Values. +Require Import Sail.Prompt_monad. +Require Import Sail.Prompt. +Require Import Sail.State_monad. Import ListNotations. (* Lifting from prompt monad to state monad *) diff --git a/prover_snapshots/coq/lib/sail/Sail2_state_monad.v b/prover_snapshots/coq/lib/sail/State_monad.v index 552fa68..fb68bd3 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_state_monad.v +++ b/prover_snapshots/coq/lib/sail/State_monad.v @@ -1,11 +1,12 @@ -Require Import Sail2_instr_kinds. -Require Import Sail2_values. +Require Import Sail.Instr_kinds. +Require Import Sail.Values. Require FMapList. Require Import OrderedType. Require OrderedTypeEx. Require Import List. Require bbv.Word. Import ListNotations. +Local Open Scope Z. (* TODO: revisit choice of FMapList *) Module NatMap := FMapList.Make(OrderedTypeEx.Nat_as_OT). @@ -108,6 +109,9 @@ fun s => Definition assert_expS {Regs E} (exp : bool) (msg : string) : monadS Regs unit E := if exp then returnS tt else failS msg. +Definition assert_expS' {Regs E} (exp : bool) (msg : string) : monadS Regs (exp = true) E := + if exp return monadS Regs (exp = true) E then returnS eq_refl else failS msg. + (* For early return, we abuse exceptions by throwing and catching the return value. The exception type is "either 'r 'e", where "Right e" represents a proper exception and "Left r" an early return of value "r". *) @@ -179,14 +183,14 @@ Definition read_mem_bytesS {Regs E} (rk : read_kind) addr sz : monadS Regs (list returnS bytes). (*val read_memtS : forall 'regs 'e 'a 'b. Bitvector 'a, Bitvector 'b => read_kind -> 'a -> integer -> monadS 'regs ('b * bitU) 'e*) -Definition read_memtS {Regs E A B} (rk : read_kind) (a : mword A) sz `{ArithFact (B >= 0)} : monadS Regs (mword B * bitU) E := +Definition read_memtS {Regs E A B} (rk : read_kind) (a : mword A) sz `{ArithFact (B >=? 0)} : monadS Regs (mword B * bitU) E := let a := Word.wordToNat (get_word a) in read_memt_bytesS rk a (Z.to_nat sz) >>$= (fun '(bytes, tag) => maybe_failS "bits_of_mem_bytes" (of_bits (bits_of_mem_bytes bytes)) >>$= (fun mem_val => returnS (mem_val, tag))). (*val read_memS : forall 'regs 'e 'a 'b. Bitvector 'a, Bitvector 'b => read_kind -> 'a -> integer -> monadS 'regs 'b 'e*) -Definition read_memS {Regs E A B} rk (a : mword A) sz `{ArithFact (B >= 0)} : monadS Regs (mword B) E := +Definition read_memS {Regs E A B} rk (a : mword A) sz `{ArithFact (B >=? 0)} : monadS Regs (mword B) E := read_memtS rk a sz >>$= (fun '(bytes, _) => returnS bytes). diff --git a/prover_snapshots/coq/lib/sail/Sail2_state_monad_lemmas.v b/prover_snapshots/coq/lib/sail/State_monad_lemmas.v index 99fef32..41270be 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_state_monad_lemmas.v +++ b/prover_snapshots/coq/lib/sail/State_monad_lemmas.v @@ -1,8 +1,15 @@ -Require Import Sail2_state_monad. -(*Require Import Sail2_values_lemmas.*) +Require Import Sail.State_monad. +(*Require Import Sail.Values_lemmas.*) Require Export Setoid. Require Export Morphisms Equivalence. +(* Basic results for reasoning about definitions which use the state monad. + + Note that rewriting results are put into both a rewriting hint database and + a normal automation one. The former can be used with autorewrite and friends, + but the latter can be used with the rewriting under congruence tactics, such as + statecong in Sail.State_lemmas, and PrePostE_rewrite in Hoare. *) + (* Ensure that pointwise equality on states is the preferred notion of equivalence for the state monad. *) Local Open Scope equiv_scope. @@ -15,8 +22,10 @@ Global Instance refl_eq_subrelation {A : Type} {R : A -> A -> Prop} `{Reflexive intros x y EQ. subst. reflexivity. Qed. -Hint Extern 4 (_ === _) => reflexivity. -Hint Extern 4 (_ === _) => symmetry. +Hint Extern 4 (_ === _) => reflexivity : core. +Hint Extern 4 (_ === _) => symmetry : core. + + Lemma bindS_ext_cong (*[fundef_cong]:*) {Regs A B E} {m1 m2 : monadS Regs A E} {f1 f2 : A -> monadS Regs B E} s : @@ -55,6 +64,7 @@ simpl. auto using List.app_nil_r. Qed. Hint Rewrite bindS_returnS_left : state. +Hint Resolve bindS_returnS_left : state. Lemma bindS_returnS_right Regs A E {m : monadS Regs A E} : bindS m returnS === m. @@ -66,6 +76,7 @@ rewrite IHt; reflexivity. Qed. Hint Rewrite bindS_returnS_right : state. +Hint Resolve bindS_returnS_right : state. Lemma bindS_readS {Regs A E} {f} {m : A -> monadS Regs A E} {s} : bindS (readS f) m s = m (f s) s. @@ -90,6 +101,7 @@ simpl. auto using List.app_nil_r. Qed. Hint Rewrite bindS_assertS_true : state. +Hint Resolve bindS_assertS_true : state. Lemma bindS_chooseS_returnS (*[simp]:*) Regs A B E {xs : list A} {f : A -> B} : bindS (Regs := Regs) (E := E) (chooseS xs) (fun x => returnS (f x)) === chooseS (List.map f xs). @@ -100,6 +112,7 @@ simpl. rewrite IHxs. reflexivity. Qed. Hint Rewrite bindS_chooseS_returnS : state. +Hint Resolve bindS_chooseS_returnS : state. Lemma result_cases : forall (A E : Type) (P : result A E -> Prop), (forall a, P (Value a)) -> @@ -191,18 +204,21 @@ induction (m s) as [ | [[a | e] t]]. * simpl. rewrite IHl. reflexivity. Qed. Hint Rewrite bindS_assoc : state. +Hint Resolve bindS_assoc : state. Lemma bindS_failS Regs A B E {msg} {f : A -> monadS Regs B E} : bindS (failS msg) f = failS msg. reflexivity. Qed. Hint Rewrite bindS_failS : state. +Hint Resolve bindS_failS : state. Lemma bindS_throwS Regs A B E {e} {f : A -> monadS Regs B E} : bindS (throwS e) f = throwS e. reflexivity. Qed. Hint Rewrite bindS_throwS : state. +Hint Resolve bindS_throwS : state. (*declare seqS_def[simp]*) Lemma seqS_def Regs A E m (m' : monadS Regs A E) : @@ -210,6 +226,7 @@ Lemma seqS_def Regs A E m (m' : monadS Regs A E) : reflexivity. Qed. Hint Rewrite seqS_def : state. +Hint Resolve seqS_def : state. Lemma Value_bindS_elim {Regs A B E} {a m} {f : A -> monadS Regs B E} {s s'} : List.In (Value a, s') (bindS m f s) -> @@ -235,11 +252,13 @@ Lemma try_catchS_returnS Regs A E1 E2 {a} {h : E1 -> monadS Regs A E2}: reflexivity. Qed. Hint Rewrite try_catchS_returnS : state. +Hint Resolve try_catchS_returnS : state. Lemma try_catchS_failS Regs A E1 E2 {msg} {h : E1 -> monadS Regs A E2}: try_catchS (failS msg) h = failS msg. reflexivity. Qed. Hint Rewrite try_catchS_failS : state. +Hint Resolve try_catchS_failS : state. Lemma try_catchS_throwS Regs A E1 E2 {e} {h : E1 -> monadS Regs A E2}: try_catchS (throwS e) h === h e. intro s. @@ -248,6 +267,7 @@ simpl. auto using List.app_nil_r. Qed. Hint Rewrite try_catchS_throwS : state. +Hint Resolve try_catchS_throwS : state. Lemma try_catchS_cong (*[cong]:*) {Regs A E1 E2 m1 m2} {h1 h2 : E1 -> monadS Regs A E2} : m1 === m2 -> @@ -385,6 +405,7 @@ induction (m s) as [ | [[a | [e | msg]] t]]. * simpl. apply IHl. Qed. Hint Rewrite ignore_throw_bindS : ignore_throw. +Hint Resolve ignore_throw_bindS : ignore_throw. Lemma try_catchS_bindS_no_throw {Regs A B E1 E2} {m1 : monadS Regs A E1} {m2 : monadS Regs A E2} {f : A -> monadS Regs B _} {h} : ignore_throw m1 === m1 -> @@ -445,6 +466,10 @@ Hint Rewrite no_throw_basic_builtins_1 no_throw_basic_builtins_2 no_throw_basic_builtins_3 no_throw_basic_builtins_4 no_throw_basic_builtins_5 no_throw_basic_builtins_6 no_throw_basic_builtins_7 : ignore_throw. +Hint Resolve no_throw_basic_builtins_1 no_throw_basic_builtins_2 + no_throw_basic_builtins_3 no_throw_basic_builtins_4 + no_throw_basic_builtins_5 no_throw_basic_builtins_6 + no_throw_basic_builtins_7 : ignore_throw. Lemma ignore_throw_option_case_distrib_1 Regs B C E1 E2 (c : sequential_state Regs -> option B) s (n : monadS Regs C E1) (f : B -> monadS Regs C E1) : ignore_throw (E2 := E2) (match c s with None => n | Some b => f b end) s = @@ -468,6 +493,7 @@ unfold read_memt_bytesS. autorewrite with ignore_throw. apply bindS_cong; auto. intros. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_1 : ignore_throw. +Hint Resolve no_throw_mem_builtins_1 : ignore_throw. Lemma no_throw_mem_builtins_2 Regs E1 E2 rk a sz : ignore_throw (E2 := E2) (@read_mem_bytesS Regs E1 rk a sz) === read_mem_bytesS rk a sz. unfold read_mem_bytesS. autorewrite with ignore_throw. @@ -475,10 +501,12 @@ apply bindS_cong; intros; autorewrite with ignore_throw; auto. destruct a0; reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_2 : ignore_throw. +Hint Resolve no_throw_mem_builtins_2 : ignore_throw. Lemma no_throw_mem_builtins_3 Regs A E1 E2 a : ignore_throw (E2 := E2) (@read_tagS Regs A E1 a) === read_tagS a. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_3 : ignore_throw. +Hint Resolve no_throw_mem_builtins_3 : ignore_throw. Lemma no_throw_mem_builtins_4 Regs A V E1 E2 rk a sz H : ignore_throw (E2 := E2) (@read_memtS Regs E1 A V rk a sz H) === read_memtS rk a sz. unfold read_memtS. autorewrite with ignore_throw. @@ -487,6 +515,7 @@ reflexivity. destruct a0; simpl. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_4 : ignore_throw. +Hint Resolve no_throw_mem_builtins_4 : ignore_throw. Lemma no_throw_mem_builtins_5 Regs A V E1 E2 rk a sz H : ignore_throw (E2 := E2) (@read_memS Regs E1 A V rk a sz H) === read_memS rk a sz. unfold read_memS. autorewrite with ignore_throw. @@ -494,36 +523,43 @@ apply bindS_cong; intros; autorewrite with ignore_throw; auto. destruct a0; auto. Qed. Hint Rewrite no_throw_mem_builtins_5 : ignore_throw. +Hint Resolve no_throw_mem_builtins_5 : ignore_throw. Lemma no_throw_mem_builtins_6 Regs E1 E2 wk addr sz v t : ignore_throw (E2 := E2) (@write_memt_bytesS Regs E1 wk addr sz v t) === write_memt_bytesS wk addr sz v t. unfold write_memt_bytesS. unfold seqS. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_6 : ignore_throw. +Hint Resolve no_throw_mem_builtins_6 : ignore_throw. Lemma no_throw_mem_builtins_7 Regs E1 E2 wk addr sz v : ignore_throw (E2 := E2) (@write_mem_bytesS Regs E1 wk addr sz v) === write_mem_bytesS wk addr sz v. unfold write_mem_bytesS. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_7 : ignore_throw. +Hint Resolve no_throw_mem_builtins_7 : ignore_throw. Lemma no_throw_mem_builtins_8 Regs E1 E2 A B wk addr sz v t : ignore_throw (E2 := E2) (@write_memtS Regs E1 A B wk addr sz v t) === write_memtS wk addr sz v t. unfold write_memtS. rewrite ignore_throw_option_case_distrib_2. -destruct (Sail2_values.mem_bytes_of_bits v); autorewrite with ignore_throw; auto. +destruct (Sail.Values.mem_bytes_of_bits v); autorewrite with ignore_throw; auto. Qed. Hint Rewrite no_throw_mem_builtins_8 : ignore_throw. +Hint Resolve no_throw_mem_builtins_8 : ignore_throw. Lemma no_throw_mem_builtins_9 Regs E1 E2 A B wk addr sz v : ignore_throw (E2 := E2) (@write_memS Regs E1 A B wk addr sz v) === write_memS wk addr sz v. unfold write_memS. autorewrite with ignore_throw; auto. Qed. Hint Rewrite no_throw_mem_builtins_9 : ignore_throw. +Hint Resolve no_throw_mem_builtins_9 : ignore_throw. Lemma no_throw_mem_builtins_10 Regs E1 E2 : ignore_throw (E2 := E2) (@excl_resultS Regs E1 tt) === excl_resultS tt. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_10 : ignore_throw. +Hint Resolve no_throw_mem_builtins_10 : ignore_throw. Lemma no_throw_mem_builtins_11 Regs E1 E2 : ignore_throw (E2 := E2) (@undefined_boolS Regs E1 tt) === undefined_boolS tt. reflexivity. Qed. Hint Rewrite no_throw_mem_builtins_11 : ignore_throw. +Hint Resolve no_throw_mem_builtins_11 : ignore_throw. Lemma no_throw_read_regvalS Regs RV E1 E2 r reg_name : ignore_throw (E2 := E2) (@read_regvalS Regs RV E1 r reg_name) === read_regvalS r reg_name. @@ -532,6 +568,7 @@ apply bindS_cong; intros; auto. rewrite ignore_throw_option_case_distrib_2. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_read_regvalS : ignore_throw. +Hint Resolve no_throw_read_regvalS : ignore_throw. Lemma no_throw_write_regvalS Regs RV E1 E2 r reg_name v : ignore_throw (E2 := E2) (@write_regvalS Regs RV E1 r reg_name v) === write_regvalS r reg_name v. @@ -540,3 +577,5 @@ apply bindS_cong; intros; auto. rewrite ignore_throw_option_case_distrib_2. autorewrite with ignore_throw. reflexivity. Qed. Hint Rewrite no_throw_write_regvalS : ignore_throw. +Hint Resolve no_throw_write_regvalS : ignore_throw. + diff --git a/prover_snapshots/coq/lib/sail/Sail2_string.v b/prover_snapshots/coq/lib/sail/String.v index a0a2393..5b4e120 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_string.v +++ b/prover_snapshots/coq/lib/sail/String.v @@ -1,5 +1,6 @@ -Require Import Sail2_values. +Require Import Sail.Values. Require Import Coq.Strings.Ascii. +Local Open Scope Z. Definition string_sub (s : string) (start : Z) (len : Z) : string := String.substring (Z.to_nat start) (Z.to_nat len) s. @@ -8,15 +9,15 @@ Definition string_startswith s expected := let prefix := String.substring 0 (String.length expected) s in generic_eq prefix expected. -Definition string_drop s (n : Z) `{ArithFact (n >= 0)} := +Definition string_drop s (n : Z) `{ArithFact (n >=? 0)} := let n := Z.to_nat n in String.substring n (String.length s - n) s. -Definition string_take s (n : Z) `{ArithFact (n >= 0)} := +Definition string_take s (n : Z) `{ArithFact (n >=? 0)} := let n := Z.to_nat n in String.substring 0 n s. -Definition string_length s : {n : Z & ArithFact (n >= 0)} := +Definition string_length s : {n : Z & ArithFact (n >=? 0)} := build_ex (Z.of_nat (String.length s)). Definition string_append := String.append. @@ -56,7 +57,7 @@ match s with else (acc, len) end end. -Local Definition int_of (s : string) (base : Z) (len : nat) : option (Z * {n : Z & ArithFact (n >= 0)}) := +Local Definition int_of (s : string) (base : Z) (len : nat) : option (Z * {n : Z & ArithFact (n >=? 0)}) := match s with | EmptyString => None | String h t => @@ -74,7 +75,7 @@ end. (* I've stuck closely to OCaml's int_of_string, because that's what's currently used elsewhere. *) -Definition maybe_int_of_prefix (s : string) : option (Z * {n : Z & ArithFact (n >= 0)}) := +Definition maybe_int_of_prefix (s : string) : option (Z * {n : Z & ArithFact (n >=? 0)}) := match s with | EmptyString => None | String "0" (String ("x"|"X") t) => int_of t 16 2 @@ -105,16 +106,16 @@ Fixpoint n_leading_spaces (s:string) : nat := | _ => 0 end. -Definition opt_spc_matches_prefix s : option (unit * {n : Z & ArithFact (n >= 0)}) := +Definition opt_spc_matches_prefix s : option (unit * {n : Z & ArithFact (n >=? 0)}) := Some (tt, build_ex (Z.of_nat (n_leading_spaces s))). -Definition spc_matches_prefix s : option (unit * {n : Z & ArithFact (n >= 0)}) := +Definition spc_matches_prefix s : option (unit * {n : Z & ArithFact (n >=? 0)}) := match n_leading_spaces s with | O => None | S n => Some (tt, build_ex (Z.of_nat (S n))) end. -Definition hex_bits_n_matches_prefix sz `{ArithFact (sz >= 0)} s : option (mword sz * {n : Z & ArithFact (n >= 0)}) := +Definition hex_bits_n_matches_prefix sz `{ArithFact (sz >=? 0)} s : option (mword sz * {n : Z & ArithFact (n >=? 0)}) := match maybe_int_of_prefix s with | None => None | Some (n, len) => @@ -180,6 +181,23 @@ match z with | Zneg p => String "-" (string_of_N (pos_limit p) (Npos p) "") end. +Local Definition asciiA : N := Ascii.N_of_ascii "A". +Local Fixpoint hex_string_of_N (limit : nat) (n : N) (acc : string) : string := +match limit with +| O => acc +| S limit' => + let (d,m) := N.div_eucl n 16 in + let digit := if 10 <=? m then m - 10 + asciiA else m + zero in + let acc := String (Ascii.ascii_of_N digit) acc in + if N.ltb 0 d then hex_string_of_N limit' d acc else acc +end%N. +Definition hex_string_of_int (z : Z) : string := +match z with +| Z0 => "0" +| Zpos p => hex_string_of_N (pos_limit p) (Npos p) "" +| Zneg p => String "-" (hex_string_of_N (pos_limit p) (Npos p) "") +end. + Definition decimal_string_of_bv {a} `{Bitvector a} (bv : a) : string := match unsigned bv with | None => "?" @@ -191,4 +209,5 @@ Definition decimal_string_of_bits {n} (bv : mword n) : string := decimal_string_ (* Some aliases for compatibility. *) Definition dec_str := string_of_int. +Definition hex_str := hex_string_of_int. Definition concat_str := String.append. diff --git a/prover_snapshots/coq/lib/sail/Sail2_values.v b/prover_snapshots/coq/lib/sail/Values.v index 208f5c8..2cab87f 100644 --- a/prover_snapshots/coq/lib/sail/Sail2_values.v +++ b/prover_snapshots/coq/lib/sail/Values.v @@ -5,15 +5,17 @@ Require Export ZArith. Require Import Ascii. Require Export String. Require Import bbv.Word. +Require Export bbv.HexNotationWord. Require Export List. Require Export Sumbool. Require Export DecidableClass. Require Import Eqdep_dec. Require Export Zeuclid. -Require Import Psatz. +Require Import Lia. Import ListNotations. -Open Scope Z. +Local Open Scope Z. +Local Open Scope bool. Module Z_eq_dec. Definition U := Z. @@ -26,26 +28,75 @@ Module ZEqdep := DecidableEqDep (Z_eq_dec). can be added to, and a typeclass to wrap constraint arguments in to trigger automatic solving. *) Create HintDb sail. -Class ArithFact (P : Prop) := { fact : P }. -Lemma use_ArithFact {P} `(ArithFact P) : P. +(* Facts translated from Sail's type system are wrapped in ArithFactP or + ArithFact so that the solver can be invoked automatically by Coq's + typeclass mechanism. Most properties are boolean, which enjoys proof + irrelevance by UIP. *) +Class ArithFactP (P : Prop) := { fact : P }. +Class ArithFact (P : bool) := ArithFactClass : ArithFactP (P = true). +Lemma use_ArithFact {P} `(ArithFact P) : P = true. +unfold ArithFact in *. apply fact. Defined. +Lemma ArithFact_irrelevant (P : bool) (p q : ArithFact P) : p = q. +destruct p,q. +f_equal. +apply Eqdep_dec.UIP_dec. +apply Bool.bool_dec. +Qed. + +Ltac replace_ArithFact_proof := + match goal with |- context[?x] => + match tt with + | _ => is_var x; fail 1 + | _ => + match type of x with ArithFact ?P => + let pf := fresh "pf" in + generalize x as pf; intro pf; + repeat multimatch goal with |- context[?y] => + match type of y with ArithFact P => + match y with + | pf => idtac + | _ => rewrite <- (ArithFact_irrelevant P pf y) + end + end + end + end + end + end. + +Ltac generalize_ArithFact_proof_in H := + match type of H with context f [?x] => + match type of x with ArithFactP (?P = true) => + let pf := fresh "pf" in + cut (forall (pf : ArithFact P), ltac:(let t := context f[pf] in exact t)); + [ clear H; intro H + | intro pf; rewrite <- (ArithFact_irrelevant P x pf); apply H ] + | ArithFact ?P => + let pf := fresh "pf" in + cut (forall (pf : ArithFact P), ltac:(let t := context f[pf] in exact t)); + [ clear H; intro H + | intro pf; rewrite <- (ArithFact_irrelevant P x pf); apply H ] + end + end. + (* Allow setoid rewriting through ArithFact *) Require Import Coq.Classes.Morphisms. Require Import Coq.Program.Basics. Require Import Coq.Program.Tactics. + Section Morphism. Local Obligation Tactic := try solve [simpl_relation | firstorder auto]. - -Global Program Instance ArithFact_iff_morphism : - Proper (iff ==> iff) ArithFact. +Global Program Instance ArithFactP_iff_morphism : + Proper (iff ==> iff) ArithFactP. End Morphism. - -Definition build_ex {T:Type} (n:T) {P:T -> Prop} `{H:ArithFact (P n)} : {x : T & ArithFact (P x)} := +Definition build_ex {T:Type} (n:T) {P:T -> Prop} `{H:ArithFactP (P n)} : {x : T & ArithFactP (P x)} := existT _ n H. +Definition build_ex2 {T:Type} {T':T -> Type} (n:T) (m:T' n) {P:T -> Prop} `{H:ArithFactP (P n)} : {x : T & T' x & ArithFactP (P x)} := + existT2 _ _ n m H. Definition generic_eq {T:Type} (x y:T) `{Decidable (x = y)} := Decidable_witness. Definition generic_neq {T:Type} (x y:T) `{Decidable (x = y)} := negb Decidable_witness. @@ -73,18 +124,25 @@ destruct Decidable_witness; simpl in *; congruence. Qed. Instance Decidable_eq_from_dec {T:Type} (eqdec: forall x y : T, {x = y} + {x <> y}) : - forall (x y : T), Decidable (eq x y) := { + forall (x y : T), Decidable (eq x y). +refine (fun x y => {| Decidable_witness := proj1_sig (bool_of_sumbool (eqdec x y)) -}. +|}). destruct (eqdec x y); simpl; split; congruence. Defined. +Instance Decidable_eq_unit : forall (x y : unit), Decidable (x = y). +refine (fun x y => {| Decidable_witness := true |}). +destruct x, y; split; auto. +Defined. + Instance Decidable_eq_string : forall (x y : string), Decidable (x = y) := Decidable_eq_from_dec String.string_dec. -Instance Decidable_eq_pair {A B : Type} `(DA : forall x y : A, Decidable (x = y), DB : forall x y : B, Decidable (x = y)) : forall x y : A*B, Decidable (x = y) := -{ Decidable_witness := andb (@Decidable_witness _ (DA (fst x) (fst y))) -(@Decidable_witness _ (DB (snd x) (snd y))) }. +Instance Decidable_eq_pair {A B : Type} `(DA : forall x y : A, Decidable (x = y), DB : forall x y : B, Decidable (x = y)) : forall x y : A*B, Decidable (x = y). +refine (fun x y => +{| Decidable_witness := andb (@Decidable_witness _ (DA (fst x) (fst y))) + (@Decidable_witness _ (DB (snd x) (snd y))) |}). destruct x as [x1 x2]. destruct y as [y1 y2]. simpl. @@ -123,16 +181,20 @@ Ltac cmp_record_field x y := ]. +Notation "x <=? y <=? z" := ((x <=? y) && (y <=? z)) (at level 70, y at next level) : Z_scope. +Notation "x <=? y <? z" := ((x <=? y) && (y <? z)) (at level 70, y at next level) : Z_scope. +Notation "x <? y <? z" := ((x <? y) && (y <? z)) (at level 70, y at next level) : Z_scope. +Notation "x <? y <=? z" := ((x <? y) && (y <=? z)) (at level 70, y at next level) : Z_scope. (* Project away range constraints in comparisons *) -Definition ltb_range_l {lo hi} (l : {x & ArithFact (lo <= x /\ x <= hi)}) r := Z.ltb (projT1 l) r. -Definition leb_range_l {lo hi} (l : {x & ArithFact (lo <= x /\ x <= hi)}) r := Z.leb (projT1 l) r. -Definition gtb_range_l {lo hi} (l : {x & ArithFact (lo <= x /\ x <= hi)}) r := Z.gtb (projT1 l) r. -Definition geb_range_l {lo hi} (l : {x & ArithFact (lo <= x /\ x <= hi)}) r := Z.geb (projT1 l) r. -Definition ltb_range_r {lo hi} l (r : {x & ArithFact (lo <= x /\ x <= hi)}) := Z.ltb l (projT1 r). -Definition leb_range_r {lo hi} l (r : {x & ArithFact (lo <= x /\ x <= hi)}) := Z.leb l (projT1 r). -Definition gtb_range_r {lo hi} l (r : {x & ArithFact (lo <= x /\ x <= hi)}) := Z.gtb l (projT1 r). -Definition geb_range_r {lo hi} l (r : {x & ArithFact (lo <= x /\ x <= hi)}) := Z.geb l (projT1 r). +Definition ltb_range_l {lo hi} (l : {x & ArithFact (lo <=? x <=? hi)}) r := Z.ltb (projT1 l) r. +Definition leb_range_l {lo hi} (l : {x & ArithFact (lo <=? x <=? hi)}) r := Z.leb (projT1 l) r. +Definition gtb_range_l {lo hi} (l : {x & ArithFact (lo <=? x <=? hi)}) r := Z.gtb (projT1 l) r. +Definition geb_range_l {lo hi} (l : {x & ArithFact (lo <=? x <=? hi)}) r := Z.geb (projT1 l) r. +Definition ltb_range_r {lo hi} l (r : {x & ArithFact (lo <=? x <=? hi)}) := Z.ltb l (projT1 r). +Definition leb_range_r {lo hi} l (r : {x & ArithFact (lo <=? x <=? hi)}) := Z.leb l (projT1 r). +Definition gtb_range_r {lo hi} l (r : {x & ArithFact (lo <=? x <=? hi)}) := Z.gtb l (projT1 r). +Definition geb_range_r {lo hi} l (r : {x & ArithFact (lo <=? x <=? hi)}) := Z.geb l (projT1 r). Definition ii := Z. Definition nn := nat. @@ -140,23 +202,23 @@ Definition nn := nat. (*val pow : Z -> Z -> Z*) Definition pow m n := m ^ n. -Program Definition pow2 n : {z : Z & ArithFact (2 ^ n <= z <= 2 ^ n)} := existT _ (pow 2 n) _. +Program Definition pow2 n : {z : Z & ArithFact (2 ^ n <=? z <=? 2 ^ n)} := existT _ (pow 2 n) _. Next Obligation. constructor. unfold pow. -auto using Z.le_refl. +auto using Z.leb_refl with bool. Qed. -Lemma ZEuclid_div_pos : forall x y, y > 0 -> x >= 0 -> ZEuclid.div x y >= 0. +Lemma ZEuclid_div_pos : forall x y, 0 < y -> 0 <= x -> 0 <= ZEuclid.div x y. intros. unfold ZEuclid.div. change 0 with (0 * 0). -apply Zmult_ge_compat; auto with zarith. -* apply Z.le_ge. apply Z.sgn_nonneg. apply Z.ge_le. auto with zarith. -* apply Z_div_ge0; auto. apply Z.lt_gt. apply Z.abs_pos. auto with zarith. +apply Zmult_le_compat; auto with zarith. +* apply Z.sgn_nonneg. auto with zarith. +* apply Z_div_pos; auto. apply Z.lt_gt. apply Z.abs_pos. auto with zarith. Qed. -Lemma ZEuclid_pos_div : forall x y, y > 0 -> ZEuclid.div x y >= 0 -> x >= 0. +Lemma ZEuclid_pos_div : forall x y, 0 < y -> 0 <= ZEuclid.div x y -> 0 <= x. intros x y GT. specialize (ZEuclid.div_mod x y); specialize (ZEuclid.mod_always_pos x y); @@ -197,6 +259,13 @@ Qed. Hint Resolve ZEuclid_div_pos ZEuclid_pos_div ZEuclid_div_ge ZEuclid_div_mod0 : sail. +Lemma Z_geb_ge n m : (n >=? m) = true <-> n >= m. +rewrite Z.geb_leb. +split. +* intro. apply Z.le_ge, Z.leb_le. assumption. +* intro. apply Z.ge_le in H. apply Z.leb_le. assumption. +Qed. + (* Definition inline lt := (<) @@ -808,19 +877,25 @@ apply Z2Nat.inj_lt. Close Scope nat. (*val access_list_inc : forall a. list a -> Z -> a*) -Definition access_list_inc {A} (xs : list A) n `{ArithFact (0 <= n)} `{ArithFact (n < length_list xs)} := nth_in_range (Z.to_nat n) xs (nth_Z_nat (use_ArithFact _) (use_ArithFact _)). +Definition access_list_inc {A} (xs : list A) n `{ArithFact (0 <=? n)} `{ArithFact (n <? length_list xs)} : A. +refine (nth_in_range (Z.to_nat n) xs (nth_Z_nat _ _)). +* apply Z.leb_le. + auto using use_ArithFact. +* apply Z.ltb_lt. + auto using use_ArithFact. +Defined. (*val access_list_dec : forall a. list a -> Z -> a*) -Definition access_list_dec {A} (xs : list A) n `{ArithFact (0 <= n)} `{ArithFact (n < length_list xs)} : A. +Definition access_list_dec {A} (xs : list A) n `{H1:ArithFact (0 <=? n)} `{H2:ArithFact (n <? length_list xs)} : A. refine ( let top := (length_list xs) - 1 in @access_list_inc A xs (top - n) _ _). -constructor. apply use_ArithFact in H. apply use_ArithFact in H0. omega. -constructor. apply use_ArithFact in H. apply use_ArithFact in H0. omega. +abstract (constructor; apply use_ArithFact, Z.leb_le in H1; apply use_ArithFact, Z.ltb_lt in H2; apply Z.leb_le; omega). +abstract (constructor; apply use_ArithFact, Z.leb_le in H1; apply use_ArithFact, Z.ltb_lt in H2; apply Z.ltb_lt; omega). Defined. (*val access_list : forall a. bool -> list a -> Z -> a*) -Definition access_list {A} (is_inc : bool) (xs : list A) n `{ArithFact (0 <= n)} `{ArithFact (n < length_list xs)} := +Definition access_list {A} (is_inc : bool) (xs : list A) n `{ArithFact (0 <=? n)} `{ArithFact (n <? length_list xs)} := if is_inc then access_list_inc xs n else access_list_dec xs n. Definition access_list_opt_inc {A} (xs : list A) n := nth_error xs (Z.to_nat n). @@ -877,15 +952,15 @@ match n with | Zpos _ => fun f w => f w end. -Program Definition to_word {n} : n >= 0 -> word (Z.to_nat n) -> mword n := +Program Definition to_word {n} : n >=? 0 = true -> word (Z.to_nat n) -> mword n := match n with | Zneg _ => fun H _ => _ | Z0 => fun _ w => w | Zpos _ => fun _ w => w end. -Definition word_to_mword {n} (w : word (Z.to_nat n)) `{H:ArithFact (n >= 0)} : mword n := - to_word (match H with Build_ArithFact _ H' => H' end) w. +Definition word_to_mword {n} (w : word (Z.to_nat n)) `{H:ArithFact (n >=? 0)} : mword n := + to_word (use_ArithFact H) w. (*val length_mword : forall a. mword a -> Z*) Definition length_mword {n} (w : mword n) := n. @@ -961,7 +1036,7 @@ Definition update_mword {a} (is_inc : bool) (w : mword a) n b := if is_inc then update_mword_inc w n b else update_mword_dec w n b. (*val int_of_mword : forall 'a. bool -> mword 'a -> integer*) -Definition int_of_mword {a} `{ArithFact (a >= 0)} (sign : bool) (w : mword a) := +Definition int_of_mword {a} `{ArithFact (a >=? 0)} (sign : bool) (w : mword a) := if sign then wordToZ (get_word w) else Z.of_N (wordToN (get_word w)). @@ -970,16 +1045,18 @@ Definition mword_of_int len n := let w := wordFromInteger n in if (length_mword w = len) then w else failwith "unexpected word length" *) -Program Definition mword_of_int {len} `{H:ArithFact (len >= 0)} n : mword len := +Program Definition mword_of_int {len} `{H:ArithFact (len >=? 0)} n : mword len := match len with | Zneg _ => _ | Z0 => ZToWord 0 n | Zpos p => ZToWord (Pos.to_nat p) n end. Next Obligation. -destruct H. -auto. +destruct H as [H]. +unfold Z.geb, Z.compare in H. +discriminate. Defined. + (* (* Translating between a type level number (itself n) and an integer *) @@ -1048,20 +1125,9 @@ Instance bitlist_Bitvector {a : Type} `{BitU a} : (Bitvector (list a)) := { }. Class ReasonableSize (a : Z) : Prop := { - isPositive : a >= 0 + isPositive : a >=? 0 = true }. -(* Omega doesn't know about In, but can handle disjunctions. *) -Ltac unfold_In := -repeat match goal with -| H:context [member_Z_list _ _ = true] |- _ => rewrite member_Z_list_In in H -| H:context [In ?x (?y :: ?t)] |- _ => change (In x (y :: t)) with (y = x \/ In x t) in H -| H:context [In ?x []] |- _ => change (In x []) with False in H -| |- context [member_Z_list _ _ = true] => rewrite member_Z_list_In -| |- context [In ?x (?y :: ?t)] => change (In x (y :: t)) with (y = x \/ In x t) -| |- context [In ?x []] => change (In x []) with False -end. - (* Definitions in the context that involve proof for other constraints can break some of the constraint solving tactics, so prune definition bodies down to integer types. *) @@ -1074,17 +1140,54 @@ repeat match goal with X := _ |- _ => match goal with _ : context[X] |- _ => idtac end || clear X end. -Lemma ArithFact_mword (a : Z) (w : mword a) : ArithFact (a >= 0). +Lemma lift_bool_exists (l r : bool) (P : bool -> Prop) : + (l = r -> exists x, P x) -> + (exists x, l = r -> P x). +intro H. +destruct (Bool.bool_dec l r) as [e | ne]. +* destruct (H e) as [x H']; eauto. +* exists true; tauto. +Qed. + +Lemma ArithFact_mword (a : Z) (w : mword a) : ArithFact (a >=? 0). constructor. destruct a. auto with zarith. auto using Z.le_ge, Zle_0_pos. destruct w. Qed. +(* Remove constructor from ArithFact(P)s and if they're used elsewhere + in the context create a copy that rewrites will work on. *) Ltac unwrap_ArithFacts := - repeat match goal with H:(ArithFact _) |- _ => let H' := fresh H in case H as [H']; clear H end. + let gen X := + let Y := fresh "Y" in pose X as Y; generalize Y + in + let unwrap H := + let H' := fresh H in case H as [H']; clear H; + match goal with + | _ : context[H'] |- _ => gen H' + | _ := context[H'] |- _ => gen H' + | |- context[H'] => gen H' + | _ => idtac + end + in + repeat match goal with + | H:(ArithFact _) |- _ => unwrap H + | H:(ArithFactP _) |- _ => unwrap H + end. Ltac unbool_comparisons := repeat match goal with + | H:@eq bool _ _ -> @ex bool _ |- _ => apply lift_bool_exists in H; destruct H + | H:@ex Z _ |- _ => destruct H + (* Omega doesn't know about In, but can handle disjunctions. *) + | H:context [member_Z_list _ _ = true] |- _ => rewrite member_Z_list_In in H + | H:context [In ?x (?y :: ?t)] |- _ => change (In x (y :: t)) with (y = x \/ In x t) in H + | H:context [In ?x []] |- _ => change (In x []) with False in H + | H:?v = true |- _ => is_var v; subst v + | H:?v = false |- _ => is_var v; subst v + | H:true = ?v |- _ => is_var v; subst v + | H:false = ?v |- _ => is_var v; subst v + | H:_ /\ _ |- _ => destruct H | H:context [Z.geb _ _] |- _ => rewrite Z.geb_leb in H | H:context [Z.gtb _ _] |- _ => rewrite Z.gtb_ltb in H | H:context [Z.leb _ _ = true] |- _ => rewrite Z.leb_le in H @@ -1099,15 +1202,29 @@ Ltac unbool_comparisons := | H:context [andb _ _ = false] |- _ => rewrite Bool.andb_false_iff in H | H:context [negb _ = true] |- _ => rewrite Bool.negb_true_iff in H | H:context [negb _ = false] |- _ => rewrite Bool.negb_false_iff in H + | H:context [Bool.eqb _ ?r = true] |- _ => rewrite Bool.eqb_true_iff in H; + try (is_var r; subst r) + | H:context [Bool.eqb _ _ = false] |- _ => rewrite Bool.eqb_false_iff in H | H:context [generic_eq _ _ = true] |- _ => apply generic_eq_true in H | H:context [generic_eq _ _ = false] |- _ => apply generic_eq_false in H | H:context [generic_neq _ _ = true] |- _ => apply generic_neq_true in H | H:context [generic_neq _ _ = false] |- _ => apply generic_neq_false in H | H:context [_ <> true] |- _ => rewrite Bool.not_true_iff_false in H | H:context [_ <> false] |- _ => rewrite Bool.not_false_iff_true in H + | H:context [@eq bool ?l ?r] |- _ => + lazymatch r with + | true => fail + | false => fail + | _ => rewrite (Bool.eq_iff_eq_true l r) in H + end end. Ltac unbool_comparisons_goal := repeat match goal with + (* Important to have these early in the list - setoid_rewrite can + unfold member_Z_list. *) + | |- context [member_Z_list _ _ = true] => rewrite member_Z_list_In + | |- context [In ?x (?y :: ?t)] => change (In x (y :: t)) with (y = x \/ In x t) + | |- context [In ?x []] => change (In x []) with False | |- context [Z.geb _ _] => setoid_rewrite Z.geb_leb | |- context [Z.gtb _ _] => setoid_rewrite Z.gtb_ltb | |- context [Z.leb _ _ = true] => setoid_rewrite Z.leb_le @@ -1122,12 +1239,20 @@ Ltac unbool_comparisons_goal := | |- context [andb _ _ = false] => setoid_rewrite Bool.andb_false_iff | |- context [negb _ = true] => setoid_rewrite Bool.negb_true_iff | |- context [negb _ = false] => setoid_rewrite Bool.negb_false_iff + | |- context [Bool.eqb _ _ = true] => setoid_rewrite Bool.eqb_true_iff + | |- context [Bool.eqb _ _ = false] => setoid_rewrite Bool.eqb_false_iff | |- context [generic_eq _ _ = true] => apply generic_eq_true | |- context [generic_eq _ _ = false] => apply generic_eq_false | |- context [generic_neq _ _ = true] => apply generic_neq_true | |- context [generic_neq _ _ = false] => apply generic_neq_false | |- context [_ <> true] => setoid_rewrite Bool.not_true_iff_false | |- context [_ <> false] => setoid_rewrite Bool.not_false_iff_true + | |- context [@eq bool _ ?r] => + lazymatch r with + | true => fail + | false => fail + | _ => setoid_rewrite Bool.eq_iff_eq_true + end end. (* Split up dependent pairs to get at proofs of properties *) @@ -1352,10 +1477,12 @@ end; (* We may have uncovered more conjunctions *) repeat match goal with H:and _ _ |- _ => destruct H end. +(* Remove details of embedded proofs. *) Ltac generalize_embedded_proofs := repeat match goal with H:context [?X] |- _ => - match type of X with ArithFact _ => - generalize dependent X + match type of X with + | ArithFact _ => generalize dependent X + | ArithFactP _ => generalize dependent X end end; intros. @@ -1409,7 +1536,6 @@ Ltac prepare_for_solver := unbool_comparisons_goal; repeat match goal with H:and _ _ |- _ => destruct H end; remove_unnecessary_casesplit; - unfold_In; (* after unbool_comparisons to deal with && and || *) reduce_list_lengths; reduce_pow; filter_disjunctions; @@ -1418,9 +1544,9 @@ Ltac prepare_for_solver := subst; clean_up_props. -Lemma trivial_range {x : Z} : ArithFact (x <= x /\ x <= x). +Lemma trivial_range {x : Z} : ArithFact ((x <=? x <=? x)). constructor. -auto with zarith. +auto using Z.leb_refl with bool. Qed. Lemma ArithFact_self_proof {P} : forall x : {y : Z & ArithFact (P y)}, ArithFact (P (projT1 x)). @@ -1428,14 +1554,19 @@ intros [x H]. exact H. Qed. +Lemma ArithFactP_self_proof {P} : forall x : {y : Z & ArithFactP (P y)}, ArithFactP (P (projT1 x)). +intros [x H]. +exact H. +Qed. + Ltac fill_in_evar_eq := - match goal with |- ArithFact (?x = ?y) => + match goal with |- ArithFact (?x =? ?y) => (is_evar x || is_evar y); (* compute to allow projections to remove proofs that might not be allowed in the evar *) (* Disabled because cbn may reduce definitions, even after clearbody let x := eval cbn in x in let y := eval cbn in y in*) - idtac "Warning: unknown equality constraint"; constructor; exact (eq_refl _ : x = y) end. + idtac "Warning: unknown equality constraint"; constructor; exact (Z.eqb_refl _ : x =? y = true) end. Ltac bruteforce_bool_exists := match goal with @@ -1470,6 +1601,71 @@ repeat match goal with intros end; nia. +(* Try to get the linear arithmetic solver to do booleans. *) + +Lemma b2z_true x : x = true <-> Z.b2z x = 1. +destruct x; compute; split; congruence. +Qed. + +Lemma b2z_false x : x = false <-> Z.b2z x = 0. +destruct x; compute; split; congruence. +Qed. + +Lemma b2z_tf x : 0 <= Z.b2z x <= 1. +destruct x; simpl; omega. +Qed. + +Lemma b2z_andb a b : + Z.b2z (a && b) = Z.min (Z.b2z a) (Z.b2z b). +destruct a,b; reflexivity. +Qed. +Lemma b2z_orb a b : + Z.b2z (a || b) = Z.max (Z.b2z a) (Z.b2z b). +destruct a,b; reflexivity. +Qed. + +Lemma b2z_eq : forall a b, Z.b2z a = Z.b2z b <-> a = b. +intros [|] [|]; +simpl; +intuition try congruence. +Qed. + +Lemma b2z_negb x : Z.b2z (negb x) = 1 - Z.b2z x. + destruct x ; reflexivity. +Qed. + +Ltac bool_to_Z := + subst; + rewrite ?truefalse, ?falsetrue, ?or_False_l, ?or_False_r in *; + (* I did try phrasing these as rewrites, but Coq was oddly reluctant to use them *) + repeat match goal with + | H:?x = ?x <-> _ |- _ => apply iff_equal_l in H + | H:_ <-> ?x = ?x |- _ => apply iff_equal_r in H + end; + repeat match goal with + | H:context [negb ?v] |- _ => rewrite b2z_negb in H + | |- context [negb ?v] => rewrite b2z_negb + | H:context [?v = true] |- _ => is_var v; rewrite (b2z_true v) in * + | |- context [?v = true] => is_var v; rewrite (b2z_true v) in * + | H:context [?v = false] |- _ => is_var v; rewrite (b2z_false v) in * + | |- context [?v = false] => is_var v; rewrite (b2z_false v) in * + | H:context [?v = ?w] |- _ => rewrite <- (b2z_eq v w) in H + | |- context [?v = ?w] => rewrite <- (b2z_eq v w) + | H:context [Z.b2z (?v && ?w)] |- _ => rewrite (b2z_andb v w) in H + | |- context [Z.b2z (?v && ?w)] => rewrite (b2z_andb v w) + | H:context [Z.b2z (?v || ?w)] |- _ => rewrite (b2z_orb v w) in H + | |- context [Z.b2z (?v || ?w)] => rewrite (b2z_orb v w) + end; + change (Z.b2z true) with 1 in *; + change (Z.b2z false) with 0 in *; + repeat match goal with + | _:context [Z.b2z ?v] |- _ => generalize (b2z_tf v); generalize dependent (Z.b2z v) + | |- context [Z.b2z ?v] => generalize (b2z_tf v); generalize dependent (Z.b2z v) + end. +Ltac solve_bool_with_Z := + bool_to_Z; + intros; + lia. (* A more ambitious brute force existential solver. *) @@ -1488,8 +1684,8 @@ Ltac guess_ex_solver := guess_ex_solver*) | |- @ex bool _ => exists true; guess_ex_solver | |- @ex bool _ => exists false; guess_ex_solver - | x : Z |- @ex Z _ => exists x; guess_ex_solver - | _ => solve [tauto | eauto 3 with zarith sail | omega | intuition] + | x : ?ty |- @ex ?ty _ => exists x; guess_ex_solver + | _ => solve [tauto | eauto 3 with zarith sail | solve_bool_with_Z | omega] end. (* A straightforward solver for simple problems like @@ -1520,6 +1716,7 @@ Ltac simple_ex_iff := match goal with | |- @ex _ _ => eexists; simple_ex_iff | |- _ <-> _ => + symmetry; simple_split_iff; form_iff_true; solve [apply iff_refl | eassumption] @@ -1618,7 +1815,7 @@ Ltac ex_iff_solve := | |- @ex _ _ => eexists; ex_iff_solve (* Range constraints are attached to the right *) | |- _ /\ _ => split; [ex_iff_solve | omega] - | |- _ <-> _ => conjuncts_iff_solve + | |- _ <-> _ => conjuncts_iff_solve || (symmetry; conjuncts_iff_solve) end. @@ -1647,41 +1844,73 @@ Ltac z_comparisons := | exact Z_compare_gt_lt | exact Z_compare_gt_eq ]. + +Ltac bool_ex_solve := +match goal with H : ?l = ?v -> @ex _ _ |- @ex _ _ => + match v with true => idtac | false => idtac end; + destruct l; + repeat match goal with H:?X = ?X -> _ |- _ => specialize (H eq_refl) end; + repeat match goal with H:@ex _ _ |- _ => destruct H end; + unbool_comparisons; + guess_ex_solver +end. -(* Try to get the linear arithmetic solver to do booleans. *) - -Lemma b2z_true x : x = true <-> Z.b2z x = 1. -destruct x; compute; split; congruence. -Qed. - -Lemma b2z_false x : x = false <-> Z.b2z x = 0. -destruct x; compute; split; congruence. -Qed. +(* Solve a boolean equality goal which is just rearranged clauses (e.g, at the + end of the clause_matching_bool_solver, below. *) +Ltac bruteforce_bool_eq := + lazymatch goal with + | |- _ && ?l1 = _ => idtac l1; destruct l1; rewrite ?Bool.andb_true_l, ?Bool.andb_true_r, ?Bool.andb_false_l, ?Bool.andb_false_r; bruteforce_bool_eq + | |- ?l = _ => reflexivity + end. -Lemma b2z_tf x : 0 <= Z.b2z x <= 1. -destruct x; simpl; omega. -Qed. +Ltac clause_matching_bool_solver := +(* Do the left hand and right hand clauses have the same shape? *) +let rec check l r := + lazymatch l with + | ?l1 || ?l2 => + lazymatch r with ?r1 || ?r2 => check l1 r1; check l2 r2 end + | ?l1 =? ?l2 => + lazymatch r with ?r1 =? ?r2 => check l1 r1; check l2 r2 end + | _ => is_evar l + constr_eq l r + end +in +(* Rebuild remaining rhs, dropping extra "true"s. *) +let rec add_clause l r := + match l with + | true => r + | _ => match r with true => l | _ => constr:(l && r) end + end +in +(* Find a clause in r matching l, use unify to instantiate evars, return rest of r *) +let rec find l r := + lazymatch r with + | ?r1 && ?r2 => + match l with + | _ => let r1' := find l r1 in add_clause r1' r2 + | _ => let r2' := find l r2 in add_clause r1 r2' + end + | _ => constr:(ltac:(check l r; unify l r; exact true)) + end +in +(* For each clause in the lhs, find a matching clause in rhs, fill in + remaining evar with left over. TODO: apply to goals without an evar clause *) +match goal with + | |- @ex _ _ => eexists; clause_matching_bool_solver + | |- _ = _ /\ _ <= _ <= _ => split; [clause_matching_bool_solver | omega] + | |- ?l = ?r => + let rec clause l r := + match l with + | ?l1 && ?l2 => + let r2 := clause l1 r in clause l2 r2 + | _ => constr:(ltac:(is_evar l; exact r)) + | _ => find l r + end + in let r' := clause l r in + instantiate (1 := r'); + rewrite ?Bool.andb_true_l, ?Bool.andb_assoc; + bruteforce_bool_eq +end. -Ltac solve_bool_with_Z := - subst; - rewrite ?truefalse, ?falsetrue, ?or_False_l, ?or_False_r in *; - (* I did try phrasing these as rewrites, but Coq was oddly reluctant to use them *) - repeat match goal with - | H:?x = ?x <-> _ |- _ => apply iff_equal_l in H - | H:_ <-> ?x = ?x |- _ => apply iff_equal_r in H - end; - repeat match goal with - | H:context [?v = true] |- _ => is_var v; rewrite (b2z_true v) in * - | |- context [?v = true] => is_var v; rewrite (b2z_true v) in * - | H:context [?v = false] |- _ => is_var v; rewrite (b2z_false v) in * - | |- context [?v = false] => is_var v; rewrite (b2z_false v) in * - end; - repeat match goal with - | _:context [Z.b2z ?v] |- _ => generalize (b2z_tf v); generalize dependent (Z.b2z v) - | |- context [Z.b2z ?v] => generalize (b2z_tf v); generalize dependent (Z.b2z v) - end; - intros; - lia. (* Redefine this to add extra solver tactics *) @@ -1749,7 +1978,6 @@ Ltac main_solver := repeat match goal with H:@ex _ _ |- _ => destruct H end; guess_ex_solver end - | match goal with |- @ex _ _ => guess_ex_solver end (* While firstorder was quite effective at dealing with existentially quantified goals from boolean expressions, it attempts lazy normalization of terms, which blows up on integer comparisons with large constants. @@ -1757,6 +1985,9 @@ Ltac main_solver := (* Don't use auto for the fallback to keep runtime down *) firstorder fail end*) + | bool_ex_solve + | clause_matching_bool_solver + | match goal with |- @ex _ _ => guess_ex_solver end | sail_extra_tactic | idtac "Unable to solve constraint"; dump_context; fail ]. @@ -1770,37 +2001,196 @@ Ltac simple_omega := end; omega. Ltac solve_unknown := - match goal with |- (ArithFact (?x ?y)) => + match goal with + | |- (ArithFact (?x ?y)) => + is_evar x; + idtac "Warning: unknown constraint"; + let t := type of y in + unify x (fun (_ : t) => true); + exact (Build_ArithFactP _ eq_refl : ArithFact true) + | |- (ArithFactP (?x ?y)) => is_evar x; idtac "Warning: unknown constraint"; let t := type of y in unify x (fun (_ : t) => True); - exact (Build_ArithFact _ I) + exact (Build_ArithFactP _ I : ArithFactP True) end. -Ltac solve_arithfact := +(* Solving straightforward and_boolMP / or_boolMP goals *) + +Lemma default_and_proof l r r' : + (l = true -> r' = r) -> + l && r' = l && r. + intro H. +destruct l; [specialize (H eq_refl) | clear H ]; auto. +Qed. + +Lemma default_and_proof2 l l' r r' : + l' = l -> + (l = true -> r' = r) -> + l' && r' = l && r. +intros; subst. +auto using default_and_proof. +Qed. + +Lemma default_or_proof l r r' : + (l = false -> r' = r) -> + l || r' = l || r. + intro H. +destruct l; [clear H | specialize (H eq_refl) ]; auto. +Qed. + +Lemma default_or_proof2 l l' r r' : + l' = l -> + (l = false -> r' = r) -> + l' || r' = l || r. +intros; subst. +auto using default_or_proof. +Qed. + +Ltac default_andor := + intros; constructor; intros; + repeat match goal with + | H:@ex _ _ |- _ => destruct H + | H:@eq bool _ _ -> @ex bool _ |- _ => apply lift_bool_exists in H + end; + repeat match goal with |- @ex _ _ => eexists end; + rewrite ?Bool.eqb_true_iff, ?Bool.eqb_false_iff in *; + match goal with + | H:?v = true -> _ |- _ = ?v && _ => solve [eapply default_and_proof; eauto 2] + | H:?v = true -> _ |- _ = ?v && _ => solve [eapply default_and_proof2; eauto 2] + | H:?v = false -> _ |- _ = ?v || _ => solve [eapply default_or_proof; eauto 2] + | H:?v = false -> _ |- _ = ?v || _ => solve [eapply default_or_proof2; eauto 2] + | H:?v = true -> _ |- _ = ?v && _ => solve [rewrite Bool.andb_comm; eapply default_and_proof; eauto 2] + | H:?v = true -> _ |- _ = ?v && _ => solve [rewrite Bool.andb_comm; eapply default_and_proof2; eauto 2] + | H:?v = false -> _ |- _ = ?v || _ => solve [rewrite Bool.orb_comm; eapply default_or_proof; eauto 2] + | H:?v = false -> _ |- _ = ?v || _ => solve [rewrite Bool.orb_comm; eapply default_or_proof2; eauto 2] + end. + +(* Solving simple and_boolMP / or_boolMP goals where unknown booleans + have been merged together. *) + +Ltac squashed_andor_solver := + clear; + match goal with |- forall l r : bool, ArithFactP (_ -> _ -> _) => idtac end; + intros l r; constructor; intros; + let func := match goal with |- context[?f l r] => f end in + match goal with + | H1 : @ex _ _, H2 : l = _ -> @ex _ _ |- _ => + let x1 := fresh "x1" in + let x2 := fresh "x2" in + let H1' := fresh "H1" in + let H2' := fresh "H2" in + apply lift_bool_exists in H2; + destruct H1 as [x1 H1']; destruct H2 as [x2 H2']; + exists x1, x2 + | H : l = _ -> @ex _ _ |- _ => + let x := fresh "x" in + let H' := fresh "H" in + apply lift_bool_exists in H; + destruct H as [x H']; + exists (func x l) + | H : @ex _ _ |- _ => + let x := fresh "x" in + let H' := fresh "H" in + destruct H as [x H']; + exists (func x r) + end; + repeat match goal with + | H : l = _ -> @ex _ _ |- _ => + let x := fresh "x" in + let H' := fresh "H" in + apply lift_bool_exists in H; + destruct H as [x H']; + exists x + | H : @ex _ _ |- _ => + let x := fresh "x" in + let H' := fresh "H" in + destruct H as [x H']; + exists x + end; + (* Attempt to shrink size of problem. + I originally used just one match here with a non-linear pattern, but it + appears it matched up to convertability and so definitions could break + the generalization. *) + try match goal with + | _ : l = _ -> ?v = r |- _ => match goal with |- context[v] => generalize dependent v; intros end + | _ : l = _ -> Bool.eqb ?v r = true |- _ => match goal with |- context[v] => generalize dependent v; intros end + end; + unbool_comparisons; unbool_comparisons_goal; + repeat match goal with + | _ : context[?li =? ?ri] |- _ => + specialize (Z.eqb_eq li ri); generalize dependent (li =? ri); intros + | |- context[?li =? ?ri] => + specialize (Z.eqb_eq li ri); generalize (li =? ri); intros + end; + solve_bool_with_Z. + +Ltac run_main_solver_impl := (* Attempt a simple proof first to avoid lengthy preparation steps (especially as the large proof terms can upset subsequent proofs). *) -intros; (* To solve implications for derive_m *) -try solve_unknown; -match goal with |- ArithFact (?x <= ?x <= ?x) => try (exact trivial_range) | _ => idtac end; -try fill_in_evar_eq; -try match goal with |- context [projT1 ?X] => apply (ArithFact_self_proof X) end; -(* Trying reflexivity will fill in more complex metavariable examples than - fill_in_evar_eq above, e.g., 8 * n = 8 * ?Goal3 *) -try (constructor; reflexivity); -try (constructor; repeat match goal with |- and _ _ => split end; z_comparisons); -try (constructor; simple_omega); +try solve [default_andor]; +constructor; +try simple_omega; prepare_for_solver; (*dump_context;*) -constructor; +unbool_comparisons_goal; (* Applying the ArithFact constructor will reveal an = true, so this might do more than it did in prepare_for_solver *) repeat match goal with |- and _ _ => split end; main_solver. +(* This can be redefined to remove the abstract. *) +Ltac run_main_solver := + solve + [ abstract run_main_solver_impl + | run_main_solver_impl (* for cases where there's an evar in the goal *) + ]. + +Ltac is_fixpoint ty := + match ty with + | forall _reclimit, Acc _ _reclimit -> _ => idtac + | _ -> ?res => is_fixpoint res + end. + +Ltac clear_fixpoints := + repeat + match goal with + | H:_ -> ?res |- _ => is_fixpoint res; clear H + end. +Ltac clear_proof_bodies := + repeat match goal with + | H := _ : ?ty |- _ => + match type of ty with + | Prop => clearbody H + end + end. + +Ltac solve_arithfact := + clear_proof_bodies; + try solve [squashed_andor_solver]; (* Do this first so that it can name the intros *) + intros; (* To solve implications for derive_m *) + clear_fixpoints; (* Avoid using recursive calls *) + cbv beta; (* Goal might be eta-expanded *) + solve + [ solve_unknown + | assumption + | match goal with |- ArithFact ((?x <=? ?x <=? ?x)) => exact trivial_range end + | eauto 2 with sail (* the low search bound might not be necessary *) + | fill_in_evar_eq + | match goal with |- context [projT1 ?X] => apply (ArithFact_self_proof X) end + | match goal with |- context [projT1 ?X] => apply (ArithFactP_self_proof X) end + (* Trying reflexivity will fill in more complex metavariable examples than + fill_in_evar_eq above, e.g., 8 * n =? 8 * ?Goal3 *) + | constructor; apply Z.eqb_eq; reflexivity + | constructor; repeat match goal with |- and _ _ => split end; z_comparisons + | run_main_solver + ]. + (* Add an indirection so that you can redefine run_solver to fail to get slow running constraints into proof mode. *) Ltac run_solver := solve_arithfact. + Hint Extern 0 (ArithFact _) => run_solver : typeclass_instances. +Hint Extern 0 (ArithFactP _) => run_solver : typeclass_instances. Hint Unfold length_mword : sail. @@ -1820,13 +2210,11 @@ auto using Z.le_ge, Zle_0_pos. destruct w. Qed. -Hint Extern 0 (ReasonableSize ?A) => (unwrap_ArithFacts; solve [apply ReasonableSize_witness; assumption | constructor; omega]) : typeclass_instances. - -Definition to_range (x : Z) : {y : Z & ArithFact (x <= y <= x)} := build_ex x. - +Hint Extern 0 (ReasonableSize ?A) => (unwrap_ArithFacts; solve [apply ReasonableSize_witness; assumption | constructor; auto with zarith]) : typeclass_instances. +Definition to_range (x : Z) : {y : Z & ArithFact ((x <=? y <=? x))} := build_ex x. -Instance mword_Bitvector {a : Z} `{ArithFact (a >= 0)} : (Bitvector (mword a)) := { +Instance mword_Bitvector {a : Z} `{ArithFact (a >=? 0)} : (Bitvector (mword a)) := { bits_of v := List.map bitU_of_bool (bitlistFromWord (get_word v)); of_bits v := option_map (fun bl => to_word isPositive (fit_bbv_word (wordFromBitlist bl))) (just_list (List.map bool_of_bitU v)); of_bools v := to_word isPositive (fit_bbv_word (wordFromBitlist v)); @@ -2159,7 +2547,7 @@ Fixpoint foreach_Z' {Vars} from to step n (vars : Vars) (body : Z -> Vars -> Var Definition foreach_Z {Vars} from to step vars body := foreach_Z' (Vars := Vars) from to step (S (Z.abs_nat (from - to))) vars body. -Fixpoint foreach_Z_up' {Vars} from to step off n `{ArithFact (0 < step)} `{ArithFact (0 <= off)} (vars : Vars) (body : forall (z : Z) `(ArithFact (from <= z <= to)), Vars -> Vars) {struct n} : Vars := +Fixpoint foreach_Z_up' {Vars} (from to step off : Z) (n:nat) `{ArithFact (0 <? step)} `{ArithFact (0 <=? off)} (vars : Vars) (body : forall (z : Z) `(ArithFact ((from <=? z <=? to))), Vars -> Vars) {struct n} : Vars := if sumbool_of_bool (from + off <=? to) then match n with | O => vars @@ -2167,7 +2555,7 @@ Fixpoint foreach_Z_up' {Vars} from to step off n `{ArithFact (0 < step)} `{Arith end else vars. -Fixpoint foreach_Z_down' {Vars} from to step off n `{ArithFact (0 < step)} `{ArithFact (off <= 0)} (vars : Vars) (body : forall (z : Z) `(ArithFact (to <= z <= from)), Vars -> Vars) {struct n} : Vars := +Fixpoint foreach_Z_down' {Vars} from to step off n `{ArithFact (0 <? step)} `{ArithFact (off <=? 0)} (vars : Vars) (body : forall (z : Z) `(ArithFact ((to <=? z <=? from))), Vars -> Vars) {struct n} : Vars := if sumbool_of_bool (to <=? from + off) then match n with | O => vars @@ -2175,9 +2563,9 @@ Fixpoint foreach_Z_down' {Vars} from to step off n `{ArithFact (0 < step)} `{Ari end else vars. -Definition foreach_Z_up {Vars} from to step vars body `{ArithFact (0 < step)} := +Definition foreach_Z_up {Vars} from to step vars body `{ArithFact (0 <? step)} := foreach_Z_up' (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. -Definition foreach_Z_down {Vars} from to step vars body `{ArithFact (0 < step)} := +Definition foreach_Z_down {Vars} from to step vars body `{ArithFact (0 <? step)} := foreach_Z_down' (Vars := Vars) from to step 0 (S (Z.abs_nat (from - to))) vars body. (*val while : forall vars. vars -> (vars -> bool) -> (vars -> vars) -> vars @@ -2270,27 +2658,27 @@ end (* Arithmetic functions which return proofs that match the expected Sail types in smt.sail. *) -Definition ediv_with_eq n m : {o : Z & ArithFact (o = ZEuclid.div n m)} := build_ex (ZEuclid.div n m). -Definition emod_with_eq n m : {o : Z & ArithFact (o = ZEuclid.modulo n m)} := build_ex (ZEuclid.modulo n m). -Definition abs_with_eq n : {o : Z & ArithFact (o = Z.abs n)} := build_ex (Z.abs n). +Definition ediv_with_eq n m : {o : Z & ArithFact (o =? ZEuclid.div n m)} := build_ex (ZEuclid.div n m). +Definition emod_with_eq n m : {o : Z & ArithFact (o =? ZEuclid.modulo n m)} := build_ex (ZEuclid.modulo n m). +Definition abs_with_eq n : {o : Z & ArithFact (o =? Z.abs n)} := build_ex (Z.abs n). (* Similarly, for ranges (currently in MIPS) *) -Definition eq_range {n m o p} (l : {l & ArithFact (n <= l <= m)}) (r : {r & ArithFact (o <= r <= p)}) : bool := +Definition eq_range {n m o p} (l : {l & ArithFact (n <=? l <=? m)}) (r : {r & ArithFact (o <=? r <=? p)}) : bool := (projT1 l) =? (projT1 r). -Definition add_range {n m o p} (l : {l & ArithFact (n <= l <= m)}) (r : {r & ArithFact (o <= r <= p)}) - : {x & ArithFact (n+o <= x <= m+p)} := +Definition add_range {n m o p} (l : {l & ArithFact (n <=? l <=? m)}) (r : {r & ArithFact (o <=? r <=? p)}) + : {x & ArithFact (n+o <=? x <=? m+p)} := build_ex ((projT1 l) + (projT1 r)). -Definition sub_range {n m o p} (l : {l & ArithFact (n <= l <= m)}) (r : {r & ArithFact (o <= r <= p)}) - : {x & ArithFact (n-p <= x <= m-o)} := +Definition sub_range {n m o p} (l : {l & ArithFact (n <=? l <=? m)}) (r : {r & ArithFact (o <=? r <=? p)}) + : {x & ArithFact (n-p <=? x <=? m-o)} := build_ex ((projT1 l) - (projT1 r)). -Definition negate_range {n m} (l : {l : Z & ArithFact (n <= l <= m)}) - : {x : Z & ArithFact ((- m) <= x <= (- n))} := +Definition negate_range {n m} (l : {l : Z & ArithFact (n <=? l <=? m)}) + : {x : Z & ArithFact ((- m) <=? x <=? (- n))} := build_ex (- (projT1 l)). -Definition min_atom (a : Z) (b : Z) : {c : Z & ArithFact ((c = a \/ c = b) /\ c <= a /\ c <= b)} := +Definition min_atom (a : Z) (b : Z) : {c : Z & ArithFact (((c =? a) || (c =? b)) && (c <=? a) && (c <=? b))} := build_ex (Z.min a b). -Definition max_atom (a : Z) (b : Z) : {c : Z & ArithFact ((c = a \/ c = b) /\ c >= a /\ c >= b)} := +Definition max_atom (a : Z) (b : Z) : {c : Z & ArithFact (((c =? a) || (c =? b)) && (c >=? a) && (c >=? b))} := build_ex (Z.max a b). @@ -2298,15 +2686,18 @@ Definition max_atom (a : Z) (b : Z) : {c : Z & ArithFact ((c = a \/ c = b) /\ c Definition vec (T:Type) (n:Z) := { l : list T & length_list l = n }. Definition vec_length {T n} (v : vec T n) := n. -Definition vec_access_dec {T n} (v : vec T n) m `{ArithFact (0 <= m < n)} : T := +Definition vec_access_dec {T n} (v : vec T n) m `{ArithFact ((0 <=? m <? n))} : T := access_list_dec (projT1 v) m. -Definition vec_access_inc {T n} (v : vec T n) m `{ArithFact (0 <= m < n)} : T := + +Definition vec_access_inc {T n} (v : vec T n) m `{ArithFact (0 <=? m <? n)} : T := access_list_inc (projT1 v) m. -Program Definition vec_init {T} (t : T) (n : Z) `{ArithFact (n >= 0)} : vec T n := +Program Definition vec_init {T} (t : T) (n : Z) `{ArithFact (n >=? 0)} : vec T n := existT _ (repeat [t] n) _. Next Obligation. -rewrite repeat_length; auto using fact. +intros. +cbv beta. +rewrite repeat_length. 2: apply Z_geb_ge, fact. unfold length_list. simpl. auto with zarith. @@ -2354,21 +2745,25 @@ rewrite skipn_length; omega. Qed. -Program Definition vec_update_dec {T n} (v : vec T n) m t `{ArithFact (0 <= m < n)} : vec T n := existT _ (update_list_dec (projT1 v) m t) _. +Program Definition vec_update_dec {T n} (v : vec T n) m t `{ArithFact (0 <=? m <? n)} : vec T n := existT _ (update_list_dec (projT1 v) m t) _. Next Obligation. +intros; cbv beta. unfold update_list_dec. rewrite update_list_inc_length. + destruct v. apply e. -+ destruct H. ++ destruct H as [H]. + unbool_comparisons. destruct v. simpl (projT1 _). rewrite e. omega. Qed. -Program Definition vec_update_inc {T n} (v : vec T n) m t `{ArithFact (0 <= m < n)} : vec T n := existT _ (update_list_inc (projT1 v) m t) _. +Program Definition vec_update_inc {T n} (v : vec T n) m t `{ArithFact (0 <=? m <? n)} : vec T n := existT _ (update_list_inc (projT1 v) m t) _. Next Obligation. +intros; cbv beta. rewrite update_list_inc_length. + destruct v. apply e. + destruct H. + unbool_comparisons. destruct v. simpl (projT1 _). rewrite e. omega. Qed. @@ -2388,6 +2783,7 @@ Program Definition just_vec {A n} (v : vec (option A) n) : option (vec A n) := | Some v' => Some (existT _ v' _) end. Next Obligation. +intros; cbv beta. rewrite <- (just_list_length_Z _ _ Heq_anonymous). destruct v. assumption. @@ -2403,9 +2799,10 @@ refine (if List.list_eq_dec D (projT1 x) (projT1 y) then left _ else right _). Defined. Instance Decidable_eq_vec {T : Type} {n} `(DT : forall x y : T, Decidable (x = y)) : - forall x y : vec T n, Decidable (x = y) := { + forall x y : vec T n, Decidable (x = y). +refine (fun x y => {| Decidable_witness := proj1_sig (bool_of_sumbool (vec_eq_dec (fun x y => generic_dec x y) x y)) -}. +|}). destruct (vec_eq_dec _ x y); simpl; split; congruence. Defined. @@ -2425,51 +2822,68 @@ match a with | None => None end. -Definition sub_nat (x : Z) `{ArithFact (x >= 0)} (y : Z) `{ArithFact (y >= 0)} : - {z : Z & ArithFact (z >= 0)} := +Definition sub_nat (x : Z) `{ArithFact (x >=? 0)} (y : Z) `{ArithFact (y >=? 0)} : + {z : Z & ArithFact (z >=? 0)} := let z := x - y in if sumbool_of_bool (z >=? 0) then build_ex z else build_ex 0. -Definition min_nat (x : Z) `{ArithFact (x >= 0)} (y : Z) `{ArithFact (y >= 0)} : - {z : Z & ArithFact (z >= 0)} := +Definition min_nat (x : Z) `{ArithFact (x >=? 0)} (y : Z) `{ArithFact (y >=? 0)} : + {z : Z & ArithFact (z >=? 0)} := build_ex (Z.min x y). -Definition max_nat (x : Z) `{ArithFact (x >= 0)} (y : Z) `{ArithFact (y >= 0)} : - {z : Z & ArithFact (z >= 0)} := +Definition max_nat (x : Z) `{ArithFact (x >=? 0)} (y : Z) `{ArithFact (y >=? 0)} : + {z : Z & ArithFact (z >=? 0)} := build_ex (Z.max x y). -Definition shl_int_8 (x y : Z) `{HE:ArithFact (x = 8)} `{HR:ArithFact (0 <= y <= 3)}: {z : Z & ArithFact (In z [8;16;32;64])}. +Definition shl_int_1 (x y : Z) `{HE:ArithFact (x =? 1)} `{HR:ArithFact (0 <=? y <=? 3)}: {z : Z & ArithFact (member_Z_list z [1;2;4;8])}. refine (existT _ (shl_int x y) _). destruct HE as [HE]. destruct HR as [HR]. -assert (H : y = 0 \/ y = 1 \/ y = 2 \/ y = 3) by omega. +unbool_comparisons. +assert (y = 0 \/ y = 1 \/ y = 2 \/ y = 3) by omega. constructor. intuition (subst; compute; auto). Defined. -Definition shl_int_32 (x y : Z) `{HE:ArithFact (x = 32)} `{HR:ArithFact (In y [0;1])}: {z : Z & ArithFact (In z [32;64])}. +Definition shl_int_8 (x y : Z) `{HE:ArithFact (x =? 8)} `{HR:ArithFact (0 <=? y <=? 3)}: {z : Z & ArithFact (member_Z_list z [8;16;32;64])}. refine (existT _ (shl_int x y) _). destruct HE as [HE]. -destruct HR as [[HR1 | [HR2 | []]]]; -subst; compute; -auto using Build_ArithFact. +destruct HR as [HR]. +unbool_comparisons. +assert (y = 0 \/ y = 1 \/ y = 2 \/ y = 3) by omega. +constructor. +intuition (subst; compute; auto). Defined. -Definition shr_int_32 (x y : Z) `{HE:ArithFact (0 <= x <= 31)} `{HR:ArithFact (y = 1)}: {z : Z & ArithFact (0 <= z <= 15)}. -refine (existT _ (shr_int x y) _). +Definition shl_int_32 (x y : Z) `{HE:ArithFact (x =? 32)} `{HR:ArithFact (member_Z_list y [0;1])}: {z : Z & ArithFact (member_Z_list z [32;64])}. +refine (existT _ (shl_int x y) _). destruct HE as [HE]. -destruct HR as [HR]; -subst. -unfold shr_int. -rewrite <- Z.div2_spec. +destruct HR as [HR]. constructor. -rewrite Z.div2_div. -specialize (Z.div_mod x 2). -specialize (Z.mod_pos_bound x 2). -generalize (Z.div x 2). -generalize (x mod 2). -intros. -nia. +unbool_comparisons. +destruct HR as [HR | [HR | []]]; +subst; compute; +auto. +Defined. + +Definition shr_int_32 (x y : Z) `{HE:ArithFact (0 <=? x <=? 31)} `{HR:ArithFact (y =? 1)}: {z : Z & ArithFact (0 <=? z <=? 15)}. +refine (existT _ (shr_int x y) _). +abstract ( + destruct HE as [HE]; + destruct HR as [HR]; + unbool_comparisons; + subst; + constructor; + unbool_comparisons_goal; + unfold shr_int; + rewrite <- Z.div2_spec; + rewrite Z.div2_div; + specialize (Z.div_mod x 2); + specialize (Z.mod_pos_bound x 2); + generalize (Z.div x 2); + generalize (x mod 2); + intros; + nia). Defined. Lemma shl_8_ge_0 {n} : shl_int 8 n >= 0. diff --git a/prover_snapshots/coq/lib/sail/Values_lemmas.v b/prover_snapshots/coq/lib/sail/Values_lemmas.v new file mode 100644 index 0000000..8444937 --- /dev/null +++ b/prover_snapshots/coq/lib/sail/Values_lemmas.v @@ -0,0 +1,392 @@ +Require Import Sail.Values. + +(* + +lemma while_domI: + fixes V :: "'vars \<Rightarrow> nat" + assumes "\<And>vars. cond vars \<Longrightarrow> V (body vars) < V vars" + shows "while_dom (vars, cond, body)" + by (induction vars rule: measure_induct_rule[where f = V]) + (use assms in \<open>auto intro: while.domintros\<close>) + +lemma nat_of_int_nat_simps[simp]: "nat_of_int = nat" by (auto simp: nat_of_int_def) + +termination reverse_endianness_list by (lexicographic_order simp add: drop_list_def) +declare reverse_endianness_list.simps[simp del] +declare take_list_def[simp] +declare drop_list_def[simp] +*) +Import ListNotations. +Require Program.Wf. + +Lemma skipn_length T n (xs : list T) : + n <> 0%nat -> + xs <> [] -> + (List.length (skipn n xs) < List.length xs)%nat. +revert n. +induction xs. +* congruence. +* destruct n. + + congruence. + + intros _ _. simpl. + destruct xs. + - destruct n; simpl; auto. + - destruct n; auto. + apply Nat.lt_lt_succ_r. + apply IHxs; congruence. +Qed. + +Program Fixpoint take_chunks {a} (n : nat) (xs : list a) {measure (List.length xs)} : list (list a) := + match xs with + | [] => [] + | _ => match n with O => [] | _ => (firstn n xs)::take_chunks n (skipn n xs) end + end. +Next Obligation. +apply skipn_length; auto. +Qed. + +(* +lemma take_chunks_length_leq_n: "length xs \<le> n \<Longrightarrow> xs \<noteq> [] \<Longrightarrow> take_chunks n xs = [xs]" + by (cases n) auto + +lemma take_chunks_append: "n dvd length a \<Longrightarrow> take_chunks n (a @ b) = take_chunks n a @ take_chunks n b" + by (induction n a rule: take_chunks.induct) (auto simp: dvd_imp_le) + +lemma Suc8_plus8: "Suc (Suc (Suc (Suc (Suc (Suc (Suc (Suc x))))))) = 8 + x" + by auto + +lemma byte_chunks_take_chunks_8: + assumes "8 dvd length xs" + shows "byte_chunks xs = Some (take_chunks 8 xs)" +proof - + have Suc8_plus8: "Suc (Suc (Suc (Suc (Suc (Suc (Suc (Suc x))))))) = 8 + x" for x + by auto + from assms show ?thesis + by (induction xs rule: byte_chunks.induct) (auto simp: Suc8_plus8 nat_dvd_not_less) +qed + +lemma reverse_endianness_list_rev_take_chunks: + "reverse_endianness_list bits = List.concat (rev (take_chunks 8 bits))" + by (induction "8 :: nat" bits rule: take_chunks.induct) + (auto simp: reverse_endianness_list.simps) + +lemma reverse_endianness_list_simps: + "length bits \<le> 8 \<Longrightarrow> reverse_endianness_list bits = bits" + "length bits > 8 \<Longrightarrow> reverse_endianness_list bits = reverse_endianness_list (drop 8 bits) @ take 8 bits" + by (cases bits; auto simp: reverse_endianness_list_rev_take_chunks)+ + +lemma reverse_endianness_list_append: + assumes "8 dvd length a" + shows "reverse_endianness_list (a @ b) = reverse_endianness_list b @ reverse_endianness_list a" + using assms by (auto simp: reverse_endianness_list_rev_take_chunks take_chunks_append) + +lemma length_reverse_endianness_list[simp]: + "length (reverse_endianness_list l) = length l" + by (induction l rule: reverse_endianness_list.induct) (auto simp: reverse_endianness_list.simps) + +lemma reverse_endianness_list_take_8[simp]: + "reverse_endianness_list (take 8 bits) = take 8 bits" + by (auto simp: reverse_endianness_list_simps) + +lemma reverse_reverse_endianness_list[simp]: + assumes "8 dvd length l" + shows "reverse_endianness_list (reverse_endianness_list l) = l" +proof (use assms in \<open>induction l rule: reverse_endianness_list.induct[case_names Step]\<close>) + case (Step bits) + then show ?case + by (auto simp: reverse_endianness_list.simps[of bits] reverse_endianness_list_append) +qed + +declare repeat.simps[simp del] + +lemma length_repeat[simp]: "length (repeat xs n) = nat n * length xs" +proof (induction xs n rule: repeat.induct[case_names Step]) + case (Step xs n) + then show ?case unfolding repeat.simps[of xs n] + by (auto simp del: mult_Suc simp: mult_Suc[symmetric]) +qed + +lemma nth_repeat: + assumes "i < nat n * length xs" + shows "repeat xs n ! i = xs ! (i mod length xs)" +proof (use assms in \<open>induction xs n arbitrary: i rule: repeat.induct[case_names Step]\<close>) + case (Step xs n i) + show ?case + using Step.prems Step.IH[of "i - length xs"] + unfolding repeat.simps[of xs n] + by (auto simp: nth_append mod_geq[symmetric] nat_diff_distrib diff_mult_distrib) +qed + +termination index_list + by (relation "measure (\<lambda>(i, j, step). nat ((j - i + step) * sgn step))") auto + +lemma index_list_Zero[simp]: "index_list i j 0 = []" + by auto + +lemma index_list_singleton[simp]: "n \<noteq> 0 \<Longrightarrow> index_list i i n = [i]" + by auto + +lemma index_list_simps: + "0 < step \<Longrightarrow> from \<le> to \<Longrightarrow> index_list from to step = from # index_list (from + step) to step" + "0 < step \<Longrightarrow> from > to \<Longrightarrow> index_list from to step = []" + "0 > step \<Longrightarrow> from \<ge> to \<Longrightarrow> index_list from to step = from # index_list (from + step) to step" + "0 > step \<Longrightarrow> from < to \<Longrightarrow> index_list from to step = []" + by auto + +lemma index_list_step1_upto[simp]: "index_list i j 1 = [i..j]" + by (induction i j "1 :: int" rule: index_list.induct) + (auto simp: index_list_simps upto.simps) + +lemma length_upto[simp]: "i \<le> j \<Longrightarrow> length [i..j] = nat (j - i + 1)" + by (induction i j rule: upto.induct) (auto simp: upto.simps) + +lemma nth_upto[simp]: "i + int n \<le> j \<Longrightarrow> [i..j] ! n = i + int n" + by (induction i j arbitrary: n rule: upto.induct) + (auto simp: upto.simps nth_Cons split: nat.splits) + +declare index_list.simps[simp del] + +lemma genlist_add_upt[simp]: "genlist ((+) start) len = [start..<start + len]" + by (auto simp: genlist_def map_add_upt add.commute cong: map_cong) + +lemma just_list_map_Some[simp]: "just_list (map Some v) = Some v" by (induction v) auto + +lemma just_list_None_iff[simp]: "just_list xs = None \<longleftrightarrow> None \<in> set xs" + by (induction xs) (auto split: option.splits) + +lemma just_list_None_member_None: "None \<in> set xs \<Longrightarrow> just_list xs = None" + by auto + +lemma just_list_Some_iff[simp]: "just_list xs = Some ys \<longleftrightarrow> xs = map Some ys" + by (induction xs arbitrary: ys) (auto split: option.splits) + +lemma just_list_cases: + assumes "just_list xs = y" + obtains (None) "None \<in> set xs" and "y = None" + | (Some) ys where "xs = map Some ys" and "y = Some ys" + using assms by (cases y) auto + +lemma repeat_singleton_replicate[simp]: + "repeat [x] n = replicate (nat n) x" +proof (induction n) + case (nonneg n) + have "nat (1 + int m) = Suc m" for m by auto + then show ?case by (induction n) (auto simp: repeat.simps) +next + case (neg n) + then show ?case by (auto simp: repeat.simps) +qed + +lemma and_bit_B1[simp]: "and_bit B1 b = b" + by (cases b) auto + +lemma and_bit_idem[simp]: "and_bit b b = b" + by (cases b) auto + +lemma and_bit_eq_iff: + "and_bit b b' = B0 \<longleftrightarrow> (b = B0 \<or> b' = B0)" + "and_bit b b' = BU \<longleftrightarrow> (b = BU \<or> b' = BU) \<and> b \<noteq> B0 \<and> b' \<noteq> B0" + "and_bit b b' = B1 \<longleftrightarrow> (b = B1 \<and> b' = B1)" + by (cases b; cases b'; auto)+ + +lemma foldl_and_bit_eq_iff: + shows "foldl and_bit b bs = B0 \<longleftrightarrow> (b = B0 \<or> B0 \<in> set bs)" (is ?B0) + and "foldl and_bit b bs = B1 \<longleftrightarrow> (b = B1 \<and> set bs \<subseteq> {B1})" (is ?B1) + and "foldl and_bit b bs = BU \<longleftrightarrow> (b = BU \<or> BU \<in> set bs) \<and> b \<noteq> B0 \<and> B0 \<notin> set bs" (is ?BU) +proof - + have "?B0 \<and> ?B1 \<and> ?BU" + proof (induction bs arbitrary: b) + case (Cons b' bs) + show ?case using Cons.IH by (cases b; cases b') auto + qed auto + then show ?B0 and ?B1 and ?BU by auto +qed + +lemma bool_of_bitU_simps[simp]: + "bool_of_bitU B0 = Some False" + "bool_of_bitU B1 = Some True" + "bool_of_bitU BU = None" + by (auto simp: bool_of_bitU_def) + +lemma bitops_bitU_of_bool[simp]: + "and_bit (bitU_of_bool x) (bitU_of_bool y) = bitU_of_bool (x \<and> y)" + "or_bit (bitU_of_bool x) (bitU_of_bool y) = bitU_of_bool (x \<or> y)" + "xor_bit (bitU_of_bool x) (bitU_of_bool y) = bitU_of_bool ((x \<or> y) \<and> \<not>(x \<and> y))" + "not_bit (bitU_of_bool x) = bitU_of_bool (\<not>x)" + "not_bit \<circ> bitU_of_bool = bitU_of_bool \<circ> Not" + by (auto simp: bitU_of_bool_def not_bit_def) + +lemma image_bitU_of_bool_B0_B1: "bitU_of_bool ` bs \<subseteq> {B0, B1}" + by (auto simp: bitU_of_bool_def split: if_splits) + +lemma bool_of_bitU_bitU_of_bool[simp]: + "bool_of_bitU \<circ> bitU_of_bool = Some" + "bool_of_bitU \<circ> (bitU_of_bool \<circ> f) = Some \<circ> f" + "bool_of_bitU (bitU_of_bool x) = Some x" + by (intro ext, auto simp: bool_of_bitU_def bitU_of_bool_def)+ + +abbreviation "BC_bitU_list \<equiv> instance_Sail2_values_Bitvector_list_dict instance_Sail2_values_BitU_Sail2_values_bitU_dict" +lemmas BC_bitU_list_def = instance_Sail2_values_Bitvector_list_dict_def instance_Sail2_values_BitU_Sail2_values_bitU_dict_def +abbreviation "BC_mword \<equiv> instance_Sail2_values_Bitvector_Machine_word_mword_dict" +lemmas BC_mword_defs = instance_Sail2_values_Bitvector_Machine_word_mword_dict_def + access_mword_def access_mword_inc_def access_mword_dec_def + (*update_mword_def update_mword_inc_def update_mword_dec_def*) + subrange_list_def subrange_list_inc_def subrange_list_dec_def + update_subrange_list_def update_subrange_list_inc_def update_subrange_list_dec_def + +declare size_itself_int_def[simp] +declare size_itself_def[simp] +declare word_size[simp] + +lemma int_of_mword_simps[simp]: + "int_of_mword False w = uint w" + "int_of_mword True w = sint w" + "int_of_bv BC_mword False w = Some (uint w)" + "int_of_bv BC_mword True w = Some (sint w)" + by (auto simp: int_of_mword_def int_of_bv_def BC_mword_defs) + +lemma BC_mword_simps[simp]: + "unsigned_method BC_mword a = Some (uint a)" + "signed_method BC_mword a = Some (sint a)" + "length_method BC_mword (a :: ('a :: len) word) = int (LENGTH('a))" + by (auto simp: BC_mword_defs) + +lemma of_bits_mword_of_bl[simp]: + assumes "just_list (map bool_of_bitU bus) = Some bs" + shows "of_bits_method BC_mword bus = Some (of_bl bs)" + and "of_bits_failwith BC_mword bus = of_bl bs" + using assms by (auto simp: BC_mword_defs of_bits_failwith_def maybe_failwith_def) + +lemma nat_of_bits_aux_bl_to_bin_aux: + "nat_of_bools_aux acc bs = nat (bl_to_bin_aux bs (int acc))" + by (induction acc bs rule: nat_of_bools_aux.induct) + (auto simp: Bit_def intro!: arg_cong[where f = nat] arg_cong2[where f = bl_to_bin_aux] split: if_splits) + +lemma nat_of_bits_bl_to_bin[simp]: + "nat_of_bools bs = nat (bl_to_bin bs)" + by (auto simp: nat_of_bools_def bl_to_bin_def nat_of_bits_aux_bl_to_bin_aux) + +lemma unsigned_bits_of_mword[simp]: + "unsigned_method BC_bitU_list (bits_of_method BC_mword a) = Some (uint a)" + by (auto simp: BC_bitU_list_def BC_mword_defs unsigned_of_bits_def unsigned_of_bools_def) +*) +Definition mem_bytes_of_word {a} (w : mword a) : list (list bitU) := + List.rev (take_chunks 8 (bits_of w)). +(* +lemma mem_bytes_of_bits_mem_bytes_of_word[simp]: + assumes "8 dvd LENGTH('a)" + shows "mem_bytes_of_bits BC_mword (w :: 'a::len word) = Some (mem_bytes_of_word w)" + using assms + by (auto simp: mem_bytes_of_bits_def bytes_of_bits_def BC_mword_defs byte_chunks_take_chunks_8 mem_bytes_of_word_def) + +lemma bits_of_bitU_list[simp]: + "bits_of_method BC_bitU_list v = v" + "of_bits_method BC_bitU_list v = Some v" + by (auto simp: BC_bitU_list_def) + +lemma subrange_list_inc_drop_take: + "subrange_list_inc xs i j = drop (nat i) (take (nat (j + 1)) xs)" + by (auto simp: subrange_list_inc_def split_at_def) + +lemma subrange_list_dec_drop_take: + assumes "i \<ge> 0" and "j \<ge> 0" + shows "subrange_list_dec xs i j = drop (length xs - nat (i + 1)) (take (length xs - nat j) xs)" + using assms unfolding subrange_list_dec_def + by (auto simp: subrange_list_inc_drop_take add.commute diff_diff_add nat_minus_as_int) + +lemma update_subrange_list_inc_drop_take: + assumes "i \<ge> 0" and "j \<ge> i" + shows "update_subrange_list_inc xs i j xs' = take (nat i) xs @ xs' @ drop (nat (j + 1)) xs" + using assms unfolding update_subrange_list_inc_def + by (auto simp: split_at_def min_def) + +lemma update_subrange_list_dec_drop_take: + assumes "j \<ge> 0" and "i \<ge> j" + shows "update_subrange_list_dec xs i j xs' = take (length xs - nat (i + 1)) xs @ xs' @ drop (length xs - nat j) xs" + using assms unfolding update_subrange_list_dec_def update_subrange_list_inc_def + by (auto simp: split_at_def min_def Let_def add.commute diff_diff_add nat_minus_as_int) + +declare access_list_inc_def[simp] + +lemma access_list_dec_rev_nth: + assumes "0 \<le> i" and "nat i < length xs" + shows "access_list_dec xs i = rev xs ! (nat i)" + using assms + by (auto simp: access_list_dec_def rev_nth intro!: arg_cong2[where f = List.nth]) + +lemma access_bv_dec_mword[simp]: + fixes w :: "('a::len) word" + assumes "0 \<le> n" and "nat n < LENGTH('a)" + shows "access_bv_dec BC_mword w n = bitU_of_bool (w !! (nat n))" + using assms unfolding access_bv_dec_def access_list_def + by (auto simp: access_list_dec_rev_nth BC_mword_defs rev_map test_bit_bl) + +lemma access_list_dec_nth[simp]: + assumes "0 \<le> i" + shows "access_list_dec xs i = xs ! (length xs - nat (i + 1))" + using assms + by (auto simp: access_list_dec_def add.commute diff_diff_add nat_minus_as_int) + +lemma update_list_inc_update[simp]: + "update_list_inc xs n x = xs[nat n := x]" + by (auto simp: update_list_inc_def) + +lemma update_list_dec_update[simp]: + "update_list_dec xs n x = xs[length xs - nat (n + 1) := x]" + by (auto simp: update_list_dec_def add.commute diff_diff_add nat_minus_as_int) + +lemma update_list_dec_update_rev: + "0 \<le> n \<Longrightarrow> nat n < length xs \<Longrightarrow> update_list_dec xs n x = rev ((rev xs)[nat n := x])" + by (auto simp: update_list_dec_def add.commute diff_diff_add nat_minus_as_int rev_update) + +lemma access_list_dec_update_list_dec[simp]: + "0 \<le> n \<Longrightarrow> nat n < length xs \<Longrightarrow> access_list_dec (update_list_dec xs n x) n = x" + by (auto simp: access_list_dec_rev_nth update_list_dec_update_rev) + +lemma bools_of_nat_aux_simps[simp]: + "\<And>len. len \<le> 0 \<Longrightarrow> bools_of_nat_aux len x acc = acc" + "\<And>len. bools_of_nat_aux (int (Suc len)) x acc = + bools_of_nat_aux (int len) (x div 2) ((if x mod 2 = 1 then True else False) # acc)" + by auto +declare bools_of_nat_aux.simps[simp del] + +lemma bools_of_nat_aux_bin_to_bl_aux: + "bools_of_nat_aux len n acc = bin_to_bl_aux (nat len) (int n) acc" +proof (cases len) + case (nonneg len') + show ?thesis unfolding nonneg + proof (induction len' arbitrary: n acc) + case (Suc len'' n acc) + then show ?case + using zmod_int[of n 2] + by (auto simp del: of_nat_simps simp add: bin_rest_def bin_last_def zdiv_int) + qed auto +qed auto + +lemma bools_of_nat_bin_to_bl[simp]: + "bools_of_nat len n = bin_to_bl (nat len) (int n)" + by (auto simp: bools_of_nat_def bools_of_nat_aux_bin_to_bl_aux) + +lemma add_one_bool_ignore_overflow_aux_rbl_succ[simp]: + "add_one_bool_ignore_overflow_aux xs = rbl_succ xs" + by (induction xs) auto + +lemma add_one_bool_ignore_overflow_rbl_succ[simp]: + "add_one_bool_ignore_overflow xs = rev (rbl_succ (rev xs))" + unfolding add_one_bool_ignore_overflow_def by auto + +lemma map_Not_bin_to_bl: + "map Not (bin_to_bl_aux len n acc) = bin_to_bl_aux len (-n - 1) (map Not acc)" +proof (induction len arbitrary: n acc) + case (Suc len n acc) + moreover have "(- (n div 2) - 1) = ((-n - 1) div 2)" by auto + moreover have "(n mod 2 = 0) = ((- n - 1) mod 2 = 1)" by presburger + ultimately show ?case by (auto simp: bin_rest_def bin_last_def) +qed auto + +lemma bools_of_int_bin_to_bl[simp]: + "bools_of_int len n = bin_to_bl (nat len) n" + by (auto simp: bools_of_int_def Let_def map_Not_bin_to_bl rbl_succ[unfolded bin_to_bl_def]) + +end +*) diff --git a/prover_snapshots/coq/lib/sail/_CoqProject b/prover_snapshots/coq/lib/sail/_CoqProject index 9f5d26b..bef6a4d 100644 --- a/prover_snapshots/coq/lib/sail/_CoqProject +++ b/prover_snapshots/coq/lib/sail/_CoqProject @@ -1,2 +1 @@ --R . Sail --R ../../../bbv/theories bbv +-Q . Sail |