val va_qcode_ShiftLeft128_1 (va_mods: va_mods_t) (a: poly)
    : (va_quickCode unit (va_code_ShiftLeft128_1 ()))
let va_qcode_ShiftLeft128_1 (va_mods:va_mods_t) (a:poly) : (va_quickCode unit
  (va_code_ShiftLeft128_1 ())) =
  (qblock va_mods (fun (va_s:va_state) -> let (va_old_s:va_state) = va_s in va_QSeq va_range1
    "***** PRECONDITION NOT MET AT line 59 column 11 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (va_quick_Mov128 (va_op_xmm_xmm 2) (va_op_xmm_xmm 1)) (va_QSeq va_range1
    "***** PRECONDITION NOT MET AT line 60 column 10 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (va_quick_Psrld (va_op_xmm_xmm 2) 31) (va_QSeq va_range1
    "***** PRECONDITION NOT MET AT line 61 column 10 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (va_quick_Pslld (va_op_xmm_xmm 1) 1) (va_QSeq va_range1
    "***** PRECONDITION NOT MET AT line 62 column 13 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (va_quick_VPslldq4 (va_op_xmm_xmm 2) (va_op_xmm_xmm 2)) (va_QBind va_range1
    "***** PRECONDITION NOT MET AT line 63 column 9 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (va_quick_Pxor (va_op_xmm_xmm 1) (va_op_xmm_xmm 2)) (fun (va_s:va_state) _ -> let
    (va_arg8:Vale.Math.Poly2_s.poly) = a in va_qPURE va_range1
    "***** PRECONDITION NOT MET AT line 65 column 23 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
    (fun (_:unit) -> Vale.AES.GF128.lemma_shift_left_1 va_arg8) (va_QEmpty (())))))))))
val va_qcode_ShiftLeft128_1 (va_mods: va_mods_t) (a: poly)
    : (va_quickCode unit (va_code_ShiftLeft128_1 ()))
let va_qcode_ShiftLeft128_1 (va_mods: va_mods_t) (a: poly)
    : (va_quickCode unit (va_code_ShiftLeft128_1 ())) =
(qblock va_mods
    (fun (va_s: va_state) ->
        let va_old_s:va_state = va_s in
        va_QSeq va_range1
          "***** PRECONDITION NOT MET AT line 59 column 11 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
          (va_quick_Mov128 (va_op_xmm_xmm 2) (va_op_xmm_xmm 1))
          (va_QSeq va_range1
              "***** PRECONDITION NOT MET AT line 60 column 10 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
              (va_quick_Psrld (va_op_xmm_xmm 2) 31)
              (va_QSeq va_range1
                  "***** PRECONDITION NOT MET AT line 61 column 10 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
                  (va_quick_Pslld (va_op_xmm_xmm 1) 1)
                  (va_QSeq va_range1
                      "***** PRECONDITION NOT MET AT line 62 column 13 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
                      (va_quick_VPslldq4 (va_op_xmm_xmm 2) (va_op_xmm_xmm 2))
                      (va_QBind va_range1
                          "***** PRECONDITION NOT MET AT line 63 column 9 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
                          (va_quick_Pxor (va_op_xmm_xmm 1) (va_op_xmm_xmm 2))
                          (fun (va_s: va_state) _ ->
                              let va_arg8:Vale.Math.Poly2_s.poly = a in
                              va_qPURE va_range1
                                "***** PRECONDITION NOT MET AT line 65 column 23 of file /home/gebner/everest/hacl-star/vale/code/crypto/aes/x64/Vale.AES.X64.GF128_Mul.vaf *****"
                                (fun (_: unit) -> Vale.AES.GF128.lemma_shift_left_1 va_arg8)
                                (va_QEmpty (())))))))))
