fact: Fixpoint SW_word {sz} (b : bool) (w : word sz) : word (S sz) := match w with | WO => WS b WO | WS b' s' w'' => WS b' (SW_word b w'') end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Common Fiat.Computation.Notations Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.WordFacts Fiat.Narcissus.BaseFormats