fact: Fixpoint bin_A (l:list A)(def:A)(t:bin){struct t} : A := match t with | node t1 t2 => f (bin_A l def t1)(bin_A l def t2) | leaf n => nth n l def end.
imports: ZArith List Arith Lia Zwf Relations Inverse_Image Transitive_Closure Zdiv