fact: Definition wm_nat3 (xyz:nat * nat * nat) := match xyz with (0, y, 0) => nil | (0, y, S z) => (cons (S z) nil) | (S x, 0, z) => (cons (S x) (cons 0 nil)) | (S x, S y, z) => (cons (S x) (cons (S y) nil)) end.
imports: Arith Coq.Logic.Eqdep_dec Coq.Arith.Peano_dec List Recdef