fact: Definition OneC_plus {sz} (w1 w2: word sz) := if weqdec w1 (wzero sz) then w2 else if weqdec w2 (wzero sz) then w1 else @ZToOneC sz (OneCToZ w1 + OneCToZ w2).
imports: Fiat.Common.Coq__8_4__8_5__Compat List Bedrock.Word Coq.ZArith.ZArith Coq.micromega.Psatz NArith NArithRing ZArith ZArithRing Program Coq.micromega.Psatz