val init: init_t MD5
let init : words_state MD5 = Seq.seq_of_list init_as_list
val init: init_t MD5
let init:words_state MD5 =
Seq.seq_of_list init_as_list
Spec.MD5.fst.checked
Spec.Hash.Definitions.fst.checked prims.fst.checked Lib.IntTypes.fsti.checked FStar.UInt32.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.fsti.checked FStar.List.Tot.fst.checked
Spec.MD5.fst
FStar.Seq.Properties.seq_of_list Lib.IntTypes.int_t Lib.IntTypes.U32 Lib.IntTypes.SEC Spec.MD5.init_as_list Spec.Hash.Definitions.words_state Spec.Hash.Definitions.MD5
module Spec.MD5

(* Source: https://tools.ietf.org/html/rfc1321 *)

open Lib.IntTypes
open Spec.Hash.Definitions

(* Section 3.3 *)

inline_for_extraction
let init_as_list : list uint32 = [
  u32 0x67452301;
  u32 0xefcdab89;
  u32 0x98badcfe;
  u32 0x10325476;
]
val init: init_t MD5
Spec.Hash.Definitions.init_t Spec.Hash.Definitions.MD5