Vale.AES.X64.GF128_Mul.fst.checked
Vale.X64.State.fsti.checked Vale.X64.QuickCodes.fsti.checked Vale.X64.QuickCode.fst.checked Vale.X64.Machine_s.fst.checked Vale.X64.InsVector.fsti.checked Vale.X64.InsMem.fsti.checked Vale.X64.InsBasic.fsti.checked Vale.X64.InsAes.fsti.checked Vale.X64.Flags.fsti.checked Vale.X64.Decls.fsti.checked Vale.X64.CPU_Features_s.fst.checked Vale.Math.Poly2_s.fsti.checked Vale.Math.Poly2.Words.fsti.checked Vale.Math.Poly2.Lemmas.fsti.checked Vale.Math.Poly2.Bits_s.fsti.checked Vale.Math.Poly2.Bits.fsti.checked Vale.Math.Poly2.fsti.checked Vale.Def.Types_s.fst.checked Vale.Arch.Types.fsti.checked Vale.AES.GF128_s.fsti.checked Vale.AES.GF128.fsti.checked prims.fst.checked FStar.Pervasives.Native.fst.checked FStar.Pervasives.fsti.checked
Vale.AES.X64.GF128_Mul.fst
Vale.X64.QuickCode.va_mods_t Vale.Math.Poly2_s.poly Vale.X64.QuickCodes.qblock Prims.unit Prims.Cons Vale.X64.Decls.va_code Vale.X64.InsVector.va_code_Mov128 Vale.X64.Decls.va_op_xmm_xmm Vale.X64.InsVector.va_code_Psrld Vale.X64.InsVector.va_code_Pslld Vale.X64.InsVector.va_code_VPslldq4 Vale.X64.InsVector.va_code_Pxor Prims.Nil Vale.X64.Machine_s.precode Vale.X64.Decls.ins Vale.X64.Decls.ocmp Vale.X64.Decls.va_state Vale.X64.QuickCodes.va_QSeq Vale.X64.QuickCodes.va_range1 Vale.X64.InsVector.va_quick_Mov128 Vale.X64.InsVector.va_quick_Psrld Vale.X64.InsVector.va_quick_Pslld Vale.X64.InsVector.va_quick_VPslldq4 Vale.X64.QuickCodes.va_QBind Vale.X64.InsVector.va_quick_Pxor Vale.X64.QuickCodes.va_qPURE Prims.pure_post Prims.l_and Prims.b2t Prims.op_LessThan Vale.Math.Poly2_s.degree Prims.l_Forall Prims.l_imp Prims.eq2 Vale.Def.Types_s.quad32 Vale.Math.Poly2.Bits_s.to_quad32 Vale.Math.Poly2_s.shift Vale.AES.GF128.quad32_shift_left_1 Vale.AES.GF128.lemma_shift_left_1 Vale.X64.QuickCodes.va_QEmpty Vale.X64.QuickCodes.quickCodes Vale.X64.State.vale_state Vale.X64.QuickCode.va_quickCode Vale.AES.X64.GF128_Mul.va_code_ShiftLeft128_1
module Vale.AES.X64.GF128_Mul
open Vale.Def.Types_s
open Vale.Arch.Types
open Vale.Math.Poly2_s
open Vale.Math.Poly2
open Vale.Math.Poly2.Bits_s
open Vale.Math.Poly2.Bits
open Vale.Math.Poly2.Lemmas
open Vale.AES.GF128_s
open Vale.AES.GF128
open Vale.X64.Machine_s
open Vale.X64.State
open Vale.X64.Decls
open Vale.X64.InsBasic
open Vale.X64.InsMem
open Vale.X64.InsVector
open Vale.X64.InsAes
open Vale.X64.QuickCode
open Vale.X64.QuickCodes
open Vale.X64.CPU_Features_s
//-- ShiftLeft128_1

[@ "opaque_to_smt" va_qattr]
let va_code_ShiftLeft128_1 () =
  (va_Block (va_CCons (va_code_Mov128 (va_op_xmm_xmm 2) (va_op_xmm_xmm 1)) (va_CCons (va_code_Psrld
    (va_op_xmm_xmm 2) 31) (va_CCons (va_code_Pslld (va_op_xmm_xmm 1) 1) (va_CCons (va_code_VPslldq4
    (va_op_xmm_xmm 2) (va_op_xmm_xmm 2)) (va_CCons (va_code_Pxor (va_op_xmm_xmm 1) (va_op_xmm_xmm
    2)) (va_CNil ())))))))

[@ "opaque_to_smt" va_qattr]
let va_codegen_success_ShiftLeft128_1 () =
  (va_pbool_and (va_codegen_success_Mov128 (va_op_xmm_xmm 2) (va_op_xmm_xmm 1)) (va_pbool_and
    (va_codegen_success_Psrld (va_op_xmm_xmm 2) 31) (va_pbool_and (va_codegen_success_Pslld
    (va_op_xmm_xmm 1) 1) (va_pbool_and (va_codegen_success_VPslldq4 (va_op_xmm_xmm 2)
    (va_op_xmm_xmm 2)) (va_pbool_and (va_codegen_success_Pxor (va_op_xmm_xmm 1) (va_op_xmm_xmm 2))
    (va_ttrue ()))))))

[@ "opaque_to_smt" va_qattr]
let va_qcode_ShiftLeft128_1 (va_mods:va_mods_t) (a:poly) : (va_quickCode unit
val va_qcode_ShiftLeft128_1 (va_mods: va_mods_t) (a: poly)
    : (va_quickCode unit (va_code_ShiftLeft128_1 ()))
va_mods: Vale.X64.QuickCode.va_mods_t -> a: Vale.Math.Poly2_s.poly
  -> Vale.X64.QuickCode.va_quickCode Prims.unit (Vale.AES.X64.GF128_Mul.va_code_ShiftLeft128_1 ())