val init: init_t SHA1
let init : words_state SHA1 = Seq.seq_of_list init_as_list
val init: init_t SHA1
let init:words_state SHA1 =
Seq.seq_of_list init_as_list
Spec.SHA1.fst.checked
Spec.Loops.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 FStar.Classical.fsti.checked
Spec.SHA1.fst
FStar.Seq.Properties.seq_of_list Lib.IntTypes.int_t Lib.IntTypes.U32 Lib.IntTypes.SEC Spec.SHA1.init_as_list Spec.Hash.Definitions.words_state Spec.Hash.Definitions.SHA1
module Spec.SHA1

open Lib.IntTypes
module H = Spec.Hash.Definitions
module Seq = FStar.Seq

open Spec.Hash.Definitions
(* Source: https://nvlpubs.nist.gov/nistpubs/FIPS/NIST.FIPS.180-4.pdf *)

(* Section 5.3.1 *)

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