fact: Fixpoint nat_le_bool (n m:nat){struct m} : bool := match n, m with | O, _ => true | S _, O => false | S n, S m => nat_le_bool n m end.
imports: ZArith List Arith Lia Zwf Relations Inverse_Image Transitive_Closure Zdiv