fact: Fixpoint remove_neutral2 (t : bin) : bin := match t with leaf n => leaf n | neutral => neutral | node t neutral => t | node t1 t2 => node t1 (remove_neutral2 t2) end.
imports: ZArith List Arith Zwf Relations Inverse_Image Transitive_Closure Zdiv