fact: Definition of_pos x := let h := nat_of_P (pheight x) in match h with | O => reduce_0 (snd (w0_op.(znz_of_pos) x)) | (S O) => reduce_1 (snd (w1_op.(znz_of_pos) x)) | (S (S O)) => reduce_2 (snd (w2_op.(znz_of_pos) x)) | (S (S (S O))) => reduce_3 (snd (w3_op.(znz_of_pos) x)) | (S (S (S (S O)))) => reduce_4 (snd (w4_op.(znz_of_pos) x)) | (S (S (S (S (S O))))) => reduce_5 (snd (w5_op.(znz_of_pos) x)) | (S (S (S (S (S (S O)))))) => reduce_6 (snd (w6_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S O))))))) => reduce_7 (snd (w7_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S (S O)))))))) => reduce_8 (snd (w8_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S (S (S O))))))))) => reduce_9 (snd (w9_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S (S (S (S O)))))))))) => reduce_10 (snd (w10_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S (S (S (S (S O))))))))))) => reduce_11 (snd (w11_op.(znz_of_pos) x)) | (S (S (S (S (S (S (S (S (S (S (S (S O)))))))))))) => reduce_12 (snd (w12_op.(znz_of_pos) x)) | _ => let n := minus h 13 in reduce_n n (snd ((make_op n).(znz_of_pos) x)) end.
imports: ZArith Basic_type ZnZ Zn2Z Nbasic GenMul GenDivn1