fact: Definition to_Z x := match x with | N0 wx => w0_op.(znz_to_Z) wx | N1 wx => w1_op.(znz_to_Z) wx | N2 wx => w2_op.(znz_to_Z) wx | N3 wx => w3_op.(znz_to_Z) wx | N4 wx => w4_op.(znz_to_Z) wx | N5 wx => w5_op.(znz_to_Z) wx | N6 wx => w6_op.(znz_to_Z) wx | N7 wx => w7_op.(znz_to_Z) wx | N8 wx => w8_op.(znz_to_Z) wx | N9 wx => w9_op.(znz_to_Z) wx | N10 wx => w10_op.(znz_to_Z) wx | N11 wx => w11_op.(znz_to_Z) wx | N12 wx => w12_op.(znz_to_Z) wx | Nn n wx => (make_op n).(znz_to_Z) wx end.
imports: ZArith Basic_type ZnZ Zn2Z Nbasic GenMul GenDivn1