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