val operand_reg8 (n: nat) : operand64
let operand_reg8 (n:nat) : operand64 = oreg (Reg 0 (8 + n % 8))
val operand_reg8 (n: nat) : operand64
let operand_reg8 (n: nat) : operand64 =
oreg (Reg 0 (8 + n % 8))
Vale.FDefMulx.X64.fst.checked
Vale.X64.State.fsti.checked Vale.X64.Stack_i.fsti.checked Vale.X64.QuickCodes.fsti.checked Vale.X64.QuickCode.fst.checked Vale.X64.Memory.fsti.checked Vale.X64.Machine_s.fst.checked Vale.X64.InsStack.fsti.checked Vale.X64.InsMem.fsti.checked Vale.X64.InsBasic.fsti.checked Vale.X64.Decls.fsti.checked Vale.X64.CPU_Features_s.fst.checked Vale.Def.Words_s.fsti.checked Vale.Def.Types_s.fst.checked Vale.Bignum.X64.fsti.checked Vale.Bignum.Lemmas.fsti.checked Vale.Bignum.Defs.fsti.checked Vale.Arch.Types.fsti.checked prims.fst.checked FStar.Seq.Base.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.Native.fst.checked FStar.Pervasives.fsti.checked FStar.Mul.fst.checked
Vale.FDefMulx.X64.fst
Prims.nat Vale.X64.Machine_s.oreg Vale.X64.Machine_s.Reg Prims.op_Addition Prims.op_Modulus Vale.X64.Machine_s.operand64
module Vale.FDefMulx.X64
open Vale.Def.Types_s
open Vale.Arch.Types
open Vale.X64.Machine_s
open Vale.X64.Memory
open Vale.X64.Stack_i
open Vale.X64.State
open Vale.X64.Decls
open Vale.X64.InsBasic
open Vale.X64.InsMem
open Vale.X64.InsStack
open Vale.X64.QuickCode
open Vale.X64.QuickCodes
open Vale.X64.CPU_Features_s
open Vale.Bignum.Defs
open Vale.Bignum.Lemmas
open Vale.Bignum.X64
open FStar.Mul
open FStar.Seq
open Vale.Def.Words_s
unfold let (.[]) = index

//[@"opaque_to_smt"]
let make_seq9 (#a:Type0) (v0 v1 v2 v3 v4 v5 v6 v7 v8:a) : seq a =
  init 9 (fun i ->
    if i = 0 then v0 else
    if i = 1 then v1 else
    if i = 2 then v2 else
    if i = 3 then v3 else
    if i = 4 then v4 else
    if i = 5 then v5 else
    if i = 6 then v6 else
    if i = 7 then v7 else
    v8)
val operand_reg8 (n: nat) : operand64
n: Prims.nat -> Vale.X64.Machine_s.operand64