fact: Fixpoint prod_num (m n : number) : number := match n with | nil => nil | a :: n1 => match scal_num a m with | nil => 0 :: prod_num m n1 | b :: n2 => b :: add_num n2 (prod_num m n1) end end.
imports: List ZArith Znumtheory Uint63 Cyclic63