fact: Definition mkmult_c c lm := match get_sign c with | None => mkmult_c_pos c lm | Some c' => if c' ?=! cI then mkmultm1 (rev' lm) else mkmult_rec [c] (rev' lm) end.
imports: Setoid Morphisms BinList BinPos BinNat BinInt Ring_theory